u_main.~pas

人事管理程序源码

unit U_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, ToolWin, ComCtrls, ImgList, jpeg, StdCtrls,DateUtils,ADODB,
  Buttons;

type
  TForm_main = class(TForm)
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    A1: TMenuItem;
    N1: TMenuItem;
    C1: TMenuItem;
    D1: TMenuItem;
    E1: TMenuItem;
    F1: TMenuItem;
    Panel2: TPanel;
    menu_b1: TMenuItem;
    N2: TMenuItem;
    menu_b2: TMenuItem;
    menu_c1: TMenuItem;
    N3: TMenuItem;
    menu_c2: TMenuItem;
    menu_d1: TMenuItem;
    N4: TMenuItem;
    menu_d2: TMenuItem;
    menu_a1: TMenuItem;
    N5: TMenuItem;
    menu_a2: TMenuItem;
    menu_e1: TMenuItem;
    N6: TMenuItem;
    menu_e2: TMenuItem;
    N7: TMenuItem;
    menu_e3: TMenuItem;
    N8: TMenuItem;
    menu_e4: TMenuItem;
    N9: TMenuItem;
    menu_e5: TMenuItem;
    Panel3: TPanel;
    StatusBar1: TStatusBar;
    Panel4: TPanel;
    Image1: TImage;
    Panel5: TPanel;
    Image2: TImage;
    Label_bt: TLabel;
    label_1: TLabel;
    Label_2: TLabel;
    Label_3: TLabel;
    Label_4: TLabel;
    Label_5: TLabel;
    Label_6: TLabel;
    Label_7: TLabel;
    Label_8: TLabel;
    Label_9: TLabel;
    Label_a: TLabel;
    Label_b: TLabel;
    Label_c: TLabel;
    Label_e: TLabel;
    Label_d: TLabel;
    Panel6: TPanel;
    Image3: TImage;
    Label1: TLabel;
    N10: TMenuItem;
    menu_e6: TMenuItem;
    N11: TMenuItem;
    menu_e7: TMenuItem;
    N12: TMenuItem;
    menu_d3: TMenuItem;
    N13: TMenuItem;
    N41: TMenuItem;
    N14: TMenuItem;
    N31: TMenuItem;
    procedure menu_b1Click(Sender: TObject);
    procedure menu_b2Click(Sender: TObject);
    procedure menu_d1Click(Sender: TObject);
    procedure menu_d2Click(Sender: TObject);
    procedure menu_a1Click(Sender: TObject);
    procedure menu_a2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure F1Click(Sender: TObject);
    procedure Label40MouseMove(Sender: TObject;Shift: TShiftState; X, Y: Integer);
    procedure change_color(Sender: TLabel);
    procedure FormActivate(Sender: TObject);
    procedure Label_btClick(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure menu_e5Click(Sender: TObject);
    procedure menu_c1Click(Sender: TObject);
    procedure menu_c2Click(Sender: TObject);
    procedure menu_e4Click(Sender: TObject);
    procedure menu_e3Click(Sender: TObject);
    procedure menu_e6Click(Sender: TObject);
    procedure menu_e7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure menu_d3Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    function pm(num_str:string):integer;
    procedure N31Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
    main_czrybm,main_czryxm,main_czymm:string;
    xtrq:Tdate;
    xtzz,login_OK:string;
    xt_dir:string;
  end;
 const
   ADOLinkString='Provider=Microsoft.Jet.OLEDB.4.0;'
                +'Data Source=%s;'
                +'Persist Security Info=False;'
                +'Jet OLEDB:Database Password=%S;';
var                
  Form_main: TForm_main;
  kj_name:Tlabel;
  mainDBPath,mdbDataSource,mdbPassword:string;
implementation

uses U_dasjlr, U_dasjlr_cx, U_gzda_zhcx, U_cpbmsd, czry_sd, u_rytz, login,
  login1, U_wjbf, U_wjhf, czy_ghma, guanyu, U_qclssj, U_gzda_dm, U_cx_czjl,
  U_sddwbm, U_dyxm_sd, U_ReNumber;

{$R *.dfm}

procedure TForm_main.menu_b1Click(Sender: TObject);
begin
   Form_dasjlr_cx:=TForm_dasjlr_cx.create(application); //建立
   Form_dasjlr_cx.showmodal; //以有模式方式显示
   Form_dasjlr_cx.free ;    //释放窗体
end;

procedure TForm_main.menu_b2Click(Sender: TObject);
begin
   Form_zhcx:=TForm_zhcx.create(application); //建立
   Form_zhcx.showmodal; //以有模式方式显示
   Form_zhcx.free ;    //释放窗体
end;

procedure TForm_main.menu_d1Click(Sender: TObject);
begin
   Form_fzsjsd:=TForm_fzsjsd.create(application); //建立
   Form_fzsjsd.showmodal; //以有模式方式显示
   Form_fzsjsd.free ;    //释放窗体
end;

procedure TForm_main.menu_d2Click(Sender: TObject);
begin
   Form_czrysd:=TForm_czrysd.create(application); //建立
   Form_czrysd.showmodal; //以有模式方式显示
   Form_czrysd.free ;    //释放窗体
end;

procedure TForm_main.menu_a1Click(Sender: TObject);
begin
   Form_dasjlr:=TForm_dasjlr.create(application); //建立
   Form_dasjlr.showmodal; //以有模式方式显示
   Form_dasjlr.free ;    //释放窗体
end;

procedure TForm_main.menu_a2Click(Sender: TObject);
begin
   Form_rytz:=TForm_rytz.create(application); //建立
   Form_rytz.showmodal; //以有模式方式显示
   Form_rytz.free ;    //释放窗体
end;

procedure TForm_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if StatusBar1.Panels[1].Text<>'操作员:' then
   if Application.MessageBox('确实要退出人事管理系统吗?','提示',MB_YesNO+ MB_DEFBUTTON2) <> IDYes then
      Abort;
 with gzda_dm.ADODataSet_cx do begin //记录进入数据
    if active then active:=false;
    commandtext:='select * from czyjl where (year(jrsj)=:nian) order by xh';
    Parameters.ParamByName('nian').Value:=yearof(now);
    open;
    last ;
    edit;
    fieldbyname('tcsj').AsDateTime:=now;
    post;
    UpdateBatch(arCurrent);
    close;
 end;

end;

procedure TForm_main.F1Click(Sender: TObject);
begin
  close;
end;

procedure TForm_main.change_color(Sender: TLabel);
begin
  kj_name.Font.Color:=clWindowText;
  kj_name.Font.Style:=[];
  if copy(Sender.Caption,1,1)>'F' then
     sender.Font.Color:=clNavy
  else
     sender.Font.Color:=clMaroon;
  Sender.Font.Style:=[fsBold];
  kj_name:=Sender;
end;

procedure TForm_main.Label40MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  change_color(sender as Tlabel);
end;

procedure TForm_main.FormActivate(Sender: TObject);
var
  cx_nian,cx_yue,cx_ri:word;
begin
  with gzda_dm.ADODataSet_cx do begin
    if active then active:=false;
    commandtext:='select * from xtsz';
    open;
    first;
    if pm(fieldbyname('mmc').AsString)<1 then
       begin
         showmessage('您对本软件的使用次数已到，请于代理商联系！！');
         form_main.Close;
         abort;
       end;
  end;
  kj_name:=Label_1;
  if StatusBar1.Panels[1].Text='操作员:' then
    begin
      Form_login:=TForm_login.create(application); //建立
      Form_login.showmodal; //以有模式方式显示
      xtzz:=Form_login.login_OK;
      Login_OK:=xtzz;
      if xtzz<>'ok' then
         begin
           showmessage('系统登录不成功！！');
           close;
           abort;
         end ;
      main_czrybm:=Form_login.czrybm;
      main_czryxm:=Form_login.czryxm;
      main_czymm:=Form_login.czymm;
      Form_login.free ;    //释放窗体
      DecodeDate(now,cx_nian,cx_yue,cx_ri);
      StatusBar1.Panels[2].Text:='系统日期:'+inttostr(cx_nian)+'年'+inttostr(cx_yue)+'月'+inttostr(cx_ri)+'日';
      StatusBar1.Panels[1].Text:='操作员:'+main_czryxm;
    end;
  panel2.Refresh ;
end;

procedure TForm_main.Label_btClick(Sender: TObject);
begin
  if not panel6.Visible then panel6.Visible:=true;
  if panel5.Visible then panel5.Visible:=false;
end;

procedure TForm_main.Label1Click(Sender: TObject);
begin
  if not panel5.Visible then panel5.Visible:=true;
  if panel6.Visible then panel6.Visible:=false;
end;

procedure TForm_main.menu_e5Click(Sender: TObject);
begin
   Form_ghczy:=TForm_ghczy.create(application); //建立
   Form_ghczy.showmodal; //以有模式方式显示
   Form_ghczy.free ;    //释放窗体
end;

procedure TForm_main.menu_c1Click(Sender: TObject);
begin
   Form_SJbf:=TForm_SJbf.create(application); //建立
   Form_SJbf.showmodal; //以有模式方式显示
   Form_SJbf.free ;    //释放窗体
end;

procedure TForm_main.menu_c2Click(Sender: TObject);
begin
   Form_SJhf:=TForm_SJhf.create(application); //建立
   Form_SJhf.showmodal; //以有模式方式显示
   Form_SJhf.free ;    //释放窗体
end;

procedure TForm_main.menu_e4Click(Sender: TObject);
begin
   Form_czy_ghmm:=TForm_czy_ghmm.create(application); //建立
   Form_czy_ghmm.showmodal; //以有模式方式显示
   Form_czy_ghmm.free ;    //释放窗体
end;

procedure TForm_main.menu_e3Click(Sender: TObject);
begin
   Form_guanyu:=TForm_guanyu.create(application); //建立
   Form_guanyu.showmodal; //以有模式方式显示
   Form_guanyu.free ;    //释放窗体
end;

procedure TForm_main.menu_e6Click(Sender: TObject);
begin
   Form_qclssj:=TForm_qclssj.create(application); //建立
   Form_qclssj.showmodal; //以有模式方式显示
   Form_qclssj.free ;    //释放窗体
end;

procedure TForm_main.menu_e7Click(Sender: TObject);
begin
   Form_cx_czjl:=TForm_cx_czjl.create(application); //建立
   Form_cx_czjl.showmodal; //以有模式方式显示
   Form_cx_czjl.free ;    //释放窗体
end;

procedure TForm_main.FormCreate(Sender: TObject);
begin
  mainDBPath :=ExtractFilePath(ParamStr(0));
  mdbDataSource :=mainDBPath+'gzda_db.mdb';
  xt_dir:=mdbDataSource;
  mdbPassword :='630214';
  with gzda_dm.ADOConnection1 do begin  //给变量赋值
    Connected:=False;
    ConnectionString :=Format(ADOLinkString,[mdbDataSource,mdbPassword]);//初始连接参数
    if not Connected then Connected:=true;
  end;
end;

procedure TForm_main.menu_d3Click(Sender: TObject);
begin
   Form_sddwbm:=TForm_sddwbm.create(application); //建立
   Form_sddwbm.showmodal; //以有模式方式显示
   Form_sddwbm.free ;    //释放窗体
end;

procedure TForm_main.N41Click(Sender: TObject);
begin
   Form_dyxm_sd:=TForm_dyxm_sd.create(application); //建立
   Form_dyxm_sd.showmodal; //以有模式方式显示
   Form_dyxm_sd.free ;    //释放窗体
end;

function TForm_main.pm(num_str:string):integer;
var
  i,j:integer;
begin
  try
    i:=strtoint(copy(num_str,4,2));
  except
    i:=8;
  end;
  try
    j:=strtoint(copy(num_str,9,2));
  except
    j:=3;
  end;
  pm:=i*99+j;
end;

procedure TForm_main.N31Click(Sender: TObject);
begin
   Form_renumber:=TForm_renumber.create(application); //建立
   Form_renumber.showmodal; //以有模式方式显示
   Form_renumber.free ;    //释放窗体
end;

end.