⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main.pas

📁 实现人力资源的管理
💻 PAS
字号:
🔍 
unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, ExtCtrls, ShellApi, Buttons, jpeg,
  StdCtrls;
  
type
  Tmainfrm = class(TForm)
    StatusBar1: TStatusBar;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    Panel1: TPanel;
    Image1: TImage;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    SpeedButton2: TSpeedButton;
    N8: TMenuItem;
    SpeedButton3: TSpeedButton;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N29: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N30: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    ToolButton5: TToolButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    ToolButton6: TToolButton;
    N46: TMenuItem;
    N47: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SpeedButton2Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
private
    { Private declarations }
  public
    { Public declarations }
    log:integer;
  end;

var
  mainfrm: Tmainfrm;

implementation

uses dwxx,gly,xgmm,dbdata,bmxx,gzxx,zwxx,zcxx,whcd,zzmm,mzlx,
     sdszz,xygdj,ypdj,ygdd,yglz,ygfz,ypxxll,ygxxll,htlx,htgl,
     khxm,khgl,gzdasz,ygzjs,gzdall,kqsz, guanyu;

{$R *.dfm}

procedure Tmainfrm.N2Click(Sender: TObject);
begin
application.CreateForm(Tdwxxfrm,dwxxfrm);
dwxxfrm.ShowModal;
dwxxfrm.Free;
end;

procedure Tmainfrm.SpeedButton1Click(Sender: TObject);
begin
application.CreateForm(Tdwxxfrm,dwxxfrm);
dwxxfrm.ShowModal;
dwxxfrm.Free;
end;

procedure Tmainfrm.N4Click(Sender: TObject);
begin
application.CreateForm(Tglyfrm,glyfrm);
glyfrm.ShowModal;
glyfrm.Free;
end;

procedure Tmainfrm.N5Click(Sender: TObject);
begin
application.CreateForm(Txgmmfrm,xgmmfrm);
xgmmfrm.ShowModal;
xgmmfrm.Free;
end;

procedure Tmainfrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if messagebox(self.Handle,'真的要退出系统吗？','人力资源管理系统',mb_yesno+mb_iconquestion)=idyes then
application.Terminate;
canclose := False;
end;

procedure Tmainfrm.SpeedButton2Click(Sender: TObject);
var
save:string;
begin
savedialog1.Filter:='备份文件(*.bak)|*.bak';
savedialog1.Title:='请选择备份路径';
if savedialog1.Execute then
   begin
      save:=savedialog1.FileName;
   end;
