Add(MainForm,4842992,364,189)
{
Width=718
Height=406
}
Add(Button,5667771,420,266)
{
Left=10
Top=60
Width=80
Caption="Создать"
link(onClick,7640810:doEvent1,[])
}
Add(Edit,14560686,560,224)
{
Left=10
Top=30
Width=120
Text="eferere.db"
}
Add(Label,121854,364,147)
{
Left=10
Top=5
Width=123
Height=17
Caption="Название базы данных"
}
Add(MTStrTbl,4626275,420,189)
{
Left=160
Top=10
Width=530
Height=200
Name="mtst"
}
Add(DS_SQLite,7707573,560,273)
{
Name="mdb"
WaitClose=0
link(onOpen,8256804:doEvent1,[])
link(FileName,14560686:Text,[])
}
Add(DSC_Exec,16718266,658,259)
{
SQL="CREATE TABLE IF NOT EXISTS[tab1](\r\n [id] INTEGER PRIMARY KEY AUTOINCREMENT NULL, \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"
}
Add(DSC_Query,12956405,658,301)
{
SQL="SELECT date AS Дата,familia AS Фамилия,opisanie AS Описание,work AS Работа,summa AS Сумма FROM "tab1";"
DSManager="mdb"
link(onQuery,5392188:doAddRow,[])
link(onColumns,5392188:doAddCols,[])
}
Add(MST_DB,5392188,714,301)
{
MSTControl="mtst"
}
Add(Hub,8256804,609,273)
{
link(onEvent1,16718266:doExec,[(641,279)(641,265)])
link(onEvent2,12956405:doQuery,[(641,286)(641,307)])
}
Add(Hub,7640810,469,266)
{
link(onEvent1,14141324:doClear,[(494,272)(494,230)])
link(onEvent2,7707573:doOpen,[])
}
Add(MST_Clear,14141324,504,224)
{
ClearAll=0
MSTControl="mtst"
}
Add(SQLite_Exec,13232776,476,343)
{
SQL="INSERT INTO tab1 VALUES(2,'21.09.2024','Николай Владимирович','работа','решил','2500');"
link(onError,75674:doAddRow,[])
}
Add(Button,6340362,420,343)
{
Left=10
Top=95
Width=110
Caption="Добавить запись"
link(onClick,13232776:doExec,[])
}
Add(MST_DB,75674,525,343)
{
MSTControl="mtst"
}
--- Добавлено в 2024-09-21 21:15:37
nesco, пожалуйста, можете изменить ваш пример так, чтобы там была отдельная кнопка для добавления новой отдельной записи, отличающейся от той, что уже добавлена была. Ну никак не получается у меня это сделать.