unit3.pas

一个完整的工资管理系统 主要走查询 添加 删除 管理等功能

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, jpeg, ExtCtrls, ComCtrls, ImgList, Grids,
  DBGrids,math, ToolWin;

type
  TForm3 = class(TForm)
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    MainMenu1: TMainMenu;
    kjhj1: TMenuItem;
    hgjhg1: TMenuItem;
    gfdg1: TMenuItem;
    fgf1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    fd1: TMenuItem;
    sfsf1: TMenuItem;
    sfs1: TMenuItem;
    sfs2: TMenuItem;
    sf1: TMenuItem;
    sf2: TMenuItem;
    sf3: TMenuItem;
    adas1: TMenuItem;
    asfa1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    Image7: TImage;
    ImageList2: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    Panel1: TPanel;
    Image1: TImage;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    procedure Button1Click(Sender: TObject);
    procedure hgjhg1Click(Sender: TObject);
    procedure sfs2Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button3Click(Sender: TObject);
    procedure Button4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure N2Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure gfdg1Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure fgf1Click(Sender: TObject);
    procedure sfs1Click(Sender: TObject);
    procedure sf1Click(Sender: TObject);
    procedure sf2Click(Sender: TObject);
    procedure asfa1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);


  private
    { Private declarations }
    function DBGridRecordSize(mColumn: TColumn): Boolean;
  function DBGridAutoSize(mDBGrid: TDBGrid; mOffset: Integer): Boolean;
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1, Unit2, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,
  Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit20, Unit21,
  Unit23, Unit18, Unit19, Unit22, Unit25;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
form4.Show;
end;
function TForm3.DBGridRecordSize(mColumn: TColumn): Boolean;
{ 返回记录数据网格列显示最大宽度是否成功 }
begin
  Result := False;
  if not Assigned(mColumn.Field) then Exit;
  mColumn.Field.Tag := Max(mColumn.Field.Tag,
    TDBGrid(mColumn.Grid).Canvas.TextWidth(mColumn.Field.DisplayText));
  Result := True;
end; { DBGridRecordSize }

function TForm3.DBGridAutoSize(mDBGrid: TDBGrid; mOffset: Integer ): Boolean;
{ 返回数据网格自动适应宽度是否成功 }
var
  I: Integer;
begin
mOffset:=5;
  Result := False;
  if not Assigned(mDBGrid) then Exit;
  if not Assigned(mDBGrid.DataSource) then Exit;
  if not Assigned(mDBGrid.DataSource.DataSet) then Exit;
  if not mDBGrid.DataSource.DataSet.Active then Exit;
  for I := 0 to mDBGrid.Columns.Count - 1 do begin
    if not mDBGrid.Columns[I].Visible then Continue;
    if Assigned(mDBGrid.Columns[I].Field) then
      mDBGrid.Columns[I].Width := Max(mDBGrid.Columns[I].Field.Tag,
        mDBGrid.Canvas.TextWidth(mDBGrid.Columns[I].Title.Caption)) + mOffset
    else mDBGrid.Columns[I].Width :=
      mDBGrid.Canvas.TextWidth(mDBGrid.Columns[I].Title.Caption) + mOffset;
    mDBGrid.Refresh;
  end;
  Result := True;
end; { DBGridAutoSize }






procedure TForm3.hgjhg1Click(Sender: TObject);
begin
application.CreateForm(TForm4,Form4);
form4.ShowModal;
form4.Free;
end;

procedure TForm3.sfs2Click(Sender: TObject);
begin
application.CreateForm(TForm5,Form5);
form5.ShowModal;
form5.Free;
end;

procedure TForm3.Image1Click(Sender: TObject);
begin
form6.Show;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
 var
 dat: array[1..7] of string;
begin
 dat[1] := '星期日';
 dat[2] := '星期一';
 dat[3] := '星期二';
 dat[4] := '星期三';
 dat[5] := '星期四';
 dat[6] := '星期五';
 dat[7] := '星期六';
 statusbar1.Panels[7].text:='               '+'今天日期：'+'    '+DateTimeToStr(now)+'      '+dat[DayOfWeek(now)];
  StatusBar1.Panels[3].Text   := form1.Edit1.Text;
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
form3.Close;
end;


procedure TForm3.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.Panels[1].Text   :='';
  StatusBar1.Panels[1].Text   :='系统基本信息管理';
end;

procedure TForm3.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.Panels[1].Text   :='';
  StatusBar1.Panels[1].Text   :='主程序界面';
end;

procedure TForm3.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  StatusBar1.Panels[1].Text   :='';
  StatusBar1.Panels[1].Text   :='工资管理模块';
end;

procedure TForm3.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.Panels[1].Text   :='';
  StatusBar1.Panels[1].Text   :='用户管理模块';
end;

procedure TForm3.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  StatusBar1.Panels[1].Text   :='';
  StatusBar1.Panels[1].Text   :='人事管理模块';
end;

procedure TForm3.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.Panels[1].Text   :='';
  StatusBar1.Panels[1].Text   :='员工培训记录模块';