if save<>'' then
   begin
      with data.ADOpublic do
         begin
            try
            screen.Cursor:=crHourGlass;
            close;
            sql.Clear;
            sql.Add(' BACKUP DATABASE '+'人力资源管理系统'+ '  TO DISK =''' +save+'''');
            execsql;
            screen.Cursor:=crdefault;
            application.MessageBox('数据备份成功','提示',0+64);
            except
            screen.Cursor:=crdefault;
            application.MessageBox('数据库备份失败，请检查备份的路径或网络状态！','数据库备份',0+mb_iconinformation);
            end;
         end;
   end;
end;


procedure Tmainfrm.N7Click(Sender: TObject);
begin
speedbutton2.Click;
end;

procedure Tmainfrm.N8Click(Sender: TObject);
begin
speedbutton3.Click;
end;

procedure Tmainfrm.SpeedButton3Click(Sender: TObject);
var
  dir : string;
begin
  try
    if OpenDialog1.Execute then
     begin
        dir:=OpenDialog1.FileName;

        With data.ADOQuery1 do
        begin
          Close;
          SqL.Clear;
          SQL.Add('use master restore database 人力资源管理系统 from disk='+''''+dir+'''');
          ExecSQL;
          Close;
          SqL.Clear;
          SQL.Add('use  人力资源管理系统 ');
          ExecSQL ;
        end;
        showmessage('恢复成功');
     end;
  except
    showmessage('恢复失败');
  end;
end;

procedure Tmainfrm.N10Click(Sender: TObject);
begin
if messagebox(self.Handle,'真的要退出系统吗？','人力资源管理系统',mb_yesno+mb_iconquestion)=idyes then
application.Terminate;
end;

procedure Tmainfrm.N12Click(Sender: TObject);
begin
application.CreateForm(Tbmxxfrm,bmxxfrm);
bmxxfrm.ShowModal;
bmxxfrm.Free;
end;

procedure Tmainfrm.N13Click(Sender: TObject);
begin
application.CreateForm(Tgzxxfrm,gzxxfrm);
gzxxfrm.ShowModal;
gzxxfrm.Free;
end;

procedure Tmainfrm.N14Click(Sender: TObject);
begin
application.CreateForm(Tzwxxfrm,zwxxfrm);
zwxxfrm.ShowModal;
zwxxfrm.Free;
end;

procedure Tmainfrm.N15Click(Sender: TObject);
begin
application.CreateForm(Tzcxxfrm,zcxxfrm);
zcxxfrm.ShowModal;
zcxxfrm.Free;
end;

procedure Tmainfrm.N17Click(Sender: TObject);
begin
application.CreateForm(Twhcdfrm,whcdfrm);
whcdfrm.ShowModal;
whcdfrm.Free;
end;

procedure Tmainfrm.N18Click(Sender: TObject);
begin
application.CreateForm(Tzzmmfrm,zzmmfrm);
zzmmfrm.ShowModal;
zzmmfrm.Free;
end;

procedure Tmainfrm.N19Click(Sender: TObject);
begin
application.CreateForm(Tmzlxfrm,mzlxfrm);
mzlxfrm.ShowModal;
mzlxfrm.Free;
end;

procedure Tmainfrm.N21Click(Sender: TObject);
begin
application.CreateForm(Tsdszzfrm,sdszzfrm);
sdszzfrm.ShowModal;
sdszzfrm.Free;
end;

procedure Tmainfrm.N23Click(Sender: TObject);
begin
application.CreateForm(Txygdjfrm,xygdjfrm);
xygdjfrm.ShowModal;
xygdjfrm.Free;
end;

procedure Tmainfrm.N24Click(Sender: TObject);
begin
application.CreateForm(Typdjfrm,ypdjfrm);
ypdjfrm.ShowModal;
ypdjfrm.Free;
end;

procedure Tmainfrm.N26Click(Sender: TObject);
begin
application.CreateForm(Tygddfrm,ygddfrm);
ygddfrm.ShowModal;
ygddfrm.Free;
end;

procedure Tmainfrm.N28Click(Sender: TObject);
begin
application.CreateForm(Tyglzfrm,yglzfrm);
yglzfrm.ShowModal;
yglzfrm.Free;
end;

procedure Tmainfrm.N27Click(Sender: TObject);
begin
application.CreateForm(Tygfzfrm,ygfzfrm);
ygfzfrm.ShowModal;
ygfzfrm.Free;
end;



procedure Tmainfrm.N32Click(Sender: TObject);
begin
application.CreateForm(Typxxllfrm,ypxxllfrm);
ypxxllfrm.ShowModal;
ypxxllfrm.Free;
end;

procedure Tmainfrm.N33Click(Sender: TObject);
begin
application.CreateForm(Tygxxllfrm,ygxxllfrm);
ygxxllfrm.ShowModal;
ygxxllfrm.Free;
end;

procedure Tmainfrm.SpeedButton4Click(Sender: TObject);
begin
application.CreateForm(Txygdjfrm,xygdjfrm);
xygdjfrm.ShowModal;
xygdjfrm.Free;
end;

procedure Tmainfrm.SpeedButton5Click(Sender: TObject);
begin
application.CreateForm(Typdjfrm,ypdjfrm);
ypdjfrm.ShowModal;
ypdjfrm.Free;
end;

procedure Tmainfrm.SpeedButton6Click(Sender: TObject);
begin
if messagebox(self.Handle,'真的要退出系统吗？','人力资源管理系统',mb_yesno+mb_iconquestion)=idyes then
application.Terminate;
end;

procedure Tmainfrm.SpeedButton7Click(Sender: TObject);
begin
application.CreateForm(Tygddfrm,ygddfrm);
ygddfrm.ShowModal;
ygddfrm.Free;
end;

procedure Tmainfrm.SpeedButton8Click(Sender: TObject);
begin
application.CreateForm(Tyglzfrm,yglzfrm);
yglzfrm.ShowModal;
yglzfrm.Free;
end;

procedure Tmainfrm.SpeedButton9Click(Sender: TObject);
begin
application.CreateForm(Tygfzfrm,ygfzfrm);
ygfzfrm.ShowModal;
ygfzfrm.Free;
end;

procedure Tmainfrm.N35Click(Sender: TObject);
begin
application.CreateForm(Thtlxfrm,htlxfrm);
htlxfrm.ShowModal;
htlxfrm.Free;
end;

procedure Tmainfrm.N36Click(Sender: TObject);
begin
application.CreateForm(Thtglfrm,htglfrm);
htglfrm.ShowModal;
htglfrm.Free;
end;

procedure Tmainfrm.N37Click(Sender: TObject);
begin
application.CreateForm(Tkhxmfrm,khxmfrm);
khxmfrm.ShowModal;
khxmfrm.Free;
end;

procedure Tmainfrm.N38Click(Sender: TObject);
begin
application.CreateForm(Tkhglfrm,khglfrm);
khglfrm.ShowModal;
khglfrm.Free;
end;

procedure Tmainfrm.N39Click(Sender: TObject);
begin
application.CreateForm(Tgzdaszfrm,gzdaszfrm);
gzdaszfrm.ShowModal;
gzdaszfrm.Free;
end;

procedure Tmainfrm.N40Click(Sender: TObject);
begin
application.CreateForm(Tygzjsfrm,ygzjsfrm);
ygzjsfrm.ShowModal;
ygzjsfrm.Free;
end;

procedure Tmainfrm.N41Click(Sender: TObject);
begin
application.CreateForm(Tgzdallfrm,gzdallfrm);
gzdallfrm.ShowModal;
gzdallfrm.Free;
end;

procedure Tmainfrm.N42Click(Sender: TObject);
begin
application.CreateForm(Tkqszfrm,kqszfrm);
kqszfrm.ShowModal;
kqszfrm.Free;
end;

procedure Tmainfrm.SpeedButton11Click(Sender: TObject);
begin
application.CreateForm(Tgzdaszfrm,gzdaszfrm);
gzdaszfrm.ShowModal;
gzdaszfrm.Free;
end;

procedure Tmainfrm.SpeedButton10Click(Sender: TObject);
begin
application.CreateForm(Tygzjsfrm,ygzjsfrm);
ygzjsfrm.ShowModal;
ygzjsfrm.Free;
end;

procedure Tmainfrm.N44Click(Sender: TObject);
begin
ShellExecute(handle,'open','notepad.exe',Nil,Nil,SW_SHOWNORMAL);
end;

procedure Tmainfrm.SpeedButton13Click(Sender: TObject);
begin
ShellExecute(handle,'open','notepad.exe',Nil,Nil,SW_SHOWNORMAL);
end;

procedure Tmainfrm.N45Click(Sender: TObject);
begin
ShellExecute(handle,'open','calc.exe',Nil,Nil,SW_SHOWNORMAL);
end;

procedure Tmainfrm.SpeedButton12Click(Sender: TObject);
begin
ShellExecute(handle,'open','calc.exe',Nil,Nil,SW_SHOWNORMAL);
end;

procedure Tmainfrm.N47Click(Sender: TObject);
begin
application.CreateForm(Tguanyufrm,guanyufrm);
guanyufrm.ShowModal;
guanyufrm.Free;
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -