Текущий архив: 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.057 c