main.pas

pasa人力资源考勤管理系统

               caption:='证件';
               dbnavigator1.DataSource :=dsvisa;   //证件
               show;
             end;
           end
          else
            formallkind7.show;
           formallkind7.PageControl1.ActivePageIndex :=5;
          end;
       8: begin
           if not assigned(formallkind8) then
           begin
             formallkind8:=tformallkind.create(application);
             with formallkind8 do
             begin
               caption:='民族';
               dbnavigator1.DataSource :=dspeople;
               show;
             end;
            end
           else
             formallkind8.show;
           formallkind8.PageControl1.ActivePageIndex :=6;
          end;
       9: begin
           if not assigned(formallkind9) then
            begin
              formallkind9:=tformallkind.create(application);
              with formallkind9 do
              begin
                caption:='外语';
               dbnavigator1.DataSource :=dsforeign;
               show;
              end;
            end
           else
            formallkind9.show;
           formallkind9.PageControl1.ActivePageIndex :=7;
         end;
      10:begin
           if not assigned(formallkind10) then
            begin
              formallkind10:=tformallkind.create(application);
              with formallkind10 do
              begin
               caption:='招聘来源';
               dbnavigator1.DataSource :=dsemploy2;
               show;
              end;
            end
           else
            formallkind10.show;
           formallkind10.PageControl1.ActivePageIndex :=8;
         end;
      end;
end;

//共用参数-薪资基本设定-发薪方式设定
procedure Tformmain.sal_styleClick(Sender: TObject);
begin
  if not assigned(formsalsample) then
    formsalsample:=tformsalsample.create(application);
  formsalsample.show;
end;

//人事主档作业
procedure Tformmain.per_basicClick(Sender: TObject);
begin
  if not assigned(formpeople) then
    formpeople:=tformpeople.create(self);
   menuname:=(Sender as TMenuItem).name;  //传送当前菜单的名称
  formname:=formpeople;
  GetRight(menuname,formname);
  formpeople.show;
  Outlook1.ActiveTab:=1;
end;
//离职作业
procedure Tformmain.per_leaveClick(Sender: TObject);
begin
   if not assigned(formdismiss) then
     formdismiss:=tformdismiss.create(application);
     menuname:=(Sender as TMenuItem).name;
     formname:=formdismiss;
     GetRight(menuname,formname);
     formdismiss.show;
     Outlook1.ActiveTab:=1;
end;

//假别代码
procedure Tformmain.atd_ask_kindClick(Sender: TObject);
begin
 with datamod do
 begin
   if not assigned(formactiveset) then
     formactiveset:=TFormactiveset.create(application);
   formactiveset.pagecontrol1.activepageindex:=(sender as tmenuitem).tag;
   formactiveset.show;
 end;
end;

//考勤参数基本设定
procedure Tformmain.atd_basicClick(Sender: TObject);
begin
  if not assigned(formatdset) then
    formatdset:=Tformatdset.create(self);
     menuname:=(Sender as TMenuItem).name;
    formname:=formatdset;
    GetRight(menuname,formname);
    formatdset.show;
  Outlook1.ActiveTab:=2;
end;

//共用参数--考勤资料设定--班次资料
procedure Tformmain.atd_scheClick(Sender: TObject);
begin
  if not assigned(formschebrow) then
     formschebrow:=TFormschebrow.create(application);
  formschebrow.show;
  Outlook1.ActiveTab:=7;
end;

//考勤作业-卡钟参数设定
procedure Tformmain.atd_clockClick(Sender: TObject);
begin
  if not assigned(formatdclock) then
     formatdclock:=TFormatdclock.create(application);
     menuname:=(Sender as TMenuItem).name;
     formname:=formatdclock;
     GetRight(menuname,formname);
     formatdclock.show;
     Outlook1.ActiveTab:=2;
end;

//奖惩作业
procedure Tformmain.per_rewardClick(Sender: TObject);
begin
  if not assigned(formjiangchen) then
    formjiangchen:=tformjiangchen.create(application);
    menuname:=(Sender as TMenuItem).name;
    formname:=formjiangchen;
    GetRight(menuname,formname);
    formjiangchen.show;
    Outlook1.ActiveTab:=1;
end;
//考勤作业-班次异动作业
procedure Tformmain.changescheClick(Sender: TObject);
begin
   if not assigned(formchangesche) then
      Formchangesche:=TFormchangesche.create(application);
       menuname:=(Sender as TMenuItem).name;
       formname:=formchangesche;
       GetRight(menuname,formname);
      formchangesche.show;
      Outlook1.ActiveTab:=2;
end;

//考勤作业-读卡钟数据
procedure Tformmain.atd_readClick(Sender: TObject);
begin
   if not assigned(formreadrecord) then
     formreadrecord:=TFormreadrecord.create(application);
   formreadrecord.show;
   Outlook1.ActiveTab:=2;
end;
//考勤资料处理
procedure Tformmain.atd_handleClick(Sender: TObject);
begin
  if not assigned(formprocess) then
    formprocess:=TFormprocess.create(application);
  formprocess.show;
  Outlook1.ActiveTab:=2;
end;

//考勤作业-考勤资料维护
procedure Tformmain.atd_atddataClick(Sender: TObject);
begin
   if not assigned(formatddata) then
     formatddata:=TFormatddata.create(application);
     menuname:=(Sender as TMenuItem).name;
     formname:=formatddata;
     GetRight(menuname,formname);
     formatddata.show;
   Outlook1.ActiveTab:=2;
end;

