MessageBox после авторизации и имя

above92

как выводить сообщение д0бро пожаловать и имя по которому вошли
procedure TForm21.CheckBox1Click(Sender: TObject);
begin
if (checkbox1.Checked) then
edit1.PasswordChar:=#0
else
edit1.PasswordChar:='*';
end;
 
procedure TForm21.BitBtn1Click(Sender: TObject);
begin
if Edit1.Text=Datamodule2.ADOTable5.FieldByName('pass').AsString then
begin
//Form6.Label2.Caption:=Datamodule2.ADOTable5.FieldByName('Tip').AsString;
//Form6.Label4.Caption:=Datamodule2.ADOTable5.FieldByName('Login').AsString;
 //Form6.Label6.Caption:=Datamodule2.ADOTable5.FieldByName('dostup').AsString;
 form1.ShowModal;
   Form21.Close;
 
end
else
if  Edit1.Text='' then
MessageBox(Handle, 'Введите пароль!', 'Ошибка',MB_ICONINFORMATION)
else
if Edit1.Text<>Datamodule2.ADOTable5.FieldByName('pass').AsString then
MessageBox(Handle, 'Неправильно введён пароль!', 'Ошибка',MB_ICONINFORMATION);
end;
1 ответ

above92

у тебя все неправильно вот пример Логин и пароль в БД в Delphiможешь поискать другие на форуме