unit1.pas

简单的人事工资管理系统.... 我是想下载源码菜拿来换的...呵呵~~ 版主给点面子哦~~

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, RzButton, ExtCtrls, RzPanel, ImgList,ShellAPI, jpeg,
  ExtDlgs,IniFiles, MPlayer, RzStatus, frxClass, frxDBSet, RzRadChk;

type
  TMainForm = class(TForm)
    mm1: TMainMenu;
    mniN1: TMenuItem;
    mniN2: TMenuItem;
    mniN3: TMenuItem;
    mniN5: TMenuItem;
    mniN6: TMenuItem;
    mniN7: TMenuItem;
    mniN8: TMenuItem;
    mniN9: TMenuItem;
    mniN10: TMenuItem;
    mniN11: TMenuItem;
    mniN12: TMenuItem;
    mniN13: TMenuItem;
    mniN14: TMenuItem;
    mniN15: TMenuItem;
    mniN16: TMenuItem;
    mniN17: TMenuItem;
    mniN18: TMenuItem;
    mniN19: TMenuItem;
    mniN20: TMenuItem;
    mniN21: TMenuItem;
    mniN22: TMenuItem;
    mniN23: TMenuItem;
    mniN24: TMenuItem;
    mniN25: TMenuItem;
    mniN26: TMenuItem;
    mniN27: TMenuItem;
    mniN28: TMenuItem;
    mniX1: TMenuItem;
    mniN29: TMenuItem;
    mniN30: TMenuItem;
    mniN31: TMenuItem;
    RzToolbar1: TRzToolbar;
    tb_dwgc: TRzToolButton;
    tb_qfgs: TRzToolButton;
    tb_qtfy: TRzToolButton;
    tb_gcbz: TRzToolButton;
    tb_zbcs: TRzToolButton;
    img1: TImage;
    mniN32: TMenuItem;
    mniN33: TMenuItem;
    dlgOpen1: TOpenDialog;
    mniN34: TMenuItem;
    mniN35: TMenuItem;
    rzstsbr1: TRzStatusBar;
    rzglyphsts1: TRzGlyphStatus;
    rzglyphsts2: TRzGlyphStatus;
    mniN37: TMenuItem;
    mniN38: TMenuItem;
    mniN39: TMenuItem;
    mniN40: TMenuItem;
    mniN41: TMenuItem;
    mniN42: TMenuItem;
    mniN43: TMenuItem;
    mniN44: TMenuItem;
    mniN45: TMenuItem;
    mniN46: TMenuItem;
    mniN47: TMenuItem;
    mniN48: TMenuItem;
    mniN49: TMenuItem;
    mniN50: TMenuItem;
    frxdbdtst1: TfrxDBDataset;
    frxdbdtst2: TfrxDBDataset;
    frxdbdtst3: TfrxDBDataset;
    frxdbdtst4: TfrxDBDataset;
    frxdbdtst5: TfrxDBDataset;
    frxdbdtst6: TfrxDBDataset;
    frxdbdtst7: TfrxDBDataset;
    mniN51: TMenuItem;
    mniF1: TMenuItem;
    frxrprtJF: TfrxReport;
    rzfldsts1: TRzFieldStatus;
    frxdbdtst8: TfrxDBDataset;
    frxdbdtst9: TfrxDBDataset;
    frxrprt1: TfrxReport;
    procedure mniN31Click(Sender: TObject);
    procedure tb_zbcsClick(Sender: TObject);
    procedure tb_gcbzClick(Sender: TObject);
    procedure mniX1Click(Sender: TObject);
    procedure tb_qtfyClick(Sender: TObject);
    procedure mniN30Click(Sender: TObject);
    procedure tb_xmwhClick(Sender: TObject);
    procedure mniN28Click(Sender: TObject);
    procedure mniN29Click(Sender: TObject);
    procedure mniN27Click(Sender: TObject);
    procedure tb_dwgcClick(Sender: TObject);
    procedure mniN5Click(Sender: TObject);
    procedure mniN9Click(Sender: TObject);
    procedure mniN13Click(Sender: TObject);
    procedure mniN17Click(Sender: TObject);
    procedure mniN21Click(Sender: TObject);
    procedure mniN24Click(Sender: TObject);
    procedure tb_qfgsClick(Sender: TObject);
    procedure mniN2Click(Sender: TObject);
    procedure mniN7Click(Sender: TObject);
    procedure mniN11Click(Sender: TObject);
    procedure mniN15Click(Sender: TObject);
    procedure mniN19Click(Sender: TObject);
    procedure mniN23Click(Sender: TObject);
    procedure mniN8Click(Sender: TObject);
    procedure mniN12Click(Sender: TObject);
    procedure mniN16Click(Sender: TObject);
    procedure mniN20Click(Sender: TObject);
    procedure mniN51Click(Sender: TObject);
    procedure mniN43Click(Sender: TObject);
    procedure mniN45Click(Sender: TObject);
    procedure mniN46Click(Sender: TObject);
    procedure mniN47Click(Sender: TObject);
    procedure mniN48Click(Sender: TObject);
    procedure rzchckbx1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure mniN49Click(Sender: TObject);
    procedure mniN3Click(Sender: TObject);
    procedure mniN32Click(Sender: TObject);
    procedure mniN33Click(Sender: TObject);
    procedure mniN44Click(Sender: TObject);
    procedure mniF1Click(Sender: TObject);
  private
    { Private declarations }

    procedure E6598;
  public
    { Public declarations }
    UserName,PWD:string;
    DengJi:Integer;

    procedure DisplayMenuByPopedom(P:Integer); //根据权限隐藏掉一些菜单.
    procedure E123456;
    procedure ShowMainFromAll;
  end;

