Вверх ↑
Разработчик
Ответов: 26161
Рейтинг: 2127
#1: 2024-09-22 00:59:04 ЛС | профиль | цитата
Вот, тоже состряпал пример пока только для добавления записи, но с отслеживанием пустых полей

Схема


Add(MainForm,4842992,119,161)
{
Width=865
Height=405
Position=1
}
Add(Button,5667771,175,238)
{
Left=65
Top=35
Width=80
Caption="Открыть"
link(onClick,7640810:doEvent1,[])
}
Add(Edit,14560686,350,196)
{
Left=140
Top=5
Width=170
Text="eferere.db"
}
Add(Label,121854,119,119)
{
Left=5
Top=7
Width=126
Height=17
Caption="Название базы данных:"
}
Add(MTStrTbl,4626275,175,161)
{
Left=319
Width=530
Height=367
Align=3
Name="mtst"
}
Add(DS_SQLite,7707573,350,245)
{
Name="mdb"
WaitClose=0
link(onOpen,8256804:doEvent1,[])
link(FileName,14560686:Text,[])
}
Add(DSC_Exec,16718266,448,245)
{
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);"
DSManager="mdb"
}
Add(DSC_Query,12956405,448,287)
{
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,504,287)
{
MSTControl="mtst"
}
Add(Hub,8256804,399,245)
{
link(onEvent1,16718266:doExec,[])
link(onEvent2,12956405:doQuery,[(431,258)(431,293)])
}
Add(Hub,7640810,231,238)
{
OutCount=3
link(onEvent1,5240480:doWork2,[])
link(onEvent2,7707573:doOpen,[])
link(onEvent3,10046301:doWork2,[(256,258)(256,349)])
}
Add(MST_Clear,14141324,294,196)
{
ClearAll=0
MSTControl="mtst"
}
Add(Button,2355534,175,294)
{
Left=150
Top=35
Width=80
Caption="Закрыть"
link(onClick,12642272:doEvent1,[])
}
Add(Hub,12642272,231,294)
{
OutCount=3
link(onEvent1,5240480:doWork3,[(284,300)])
link(onEvent2,7707573:doClose,[(291,307)(291,258)])
link(onEvent3,10046301:doWork1,[(284,314)(284,342)])
}
Add(HubEx,5240480,280,238)
{
Angle=3
link(onEvent,14141324:doClear,[(284,202)])
}
Add(ChildGroupBox,6602222,350,336)
{
}
BEGIN_SDK
Add(EditMulti,7158192,21,21)
{
WorkCount=1
Width=797
Height=550
link(doWork1,6340362:doEnabled,[(102,27)(102,125)])
}
Add(GroupBox,11911772,112,35)
{
Left=5
Top=65
Width=305
Height=295
Caption="Добавление записи"
}
Add(Button,6340362,112,119)
{
Left=100
Top=265
Width=110
Enabled=1
Caption="Добавить запись"
Point(doEnabled)
link(onClick,15668785:doCompare,[])
}
Add(MST_DB,75674,399,483)
{
MSTControl="parent.mtst"
}
Add(DSC_Query,1312896,336,483)
{
SQL="SELECT date AS Дата,familia AS Фамилия,opisanie AS Описание,work AS Работа,summa AS Сумма\r\nFROM tab1\r\nWHERE (id = (SELECT Max(id) FROM tab1))"
DSManager="parent.mdb"
link(onQuery,75674:doAddRow,[])
}
Add(Hub,1208040,126,427)
{
OutCount=4
link(onEvent1,8170282:doConvert,[(151,433)(151,391)])
link(onEvent2,12107249:doExec,[])
link(onEvent3,1312896:doQuery,[(326,447)(326,489)])
link(onEvent4,2274975:doText,[(151,454)(151,468)(109,468)(109,195)])
}
Add(DSC_Exec,12107249,336,434)
{
DSManager="parent.mdb"
link(SQL,11114498:FString,[])
}
Add(DatePicker,2099405,175,329)
{
Left=90
Top=25
Width=200
Height=21
Point(DateInt)
}
Add(Label,8418362,112,77)
{
Left=50
Top=27
Width=33
Height=17
Caption="Дата:"
AutoSize=1
AutosizeAtStart=1
Alignment=1
}
Add(Label,16295616,259,70)
{
Left=25
Top=57
Width=56
Height=17
Caption="Фамилия:"
AutoSize=1
AutosizeAtStart=1
Alignment=1
}
Add(Edit,7844435,203,63)
{
Left=90
Top=55
Width=200
Text=""
}
Add(Label,460532,364,140)
{
Left=25
Top=87
Width=56
Height=17
Caption="Описание:"
AutoSize=1
AutosizeAtStart=1
Alignment=1
}
Add(Edit,2442220,308,133)
{
Left=90
Top=85
Width=200
Text=""
}
Add(Label,3518953,469,210)
{
Left=25
Top=117
Width=57
Height=17
Caption="Работа:"
AutoSize=1
AutosizeAtStart=1
Alignment=1
}
Add(Edit,9214349,413,203)
{
Left=90
Top=115
Width=200
Text=""
}
Add(Label,14137413,567,280)
{
Left=25
Top=147
Width=58
Height=17
Caption="Сумма:"
AutoSize=1
AutosizeAtStart=1
Alignment=1
}
Add(Edit,941169,518,273)
{
Left=90
Top=145
Width=200
Text=""
}
Add(If_else,15668785,203,119)
{
Op2=String()
link(onTrue,9119366:doData,[])
link(onFalse,384872:doCompare,[(249,132)(249,195)])
link(Op1,10575844:Var2,[])
}
Add(If_else,384872,308,189)
{
Op2=String()
link(onTrue,14933663:doData,[])
link(onFalse,4752950:doCompare,[(347,202)(347,265)])
link(Op1,14770250:Var2,[])
}
Add(If_else,4752950,413,259)
{
Op2=String()
link(onTrue,12172580:doData,[])
link(onFalse,13297301:doCompare,[(459,272)(459,335)])
link(Op1,3198494:Var2,[])
}
Add(If_else,13297301,518,329)
{
Op2=String()
link(onTrue,641101:doData,[])
link(onFalse,1208040:doEvent1,[(557,342)(557,524)(116,524)(116,433)])
link(Op1,4480612:Var2,[])
}
Add(Message,2347219,756,329)
{
}
Add(DoData,641101,567,329)
{
link(onEventData,12998804:doWork2,[])
link(Data,14137413:Caption,[])
}
Add(DoData,12172580,469,259)
{
link(onEventData,15432838:doWork2,[])
link(Data,3518953:Caption,[])
}
Add(DoData,14933663,364,189)
{
link(onEventData,12767042:doWork2,[])
link(Data,460532:Caption,[])
}
Add(DoData,9119366,259,119)
{
link(onEventData,12767042:doWork1,[(627,125)])
link(Data,16295616:Caption,[])
}
Add(FormatStr,8451463,700,329)
{
DataCount=1
Mask="Не введено поле "%1""
link(onFString,2347219:doMessage,[])
}
Add(Replace,6836078,651,329)
{
SubStr=":"
link(onReplace,8451463:doString,[])
}
Add(HubEx,12998804,623,329)
{
link(onEvent,6836078:doReplace,[])
}
Add(HubEx,15432838,623,259)
{
Angle=1
link(onEvent,12998804:doWork1,[])
}
Add(HubEx,12767042,623,189)
{
Angle=1
link(onEvent,15432838:doWork1,[])
}
Add(FormatStr,11114498,336,385)
{
DataCount=5
Mask="INSERT INTO tab1 VALUES(Null,'%1','%2','%3','%4','%5');"
Point(FString)
link(Str2,10575844:Var3,[(349,376)(244,376)(244,103)])
link(Str3,14770250:Var3,[(356,173)])
link(Str4,3198494:Var1,[(363,243)])
link(Str5,4480612:Var1,[(370,313)])
}
Add(DateConvertor,8170282,175,385)
{
Mode=9
Format="dd.MM.yyyy"
Point(Data)
link(onResult,11114498:doString,[])
link(Data,2099405:DateInt,[])
}
Add(GetDataEx,10575844,203,98)
{
link(Data,7844435:Text,[])
}
Add(GetDataEx,14770250,308,168)
{
link(Data,2442220:Text,[])
}
Add(GetDataEx,3198494,413,238)
{
link(Data,9214349:Text,[])
}
Add(GetDataEx,4480612,518,308)
{
link(Data,941169:Text,[])
}
Add(Hub,7737197,168,189)
{
OutCount=4
link(onEvent1,7844435:doText,[(193,195)(193,69)])
link(onEvent2,2442220:doText,[(298,202)(298,139)])
link(onEvent3,9214349:doText,[(298,209)(298,230)(403,230)(403,209)])
link(onEvent4,941169:doText,[(291,216)(291,300)(508,300)(508,279)])
}
Add(VisualStrings,2274975,119,189)
{
Point(doText)
Point(onText)
link(onText,7737197:doEvent1,[])
}
END_SDK
Add(ChanelToIndex,10046301,294,336)
{
link(onIndex,6602222:doWork1,[])
}

карма: 22

0