stimka писал(а): а с латиницей у медицинского персонала будут проблемы Используй SQL-оператор переназначения AS Add(MainForm,13460276,266,133)
{
Width=1215
Height=858
Point(onClose)
link(onCreate,944731:doOpen,[])
link(onClose,944731:doClose,[])
}
Add(SQLite_QueryScalar,6326427,504,434)
{
SQL="CREATE TABLE basecsv (Field_1,Field_2,Field_3,Field_4,Field_5,Field_6,Field_7,Field_8,Field_9,Field_10,Field_11,Field_12,Field_13,Field_14,Field_15,Field_16,Field_17,Field_18,Field_19,Field_20,Field_21,Field_22,Field_23,Field_24,Field_25,Field_26,Field_27,Field_28,Field_29,Field_30,Field_31,Field_32,Field_33,Field_34,Field_35);\r\n"
link(dbHandle,8366686:Var,[])
}
Add(SQLite_Query,13663585,441,245)
{
SQL="select DISTINCT name from basecsv"
link(onQuery,12792429:doStr,[])
link(onError,6326427:doQuery,[(478,265)(478,440)])
link(dbHandle,14182283:Var1,[(447,208)])
}
Add(Hub,5338849,385,217)
{
OutCount=3
link(onEvent1,3831167:doClear,[(507,223)(507,237)])
link(onEvent2,13663585:doQuery,[(420,230)(420,251)])
link(onEvent3,6817443:doString,[(410,237)(410,307)])
}
Add(SQLite_DB,944731,322,147)
{
FileName="data.db"
link(onOpen,2993541:doValue,[])
}
Add(GlobalVar,2993541,469,147)
{
Name="db"
link(onValue,6344902:doWork1,[(508,153)(508,139)(366,139)])
}
Add(MT_String,12792429,511,245)
{
link(onResult,3831167:doAdd,[(550,251)(550,230)])
}
Add(ComboBox,3831167,574,224)
{
Left=75
Top=787
Width=270
Height=21
Text=""
DataType=1
ReadOnly=0
Point(doSelectString)
Point(doSelect)
Point(EditText)
link(onChange,15058919:doSeparateMT,[])
}
Add(FormatStr,8332757,686,224)
{
DataCount=1
Mask="SELECT \r\n Field_1 AS 'Столбец 1',\r\n Field_2 AS 'Столбец 2',\r\n Field_3 AS 'Столбец 3',\r\n Field_4 AS 'Столбец 4', \r\n Field_5 AS 'Столбец 5',\r\n Field_6 AS 'Столбец 6',\r\n Field_7 AS 'Столбец 7',\r\n Field_8 AS 'Столбец 8',\r\n Field_9 AS 'Столбец 9',\r\n Field_10 AS 'Столбец 10',\r\n Field_11 AS 'Столбец 11',\r\n Field_12 AS 'Столбец 12',\r\n Field_13 AS 'Столбец 13',\r\n Field_14 AS 'Столбец 14',\r\n Field_15 AS 'Столбец 15',\r\n Field_16 AS 'Столбец 16',\r\n Field_17 AS 'Столбец 17',\r\n Field_18 AS 'Столбец 18',\r\n Field_19 AS 'Столбец 19',\r\n Field_20 AS 'Столбец 20',\r\n Field_21 AS 'Столбец 21',\r\n Field_22 AS 'Столбец 22',\r\n Field_23 AS 'Столбец 23',\r\n Field_24 AS 'Столбец 24',\r\n Field_25 AS 'Столбец 25',\r\n Field_26 AS 'Столбец 26',\r\n Field_27 AS 'Столбец 27',\r\n Field_28 AS 'Столбец 28',\r\n Field_29 AS 'Столбец 29',\r\n Field_30 AS 'Столбец 30',\r\n Field_31 AS 'Столбец 31',\r\n Field_32 AS 'Столбец 32',\r\n Field_33 AS 'Столбец 33',\r\n Field_34 AS 'Столбец 34',\r\n Field_35 AS 'Столбец 35'\r\nFROM basecsv WHERE name = '%1'"
link(onFString,7973005:doEvent1,[])
}
Add(MT_MultiData,15058919,637,224)
{
Count=1
link(onData1,8332757:doString,[])
}
Add(IndexToChanel,4740543,119,217)
{
Count=3
link(onEvent1,16150090:doWork1,[])
link(onEvent2,16150090:doWork2,[])
link(onEvent3,12257291:doCompare,[(159,237)(159,279)])
}
Add(ChildForm,16150090,168,217)
{
link(onEvent1,6344902:doWork2,[])
link(Data1,9263143:Var2,[])
}
BEGIN_SDK
Add(EditMulti,15582686,14,28)
{
EventCount=1
WorkCount=2
DataCount=1
Width=923
Height=501
link(doWork1,803552:doData,[(59,34)(59,349)])
link(doWork2,3314692:doCompare,[(84,41)(84,181)])
}
Add(VisualShape,4037646,77,413)
{
Left=5
Top=205
Width=330
Height=10
ShapeType=5
}
Add(MainForm,4756718,616,336)
{
Left=35
Top=105
Width=352
Height=286
Visible=1
Caption="Создание записи"
BorderStyle=3
Position=1
Point(doVisible)
}
Add(Button,3155091,483,364)
{
Left=240
Top=225
Width=75
Caption="Закрыть"
link(onClick,3695913:doWork2,[])
}
Add(Button,15974760,455,266)
{
Left=140
Top=225
Width=90
Caption="Создать"
Point(doVisible)
link(onClick,9604256:doEvent1,[])
}
Add(Edit,9974840,665,133)
{
Left=20
Top=60
Width=305
Text=""
}
Add(Label,9488238,84,420)
{
Left=20
Top=40
Width=83
Height=17
Caption="Наименование "
}
Add(Label,5209603,91,427)
{
Left=20
Top=90
Width=157
Height=17
Caption="Дополнительная информация"
}
Add(FormatStr,11006262,693,266)
{
Mask="INSERT INTO basecsv values(null,'%1','%2');"
link(onFString,2629092:doWork2,[])
link(Str1,16064365:Var3,[(699,243)])
link(Str2,6406241:Var3,[(706,236)])
}
Add(GlobalVar,16320056,763,238)
{
Name="db"
}
Add(SQLite_QueryScalar,13119305,763,266)
{
link(onQuery,15582686:onEvent1,[(815,272)(815,34)])
link(onError,2692502:doMessage,[])
link(dbHandle,16320056:Var,[])
}
Add(Hub,9604256,504,266)
{
link(onEvent1,11006262:doString,[])
link(onEvent2,3695913:doWork1,[(543,279)])
}
Add(FormatStr,192421,658,441)
{
DataCount=5
Mask="update basecsv set \r\nid= %1,\r\nname='%2',\r\ndopinf='%3'\r\nwhere \r\nid= %1\r\nand name='%4' \r\nand dopinf='%5';"
link(onFString,2629092:doWork3,[(746,447)])
link(Str1,8298686:Var,[(664,417)(643,417)])
link(Str2,16064365:Var2,[])
link(Str3,6406241:Var2,[])
link(Str4,11713150:Var,[])
link(Str5,2798082:Var,[])
}
Add(HubEx,2629092,742,266)
{
link(onEvent,13119305:doQuery,[])
}
Add(Button,7927113,455,441)
{
Left=140
Top=225
Width=90
Caption="Изменить"
Point(doVisible)
link(onClick,15733272:doEvent1,[])
}
Add(Hub,15733272,504,441)
{
link(onEvent1,192421:doString,[])
link(onEvent2,3695913:doWork3,[(543,454)])
}
Add(ChanelToIndex,3787088,567,364)
{
link(onIndex,4756718:doVisible,[])
}
Add(Hub,9279600,168,175)
{
OutCount=3
link(onEvent1,14322215:doSeparateMT,[(192,181)(192,132)])
link(onEvent2,14967705:doEvent1,[(284,188)(284,314)])
link(onEvent3,5288542:doWork1,[(200,195)])
}
Add(Hub,8838485,119,343)
{
OutCount=3
link(onEvent1,14890351:In,[(143,349)(143,328)])
link(onEvent2,11329225:doEvent1,[])
link(onEvent3,5288542:doWork2,[])
}
Add(HubEx,5288542,196,357)
{
Angle=1
link(onEvent,3787088:doWork2,[(200,377)])
}
Add(DoData,803552,77,343)
{
link(onEventData,8838485:doEvent1,[])
}
Add(HubEx,3695913,539,364)
{
link(onEvent,3787088:doWork1,[])
}
Add(ChanelToIndex,10968178,406,266)
{
link(onIndex,15974760:doVisible,[])
}
Add(ChanelToIndex,6445933,406,441)
{
link(onIndex,7927113:doVisible,[])
}
Add(Hub,14967705,343,308)
{
OutCount=3
PColor(onEvent1,5614080)
PColor(onEvent3,16755200)
link(onEvent1,261743:doData,[])
link(onEvent2,10968178:doWork1,[(369,321)(369,272)])
link(onEvent3,6445933:doWork2,[(386,328)(386,454)])
}
Add(Hub,11329225,336,350)
{
OutCount=3
PColor(onEvent1,5614080)
PColor(onEvent2,5614080)
link(onEvent1,14824028:doData,[])
link(onEvent2,6445933:doWork1,[(370,363)(370,447)])
link(onEvent3,10968178:doWork2,[(379,370)(379,279)])
}
Add(DoData,14824028,427,350)
{
Data=String(Новая запись)
link(onEventData,14403465:doWork3,[(494,356)])
}
Add(DoData,261743,427,308)
{
Data=String(Изменение записи)
link(onEventData,14403465:doWork1,[(494,314)])
}
Add(If_else,3314692,126,175)
{
Type=5
Op2=String()
link(onTrue,9279600:doEvent1,[])
link(Op1,7199287:Var2,[])
}
Add(GlobalVar,8916465,413,133)
{
Name="name"
link(onValue,9974840:doText,[])
}
Add(GlobalVar,13887537,413,182)
{
Name="dopinf"
link(onValue,2575969:doText,[])
}
Add(GetDataEx,7199287,126,98)
{
link(Data,15582686:Data1,[(132,47)(20,47)])
}
Add(GlobalVar,11713150,679,364)
{
Name="name"
}
Add(GlobalVar,2798082,686,385)
{
Name="dopinf"
}
Add(GetDataEx,16064365,665,238)
{
link(Data,9974840:Text,[])
}
Add(GetDataEx,6406241,672,231)
{
link(Data,2575969:Text,[(678,219)(720,219)])
}
Add(Hub,975587,623,161)
{
link(onEvent1,9974840:doText2,[(649,167)(649,146)])
link(onEvent2,2575969:doClear,[])
}
Add(Message,2692502,819,273)
{
}
Add(Memo,2575969,714,161)
{
Left=20
Top=115
Width=305
ScrollBars=2
}
Add(GlobalVar,5501422,413,77)
{
Name="id"
link(onValue,947378:doStrCat,[])
}
Add(GlobalVar,8298686,637,392)
{
Name="id"
}
Add(GlobalVar,2441875,287,98)
{
Name="db"
}
Add(SQLite_Query,12591026,287,126)
{
link(onQuery,8850189:doSeparateMT,[])
link(dbHandle,2441875:Var,[])
}
Add(MT_MultiData,8850189,350,126)
{
Count=3
link(onData1,5501422:doValue,[(405,132)(405,83)])
link(onData2,8916465:doValue,[])
link(onData3,13887537:doValue,[(405,146)(405,188)])
}
Add(FormatStr,5130735,245,126)
{
DataCount=1
Mask="select * from basecsv WHERE id=%1;"
link(onFString,12591026:doQuery,[])
}
Add(Label,627437,511,77)
{
Left=20
Top=15
Caption="id"
}
Add(StrCat,947378,462,77)
{
Str1="Id "
link(onStrCat,627437:doText,[])
}
Add(MT_MultiData,14322215,203,126)
{
Count=1
Point(Data)
link(onData1,5130735:doString,[])
link(Data,7199287:Var3,[(209,103)])
}
Add(LineBreak,14959940,574,161)
{
Caption="del"
link(Out,975587:doEvent1,[])
Primary=[14890351,-420,161]
}
Add(HubEx,14403465,490,336)
{
link(onEvent,4756718:doCaption,[])
}
END_SDK
Add(ToolBar,15704098,35,217)
{
Width=1199
Height=25
Align=2
WinStyle=1
Caption=0
Buttons=['=Добавить запись'=[ZIP3604000078DA95914B681341008657F0E4C99BD2938848050F225A3C0896E035A078F6D2835A9F450A9552105FE0C9BB5E7A13A1A5B4A2624B6BAC0951D774F3B0312DCBE6D9CDA3B5A931D96C376EF2BBFF362C09CDA119F8D819E6FFF867665DEEBEFD823DFA2C7A2D0E36D9271CD9D968EEB70E4DD30EE4F3F943AAAAF6EC955C2E77981E00617AFAF5D5F1F11723DD428FFEC4C4AB61C328A05C4EEF19E6E9D19F9B7B3354A9AC01818B68882EFC0E3FC5EAEA37C4627E44A33E2C2F7B11892C2214F2409216B0B4340FE6E9D1F778A6EE695AD6F6517C6EFB9A5674A0DFBAA6CF3C3DFA5EEFDBBBD56AA163BF2CFF403219462211423C1E84A24836CC87C3BE2BF4FDFEF777747DA3AD5FD74B0E475FF6EC82794915FB3917C5D9DBDBDBC58EFD994C1467277B31B07ED9816BE6F9757F7025ADFBDC328C525BBF61680EAED9D3BB60FE6741EAE73C14FA74B356AB74EC5794203637D7AC73AC209D8E2195FA651105F3B21CBCC4FB47225F064D536FEB37CD9A03DFBF75CDF7679E1E7DEB1F0FD6EB86D35F090C603DF818F9C04364BF8F41F58F22E31D416A711809CF7DC41786C03C3DFAD6396F341AA6D35FFF7A01E6C633D40A4FA0671FA1FAF114CAE9319492A3D88A3FC0D6E431304F8FBE75D7EB40C3E9A7FFCF771EC6E773D0E7CFD87EE5DD49FC9D39813F53C76D9FF91D0F822C8BFC763D9A9EA0AA2B6E45095CEB167AF4FF037EC12B11],'=Изменить'=[ZIP3604000078DA9DD0CF4F92711C0770DB3A75EAD4A15387D66C1D721DD83A58CD75A84D37FE812E1D2AFB69CD65E456F4C3EC542E176BD6823C341AC598482D0C441044144445054423E2B19E6818C1033C04BC7B3E4F8CF15079F0BBBDF77CBFFBECF57D3FFBB6B4C9B636884B26A451C8F64AB634ECFA33A8CC6B17C771DB5896DDC130CCCEFA0863B4DE7A6434BAA65AEB6764C81A0C2F4FA8D50FBAFE15F9BD8723A10CB0B7B73FD2D5D7FBB47E4E56A71BE8E47916E974ECAFF8A2411C1BB242B196C3E1675A9802BEEA8C0C59B359DB91C9C481E9A3287B5AF07DB607E1F02482C1092C2E3AF1C23D8643AF4CE21DB27E359EBC35C0EBFD0032644747F597386E4DF448DE173DC72525D14CD870DC68AFFC870E03C36F4086ACC33174319B65FFDB1F0838100A4D42EDB4A2593B2CDEA1505CC6CCCC38C8BA5CA60BB95C42D29FCBA524999FB78BDF91D867E8F53A614F77A8A052E91E7B3CEFCFE7F3C90DFBC3E129CCCEDA844E2B2C163D94CAE74280A6266344788B733C9F92F4F33C2709F5D79E0707ED90CBE3D068CC7D7EBFF56CA190D9B03F12F156FB7D3E8BF8FE64C8CECDD9DB8BC59CA4BF582C4842FDB567F264C82E2C8CB7974A7CB53FE33D8984FF0E58AF125F3C37C0B8BB11772A10B35F45D4D6898FD62B58B574800CD9A525D79972B958ED2FB98FA098E8C1AF6F77C17FBD8D2C7313DCBBFDF8F9A91BA9E875ACAF5EC3FAEBDD20433614729F06CAD57ED13B9B51183B88BC5586ACF980E8D3C67D48191AF143BF47F464C82E2F7B04BFB9459661826D2B2BD3A73613B2BF0151683451],'=Удалить'=[ZIP3604000078DA9591CF4FD3601CC66BE2C99337CD4E1E8C99890743153D98188857FE04397898E24F62483084C4F82BF1E47D5EB81913168222091070CE914D4619636152588A1DA3DD2632AC6B573ABB3DF45BC69B2DD981BDC927EFFBB6CF274FDFB7DD3D9D273977743A781D4ED739C19D3B7C517FDF380CC33895CFE7CF288AE2392EB95CEE2C7900B8F1F10FB74746DE0DB60B79E48F8EBE1FB0AC024AA5AD634379F2C89F99F9D8AFEBDB80700BB55837FEACBCC6FAFA0FACAD45904ACD6375358C643284442288787C0E4B4BB3A03C79E40783634F0C43757D14DFBABE611419E437EEC9A73C79E487C39F1F97CB8596FDE9F422647905A248FB282429EE42795916AF911F894C3E32CD9DA67ED3D4181E8F1FA190C4D647F0BC5FF0F926FDB1D8F4C3FDFD62CBFE6C3685AEAE0978BD01689AEACEBDBD2683E70382739E0796A535F55B96C1E8E8984634AAB2F5113C3FE5F42FF81389AFF72B15BD65BF242D6377771B1B1B82F36C1199CC4F8714282F8AEA553A7F32F9BDCFB6CDA67EDBAE30E8FE1BF774FF94278F7CE71FF755AB16EBD7853BF8BDFC1279E139D4856128912164C383C88406F02BF8149B73FDA03C79E43BDF79AF56B3597F357A13F6CE1B540AAF60AA2F509EBA8CD2D6303479087B9BCFB017380FCA9347BE73D6BB408DF593FF7FFE06AC6FD761CE5E717DFDCB25FCFB74117FC72EB83EE50F3D70E9748CE6B647DDE31445EC9124C1D72EE4917F002AD12B9D]]
link(onClick,4740543:doEvent,[])
}
Add(If_else,12257291,168,273)
{
Type=5
Op2=String()
link(onTrue,11598166:doSeparateMT,[])
link(Op1,498026:Var1,[(174,257)])
}
Add(GetDataEx,498026,210,252)
{
link(Data,9263143:Var3,[(216,194)])
}
Add(GlobalVar,15561445,322,245)
{
Name="db"
}
Add(FormatStr,13296924,252,371)
{
DataCount=1
Mask="delete from basecsv WHERE id=%1;"
link(onFString,11359995:doEvent1,[(289,377)(289,279)])
}
Add(SQLite_Exec,9300908,329,273)
{
link(dbHandle,15561445:Var,[(335,266)(328,266)])
}
Add(GetDataEx,9263143,168,189)
{
link(Data,6386679:Select,[])
}
Add(Label,14154872,42,161)
{
Left=15
Top=790
Width=44
Height=17
Caption="Фильтр"
}
Add(MT_MultiData,11598166,210,273)
{
Count=1
Point(Data)
link(onData1,13296924:doString,[(247,279)(247,377)])
link(Data,498026:Var2,[])
}
Add(HubEx,6344902,362,217)
{
link(onEvent,5338849:doEvent1,[])
}
Add(GlobalVar,669384,812,196)
{
Name="db"
}
Add(SQLite_Query,4815093,812,231)
{
link(onQuery,12246536:doAddRow,[])
link(onColumns,12246536:doAddCols,[])
link(onError,9592578:doMessage,[(860,251)(860,300)])
link(dbHandle,669384:Var,[])
}
Add(Hub,7973005,784,224)
{
InCount=2
link(onEvent1,12246536:doClearAll,[(865,230)(865,251)])
link(onEvent2,4815093:doQuery,[])
}
Add(MST_DB,12246536,896,231)
{
MSTControl="bauser"
Point(onChangeColLst)
Point(doClearAll)
}
Add(Message,9592578,875,294)
{
}
Add(Hub,11359995,294,273)
{
link(onEvent1,9300908:doExec,[])
link(onEvent2,6344902:doWork3,[(319,286)(319,314)(366,314)])
}
Add(GetDataEx,14182283,469,203)
{
link(Data,2993541:Var,[])
}
Add(MTStrTbl,6386679,168,98)
{
Left=5
Top=20
Width=1189
Height=742
Name="bauser"
ColumnClick=1
Grid=0
Point(onMouseDown)
link(CodePageSet,2442558:GetData,[])
}
Add(GlobalVar,8366686,504,378)
{
Name="db"
}
Add(EventFromData,2442558,168,49)
{
link(onEvent,371275:doCharset,[])
}
Add(Charset,371275,224,49)
{
Type=7
link(onCharset,2442558:doData,[(263,55)(263,41)(158,41)(158,55)])
}
Add(FormatStr,6817443,616,301)
{
DataCount=1
Mask="SELECT \r\n Field_1 AS 'Столбец 1',\r\n Field_2 AS 'Столбец 2',\r\n Field_3 AS 'Столбец 3',\r\n Field_4 AS 'Столбец 4', \r\n Field_5 AS 'Столбец 5',\r\n Field_6 AS 'Столбец 6',\r\n Field_7 AS 'Столбец 7',\r\n Field_8 AS 'Столбец 8',\r\n Field_9 AS 'Столбец 9',\r\n Field_10 AS 'Столбец 10',\r\n Field_11 AS 'Столбец 11',\r\n Field_12 AS 'Столбец 12',\r\n Field_13 AS 'Столбец 13',\r\n Field_14 AS 'Столбец 14',\r\n Field_15 AS 'Столбец 15',\r\n Field_16 AS 'Столбец 16',\r\n Field_17 AS 'Столбец 17',\r\n Field_18 AS 'Столбец 18',\r\n Field_19 AS 'Столбец 19',\r\n Field_20 AS 'Столбец 20',\r\n Field_21 AS 'Столбец 21',\r\n Field_22 AS 'Столбец 22',\r\n Field_23 AS 'Столбец 23',\r\n Field_24 AS 'Столбец 24',\r\n Field_25 AS 'Столбец 25',\r\n Field_26 AS 'Столбец 26',\r\n Field_27 AS 'Столбец 27',\r\n Field_28 AS 'Столбец 28',\r\n Field_29 AS 'Столбец 29',\r\n Field_30 AS 'Столбец 30',\r\n Field_31 AS 'Столбец 31',\r\n Field_32 AS 'Столбец 32',\r\n Field_33 AS 'Столбец 33',\r\n Field_34 AS 'Столбец 34',\r\n Field_35 AS 'Столбец 35'\r\nFROM basecsv"
link(onFString,7973005:doEvent2,[(767,307)(767,237)])
}
|
Поиск
Друзья
Администрация