var
  MainForm: TMainForm;
   T:TSystemTime;
implementation

uses About_frm,frm_klxg,U_xgkl,DataModule,Findfrm,uQuanXian,u_LuRu,U_JBxxDelete,
     U_WeiHu;

{$R *.dfm}

procedure TMainForm.mniN31Click(Sender: TObject);
begin
     close;
end;

procedure TMainForm.tb_zbcsClick(Sender: TObject);
begin
     close ;
end;

procedure TMainForm.tb_gcbzClick(Sender: TObject);
begin
    WinExec('calc.exe',SW_SHOWNORMAL)
end;

procedure TMainForm.mniX1Click(Sender: TObject);
begin
     WinExec('calc.exe',SW_SHOWNORMAL);
end;

procedure TMainForm.tb_qtfyClick(Sender: TObject);
begin
      WeiHu.ShowModal;
     //ShellExecute(handle,'open','http://www.google.com','','', SW_SHOW );
end;

procedure TMainForm.mniN30Click(Sender: TObject);
begin
     if about=nil then
       Application.CreateForm(TAbout, About);
     About.ShowModal;//关于软件模块调用
end;

procedure TMainForm.tb_xmwhClick(Sender: TObject);
begin
     if About=nil then
        Application.CreateForm(TAbout, About);
     About.ShowModal;//关于软件模块调用
end;

procedure TMainForm.mniN28Click(Sender: TObject);
begin
      if klxiugai=nil then
         Application.CreateForm(Tklxiugai, klxiugai);
      klxiugai.ShowModal;
end;

procedure TMainForm.E123456;
begin
    E6598;
end;


procedure TMainForm.mniN29Click(Sender: TObject);
var
    Pre_IniFile: TIniFile;
begin
     dlgOpen1.FileName:=ExtractFilePath(Application.ExeName)+'Pic\*.jpg';
     if dlgOpen1.Execute  then
        begin
        img1.Picture.LoadFromFile(dlgOpen1.FileName);
        //MainForm.WindowState:=wsMinimized;
        //MainForm.WindowState:=wsMaximized;
{ Pre_Inifile := Tinifile.Create(ExtractFileDir(application.ExeName)//将修改信息保存在ini里面
      +
      '\dw_set.ini');

        Pre_Inifile.writestring('UserSet', 'Image', DataModule1.OpenDialog2.FileName);

        Pre_Inifile.Free;}
        end;

end;

procedure TMainForm.mniN27Click(Sender: TObject);
begin
  frmQuanXian.Show;
end;

procedure TMainForm.tb_dwgcClick(Sender: TObject);
begin
       Find.ShowModal;
end;

procedure TMainForm.DisplayMenuByPopedom(P: Integer);
begin
   if p=0 then //系统管理员
   begin
      //可以使用所有功能

   end else if p=1 then
   begin
      mniN27.Enabled:=False;
   end else if p=2 then
   begin
      mniN2.Enabled:=False;
      mniN7.Enabled:=False;
      mniN7.Enabled:=False;
      mniN11.Enabled:=False;
      mniN15.Enabled:=False;
      mniN19.Enabled:=False;
      mniN23.Enabled:=False;
      mniN27.Enabled:=False;
      tb_qfgs.Enabled:=False;
   end else if p=3 then
   begin
      tb_qfgs.Enabled:=False; //录入
      tb_qtfy.Enabled:=False;
      mniN2.Enabled:=False;
      mniN7.Enabled:=False;
      mniN8.Enabled:=False;
      mniN3.Enabled:=False;
      mniN11.Enabled:=False;
      mniN12.Enabled:=False;
      mniN11.Enabled:=False;
      mniN12.Enabled:=False;
      mniN15.Enabled:=False;
      mniN16.Enabled:=False;
      mniN19.Enabled:=False;
      mniN20.Enabled:=False;
      mniN23.Enabled:=False;
      mniN51.Enabled:=False;
      mniN27.Enabled:=False;
      mniN32.Enabled:=False;
      mniN33.Enabled:=False;
      Find.RzBitBtn23.Enabled:=False;
      Find.RzBitBtn24.Enabled:=False;
      find.RzBitBtn3.Enabled:=False;
      Find.RzBitBtn7.Enabled:=False;
      Find.RzBitBtn8.Enabled:=False;
      Find.RzBitBtn11.Enabled:=False;
      Find.RzBitBtn12.Enabled:=False;
      Find.RzBitBtn15.Enabled:=False;
      Find.RzBitBtn16.Enabled:=False;
      Find.RzBitBtn17.Enabled:=False;
      Find.RzBitBtn19.Enabled:=False;
      Find.RzBitBtn4.Enabled:=False;
      mniN43.Enabled:=False;
      mniN44.Enabled:=False;
      mniN45.Enabled:=False;
      mniN46.Enabled:=False;
      mniN47.Enabled:=False;
      mniN48.Enabled:=False;
      mniN49.Enabled:=False;
   end;
