Add(MainForm,2953706,21,105)
{
 Width=718
 Height=406
}
Add(Button,5667771,126,182)
{
 Left=10
 Top=60
 Width=80
 Caption="Создать"
 link(onClick,7707573:doOpen,[])
}
Add(Edit,14560686,182,133)
{
 Left=10
 Top=30
 Width=120
 Text=""
}
Add(Label,121854,182,91)
{
 Left=10
 Top=5
 Width=123
 Height=17
 Caption="Название базы данных"
}
Add(MTStrTbl,4626275,441,182)
{
 Left=160
 Top=10
 Width=530
 Height=200
 Columns=#7:Дата=70|11:Фамилия=100|12:Описание=100|10:Работа=100|8:Сумма=70|
}
Add(DS_SQLite,7707573,182,182)
{
 Name="mdb"
 WaitClose=0
 link(onOpen,16718266:doExec,[])
 link(FileName,14560686:Text,[])
}
Add(DSC_Exec,16718266,238,182)
{
 SQL="CREATE TABLE IF NOT EXISTS[tab1](\r\n  [id] INTEGER PRIMARY KEY AUTOINCREMENT, \r\n  [date] DATE, \r\n  [familia] TEXT, \r\n  [opisanie] TEXT, \r\n  [work] TEXT, \r\n  [summa] TEXT);\r\nINSERT INTO [tab1] VALUES(1,'21.09.2024','Пупкин Николай Владимирович','работа','решил''2500');"
 DSManager="mdb"
 link(onExec,12956405:doQuery,[])
}
Add(DSC_Query,12956405,287,182)
{
 SQL="SELECT date AS Дата,familia AS Фамилия,opisanie AS Описание,work AS Работа,summa AS Сумма FROM "tab1";"
 DSManager="sqlite_1"
 link(onQuery,5392188:doAddRow,[])
 link(onColumns,5392188:doAddCols,[])
}
Add(MST_DB,5392188,336,182)
{
 MSTControl="parent.mtst"
}