V-0.6

V-0.6/Business_u.pas

@@ -0,0 +1,59 @@
+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,AdminLogin_u;
+
+type
+  TfrmBusiness = class(TForm)
+    Image1: TImage;
+    btnAdmin: TButton;
+    btnLogin: TButton;
+    procedure btnLoginClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure close();
+    procedure btnAdminClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+
+  end;
+
+var
+  frmBusiness: TfrmBusiness;
+
+implementation
+
+{$R *.dfm}
+
+
+
+procedure TfrmBusiness.btnAdminClick(Sender: TObject);
+begin
+  frmAdminLogin.Show;
+  frmBusiness.Hide;
+end;
+
+procedure TfrmBusiness.btnLoginClick(Sender: TObject);
+begin
+  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.