Delphi pat

V-0.2/Business_u.pas

@@ -0,0 +1,58 @@
+unit Business_u;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.pngimage,
+  Vcl.ExtCtrls,UserLogin_u,AdminAdd_u;
+
+type
+  TfrmBusiness = class(TForm)
+    Image1: TImage;
+    Button1: TButton;
+    Button2: TButton;
+    procedure Button2Click(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure close();
+    procedure Button1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+
+  end;
+
+var
+  frmBusiness: TfrmBusiness;
+
+implementation
+
+{$R *.dfm}
+
+
+procedure TfrmBusiness.Button1Click(Sender: TObject);
+begin
+  frmBusiness.Hide;
+  FrmAdminAdd.Show;
+end;
+
+procedure TfrmBusiness.Button2Click(Sender: TObject);
+begin
+  frmUserLogin:= TfrmUserLogin.Create(nil);
+  frmUserLogin.show;
+  frmBusiness.hide;
+end;
+
+procedure TfrmBusiness.close;
+begin
+  frmUserLogin.free;
+  frmBusiness.show;
+end;
+
+procedure TfrmBusiness.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Application.Terminate;
+end;
+
+end.