Serascer писал(а):
пожалуйста, можете изменить ваш пример так, чтобы там была отдельная кнопка для добавления новой отдельной записи, отличающейся от той, что уже добавлена была. Ну никак не получается у меня это сделать.
Правой кнопкой мыши в таблице
Add(MainForm,1130157,203,105)
{
Width=718
Height=406
Point(onClose)
link(onCreate,7707573:doOpen,[])
link(onClose,7707573:doClose,[])
}
Add(MTStrTbl,4626275,210,224)
{
Left=160
Top=10
Width=530
Height=200
Align=5
Name="mytbl"
Point(onMouseUp)
link(onMouseUp,7623674:doEvent,[])
}
Add(DS_SQLite,7707573,259,119)
{
Name="mdb"
FileName="mydarabase.db"
WaitClose=0
link(onOpen,16718266:doExec,[])
}
Add(DSC_Exec,16718266,315,119)
{
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\n"
DSManager="mdb"
link(onExec,12639736:doEvent1,[])
}
Add(DSC_Query,12956405,420,126)
{
SQL="SELECT \r\n date AS Дата,\r\n familia AS Фамилия,\r\n opisanie AS Описание,\r\n work AS Работа,\r\n summa AS Сумма \r\nFROM tab1;\r\n"
DSManager="mdb"
link(onQuery,5392188:doAddRow,[])
link(onColumns,5392188:doAddCols,[])
}
Add(MST_DB,5392188,476,126)
{
MSTControl="mytbl"
}
Add(Hub,12639736,378,119)
{
InCount=2
OutCount=3
link(onEvent1,15792448:doClear,[(403,125)(403,90)])
link(onEvent2,12956405:doQuery,[])
link(onEvent3,14072073:doColAction,[(410,139)(410,174)])
}
Add(MST_ColAction,14072073,420,168)
{
Action=9
Index=-2
MSTControl="mytbl"
}
Add(PopupMenu,15198874,364,259)
{
Menu=#15:Добавить запись|0:|
link(onClick,1907426:doEvent,[])
}
Add(DeferredEvent,9633104,315,259)
{
link(onDeferredEvent,15198874:doPopupHere,[])
}
Add(IndexToChanel,1907426,420,259)
{
Count=3
link(onEvent1,3731829:doWork1,[])
}
Add(IndexToChanel,7623674,266,252)
{
link(onEvent2,9633104:doDeferredEvent,[])
}
Add(ChildForm,3731829,476,259)
{
link(onEvent1,2381268:In,[])
}
BEGIN_SDK
Add(EditMulti,1491838,21,14)
{
EventCount=1
WorkCount=1
Width=573
Height=291
link(doWork1,475173:doEvent1,[(67,20)(67,62)])
}
Add(MainForm,13367302,119,28)
{
Left=35
Top=105
Width=504
Height=218
Visible=1
Point(doVisible)
}
Add(Button,1416819,168,189)
{
Left=225
Top=125
Width=110
Height=30
Caption="Создатьзапись"
link(onClick,15597162:doString,[])
}
Add(Edit,13718670,287,112)
{
Left=10
Top=80
Width=120
Text=""
}
Add(Label,10493128,364,49)
{
Left=10
Top=5
Width=30
Height=17
Caption="Дата"
}
Add(DSC_Exec,12580462,301,189)
{
DSManager="parent.mdb"
link(onExec,2150116:doEvent1,[])
}
Add(DatePicker,11740223,112,112)
{
Left=5
Top=30
Width=115
Height=21
link(onChange,3131699:doWork2,[])
}
Add(Label,8723371,368,46)
{
Left=10
Top=60
Width=53
Height=17
Caption="Фамилия"
}
Add(Edit,1991437,342,110)
{
Left=160
Top=30
Width=310
Text=""
}
Add(Label,10818380,290,37)
{
Left=160
Top=10
Width=54
Height=17
Caption="Описание"
}
Add(Label,7006651,361,42)
{
Left=170
Top=60
Width=40
Height=17
Caption="Работа"
}
Add(Edit,6769963,385,108)
{
Left=160
Top=80
Width=310
Text=""
}
Add(Edit,10926788,431,113)
{
Left=10
Top=130
Width=120
Text=""
DataType=1
}
Add(Label,14976561,330,40)
{
Left=10
Top=110
Width=59
Height=17
Caption="Стоимость"
}
Add(DateConvertor,5015877,224,112)
{
Mode=9
Format="yyyy-MM-dd"
Point(Result)
Point(Data)
link(Data,12298793:DateTime,[])
}
Add(FormatStr,15597162,224,189)
{
DataCount=5
Mask="INSERT\r\nINTO\r\n [tab1](\r\n [date],\r\n [familia],\r\n [opisanie],\r\n [work],\r\n [summa])\r\nVALUES(\r\n '%1',\r\n '%2',\r\n '%3',\r\n '%4',\r\n %5);\r\n"
link(onFString,12580462:doExec,[])
link(Str1,5015877:Result,[])
link(Str2,13718670:Text,[(237,152)(293,152)])
link(Str3,1991437:Text,[(244,159)(348,159)])
link(Str4,6769963:Text,[(251,166)(391,166)])
link(Str5,10926788:Text,[(258,173)(437,173)])
}
Add(Hub,2150116,378,189)
{
link(onEvent1,1491838:onEvent1,[(466,195)(466,20)])
link(onEvent2,14722169:doDeferredEvent,[(410,202)(410,230)])
}
Add(DoData,7108916,476,224)
{
Data=Integer(0)
link(onEventData,475173:doEvent2,[(521,230)(521,274)(67,274)(67,69)])
}
Add(DeferredEvent,14722169,420,224)
{
link(onDeferredEvent,7108916:doData,[])
}
Add(Hub,475173,77,56)
{
InCount=2
link(onEvent1,13367302:doVisible,[])
link(onEvent2,3131699:doWork1,[(109,69)(109,97)(186,97)])
}
Add(Time,12298793,217,56)
{
Point(DateTime)
}
Add(HubEx,3131699,182,112)
{
link(onEvent,5015877:doConvert,[])
}
END_SDK
Add(MST_Clear,15792448,420,84)
{
ClearAll=0
MSTControl="mytbl"
}
Add(LineBreak,10263144,322,161)
{
link(Out,12639736:doEvent2,[(361,167)(361,132)])
Primary=[2381268,203,98]
}