ZeVSalt
Я не лупоглазый, это прищур такой !
- Сообщения
- 136
- Репутация
- 0
Здравствуйте.
Пытаюсь написать базу данных пользователей ПК.
Задачи базы:
1) Редактируемость
2) Загрузка данных из файлов отчетов Aida
3) Выгрузка в печатные формы установленного образца
4) Поиск данных по условию
За основу написания скрипта взял пример http://autoit-script.ru/index.php?topic=1668.msg11878#msg11878
за что огромное спасибо
по мере написания хотелось бы советов и разъяснений, т.к. недавно начал пробовать силы в AutoIt
Итак:
Грабли №1 - при запуске скрипта дочернее окно появляется вместе с основным, хотя вроде правильно написал
Код скрипта:
Пытаюсь написать базу данных пользователей ПК.
Задачи базы:
1) Редактируемость
2) Загрузка данных из файлов отчетов Aida
3) Выгрузка в печатные формы установленного образца
4) Поиск данных по условию
За основу написания скрипта взял пример http://autoit-script.ru/index.php?topic=1668.msg11878#msg11878
за что огромное спасибо
по мере написания хотелось бы советов и разъяснений, т.к. недавно начал пробовать силы в AutoIt
Итак:
Грабли №1 - при запуске скрипта дочернее окно появляется вместе с основным, хотя вроде правильно написал
Код:
GUISetState(@SW_HIDE,$Form2)
Код скрипта:
Код:
#include <sqlite.au3>
#include <array.au3>
#include <GUIConstants.au3>
#include <Encoding.au3>
Global $hQuery, $aR, $iRows, $iColumns, $aResult
Dim $left[2]
_SQLite_Startup()
_SQLite_Open('invent.db')
_SQLite_Exec(-1, "CREATE TABLE IF NOT EXISTS clients (name,podr,adress);")
$Form1 = GUICreate("База данных", 800, 300)
GUISetState(@SW_SHOW,$Form1)
$Button1 = GUICtrlCreateButton ("Добавить запись", 600,10,180,30)
$Button2 = GUICtrlCreateButton ("Выход",600,150,180,30)
$Button3 = GUICtrlCreateButton ("Просмотр данных",600,50,180,30)
$Button4 = GUICtrlCreateButton ("Редактирование данных",600,90,180,30)
$left_lv = GUICtrlCreateListView('Ф.И.О|подразделение|адрес', 10, 10, 550, 280)
$result = _SQLite_GetTable(-1, "SELECT name, adress FROM clients;", $left, $iRows, $iColumns)
For $i = 3 To UBound($left) - 1 Step 2
GUICtrlCreateListViewItem($left[$i] & '|' & $left[$i+1], $left_lv)
Next
$Form2 = GUICreate("Ввод данных",300,350, 100,200,$Form1)
$Button5 = GUICtrlCreateButton ("Выход",120,300,70,20)
GUISetState(@SW_HIDE,$Form2)
GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $Button1
Push_Button1()
Case $Button2
Exit
Case $Button5
Exit
EndSwitch
WEnd
Func Push_Button1()
$Form2 = GUICreate("Ввод данных",300,370, 100,200,$Form1)
$Button5 = GUICtrlCreateButton ("Выход",15,300,110,20)
GUISetState(@SW_SHOW,$Form2)
EndFunc