unit1.~pas

一个很简单的人事管理系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Menus, ImgList, ComCtrls, ToolWin, ExtCtrls, StdCtrls,
  Buttons, jpeg;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    N5: TMenuItem;
    Timer1: TTimer;
    Edit1: TEdit;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Edit2: TEdit;
    Button1: TButton;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Image1: TImage;
    procedure FormActivate(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses Unit2, Unit3, Unit6, Unit5, Unit4, Unit7, Unit10;

{$R *.dfm}

procedure TMainForm.FormActivate(Sender: TObject);
begin


dengluform.ShowModal();
if edit1.Text='' then//说明是用Alt+F4关闭的登陆窗体，所以检测一下是否传进参数，没有则关闭
application.Terminate;


Align:=alClient;    //将主窗体最大化
 mainform.SetFocus;
end;

procedure TMainForm.N7Click(Sender: TObject);
var
aa:integer;
begin
aa:=application.MessageBox('真的要退出？','提示信息',Mb_ICONQUESTION+MB_OKCANCEL);
    if aa=1 then
    begin
Button1.OnClick(self);
application.Terminate;
    end;


end;

procedure TMainForm.N4Click(Sender: TObject);
begin
mimaform.Edit1.Text:=edit1.Text;
mimaform.ShowModal();
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
chaxunform.ShowModal();
end;

procedure TMainForm.N2Click(Sender: TObject);
begin
renshiform.ShowModal();
end;

procedure TMainForm.N5Click(Sender: TObject);
begin
yonghuform.Edit1.Text:=edit1.Text;
yonghuform.ShowModal();

end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[2].Text:=DatETimetostr(Now);// 更新时间用
 edit2.Text:=datetostr(now);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
BorderIcons:=[];
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
adoquery1.SQL.Text:='update Operator set Stamp=:timee where Name=:nana';

     adoquery1.Parameters.ParamByName('nana').Value:=edit1.Text;
     adoquery1.Parameters.ParamByName('timee').Value:=edit2.Text;

        adoquery1.ExecSQL;
         adoquery1.Close;
end;

procedure TMainForm.SpeedButton4Click(Sender: TObject);
begin
N7.OnClick(self);
end;

procedure TMainForm.SpeedButton1Click(Sender: TObject);
begin
N4.OnClick(self);
end;

procedure TMainForm.SpeedButton2Click(Sender: TObject);
begin
N3.OnClick(self);
end;

end.