main.~pas

人事管理系统的源代码

unit Main;

interface

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

type
  Tmain_form = class(TForm)
    MainMenu1: TMainMenu;
    ToolBar1: TToolBar;
    StatusBar1: TStatusBar;
    N1: TMenuItem;
    tjgly: TMenuItem;
    xgmm: TMenuItem;
    N4: TMenuItem;
    xtcsh: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N15: TMenuItem;
    N13: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N12: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    ADOConnection1: TADOConnection;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N31: TMenuItem;
    N24: TMenuItem;
    N26: TMenuItem;
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    ADOTable3: TADOTable;
    N27: TMenuItem;
    N25: TMenuItem;
    S1: TMenuItem;
    C1: TMenuItem;
    N9: TMenuItem;
    N14: TMenuItem;
    N30: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    procedure N11Click(Sender: TObject);
    procedure tjglyClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure xgmmClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure xtcshClick(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure S1Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
  private
    { Private declarations }
    procedure Form_Draw();
  public
    { Public declarations }
  end;

var
     main_form: Tmain_form;
  //自己定义的公用变量
       mp3path:array [1..3] of string ;
       qx:array [1..4] of Boolean ;
       username:string;
       password:string;
       pathi:integer;
       i:integer;
       adoconnstring:string;
       count:integer;
       year,month,day:word;
       icon_str:string;

implementation
   uses
         Login,
         tjgly,
         Check_Password,
         Zgxi_In,
         Zl_Del,
         Zl_Update,
         Szsds,
         help,
         Gzxxsd,
         Dygzxxb,
         Cx_Dy_Gz,
         CX_Renshi,
         Gx_LSJL,
         Denglu;


{$R *.dfm}




procedure tmain_form.Form_Draw();
var  Bitmap:TBitmap;
     rect:trect;
begin
    rect.Left:=0;
    rect.Right:=width;
    rect.Top:=0;
    rect.Bottom:=height;
    bitmap:=tbitmap.Create();
    bitmap.LoadFromFile(icon_str);//装入位图
    main_form.Canvas.StretchDraw(rect,bitmap);//显示位图
    bitmap.FreeImage;//释放资源
end;


procedure Tmain_form.N11Click(Sender: TObject);
begin
  close;
end;

procedure Tmain_form.tjglyClick(Sender: TObject);
begin
     statusbar1.Panels[1].Text:='添加管理员！';
     tjgly_form:=Ttjgly_form.Create(application);
     tjgly_form.ShowModal;
end;

procedure Tmain_form.FormShow(Sender: TObject);
begin
     denglu_form:=Tdenglu_form.Create(application);
     denglu_form.ShowModal;
end;

procedure Tmain_form.FormCreate(Sender: TObject);
begin
      i:=3;
      decodedate(now,year,month,day);
      start_form:=Tstart_form.Create(application);
      Start_Form.Visible:=false;
      Start_Form.Timer1.Interval:=5;
      Start_Form.Timer1.Enabled:=TRUE;
      Start_Form.ShowModal();
      //对所有的ado空间设置连接字符串
      adoconnstring:='Provider=Microsoft.Jet.OLEDB.4.0;'+
      'Data Source='+ExtractFilePath(application.ExeName)+'\sql\人事管理.mdb;'+
      'Persist Security Info=False';

    ADOConnection1.ConnectionString:=adoconnstring;
    icon_str:=ExtractFilePath(application.ExeName)+'\icon\1.bmp';
    form_draw;
end;

procedure Tmain_form.FormPaint(Sender: TObject);
begin
    form_draw;
end;

procedure Tmain_form.xgmmClick(Sender: TObject);
begin
     statusbar1.Panels[1].Text:='修改密码！';
     check_password_form:=tcheck_password_form.Create(application);
     check_password_form.ShowModal;
end;

procedure Tmain_form.FormActivate(Sender: TObject);
begin
    statusbar1.Panels[0].Text:='            欢迎使用人事管理系统！';
    adotable2.Close;
    adotable2.Connection:=ADOConnection1;
    adotable2.TableName:='发放工资日期';
    adotable2.Active:=true;


   //根据权限初始化控件是否可用
if username<> '' then
   begin
      //管理员权限
      if qx[1]=true then
        begin
           tjgly.Enabled:=true;
           xtcsh.Enabled:=true;
           speedbutton1.Enabled:=true;
        end
      else
        begin
           tjgly.Enabled:=false;
           xtcsh.Enabled:=false;
           speedbutton1.Enabled:=false;
        end;
      //操作员权限
     if qx[2]=true then
        begin
           //设置所得税
           s1.Enabled:=true;
           speedbutton3.Enabled:=true;
           //工资发放日期
           n30.Enabled:=true;
           speedbutton6.Enabled:=true;
          //资料录入
           n8.Enabled:=true;
           speedbutton7.Enabled:=true;
           //资料删除
           n24.Enabled:=true;
           speedbutton9.Enabled:=true;

        end
      else
        begin
           s1.Enabled:=false;
           speedbutton3.Enabled:=false;

           n30.Enabled:=false;
           speedbutton6.Enabled:=false;

           n8.Enabled:=false;
           speedbutton7.Enabled:=false;

           n24.Enabled:=false;
           speedbutton9.Enabled:=false;
        end;
      //查询权限1
      if qx[3]=true then
        begin
          //工资信息设定
          c1.Enabled:=true;
          speedbutton4.Enabled:=true;
          //资料修改
          n17.Enabled:=true;
          speedbutton8.Enabled:=true;
        end
      else
        begin
          c1.Enabled:=false;
          speedbutton4.Enabled:=false;

          n17.Enabled:=false;
          speedbutton8.Enabled:=false;
        end;
      //查询权限2
      if qx[4]=true then
        begin
        //生成当月工资表
           n26.Enabled:=true;
        //修改密码
           xgmm.Enabled:=true;
           speedbutton2.Enabled:=true;
        end
      else
        begin
           n26.Enabled:=false;
           xgmm.Enabled:=false;
           speedbutton2.Enabled:=false;
        end;
   end
   else
      close;