end;

procedure TForm3.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.Panels[1].Text   :='';
  StatusBar1.Panels[1].Text   :='人事提醒模块';
end;

procedure TForm3.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.Panels[1].Text   :='';
  StatusBar1.Panels[1].Text   :='辅助系统模块';
end;

procedure TForm3.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.Panels[1].Text   :='';
  StatusBar1.Panels[1].Text   :='数据浏览窗口';
end;

procedure TForm3.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.Panels[1].Text   :='';
  StatusBar1.Panels[1].Text   :='添加数据';
end;

procedure TForm3.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.Panels[1].Text   :='';
  StatusBar1.Panels[1].Text   :='查询数据';
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
 StatusBar1.Panels[1].Text   :='';
  StatusBar1.Panels[1].Text   :='修改删除数据';
end;

procedure TForm3.Button4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.Panels[1].Text   :='';
  StatusBar1.Panels[1].Text   :='退出系统';

  end;

procedure TForm3.N2Click(Sender: TObject);
begin
form3.Close;
end;

procedure TForm3.Image2Click(Sender: TObject);
begin
form4.Show;
end;

procedure TForm3.gfdg1Click(Sender: TObject);
begin
application.CreateForm(TForm7,Form7);
form7.ShowModal;
form7.Free;
end;

procedure TForm3.ToolButton5Click(Sender: TObject);
begin
 application.CreateForm(TForm4,Form4);
form4.ShowModal;
form4.Free;
end;

procedure TForm3.ToolButton7Click(Sender: TObject);
begin
form3.Close;
end;

procedure TForm3.fgf1Click(Sender: TObject);
begin
application.CreateForm(TForm8,Form8);
form8.ShowModal;
form8.Free;
end;

procedure TForm3.sfs1Click(Sender: TObject);
begin
 application.CreateForm(Ttianjiabumen,tianjiabumen);
tianjiabumen.ShowModal;
tianjiabumen.Free;
end;

procedure TForm3.sf1Click(Sender: TObject);
begin
 application.CreateForm(Tshanchubumen,shanchubumen);
shanchubumen.ShowModal;
shanchubumen.Free;
end;

procedure TForm3.sf2Click(Sender: TObject);
begin
 application.CreateForm(Tchaxunbumen,chaxunbumen);
chaxunbumen.ShowModal;
chaxunbumen.Free;
end;

procedure TForm3.asfa1Click(Sender: TObject);
begin
  application.CreateForm(TForm6,Form6);
Form6.ShowModal;
Form6.Free;
end;

procedure TForm3.N4Click(Sender: TObject);
begin
 application.CreateForm(Tshanchuzhiwu,shanchuzhiwu);
shanchuzhiwu.ShowModal;
shanchuzhiwu.Free;
end;

procedure TForm3.N5Click(Sender: TObject);
begin
 application.CreateForm(Tzhiwuchaxun,zhiwuchaxun);
zhiwuchaxun.ShowModal;
zhiwuchaxun.Free;
end;

procedure TForm3.N8Click(Sender: TObject);
begin
 application.CreateForm(Tyuangongtj,yuangongtj);
yuangongtj.ShowModal;
yuangongtj.Free;
end;

procedure TForm3.ToolButton1Click(Sender: TObject);
begin
application.CreateForm(Tyuangongtj,yuangongtj);
yuangongtj.ShowModal;
yuangongtj.Free;
end;

procedure TForm3.N9Click(Sender: TObject);
begin
 application.CreateForm(Tygxiugaisc,ygxiugaisc);
ygxiugaisc.ShowModal;
ygxiugaisc.Free;

end;

procedure TForm3.N11Click(Sender: TObject);
begin
  application.CreateForm(Tyjchaxun,yjchaxun);
yjchaxun.ShowModal;
yjchaxun.Free;
end;

procedure TForm3.ToolButton3Click(Sender: TObject);
begin
 application.CreateForm(Trenshigl,renshigl);
renshigl.ShowModal;
renshigl.Free;
end;

procedure TForm3.ToolButton2Click(Sender: TObject);
begin
 application.CreateForm(Tyjgzguanli,yjgzguanli);
yjgzguanli.ShowModal;
yjgzguanli.Free;

end;

procedure TForm3.ToolButton9Click(Sender: TObject);
begin
application.CreateForm(Tgzbiaozhun,gzbiaozhun);
gzbiaozhun.ShowModal;
gzbiaozhun.Free;

end;

procedure TForm3.ToolButton4Click(Sender: TObject);
begin
application.CreateForm(TForm23, Form23);
 Form23.ShowModal;
 Form23.Free;

end;

procedure TForm3.ToolButton8Click(Sender: TObject);
begin
application.CreateForm(Tkqkhxinxi,kqkhxinxi);
kqkhxinxi.ShowModal;
kqkhxinxi.Free;

end;

procedure TForm3.ToolButton6Click(Sender: TObject);
begin
form1.Show;
form3.Hide;
end;

end.