Вверх ↑
Ответов: 133
Рейтинг: 0
#1: 2024-09-22 12:22:43 ЛС | профиль | цитата
Вот что вышло ) По идее закончил с программой, совместные усилия оказались успешные

Add(MainForm,2953706,140,105)
{
Width=1416
Height=819
Caption="База ремонтов"
Position=1
Point(onClose)
link(onCreate,6126171:doOpen,[])
link(onClose,6126171:doClose,[])
}
Add(Button,2538230,189,224)
{
Left=10
Top=10
Width=110
Caption="Добавить"
link(onClick,3731829:doWork1,[])
}
Add(MTStrTbl,947388,140,161)
{
Left=10
Top=40
Width=1380
Height=305
Name="mtst"
Columns=#4:№=40|7:Дата=70|11:Фамилия=300|11:Телефон=100|12:Описание=400|10:Работа=400|8:Сумма=65|
ChangeWidth=1
Point(doSetFocus)
Point(Row)
Point(onDblClick)
link(onClick,6602222:doWork1,[(198,167)(198,398)])
}
Add(Button,4446188,189,308)
{
Left=130
Top=10
Width=110
Caption="Изменить"
link(onClick,39975:doWork1,[])
}
Add(Button,15445199,175,497)
{
Left=250
Top=10
Width=110
Caption="Поиск"
link(onClick,382362:doWork1,[])
}
Add(DS_SQLite,6126171,294,119)
{
Name="mdb"
FileName="Clients.db"
WaitClose=0
link(onOpen,7203295:doExec,[])
}
Add(DSC_Exec,7203295,350,119)
{
SQL="CREATE TABLE IF NOT EXISTS[tab1](\r\n [id] INTEGER PRIMARY KEY AUTOINCREMENT, \r\n [date] TEXT, \r\n [familia] TEXT, \r\n [tel] TEXT, \r\n [opisanie] TEXT, \r\n [work] TEXT, \r\n [summa] TEXT);"
DSManager="mdb"
link(onExec,8256804:doEvent1,[])
}
Add(DSC_Query,301125,455,126)
{
SQL="SELECT\r\n id, \r\n date,\r\n familia,\r\n tel,\r\n opisanie,\r\n work,\r\n summa \r\nFROM tab1;\r\n"
DSManager="mdb"
link(onQuery,5887078:doAddRow,[])
}
Add(MST_DB,5887078,511,126)
{
MSTControl="mtst"
}
Add(Hub,8256804,406,119)
{
InCount=3
OutCount=3
link(onEvent1,15751595:doClear,[(430,125)(430,90)])
link(onEvent2,301125:doQuery,[])
link(onEvent3,13789751:doSortDigit,[(438,139)(438,181)])
}
Add(MST_Clear,15751595,455,84)
{
MSTControl="mtst"
}
Add(MST_SortInCol,13789751,455,168)
{
MethodSort=1
MSTControl="mtst"
Point(doSortDigit)
}
Add(ChildForm,3731829,238,224)
{
link(onEvent1,8256804:doEvent2,[(338,230)(338,132)])
}
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=906
Height=338
Visible=1
Position=3
Point(doVisible)
}
Add(Button,1416819,168,189)
{
Left=390
Top=255
Width=110
Height=30
Font=[MS Sans Serif,8,1,0,1]
Caption="Добавить"
link(onClick,15597162:doString,[])
}
Add(Edit,13718670,266,112)
{
Left=130
Top=30
Width=310
Text=""
}
Add(Label,10493128,224,28)
{
Left=10
Top=5
Width=30
Height=17
Caption="Дата"
}
Add(DSC_Exec,12580462,301,189)
{
DSManager="parent.mdb"
link(onExec,2150116:doEvent1,[])
}
Add(Label,8723371,266,70)
{
Left=130
Top=10
Width=53
Height=17
Caption="Фамилия"
}
Add(Edit,1991437,350,112)
{
Left=5
Top=80
Width=435
Height=110
Text=""
}
Add(Label,10818380,350,70)
{
Left=5
Top=60
Width=54
Height=17
Caption="Описание"
}
Add(Label,7006651,392,70)
{
Left=450
Top=60
Width=40
Height=17
Caption="Работа"
}
Add(Edit,6769963,392,112)
{
Left=450
Top=80
Width=435
Height=110
Text=""
}
Add(Edit,10926788,434,112)
{
Left=5
Top=220
Width=120
Text=""
DataType=1
}
Add(Label,14976561,434,70)
{
Left=5
Top=200
Width=39
Height=17
Caption="Сумма"
}
Add(DateConvertor,5015877,224,112)
{
Mode=9
Format="dd-MM-yyyy"
Point(Result)
Point(Data)
link(Data,12298793:DateTime,[(230,107)(237,107)])
}
Add(FormatStr,15597162,224,189)
{
DataCount=6
Mask="INSERT\r\nINTO\r\n [tab1](\r\n [date],\r\n [familia],\r\n [tel],\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 %6);\r\n"
link(onFString,12580462:doExec,[])
link(Str1,5015877:Result,[])
link(Str2,13718670:Text,[(237,152)(272,152)])
link(Str3,338662:Text,[(244,167)(314,167)])
link(Str4,1991437:Text,[(251,167)(356,167)])
link(Str5,6769963:Text,[(258,167)(398,167)])
link(Str6,10926788:Text,[(265,167)(440,167)])
}
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,224,70)
{
Time_Date=1
Format="D M:Y"
Point(DateTime)
}
Add(HubEx,3131699,182,112)
{
link(onEvent,5015877:doConvert,[])
}
Add(DatePicker,11740223,112,112)
{
Left=5
Top=30
Width=115
Height=21
link(onChange,3131699:doWork2,[])
}
Add(Edit,338662,308,112)
{
Left=450
Top=30
Width=180
Text=""
}
Add(Label,7630534,308,70)
{
Left=450
Top=10
Width=49
Height=17
Caption="Телефон"
}
END_SDK
Add(ChildForm,39975,238,308)
{
link(onEvent1,8256804:doEvent3,[(338,314)(338,139)])
link(Data1,2754020:Var3,[(244,229)])
}
BEGIN_SDK
Add(EditMulti,13011679,21,14)
{
EventCount=1
WorkCount=1
DataCount=1
Width=797
Height=480
link(doWork1,5832317:doEvent1,[(67,20)(67,62)])
}
Add(MainForm,928490,119,28)
{
Left=35
Top=105
Width=906
Height=338
Visible=1
Position=3
Point(doVisible)
}
Add(Button,12215766,203,301)
{
Left=390
Top=255
Width=110
Height=30
Font=[MS Sans Serif,8,1,0,1]
Caption="Изменить"
link(onClick,3129647:doString,[])
}
Add(Edit,14344690,329,224)
{
Left=130
Top=30
Width=310
Text=""
}
Add(Label,8784403,245,98)
{
Left=5
Top=30
Width=57
Height=29
Font=[MS Sans Serif,15,1,0,1]
Caption="Дата"
}
Add(DSC_Exec,6409374,378,301)
{
DSManager="parent.mdb"
link(onExec,3089475:doEvent1,[])
}
Add(Label,3803848,329,182)
{
Left=130
Top=10
Width=53
Height=17
Caption="Фамилия"
}
Add(Edit,5654748,413,224)
{
Left=5
Top=80
Width=435
Height=110
Text=""
}
Add(Label,3257238,413,182)
{
Left=5
Top=60
Width=54
Height=17
Caption="Описание"
}
Add(Label,10297054,455,182)
{
Left=450
Top=60
Width=40
Height=17
Caption="Работа"
}
Add(Edit,11170679,455,224)
{
Left=450
Top=80
Width=435
Height=110
Text=""
}
Add(Edit,6100857,497,224)
{
Left=5
Top=220
Width=120
Text=""
DataType=1
}
Add(Label,10505365,497,182)
{
Left=5
Top=200
Width=39
Height=17
Caption="Сумма"
}
Add(FormatStr,3129647,301,301)
{
DataCount=7
Mask="UPDATE\r\n [tab1]\r\nSET\r\n [familia] = '%2',\r\n [tel] = '%3',\r\n [opisanie] = '%4',\r\n [work] = '%5',\r\n [summa] = '%6'\r\nWHERE\r\n [id] = %7;"
link(onFString,6409374:doExec,[])
link(Str2,14344690:Text,[(314,264)(335,264)])
link(Str3,11779834:Text,[(321,279)(377,279)])
link(Str4,5654748:Text,[(328,279)(419,279)])
link(Str5,11170679:Text,[(335,279)(461,279)])
link(Str6,6100857:Text,[(342,279)(503,279)])
link(Str7,4755838:Value,[(349,279)(244,279)])
}
Add(Hub,3089475,441,301)
{
link(onEvent1,13011679:onEvent1,[(466,307)(466,20)])
link(onEvent2,2868402:doDeferredEvent,[(476,314)(476,342)])
}
Add(DoData,8975738,553,336)
{
Data=Integer(0)
link(onEventData,5832317:doEvent2,[(597,342)(597,206)(65,206)(65,69)])
}
Add(DeferredEvent,2868402,497,336)
{
link(onDeferredEvent,8975738:doData,[])
}
Add(Hub,5832317,77,56)
{
InCount=2
OutCount=3
link(onEvent1,928490:doVisible,[])
link(onEvent2,8170284:doSeparateMT,[(129,69)(129,139)])
}
Add(MT_MultiData,8170284,168,133)
{
Count=7
Point(Data)
Point(RemaindData)
link(onData1,4755838:doValue,[(219,139)(219,230)])
link(onData2,8784403:doText,[(212,146)(212,104)])
link(onData3,14344690:doText,[(286,153)(286,230)])
link(onData4,11779834:doText,[(286,160)(286,230)])
link(onData5,5654748:doText,[(306,167)(306,230)])
link(onData6,11170679:doText,[(328,174)(328,230)])
link(Data,13011679:Data1,[(174,73)(27,73)])
link(onData7,6100857:doText,[(348,181)(348,230)])
}
Add(Memory,4755838,238,224)
{
}
Add(Label,2151521,245,56)
{
Left=5
Top=10
Width=30
Height=17
Caption="Дата"
}
Add(Edit,11779834,371,224)
{
Left=450
Top=30
Width=180
Text=""
}
Add(Label,3672410,371,182)
{
Left=450
Top=10
Width=49
Height=17
Caption="Телефон"
}
END_SDK
Add(GetDataEx,2754020,161,224)
{
Angle=3
link(Data,947388:Select,[(146,229)])
}
Add(ChildGroupBox,6602222,224,392)
{
link(Data1,2754020:Var1,[(230,218)(167,218)])
}
BEGIN_SDK
Add(EditMulti,7158192,21,21)
{
WorkCount=1
DataCount=1
Width=797
Height=550
link(doWork1,10638613:doSeparateMT,[(67,27)(67,111)(164,118)(164,188)])
}
Add(GroupBox,11911772,35,35)
{
Left=10
Top=360
Width=895
Height=410
Caption=""
}
Add(Label,11604296,280,105)
{
Left=5
Top=10
Width=30
Height=17
Caption="Дата"
}
Add(Edit,11671383,399,273)
{
Left=130
Top=30
Width=310
Enabled=1
Text=""
ReadOnly=0
}
Add(Label,8815771,280,147)
{
Left=5
Top=30
Width=57
Height=29
Font=[MS Sans Serif,15,1,0,1]
Caption="Дата"
}
Add(Label,5413725,399,231)
{
Left=130
Top=10
Width=53
Height=17
Caption="Фамилия"
}
Add(Edit,12428065,483,273)
{
Left=5
Top=80
Width=435
Height=110
Enabled=1
Text=""
ReadOnly=0
}
Add(Label,8424378,483,231)
{
Left=5
Top=60
Width=54
Height=17
Caption="Описание"
}
Add(Label,11726734,525,231)
{
Left=450
Top=60
Width=40
Height=17
Caption="Работа"
}
Add(Edit,1011414,525,273)
{
Left=450
Top=80
Width=435
Height=110
Enabled=1
Text=""
ReadOnly=0
}
Add(Edit,2308080,567,273)
{
Left=5
Top=220
Width=120
Enabled=1
Text=""
DataType=1
ReadOnly=0
}
Add(Label,881908,567,231)
{
Left=5
Top=200
Width=39
Height=17
Caption="Сумма"
}
Add(MT_MultiData,10638613,203,182)
{
Count=7
Point(Data)
Point(RemaindData)
link(onData2,8815771:doText,[(247,195)(247,153)])
link(onData3,11671383:doText,[(321,202)(321,279)])
link(onData4,13541262:doText,[(338,209)(338,279)])
link(onData5,12428065:doText,[(359,216)(359,279)])
link(onData6,1011414:doText,[(380,223)(380,279)])
link(Data,7158192:Data1,[(209,102)(27,102)])
link(onData7,2308080:doText,[(401,230)(401,279)])
}
Add(Edit,13541262,441,273)
{
Left=450
Top=30
Width=180
Enabled=1
Text=""
ReadOnly=0
}
Add(Label,1608245,441,231)
{
Left=450
Top=10
Width=49
Height=17
Caption="Телефон"
}
END_SDK
Add(ChildForm,382362,217,497)
{
}
BEGIN_SDK
Add(EditMulti,740293,21,14)
{
EventCount=1
WorkCount=1
DataCount=1
Width=797
Height=480
link(doWork1,6789909:doVisible,[(67,20)(67,62)])
}
Add(MainForm,6789909,140,28)
{
Left=35
Top=105
Width=1416
Height=759
Visible=1
Position=3
Point(doVisible)
Point(onClose)
link(onClose,7936292:doClear,[(278,55)(278,97)])
}
Add(Button,8958237,203,154)
{
Left=10
Top=70
Width=110
Height=30
Font=[MS Sans Serif,8,1,0,1]
Caption="Искать"
link(onClick,10677122:doString,[])
}
Add(Edit,5217928,259,112)
{
Left=10
Top=30
Width=310
Text=""
}
Add(Label,2720308,259,70)
{
Left=10
Top=10
Width=53
Height=17
Caption="Фамилия"
}
Add(FormatStr,10677122,259,154)
{
DataCount=1
Mask="SELECT id, date, familia, tel, opisanie, work, summa FROM tab1 WHERE familia LIKE '^%1^'"
link(onFString,7157604:doReplace,[])
link(Str1,5217928:Text,[])
}
Add(MTStrTbl,9246759,112,147)
{
Left=10
Top=110
Width=1380
Height=180
Name="mtstsearch"
Columns=#4:№=40|7:Дата=70|11:Фамилия=300|11:Телефон=100|12:Описание=400|10:Работа=400|8:Сумма=65|
ChangeWidth=1
Point(doSetFocus)
Point(Row)
Point(onDblClick)
link(onClick,5804836:doWork1,[(152,153)(152,223)])
}
Add(MST_DB,11513766,448,154)
{
MSTControl="mtstsearch"
}
Add(MST_Clear,7936292,385,91)
{
MSTControl="mtstsearch"
}
Add(Replace,7157604,322,154)
{
SubStr="^"
DestStr="%"
link(onReplace,2595244:doQuery,[])
}
Add(DSC_Query,2595244,385,154)
{
DSManager="parent.mdb"
link(onQuery,11513766:doAddRow,[])
}
Add(Edit,2992831,259,259)
{
Left=380
Top=30
Width=310
Text=""
}
Add(Label,10230231,259,217)
{
Left=380
Top=10
Width=49
Height=17
Caption="Телефон"
}
Add(Button,12181062,217,301)
{
Left=380
Top=65
Width=110
Height=30
Font=[MS Sans Serif,8,1,0,1]
Caption="Искать"
link(onClick,9994550:doString,[])
}
Add(FormatStr,9994550,259,301)
{
DataCount=1
Mask="SELECT id, date, familia, tel, opisanie, work, summa FROM tab1 WHERE tel LIKE '^%1^'"
link(onFString,1808222:doReplace,[])
link(Str1,2992831:Text,[])
}
Add(MST_DB,1556406,448,301)
{
MSTControl="mtstsearch"
}
Add(Replace,1808222,322,301)
{
SubStr="^"
DestStr="%"
link(onReplace,227670:doQuery,[])
}
Add(DSC_Query,227670,385,301)
{
DSManager="parent.mdb"
link(onQuery,1556406:doAddRow,[])
}
Add(ChildGroupBox,5804836,161,217)
{
link(Data1,9246759:Select,[(167,201)(118,201)])
}
BEGIN_SDK
Add(EditMulti,16335083,21,21)
{
WorkCount=1
DataCount=1
Width=797
Height=550
link(doWork1,16079741:doSeparateMT,[(67,27)(67,111)(164,118)(164,188)])
}
Add(GroupBox,9125319,35,35)
{
Left=10
Top=300
Width=895
Height=410
Caption=""
}
Add(Label,777029,280,105)
{
Left=5
Top=10
Width=30
Height=17
Caption="Дата"
}
Add(Edit,12525761,399,273)
{
Left=130
Top=30
Width=310
Enabled=1
Text=""
ReadOnly=0
}
Add(Label,1738305,280,147)
{
Left=5
Top=30
Width=57
Height=29
Font=[MS Sans Serif,15,1,0,1]
Caption="Дата"
}
Add(Label,16581666,399,231)
{
Left=130
Top=10
Width=53
Height=17
Caption="Фамилия"
}
Add(Edit,4494717,483,273)
{
Left=5
Top=80
Width=435
Height=110
Enabled=1
Text=""
ReadOnly=0
}
Add(Label,16500743,483,231)
{
Left=5
Top=60
Width=54
Height=17
Caption="Описание"
}
Add(Label,9936782,525,231)
{
Left=450
Top=60
Width=40
Height=17
Caption="Работа"
}
Add(Edit,4156242,525,273)
{
Left=450
Top=80
Width=435
Height=110
Enabled=1
Text=""
ReadOnly=0
}
Add(Edit,2090202,567,273)
{
Left=5
Top=220
Width=120
Enabled=1
Text=""
DataType=1
ReadOnly=0
}
Add(Label,7769607,567,231)
{
Left=5
Top=200
Width=39
Height=17
Caption="Сумма"
}
Add(MT_MultiData,16079741,203,182)
{
Count=7
Point(Data)
Point(RemaindData)
link(onData2,1738305:doText,[(247,195)(247,153)])
link(onData3,12525761:doText,[(321,202)(321,279)])
link(onData4,14363825:doText,[(338,209)(338,279)])
link(onData5,4494717:doText,[(359,216)(359,279)])
link(onData6,4156242:doText,[(380,223)(380,279)])
link(onData7,2090202:doText,[(401,230)(401,279)])
link(Data,16335083:Data1,[(209,102)(27,102)])
}
Add(Edit,14363825,441,273)
{
Left=450
Top=30
Width=180
Enabled=1
Text=""
}
Add(Label,12376104,441,231)
{
Left=450
Top=10
Width=49
Height=17
Caption="Телефон"
}
END_SDK
END_SDK

карма: 1

0