u_main.pas

考勤管理系统 数据库系列

unit u_main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, jpeg, ExtCtrls, StdCtrls;

type
  TF_main = class(TForm)
    Panel1: TPanel;
    B_relogin: TBitBtn;
    B_exit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    Label2: TLabel;
    SB_work_plan: TSpeedButton;
    SB_attendance: TSpeedButton;
    SB_stat: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure B_exitClick(Sender: TObject);
    procedure B_reloginClick(Sender: TObject);
    procedure SB_work_planClick(Sender: TObject);
    procedure SB_attendanceClick(Sender: TObject);
    procedure SB_statClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_main: TF_main;

implementation

uses u_login, u_work_plan, u_attendance, u_stat;

{$R *.DFM}

procedure TF_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.MainForm.Close;
end;

procedure TF_main.B_exitClick(Sender: TObject);
begin
  Close;
end;

procedure TF_main.B_reloginClick(Sender: TObject);
begin
  F_main.Hide;
  F_work_plan.Hide;
  F_attendance.Hide;
  F_stat.Hide;
  F_login.Show;
end;

procedure TF_main.SB_work_planClick(Sender: TObject);
begin
  F_work_plan.ShowModal;
end;

procedure TF_main.SB_attendanceClick(Sender: TObject);
begin
  F_attendance.Show;
end;

procedure TF_main.SB_statClick(Sender: TObject);
begin
  F_stat.Show;
end;

end.