unit1.pas

劳保管理 ACCESS数据库 作为设计的一个参考

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Database1: TDatabase;
    Image1: TImage;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    Image2: TImage;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, About, Unit16;

{$R *.DFM}

procedure TForm1.FormShow(Sender: TObject);
begin
DateSeparator := '-';
ShortDateFormat:='yyyy-mm-dd';
TwoDigitYearCenturyWindow:=70;
form2.showmodal;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
form1.close;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form4.show;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
aboutbox.showmodal;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
aboutbox.showmodal;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
MessageDlg('请在进行数据维护之前将所有的录入和查询窗口都关闭，否则会出现错误！' , mtWarning, [mbOk], 0);
form16.show;
end;

end.