Авторизация и роли Delphi+Mysql

[evg_m]

https://www.programmersforum.ru/show...ight=showmodal

[BLACK_RAIN]

Сообщение от muserun

Да,через крестик

добавьте обработчик события OnClose

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Close;
end;

и еще это

implementation
uses Unit1;

чтобы было как-то так

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm2 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
uses Unit1;

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Close;
end;

end.

[muserun]

Спасибо.Сделали чуть проще. Т.К. программа для внутреннего использования,то просто скрыли крестик. И в Form2 сделали дополнительную кнопу Close. Ну и есть еще моменты,но в целом так.

[BLACK_RAIN]

Сообщение от muserun

Сделали чуть проще. Т.К. программа для внутреннего использования,то просто скрыли крестик. И в Form2 сделали дополнительную кнопу Close

Если не ошибаюсь, то такую защиту можно обойти, послав окну сообщение WM_CLOSE.

[muserun]

программа для внутреннего использования

[xxbesoxx]

Сообщение от muserun

Подскажите как нужно создавать формы.

Книге почему не смотрели ?
Если для вас будет так понятно ?! Пожалуйста , покажем ! Но как уже вам сказали - если НЕ имеете опыт программирование ! для вас будет это непонятно !

procedure TfrmMain.VxodProgrammu;
  var s: string;
begin
  DM.myqryUsers.Close;
  DM.myqryUsers.SQL.Clear;
    s:= 'SELECT* FROM Users where  Lower(u_login)  ='+ QuotedStr(cbbLogin.text)+' and Lower(u_Password) ='+ QuotedStr(edtParol.text);
     DM.myqryUsers.SQL.Add(s);
    DM.myqryUsers.Open;
   if not DM.myqryUsers.IsEmpty then
  begin
     frmMain.Hide;
     frmpanel.Show;
    end
  else
   begin
   MessageDlg('Неправильный логин или пароль',mtError,[mbOK],0)
   end;
end;

end.