Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

Как заставить форму пропадать по подтверждению ???   Найти похожие ветки 

 
Dark Man ©   (2004-05-11 07:26) [0]

Нужно получить от Splash формы данные проверить их на правильность если всё Ок то продолжить запуск приложения .... если нет то повторно запросить данные


 
Mim1 ©   (2004-05-11 08:32) [1]

в oncreate главной формы

     with TWndLogin.Create(nil) do
       try
         for i:= 1 to 3+1 do
           begin
             if (i = 4) or (Execute(UserName,Passord) <> mrOk) then
               begin
                 Application.Terminate;
                 self.Release;
                 abort;
               end;
             // проверяем пароль
             with TIBQuery.Create(nil) do
               try
                 Database := dm.IBDatabase;
                 Transaction := IBTransaction1;
                 Transaction.StartTransaction;
                 try
                   with sql do
                     begin
                       clear;
                       add("select id from theuser where name = :name and passw = :passw");
                     end;
                   with Params do
                     begin
                       ParamByName("name").AsString := UserName;
                       ParamByName("passw").AsString := Passord;
                     end;
                   open;
                   // если пароль правильный то первываем цыкл for
                   with FieldByName("id") do
                     if not IsNull then
                       begin
                         isOK := true;
                         UserId := AsInteger;
                       end;

                   Transaction.Commit;
                 except
                   Transaction.Rollback;
                   raise;
                 end;

                 if isOK then break;

                 Application.MessageBox("Доступ запрещен",
                   "Неверный пароль.",MB_OK+MB_ICONINFORMATION);
               finally
                 Free;
               end;
           end;
       finally
         free;
       end;



Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.026 c
11-1072126277
Revolter
2003-12-22 23:51
2004.05.23
TKolComboBox.DroppedWidth


7-1081325033
LexaTyukha
2004-04-07 12:03
2004.05.23
Нужно найти и показать окно. Запуск через планировщик при старте.


1-1084353607
andrey__
2004-05-12 13:20
2004.05.23
TServiceApplication - как завершить приложение


1-1083844792
Akni
2004-05-06 15:59
2004.05.23
Использование Delphi-DLL в VB


14-1083237452
SPeller
2004-04-29 15:17
2004.05.23
Как заработать денег?