//人事管理--职务异动
procedure Tformmain.per_moveClick(Sender: TObject);
begin
  if not assigned(formprofmove) then
    formprofmove:=tformprofmove.create(application);
    menuname:=(Sender as TMenuItem).name;
    formname:=formprofmove;
    GetRight(menuname,formname);
    formprofmove.show;
  Outlook1.ActiveTab:=1;
end;

//人事管理--调薪
procedure Tformmain.per_adjustClick(Sender: TObject);
begin
   if not assigned(formraisepay) then
   formraisepay:=tformraisepay.create(application);
   menuname:=(Sender as TMenuItem).name;
   formname:=formraisepay;
   GetRight(menuname,formname);
   formraisepay.show;
   Outlook1.ActiveTab:=1;
end;
//人事管理--停薪留职
procedure Tformmain.per_stopClick(Sender: TObject);
begin
  if not assigned(formstoppay) then
    formstoppay:=tformstoppay.create(application);
    menuname:=(Sender as TMenuItem).name;
    formname:=formstoppay;
    GetRight(menuname,formname);
    formstoppay.show;
    Outlook1.ActiveTab:=1;
end;

//考勤作业-加班单维护
procedure Tformmain.atd_overtimeClick(Sender: TObject);
begin
  if not assigned(formot) then
     formot:=TFormot.create(application);
      menuname:=(Sender as TMenuItem).name;
  formname:=formot;
  GetRight(menuname,formname);
  formot.show;
  Outlook1.ActiveTab:=2;
end;
procedure Tformmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if assigned(formpubpersonal) then formpubpersonal.Close;
   action:=cafree;
   formmain:=nil;
end;
//考勤作业-连班单维护
procedure Tformmain.atd_continueClick(Sender: TObject);
begin

end;
//考勤作业-请假单维护
procedure Tformmain.atd_leaveClick(Sender: TObject);
begin
  if not assigned(formask) then
    formask:=TFormask.create(application);
    menuname:=(Sender as TMenuItem).name;
   formname:=formask;
   GetRight(menuname,formname);

  formask.show;
  Outlook1.ActiveTab:=2;
end;
//考勤作业-换班维护作业
procedure Tformmain.changeschementClick(Sender: TObject);
begin
  if not assigned(formchangebc) then
    formchangebc:=TFormchangebc.create(application);
      menuname:=(Sender as TMenuItem).name;
  formname:=formchangebc;
  GetRight(menuname,formname);
  
  formchangebc.show;
  Outlook1.ActiveTab:=2;
end;
//部门行事历
procedure Tformmain.company_dept_celendarClick(Sender: TObject);
begin
   if not assigned(formdeptrecorder) then
     formdeptrecorder:=TFormdeptrecorder.create(application);
   formdeptrecorder.show;
   Outlook1.ActiveTab:=7;
end;

//薪资规定办法
procedure Tformmain.per_methodClick(Sender: TObject);
begin
  if not assigned(formsalaryway) then
    formsalaryway:=tformsalaryway.create(application);
  formsalaryway.show;
  Outlook1.ActiveTab:=1;
end;

//考勤作业-原始资料维护
procedure Tformmain.atd_originaldataClick(Sender: TObject);
begin
   if not assigned(formoriginal) then
      formoriginal:=TFormoriginal.create(application);
   formoriginal.DBGrid1.datasource.DataSet:=datamod.adooriginal;
     menuname:=(Sender as TMenuItem).name;
     formname:=formoriginal;
     GetRight(menuname,formname);

   formoriginal.show;
   Outlook1.ActiveTab:=2;
end;

procedure Tformmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var f:textfile;
    p:string;
    ini:TINIFile;
begin
   if Application.MessageBox('你确定要退出本系统吗？','退出系统', mb_yesno+MB_ICONINFORMATION)=idyes then
   begin
      p:=extractfilepath(application.exename)+'\Log\login.log';
      assignfile(f,p);
      append(f);
      writeln(f,'退出系统时间:'+formatdatetime('yyyy/mm/dd hh:mm:ss',now)+',使用者:'+pubworkname);
      closefile(f);
      p:=extractfilepath(application.exename)+'\Data\system.ini';
      ini:=TINIFile.Create(p);
      ini.writebool('Menu','outlook',outlook1.visible);
      ini.free;
      if assigned(formpubsearch) then
         formpubsearch.Close;
      Canclose:=True
   end
   else
      Canclose:=False;
end;
//厂证作业
procedure Tformmain.cardClick(Sender: TObject);
begin
  if not assigned(formfactory) then
    formfactory:=TFormfactory.create(application);
    menuname:=(Sender as TMenuItem).name;
    formname:=formfactory;
    GetRight(menuname,formname);
    formfactory.show;
    Outlook1.ActiveTab:=4;
end;

//区域代码作业
procedure Tformmain.company_areaClick(Sender: TObject);
begin
  if not assigned(formarrange) then
    formarrange:=tformarrange.create(application);
  formarrange.show;
end;

//宿舍管理
procedure Tformmain.roomClick(Sender: TObject);
begin

end;

//考勤作业-考勤异动资料
procedure Tformmain.atdchangeClick(Sender: TObject);
begin
   if not assigned(formatdchange) then
     formatdchange:=TFormatdchange.Create(Application);
     menuname:=(Sender as TMenuItem).name;
     formname:=formatdchange;
     GetRight(menuname,formname);
     formatdchange.show;
     Outlook1.ActiveTab:=2;
end;

procedure Tformmain.sal_smallClick(Sender: TObject);
begin
  if not assigned(formzeromoney) then
    formzeromoney:=Tformzeromoney.create(self);
  formzeromoney.show;
  Outlook1.ActiveTab:=3;
end;

procedure Tformmain.phrase_setClick(Sender: TObject);