Авторизация

[Staziah2]

Добрый день! Понимаю что,это тема заезжена вдоль и поперек,но видимо пока не доходит до меня. Имеется wwDBLookupCombo,Edit,Button. БД:MSSQL 2000. Так вот,здесь надо,чтобы 76 отдел имел полный доступ,то бишь 76 отдел это как бы admin, а остальные цеха и отделы это юзеры. И мне надо,чтобы 76 отдел мог войти в главную форму,а другие в одну форму.
Вот код:

procedure TForm7.Button1Click(Sender: TObject);
var login,parol:string;
begin
login:=wwDBLookupCombo1.Text;
parol:=Edit1.Text;

begin
dm.ADOQuery1.Close;
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.SQL.Text:='select * from password Where ((Cex='''+login+''') And (parol='''+parol+'''))';
DM.ADOQuery1.Open;
end;
if DM.ADOQuery1.RecordCount<>0 then
if DM.ADOQuery1.FieldByName('Cex').AsString = '76' then
     Form3.Show

else
 if dm.ADOQuery1.FieldByName('Cex').AsString = '' then
  Form1.Show;

end;

Ну не могу понять.

[SunnyCrash]

procedure TForm3.Button1Click(Sender: TObject);
var LookupRes: Variant;
begin
if (Self.Edit1.Text <> '')and(Self.MaskEdit1.Text<> '') then
 begin
 Self.ADOQuery1.SQL.Clear;
 Self.ADOQuery1.SQL.add('SELECT * FROM `Users` WHERE `Users`.`login`="' + Self.Edit1.Text + '"');
 Self.ADOQuery1.Open;
 LookupRes := Self.ADOQuery1.Lookup('password', Self.MaskEdit1.Text, 'group;id');
 if VarIsNull(LookupRes) then
 ShowMessage('Даного користувача не існує'#13'Ви ввели на правильний логін або пароль')
       end
       else
      ShowMessage('Ви не ввели логін або пароль');
           begin
      case StrToInt(VarToStr(LookupRes[0])) of
    1:
     begin
      form1.showmodal;
       end;
    2:
    begin
   form1.ShowModal;

     end ;
     else
     ShowMessage('Ви не ввели логін або пароль');
      end;

 end;
 end;