дай пожалуйста,я как раз такую же прогу делаю
я вот так сделал:
Add(MainForm,2953706,574,175)
{
Visible=1
Point(doVisible)
}
Add(Hashsum,3907444,189,168)
{
link(onResult,15123568:doValue,[])
link(Data,10063372:Var1,[(195,156)(171,156)(171,212)(146,212)])
}
Add(StrList,2181515,364,238)
{
Strings=#65:1406F37190E825427440BC020919218A;B0C5ACD7607D104B629FDA93293BE8FE|
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,10282377:doCase,[])
}
Add(Hashsum,14587763,238,224)
{
link(onResult,11778726:doValue,[])
link(Data,10063372:Var2,[(244,212)(153,212)])
}
Add(Memory,15123568,322,168)
{
}
Add(Memory,11778726,287,224)
{
link(onData,1032:doString,[(333,230)(333,263)(303,263)(303,286)])
}
Add(FormatStr,1032,315,280)
{
Mask="%1;%2"
link(onFString,2181515:doGetIndex,[])
link(Str1,11778726:Value,[(321,268)(293,268)])
link(Str2,15123568:Value,[])
}
Add(Message,11150997,476,252)
{
Message="Неправильный логин или пароль!"
Caption="!"
Icon=1
}
Add(Case,10282377,420,245)
{
Value=String(-1)
link(onNextCase,3729991:doMessage,[(464,251)(464,209)])
link(onTrue,11150997:doMessage,[])
}
Add(ChildForm,10063372,140,168)
{
link(onEvent1,3907444:doHashsum,[])
link(onEvent2,14587763:doHashsum,[(205,181)(205,230)])
}
BEGIN_SDK
Add(EditMulti,14692192,21,21)
{
EventCount=2
WorkCount=1
VarCount=2
link(Var1,8244052:Text,[(27,158)(118,158)])
link(Var2,12895761:Text,[(34,158)(174,158)])
link(doWork1,8910591:doClose,[(28,27)(28,132)])
}
Add(MainForm,8910591,35,105)
{
Left=35
Top=105
Width=326
Height=247
BorderStyle=3
}
Add(Edit,8244052,112,63)
{
Left=45
Top=60
Width=225
Height=25
Font=[Arial,12,0,0,204]
Text="hiasm"
Alignment=2
}
Add(Edit,12895761,168,63)
{
Left=46
Top=115
Width=225
Height=25
Font=[Arial,12,0,0,204]
Text="gogo"
Alignment=2
}
Add(Label,5391872,49,28)
{
Left=46
Top=32
Width=66
Height=28
Font=[Arial,16,0,0,204]
Caption="Логин:"
}
Add(Label,13245645,49,63)
{
Left=44
Top=87
Width=81
Height=28
Font=[Arial,16,0,0,204]
Caption="Пароль:"
}
Add(Button,11899524,189,154)
{
Left=111
Top=160
Width=88
Height=35
Caption="Вход!"
link(onClick,16050579:doEvent1,[])
}
Add(Hub,16050579,238,154)
{
link(onEvent1,14692192:onEvent1,[(286,160)(286,27)])
link(onEvent2,14692192:onEvent2,[(286,167)(286,34)])
}
END_SDK
Add(StyleXP,12386712,21,147)
{
}
Add(Message,3729991,476,203)
{
Message="Вы успешно вошли!"
Caption="!"
Icon=3
link(onMessage,4627319:doEvent1,[])
}
Add(Button,6158275,14,84)
{
Left=305
Top=155
}
Add(Button,16147765,14,84)
{
Left=190
Top=145
}
Add(Button,1469058,14,84)
{
Left=75
Top=270
}
Add(Edit,10895210,14,84)
{
Left=120
Top=65
}
Add(Edit,6265827,14,84)
{
Left=235
Top=210
}
Add(CheckBox,16465411,14,84)
{
Left=70
Top=145
}
Add(Hub,4627319,525,203)
{
link(onEvent1,2953706:doVisible,[])
link(onEvent2,10063372:doWork1,[(551,216)(551,195)(128,195)(128,174)])
}
Add(PointHint,14335201,406,315)
{
Info=#15:Это база данных|
Width=127
link(Data,2181515:Text,[(438,303)(370,303)])
}
создание базы:
Add(MainForm,2953706,21,105)
{
Caption="Создание базы"
}
Add(Memo,9280701,287,301)
{
Top=80
Width=494
Height=310
Align=4
ScrollBars=2
}
Add(Hashsum,3907444,105,189)
{
link(onResult,15123568:doValue,[])
link(Data,8244052:Text,[])
}
Add(Hashsum,14587763,154,245)
{
link(onResult,11778726:doValue,[])
link(Data,12895761:Text,[])
}
Add(Memory,15123568,238,189)
{
}
Add(Memory,11778726,203,245)
{
link(onData,1032:doString,[(249,251)(249,284)(219,284)(219,307)])
}
Add(FormatStr,1032,231,301)
{
Mask="%1;%2"
link(onFString,9280701:doAdd,[])
link(Str1,11778726:Value,[(237,289)(209,289)])
link(Str2,15123568:Value,[])
}
Add(Edit,8244052,105,126)
{
Left=5
Top=5
Width=225
Height=25
Font=[Arial,12,0,0,204]
Text=""
Alignment=2
}
Add(Edit,12895761,154,126)
{
Left=5
Top=40
Width=225
Height=25
Font=[Arial,12,0,0,204]
Text=""
Alignment=2
}
Add(Button,11899524,21,189)
{
Left=241
Top=13
Width=88
Height=35
Caption="Добавить"
link(onClick,16050579:doEvent1,[])
}
Add(Hub,16050579,70,189)
{
link(onEvent1,3907444:doHashsum,[])
link(onEvent2,14587763:doHashsum,[(119,202)(119,251)])
}
Add(StyleXP,6487781,21,147)
{
}