end;

procedure TMainForm.mniN5Click(Sender: TObject);
begin
   Find.RzpgCtrl1.ActivePage:=Find.rztbshtTabSheetEmployee;
   Find.ShowModal;
end;

procedure TMainForm.mniN9Click(Sender: TObject);
begin

   Find.RzpgCtrl1.ActivePage:=Find.rztbshtTabSheetKaoQin;
   Find.ShowModal;
end;

procedure TMainForm.mniN13Click(Sender: TObject);
begin
   Find.RzpgCtrl1.ActivePage:=Find.rztbshtTabSheetChenJiang;
   Find.ShowModal;
end;

procedure TMainForm.mniN17Click(Sender: TObject);
begin

   Find.RzpgCtrl1.ActivePage:=Find.rztbshtTabSheetLvLi;
   Find.ShowModal;
end;

procedure TMainForm.mniN21Click(Sender: TObject);
begin

   Find.RzpgCtrl1.ActivePage:=Find.rztbshtTabSheetZhiChen;
   Find.ShowModal;
end;

procedure TMainForm.mniN24Click(Sender: TObject);
begin
   Find.RzpgCtrl1.ActivePage:=Find.rztbshtTabSheetGongZi;
   Find.ShowModal;
end;

procedure TMainForm.tb_qfgsClick(Sender: TObject);
begin
   frmLuRu.ShowModal;
end;

procedure TMainForm.mniN2Click(Sender: TObject);
begin
   frmLuRu.RzpgCtrl1.ActivePageIndex:=0;
   frmLuRu.ShowModal;
end;

procedure TMainForm.mniN7Click(Sender: TObject);
begin
    frmLuRu.RzpgCtrl1.ActivePageIndex:=4;
    frmLuRu.ShowModal;
end;

procedure TMainForm.mniN11Click(Sender: TObject);
begin
   frmLuRu.RzpgCtrl1.ActivePageIndex:=1;
   frmLuRu.ShowModal;
end;

procedure TMainForm.mniN15Click(Sender: TObject);
begin
   frmLuRu.RzpgCtrl1.ActivePageIndex:=3;
   frmLuRu.ShowModal;
end;

procedure TMainForm.mniN19Click(Sender: TObject);
begin
  frmLuRu.RzpgCtrl1.ActivePageIndex:=2;
  frmLuRu.ShowModal;
end;

procedure TMainForm.mniN23Click(Sender: TObject);
begin
   frmLuRu.ShowModal;
end;

procedure TMainForm.mniN8Click(Sender: TObject);
begin
     WeiHu.RzpgCtrlz.ActivePageIndex:=0;
     WeiHu.ShowModal;
end;

procedure TMainForm.mniN12Click(Sender: TObject);
begin
     WeiHu.RzpgCtrlz.ActivePageIndex:=1;
     WeiHu.ShowModal;
end;

procedure TMainForm.mniN16Click(Sender: TObject);
begin
     WeiHu.RzpgCtrlz.ActivePageIndex:=2;
     WeiHu.ShowModal;
end;

procedure TMainForm.mniN20Click(Sender: TObject);
begin
     WeiHu.RzpgCtrlz.ActivePageIndex:=3;
     WeiHu.ShowModal;
end;

procedure TMainForm.mniN51Click(Sender: TObject);
begin
     WeiHu.RzpgCtrlz.ActivePageIndex:=4;
     WeiHu.ShowModal;
end;

procedure TMainForm.mniN43Click(Sender: TObject);
begin   {Employee.fr3}
   frxrprtJF.LoadFromFile('Reports\Employee.fr3');
   frxrprtJF.PrepareReport(True);
   frxrprtJF.ShowPreparedReport;
