[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;

Не могу понять. Набираю 76, набрала пароль,нажимаю на кнопку Вход и нет никакого результата. Никакая форма не открывается