sqlite3_close(id) <> SQLITE_OK

SQLITE_BUSY       =  5;   // The database file is locked

Add(Label,16376725,231,42)
{
 Left=15
 Top=15
 Width=40
 Height=20
 Color=16777215
 Font=[Tahoma,10,0,0,1]
 Caption="Login"
 AutoSize=1
 Alignment=1
}
Add(MainForm,2953706,56,154)
{
 Width=288
 Height=130
 Color=16777215
 Caption="Регистрация"
 BorderStyle=3
 Position=1
}
Add(Edit,3557179,168,42)
{
 Left=65
 Top=15
 Width=200
 Color=16777215
 Font=[Tahoma,10,0,0,1]
 Text=""
}
Add(Label,4511899,399,42)
{
 Left=15
 Top=40
 Width=40
 Height=20
 Color=16777215
 Font=[Tahoma,10,0,0,1]
 Caption="Pass"
 AutoSize=1
 Alignment=1
}
Add(Edit,8423193,343,42)
{
 Left=65
 Top=40
 Width=200
 Color=16777215
 Font=[Tahoma,10,0,0,1]
 Text=""
}
Add(Button,1789237,56,105)
{
 Left=65
 Top=65
 Width=200
 Height=25
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Зарегистрироваться"
 link(onClick,5055753:doCompare,[])
}
Add(Message,5109666,546,217)
{
 Icon=1
 link(onMessage,7032299:doTimer,[(610,223)(610,500)(79,500)(79,405)])
}
Add(StyleXP,5418415,56,196)
{
}
Add(If_else,5055753,168,105)
{
 Type=5
 Op2=String()
 link(onTrue,6133223:doValue,[])
 link(onFalse,15349296:doWork2,[(217,118)(217,265)])
 link(Op1,11406448:Var2,[])
}
Add(If_else,9234116,343,105)
{
 Type=5
 Op2=String()
 link(onTrue,14926189:doHashsum,[])
 link(onFalse,15349296:doWork1,[(387,118)(387,258)])
 link(Op1,15707847:Var2,[])
}
Add(Memory,6133223,231,105)
{
 Point(Data)
 link(onData,9234116:doCompare,[])
 link(Data,11406448:Var3,[(237,89)])
}
Add(GetDataEx,11406448,168,84)
{
 link(Data,3557179:Text,[])
}
Add(GetDataEx,15707847,343,84)
{
 link(Data,8423193:Text,[])
}
Add(StrList,16104221,490,210)
{
 Strings=#22:Не заполнено поле Pass|23:Не заполнено поле Login|18:Ошибка записи в БД|14:Повторите ввод|18:Ошибка открытия БД|
 Point(String)
 Point(doGetString)
 Point(onGetString)
 link(onGetString,5109666:doMessage,[])
}
Add(ChanelToIndex,15349296,434,252)
{
 Count=5
 link(onIndex,16104221:doGetString,[])
}
Add(Hashsum,14926189,399,105)
{
 link(onResult,15593523:doEvent1,[(443,111)(443,166)(170,166)(170,328)])
 link(Data,15707847:Var3,[(405,89)])
}
Add(InfoTip,5296874,105,21)
{
 Info=#23:Проверка Login на пусто|
 Width=169
 Height=123
}
Add(InfoTip,7551163,287,21)
{
 Info=#22:Проверка Pass на пусто|
 Width=218
 Height=123
}
Add(InfoTip,7362293,420,189)
{
 Info=#6:Ошибки|
 Width=176
 Height=123
}
Add(FormatStr,3211383,231,336)
{
 Mask="SELECT count() FROM LogsAndPass WHERE Login='%1' OR Pass='%2';"
 Point(FString)
 link(onFString,10006124:doOpen,[(276,342)(276,379)(149,379)(149,398)])
 link(Str1,5134847:Var2,[])
}
Add(SQLite_DB,10006124,161,392)
{
 FileName="data.db"
 WaitClose=0
 link(onOpen,13090410:doQuery,[])
 link(onError,15349296:doWork5,[(217,405)(217,436)(424,436)(424,286)])
}
Add(SQLite_Exec,12729625,357,392)
{
 link(onError,15349296:doWork3,[(405,398)(405,272)])
 link(dbHandle,10006124:dbHandle,[(363,380)(349,380)(349,461)(167,461)])
 link(SQL,13596474:FString,[])
}
Add(InfoTip,7824113,140,308)
{
 Info=#47:Проверка на повтор и если нет повтора то запись|
 VAlign=2
 Width=358
 Height=179
}
Add(SQLite_Query,13090410,224,392)
{
 link(onQuery,16101148:doCompare,[])
 link(SQL,3211383:FString,[])
}
Add(If_else,16101148,273,392)
{
 Op2=Integer(0)
 link(onTrue,12729625:doExec,[])
 link(onFalse,15349296:doWork4,[(414,405)(414,279)])
}
Add(FormatStr,13596474,364,322)
{
 Mask="INSERT INTO LogsAndPass VALUES ('%1', '%2')"
 Point(FString)
 link(Str1,5134847:Var3,[(370,313)])
}
Add(GetDataEx,5134847,231,308)
{
 link(Data,6133223:Value,[])
}
Add(Hub,15593523,182,322)
{
 link(onEvent1,13596474:doString,[])
 link(onEvent2,3211383:doString,[(214,335)(214,342)])
}
Add(Timer,7032299,98,399)
{
 Interval=200
 Enable=1
 AutoStop=1
 link(onTimer,10006124:doClose,[])
}