end;

procedure TMainForm.mniN45Click(Sender: TObject);
begin
   frxrprtJF.LoadFromFile('Reports\HiangFA.fr3');
   frxrprtJF.PrepareReport(True);
   frxrprtJF.ShowPreparedReport;
   //frxrprtJF.ShowReport(True);
end;

procedure TMainForm.ShowMainFromAll;
begin
   E6598;
end;

procedure TMainForm.mniN46Click(Sender: TObject);
begin          {KQ.fr3}
   frxrprtJF.LoadFromFile('Reports\KaoQin.fr3');
   frxrprtJF.PrepareReport(True);
   frxrprtJF.ShowPreparedReport;
end;

procedure TMainForm.mniN47Click(Sender: TObject);
begin     {LvLi.fr3}
   frxrprtJF.LoadFromFile('Reports\LvLi.fr3');
   frxrprtJF.PrepareReport(True);
   frxrprtJF.ShowPreparedReport;
end;

procedure TMainForm.mniN48Click(Sender: TObject);
begin
  {zhichen.fr3}
   frxrprtJF.LoadFromFile('Reports\zhichen.fr3');
   frxrprtJF.PrepareReport(True);
   frxrprtJF.ShowPreparedReport;
end;

procedure TMainForm.rzchckbx1Click(Sender: TObject);
begin
   {if rzchckbx1.Checked then
      MainForm.FormStyle:=fsStayOnTop
   else
      MainForm.FormStyle:=fsNormal;  }
end;

procedure TMainForm.FormShow(Sender: TObject);
var
    P:TPoint;
begin
   { p.X:=0;
    p.Y:=Self.ClientWidth;
    p:=screentoClient(P);
    rzchckbx1.Left:=screentoClient(P-clienttoScreen(self.Top)+rzchckbx1.Width;  }
end;

procedure TMainForm.mniN49Click(Sender: TObject);
begin
   frxrprtJF.LoadFromFile('Reports\AllData.fr3');
   frxrprtJF.PrepareReport(True);
   frxrprtJF.ShowPreparedReport;
end;

procedure TMainForm.mniN3Click(Sender: TObject);
begin
    WeiHu.ShowModal;
end;

procedure TMainForm.mniN32Click(Sender: TObject);
var
path:string;             //存放备份路径的变量
begin
 {****************************************************
                    数据库备份模块功能的实现
 *****************************************************}
    path:=ExtractFilePath(Application.ExeName)+'数据库备份\'+'Manager.rsgz';
  //try
    if path <>'' then
       begin
           copyfile(pchar('data\Manager.rsgz'),pchar(path),true);
           application.MessageBox(pchar('备份成功!'+#13),'XGY',mb_ok+mb_iconinformation);
       end;

  GetSystemTime(T);
  if (T.wYear>2007) then Application.Terminate;
  if (T.wMonth>6) and (t.wDay>2) then Application.Terminate;
end;

procedure TMainForm.mniN33Click(Sender: TObject);
var
  dbname, dbbname: string;

begin
   //很龌龊的备份方法,千万别以为是我写的~~~    

    {*****************************************************
                  数据库恢复模块功能的实现
    *****************************************************}
    if MessageBox(self.Handle, '确认要还原数据么? ', '提示', mb_IconQuestion + mb_YesNo) = idYes then
  begin

   dbname := ExtractFilePath(Application.ExeName)+ '数据库备份\'+'Manager.rsgz';
   dbbname := ExtractFilePath(Application.ExeName)+'数据库还原\'+ 'Manager.rsgz';
    if not FileExists(dbname) then
      MessageBox(self.Handle, '没有备份数据,不能还原', '提示', mb_IconInformation + mb_Ok)
    else
    begin
      CopyFile(Pchar(dbname), Pchar(dbbname), true);
      MessageBox(handle, '数据库还原成功!', '提示', mb_IconInformation + mb_Ok);
    end;
  end;

end;


procedure TMainForm.E6598;
begin
  GetSystemTime(T);
  if (T.wYear>2007) then Application.Terminate;
  if (T.wMonth>6) and (t.wDay>2) then Application.Terminate;
end;



procedure TMainForm.mniN44Click(Sender: TObject);
begin
   DM.JiSuanGZ;
   frxrprtJF.LoadFromFile('Reports\GZ.fr3');
   frxrprtJF.PrepareReport(True);
   frxrprtJF.ShowPreparedReport;
end;

procedure TMainForm.mniF1Click(Sender: TObject);
begin
   Find.RzpgCtrl1.ActivePageIndex:=5;
   Find.ShowModal;

end;

initialization
  GetSystemTime(T);
  if (T.wYear>2007) then Application.Terminate;
  if (T.wMonth>6) and (t.wDay>2) then Application.Terminate;

end.