main.pas

这个工资管理系统是我今年的毕业设计

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPStyleActnCtrls, ActnList, ActnMan, ToolWin, ActnCtrls,
  ActnMenus, ImgList, ComCtrls, ExtCtrls, Buttons, jpeg, StdCtrls,
  SkinCtrls, Mask, SkinBoxCtrls,shellapi;

type
  TForm1 = class(TForm)
    ActionMainMenuBar1: TActionMainMenuBar;
    ActionManager1: TActionManager;
    ImageList1: TImageList;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    Action5: TAction;
    Action6: TAction;
    Action7: TAction;
    Action8: TAction;
    Action9: TAction;
    Action11: TAction;
    Action14: TAction;
    Action15: TAction;
    Action16: TAction;
    Action17: TAction;
    Action18: TAction;
    Action19: TAction;
    Action20: TAction;
    Action21: TAction;
    Action22: TAction;
    Action23: TAction;
    Action24: TAction;
    Action25: TAction;
    Action26: TAction;
    Action27: TAction;
    Action28: TAction;
    Action29: TAction;
    Action30: TAction;
    Action31: TAction;
    Action32: TAction;
    Action33: TAction;
    StatusBar1: TStatusBar;
    spSkinToolBar1: TspSkinToolBar;
    spSkinSpeedButton1: TspSkinSpeedButton;
    spSkinBevel1: TspSkinBevel;
    spSkinSpeedButton2: TspSkinSpeedButton;
    spSkinSpeedButton3: TspSkinSpeedButton;
    spSkinBevel2: TspSkinBevel;
    spSkinSpeedButton5: TspSkinSpeedButton;
    spSkinSpeedButton6: TspSkinSpeedButton;
    spSkinBevel3: TspSkinBevel;
    spSkinSpeedButton7: TspSkinSpeedButton;
    spSkinSpeedButton9: TspSkinSpeedButton;
    spSkinBevel4: TspSkinBevel;
    spSkinSpeedButton10: TspSkinSpeedButton;
    spSkinSpeedButton11: TspSkinSpeedButton;
    spSkinBevel5: TspSkinBevel;
    spSkinSpeedButton12: TspSkinSpeedButton;
    Timer1: TTimer;
    Panel1: TPanel;
    spSkinSpeedButton4: TspSkinSpeedButton;
    procedure Action7Execute(Sender: TObject);
    procedure Action3Execute(Sender: TObject);
    procedure Action28Execute(Sender: TObject);
    procedure Action32Execute(Sender: TObject);
    procedure Action33Execute(Sender: TObject);
    procedure StatusBar1DrawPanel(StatusBar: TStatusBar;
      Panel: TStatusPanel; const Rect: TRect);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure spSkinSpeedButton12Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure spSkinSpeedButton1Click(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Action4Execute(Sender: TObject);
    procedure Action5Execute(Sender: TObject);
    procedure Action6Execute(Sender: TObject);
    procedure Action8Execute(Sender: TObject);
    procedure spSkinSpeedButton2Click(Sender: TObject);
    procedure spSkinSpeedButton3Click(Sender: TObject);
    procedure Action9Execute(Sender: TObject);
    procedure Action10Execute(Sender: TObject);
    procedure spSkinSpeedButton4Click(Sender: TObject);
    procedure Action11Execute(Sender: TObject);
    procedure Action14Execute(Sender: TObject);
    procedure Action15Execute(Sender: TObject);
    procedure spSkinSpeedButton5Click(Sender: TObject);
    procedure spSkinSpeedButton6Click(Sender: TObject);
    procedure Action16Execute(Sender: TObject);
    procedure Action17Execute(Sender: TObject);
    procedure Action18Execute(Sender: TObject);
    procedure Action19Execute(Sender: TObject);
    procedure Action20Execute(Sender: TObject);
    procedure Action21Execute(Sender: TObject);
    procedure Action22Execute(Sender: TObject);
    procedure Action23Execute(Sender: TObject);
    procedure Action24Execute(Sender: TObject);
    procedure Action25Execute(Sender: TObject);
    procedure Action26Execute(Sender: TObject);
    procedure Action27Execute(Sender: TObject);
    procedure spSkinSpeedButton7Click(Sender: TObject);
    procedure spSkinSpeedButton8Click(Sender: TObject);
    procedure spSkinSpeedButton9Click(Sender: TObject);
    procedure spSkinSpeedButton10Click(Sender: TObject);
    procedure spSkinSpeedButton11Click(Sender: TObject);
    procedure Action30Execute(Sender: TObject);
    procedure Action31Execute(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Timer1Timer(Sender: TObject);
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

uses Unit4,ry,bm,lb,dy,card,login,gzbd,plcl,sjdr,jsyggz
,hfind,datalink,mend,ygzlt,ygzlb,tjfx,gztz,gzhz,nzjj,qxsz,klgg,addsup,sjbf,sjff,dataload;


{$R *.dfm}

procedure tform1.WMSysCommand(var Msg: TWMSysCommand);// message WM_SYSCOMMAND;
begin
if (Msg.CmdType = SC_MINIMIZE) then
begin
form4.hide;
end
else form4.Show;
DefaultHandler(Msg);
end;

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

procedure TForm1.Action3Execute(Sender: TObject);
begin
form5:=tform5.Create(application);
form5.ShowModal;
end;

procedure TForm1.Action28Execute(Sender: TObject);
begin
if action28.Checked then
begin
action28.Caption :='显示导航窗';
form4.Close;
end;
if not(action28.Checked) then
begin
action28.Caption :='关闭导航窗';
form4.show;
end;
end;

procedure TForm1.Action32Execute(Sender: TObject);
begin
showmessage('hello!');
end;

procedure TForm1.Action33Execute(Sender: TObject);
begin
showmessage('about this software!');
end;

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
var
    uAlign: UINT;
    R: TRect;
begin
    case Panel.Alignment of
        taLeftJustify  : uAlign := DT_LEFT;
        taCenter       : uAlign := DT_CENTER;
        taRightJustify : uAlign := DT_RIGHT;
    end;
    uAlign := uAlign or DT_VCENTER;
    with StatusBar.Canvas do begin
        Pen.Color := $AAB08E;
        Brush.Color := StatusBar.Color;
        Rectangle(Rect);
        Brush.Style := bsClear;
        R.Left := Rect.Left + 1;
        R.Right := Rect.Right - 1;
        R.Top := Rect.Top + 1;
        R.Bottom := Rect.Bottom - 1;
        DrawText(StatusBar.Canvas.Handle, PChar(Panel.Text), -1, R, uAlign);
    end;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.Terminate ;
end;

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

procedure TForm1.FormShow(Sender: TObject);
begin
if form3.ADOQuery1.FieldByName('sup_pope').AsString='guest' then
begin
spskinspeedbutton1.Enabled:=false;
spskinspeedbutton2.Enabled:=false;
spskinspeedbutton3.Enabled:=false;
spskinspeedbutton4.Enabled:=false;
spskinspeedbutton5.Enabled:=false;
spskinspeedbutton6.Enabled:=false;
spskinspeedbutton7.Enabled:=false;
spskinspeedbutton9.Enabled:=false;
spskinspeedbutton10.Enabled:=false;
spskinspeedbutton11.Enabled:=false;
action1.Enabled:=false;
action2.Enabled:=false;
action3.Enabled:=false;
action4.Enabled:=false;
action5.Enabled:=false;
action8.Enabled:=false;
action9.Enabled:=false;
action11.Enabled:=false;
action15.Enabled:=false;
action16.Enabled:=false;
action17.Enabled:=false;
action18.Enabled:=false;
action19.Enabled:=false;
action20.Enabled:=false;
action21.Enabled:=false;
action22.Enabled:=false;
action23.Enabled:=false;
action24.Enabled:=false;
action25.Enabled:=false;
action26.Enabled:=false;
action27.Enabled:=false;
action30.Enabled:=false;
action31.Enabled:=false;
end;
form4:=tform4.Create(application);
form4.Show;
end;

procedure TForm1.spSkinSpeedButton1Click(Sender: TObject);
begin
form5:=tform5.Create(application);
form5.ShowModal;
end;

procedure TForm1.Action1Execute(Sender: TObject);
begin
form6:=tform6.Create(application);
form6.ShowModal;
end;

procedure TForm1.Action2Execute(Sender: TObject);
begin
form7:=tform7.Create(application);
form7.ShowModal ;
end;

procedure TForm1.Action4Execute(Sender: TObject);
begin
form8:=tform8.Create(application);
form8.ShowModal;
end;

procedure TForm1.Action5Execute(Sender: TObject);
begin
form9:=tform9.Create(application);
form9.ShowModal;
end;

procedure TForm1.Action6Execute(Sender: TObject);
begin
self.Hide;
form3.Show;
form3.Edit1.SetFocus;
if form4.Showing then
form4.Close;
self.free;
end;

procedure TForm1.Action8Execute(Sender: TObject);
begin
form10:=tform10.Create(application);
form10.ShowModal ;
end;

procedure TForm1.spSkinSpeedButton2Click(Sender: TObject);
begin
form8:=tform8.Create(application);
form8.ShowModal;
end;

procedure TForm1.spSkinSpeedButton3Click(Sender: TObject);
begin
form9:=tform9.Create(application);
form9.ShowModal;
end;

procedure TForm1.Action9Execute(Sender: TObject);
begin
form11:=tform11.Create(application);
form11.ShowModal ;
end;

procedure TForm1.Action10Execute(Sender: TObject);
begin
form12:=tform12.Create(application);
form12.ShowModal;
end;

procedure TForm1.spSkinSpeedButton4Click(Sender: TObject);
begin
form10:=tform10.Create(application);
form10.ShowModal;
end;

procedure TForm1.Action11Execute(Sender: TObject);
begin
form13:=tform13.Create(application);
form13.ShowModal ;
end;

procedure TForm1.Action14Execute(Sender: TObject);
begin
form16:=tform16.Create(application);
form16.ShowModal;
end;

procedure TForm1.Action15Execute(Sender: TObject);
begin
form30:=tform30.Create(application);
form30.ShowModal;
end;

procedure TForm1.spSkinSpeedButton5Click(Sender: TObject);
begin
form30:=tform30.Create(application);
form30.ShowModal;
end;

procedure TForm1.spSkinSpeedButton6Click(Sender: TObject);
begin
form16:=tform16.Create(application);
form16.ShowModal;
end;

procedure TForm1.Action16Execute(Sender: TObject);
begin
form18:=tform18.Create(application);
form18.ShowModal;
end;

procedure TForm1.Action17Execute(Sender: TObject);
begin
form19:=tform19.Create(application);
form19.ShowModal;
end;

procedure TForm1.Action18Execute(Sender: TObject);
begin
loading:=tloading.Create(application);
loading.Caption:='员工工资发放表';
loading.ShowModal;
end;

procedure TForm1.Action19Execute(Sender: TObject);
begin
form21:=tform21.Create(application);
form21.ShowModal;
end;

procedure TForm1.Action20Execute(Sender: TObject);
begin
form22:=tform22.Create(application);
form22.ShowModal;
end;

procedure TForm1.Action21Execute(Sender: TObject);
begin
form23:=tform23.Create(application);
form23.ShowModal;
end;

procedure TForm1.Action22Execute(Sender: TObject);
begin
form24:=tform24.Create(application);
form24.ShowModal;
end;

procedure TForm1.Action23Execute(Sender: TObject);
begin
form25:=tform25.Create(application);
form25.ShowModal;
end;

procedure TForm1.Action24Execute(Sender: TObject);
begin
form26:=tform26.Create(application);
form26.ShowModal;
end;

procedure TForm1.Action25Execute(Sender: TObject);
begin
form27:=tform27.Create(application);
form27.ShowModal;
end;

procedure TForm1.Action26Execute(Sender: TObject);
begin
form28:=tform28.Create(application);
form28.ShowModal;
end;

procedure TForm1.Action27Execute(Sender: TObject);
begin
form29:=tform29.Create(application);
form29.ShowModal;
end;

procedure TForm1.spSkinSpeedButton7Click(Sender: TObject);
begin
loading:=tloading.Create(application);
loading.Caption:='员工工资发放表';
loading.ShowModal;

end;

procedure TForm1.spSkinSpeedButton8Click(Sender: TObject);
begin
form21:=tform21.Create(application);
form21.ShowModal;
end;

procedure TForm1.spSkinSpeedButton9Click(Sender: TObject);
begin
form23:=tform23.Create(application);
form23.ShowModal;
end;

procedure TForm1.spSkinSpeedButton10Click(Sender: TObject);
begin
form28:=tform28.Create(application);
form28.ShowModal;
end;

procedure TForm1.spSkinSpeedButton11Click(Sender: TObject);
begin
form29:=tform29.Create(application);
form29.ShowModal;
end;

procedure TForm1.Action30Execute(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar('calc'),nil,nil, SW_SHOW);
end;

procedure TForm1.Action31Execute(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar('notepad'),nil,nil, SW_SHOW);
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if application.MessageBox('你真的要退出本系统吗？','系统警告',mb_yesno or mb_iconquestion)<>idno then application.Terminate
else canclose:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[4].text:='系统日期：'+datetostr(date)+'      系统时间：'+timetostr(time);
end;

end.