ginEdit.Text lt; gt; ) and (PasswordEdit.Text lt; gt; ) then//поля НЕ пустые.Active:=false;.Parameters.ParamByName(laquo;lograquo;).Value:=LoginEdit.Text;.Active:=true;UserQuery.RecordCountlt;gt;0 thenUserQuery.FieldByName ( Пароль ). AsString=PasswordEdit.Text then begin:=LowerCase(LoginEdit.Text);UserQuery.FieldByName(laquo;Доступraquo;).AsString=laquo;Trueraquo; then Dostup:=true//and Form2.Show//є доступ
//then Form2.Show; Dostup:=false; .Show//Close; Showmessage ( Пароль невірний! );
end; ShowMessage ( Введіть ім'я користувача та пароль! );//порожні поля
end; TVxod.FormCreate (Sender: TObject) ;;.
