Обработка логических полей

[MoToP4uK]

Вопрос следующего рода.
Есть БД table1(Access) в ней таблица dop
Поля id, login, pass, admin, prepod последние 2 поля логические
Необходимо проводить проверку пароля, логина и конечно этих логических полей. Если admin истина то - 1 форма, если prepod - 2 форма, если оба лож то 3 форма( при правильности пароля и лога). Подскажите в кратце как это осуществить. За ранее благодарен.

[vovk]

Лучше бы запросом, то есть не Ttable, а Tquery использовать, и запросом просто

query.sql.text:='select admin, prepod from dop where login = '+quotedstr(edit_login.text)+' and pass = '+quotedstr(edit_login.text);
query.open;
if query.recordcount>0 then
begin
 if query.fieldbyname(admin).asboolean and not query.fieldbyname(prepod).asboolean then
//тут чего делать если админ
 if not query.fieldbyname(admin).asboolean and  query.fieldbyname(prepod).asboolean 
//тут чего делать если препод
 if  query.fieldbyname(admin).asboolean and  query.fieldbyname(prepod).asboolean 
//тут чего делать если препод и к тому же админ))
 if  not query.fieldbyname(admin).asboolean and not  query.fieldbyname(prepod).asboolean 
//тут чего делать если не пойми кто

для этого я бы создал отдельную форму с запросом пароля, потом переписал бы ручками DPR то есть убрал бы все автоматически создаваемые формы, и дпр стал выглядеть примерно так

program kakoy_nado_program;
{$IMAGEBASE $00400000}

uses
  Forms,
  sysutils, //ну и ещё какие надо модули
  Unit1 in 'Unit1.pas' {Form_admin},
  Unit2 in 'Unit2.pas' {Form_prepod},
  Unit3 in 'Unit3.pas' {Form_super_admin_prepod},
  Unit4 in 'Unit4.pas' {Form_ktoto_iz_tolpy},
   PassWord in 'PassWord.pas' {PasswordDlg};

{$R *.res}
var
frmpswrd:TPasswordDlg;
begin
  Application.Initialize;
     Application.Title := 'proga';

    frmpswrd:=TPasswordDlg.Create(nil);
        try
        repeat
       frmpswrd.ShowModal;
       if (frmpswrd.ModalResult = 1)  then
       begin
  frmpswrd.query.close;
  frmpswrd.query.sql.text:='select admin, prepod from dop where login = '+quotedstr(frmpswrd.edit_login.text)+' and pass = '+quotedstr(frmpswrd.edit_login.text);
  frmpswrd.query.open;
     end;
       if frmpswrd.query.recordcount=0 then
  begin
       // тут какое то сообщение при введении ошибочного пароля
  end   
else
if frmpswrd.query.recordcount>0 then
begin
   if frmpswrd.query.fieldbyname(admin).asboolean and not query.fieldbyname(prepod).asboolean then 
Application.CreateForm(TForm_admin, Form_admin);//если админ
    if not frmpswrd.query.fieldbyname(admin).asboolean and  frmpswrd.query.fieldbyname(prepod).asboolean 
Application.CreateForm(TForm_prepod, Form_prepod);// если препод
    if  frmpswrd.query.fieldbyname(admin).asboolean and  frmpswrd.query.fieldbyname(prepod).asboolean 
Application.CreateForm(TForm_super_admin_prepod, Form_super_admin_prepod);// если препод и к тому же админ))
    if  not frmpswrd.query.fieldbyname(admin).asboolean and not  frmpswrd.query.fieldbyname(prepod).asboolean 
Application.CreateForm(Form_ktoto_iz_tolpy, Form_ktoto_iz_tolpy);//если не пойми кто
  end; 
 until (frmpswrd.query.recordcount>0) or (frmpswrd.ModalResult <> 1);
       finally
       frmpswrd.Free;
       end;
  Application.Run;
end.

ну вот как то так,

писал уже поздно, и прямо тут, так что от ошибок не застраховано. И это просто примерно как может выглядеть.

[MoToP4uK]

procedure TForm1.btn1Click(Sender: TObject);
var s1: string;
begin
datamodule3.qry1.close;
datamodule3.qry1.sql.clear;
s1:='select * from dop where login='+QuotedStr(edt1.text)+'and pass='+QuotedStr(Edt2.text);
datamodule3.qry1.sql.add(s1);
datamodule3.qry1.active:=true;
if not datamodule3.qry1.isEmpty then
begin
form3.show;
Form1.Visible:= false;
edt1.Clear;
edt2.Clear;
end

else
ShowMessage('Неверное введение')
end;
Не получается сюда прикрепить проверку логических полей. При admin = true открытие 3 формы, при prepod = true форма4 если оба лож то форма5.

[MoToP4uK]

все огромное спасибо разобрался!