raisepay.pas

pasa人力资源考勤管理系统

     popupmenu2.Items[3].Enabled :=false;
   end
  else begin
    manyfield:=true;
    tbnsort.hint:='取消多字段排序'; //说明现在dbgrid1正处于多字段排序中
    f:='';
    popupmenu2.Items[0].Enabled :=true;
    popupmenu2.Items[1].Enabled :=true;
    popupmenu2.Items[2].Enabled :=true;
    popupmenu2.Items[3].Enabled :=true;
    fcount:=0;
    for i:=1 to 5 do
     begin
      findex[i]:=0;
      fsort[i]:='';
     end;
  end;
end;

procedure Tformraisepay.N1Click(Sender: TObject);
var i:integer;
   dbgrid:Tdbgrid;
begin
  if fcount>0 then
    if db<>pagecontrol1.ActivePageIndex then
     begin
      dbgrid:=tdbgrid(findcomponent('dbgrid'+inttostr(db*2)));
      with dbgrid do
      begin
        for i:=1 to fcount do
          dbgrid.Columns[findex[i]].Color :=clwindow;
      end;
      fcount:=0;
     end;
  db:=pagecontrol1.ActivePageIndex;
  dbgrid:=tdbgrid(findcomponent('dbgrid'+inttostr(db*2)));
  with dbgrid do
  begin
  for i:=1 to fcount do
   if dbgrid.SelectedIndex =findex[i] then
    begin
     fsort[i]:='ASC';
     exit;
    end;
  if fcount<5 then
   begin
    fcount:=fcount+1;
    findex[fcount]:=dbgrid.selectedindex;
    fsort[fcount]:='ASC';
    dbgrid.Columns[dbgrid.selectedindex].Color :=clgray;
   end;
  end;
end;

procedure Tformraisepay.N2Click(Sender: TObject);
var i:integer;
   dbgrid:Tdbgrid;
begin
  if fcount>0 then
    if db<>pagecontrol1.ActivePageIndex then
     begin
      dbgrid:=tdbgrid(findcomponent('dbgrid'+inttostr(db*2)));
      with dbgrid do
      begin
        for i:=1 to fcount do
          dbgrid.Columns[findex[i]].Color :=clwindow;
      end;
      fcount:=0;
     end;
  db:=pagecontrol1.ActivePageIndex;
  dbgrid:=tdbgrid(findcomponent('dbgrid'+inttostr(db*2)));
  with dbgrid do
  begin
  for i:=1 to fcount do
   if dbgrid.SelectedIndex =findex[i] then
    begin
     fsort[i]:='DESC';
     exit;
    end;
  if fcount<5 then
   begin
    fcount:=fcount+1;
    findex[fcount]:=dbgrid.selectedindex;
    fsort[fcount]:='DESC';
    dbgrid.Columns[dbgrid.selectedindex].Color :=clgray;
   end;
  end;
end;

procedure Tformraisepay.N4Click(Sender: TObject);
var i:1..5;
   sortexp:string;
   dbgrid:Tdbgrid;
begin
  if db<>pagecontrol1.ActivePageIndex then
   begin
     dbgrid:=tdbgrid(findcomponent('dbgrid'+inttostr(db*2)));
     with dbgrid do
     begin
      for i:=1 to fcount do
       dbgrid.Columns[findex[i]].Color :=clwindow;
     end;
     fcount:=0;
     exit;
   end;
  sortexp:='';
  for i:=1 to fcount do
  begin
    dbgrid:=tdbgrid(findcomponent('dbgrid'+inttostr(db*2)));
    with dbgrid do
    begin
      if dbgrid.Columns[findex[i]].Color=clgray then
      begin
        sortexp :=sortexp+dbgrid.Columns[findex[i]].FieldName+' '+fsort[i];
        if i<fcount then sortexp:=sortexp+',';
      end;
    end;  
  end;
  if sortexp<>'' then
    case pagecontrol1.ActivePageIndex of
      0: ADOrmoney1.Sort :=sortexp;
      1: ADOraisepay.sort:=sortexp;
    end;
end;

procedure Tformraisepay.N3Click(Sender: TObject);
var i:1..5;
   dbgrid:Tdbgrid;
begin
  dbgrid:=tdbgrid(findcomponent('dbgrid'+inttostr(pagecontrol1.ActivePageIndex*2)));
  with dbgrid do
  begin
   for i:=1 to fcount do
    dbgrid.Columns[findex[i]].Color :=clwindow;
  end;
   fcount:=0;
end;

procedure Tformraisepay.DBGrid2KeyPress(Sender: TObject; var Key: Char);
begin
    dbgrid_keypress(dbgrid2,key);
end;

procedure Tformraisepay.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  (sender as Tpagecontrol).activepage.highlighted:=false;
end;

procedure Tformraisepay.ToolButton3Click(Sender: TObject);
begin
  formtiaoxing:=tformtiaoxing.create(self);
  formtiaoxing.showmodal;
  formtiaoxing.free;
end;


procedure Tformraisepay.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=VK_F1 then
      begin
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_contents0012');
    end;
end;

procedure Tformraisepay.tbnprintClick(Sender: TObject);
begin
  if not assigned(reportformraisepay) then
     reportformraisepay:=Treportformraisepay.create(self);
     reportformraisepay.show;
end;
procedure Tformraisepay.AdoRmoney1tryGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  if not sender.Isnull then
    if sender.asboolean then
      text:='是'
    else
      text:='否';
end;

procedure Tformraisepay.AdoRmoney1trySetText(Sender: TField;
  const Text: String);
begin
  if text='是' then
    sender.asboolean:=true
  else
    sender.asboolean:=false;
end;

procedure Tformraisepay.Edit2Exit(Sender: TObject);
begin
  if trim(edit2.text)<>'' then
  begin
     AdoRaisepay.close;
     AdoRaisepay.commandtext:='select * from per27012 where workno='''+edit2.text+''' or cardno='''+edit2.text+''' or name='''+edit2.text+''' ';
     AdoRaisepay.open;
  end;
end;

procedure Tformraisepay.MaskEdit4Exit(Sender: TObject);
var fmat1:string;
begin
 if fmat='/' then
   fmat1:='    /  /  ';
 if fmat='-' then
   fmat1:='    -  -  ';
  if maskedit4.text<>fmat1 then
    if (not isdate(maskedit3.Text)) or (not isdate(maskedit4.text)) then
      begin
       Application.MessageBox('对不起,您输入的不是有效日期','Warning',mb_ok+mb_iconwarning);
       maskedit3.SetFocus;
      end
    else begin
      AdoRaisepay.close;
      AdoRaisepay.commandtext:='select * from per27012 where checkdate<='''+maskedit4.text+''' and checkdate>='''+maskedit3.text+''' ';
      AdoRaisepay.open;
    end;
end;

procedure Tformraisepay.DateTimePicker6Exit(Sender: TObject);
begin
   maskedit3.text:=datetostr(datetimepicker6.date);
end;

procedure Tformraisepay.DateTimePicker7Exit(Sender: TObject);
begin
   maskedit4.text:=datetostr(datetimepicker7.date);
end;

procedure Tformraisepay.DateTimePicker2CloseUp(Sender: TObject);
begin
   AdoRmoney1checkdate.asstring:=formatdatetime('yyyy/mm/dd',datetimepicker2.date);
end;

procedure Tformraisepay.tbnseeallClick(Sender: TObject);
begin
  AdoRaisepay.close;
 AdoRaisepay.commandtext:='Select * from per27012';
  AdoRaisepay.open;
end;

procedure Tformraisepay.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  case button of
    nbinsert,nbedit:dbedit1.setfocus;
  end;  
end;

procedure Tformraisepay.FormCreate(Sender: TObject);
begin
  adodataset2.close;
  adodataset2.Open;
  adodataset1.Close;
  adodataset1.Open;
  pagecontrol1.activepageindex:=1;
  datamod.ADOpersonal.Open;
  datamod.ADOpersonal.Active:=true;

end;

procedure Tformraisepay.AdoRmoney1worknoChange(Sender: TField);
begin
 datamod.ADOpersonal.Active:=true;
 AdoRmoney1.active:=true;
 adodataset1.Close;
 adodataset1.Open;
  with adoquery1 do
  begin
    sql.Clear;
    sql.Add('select  * from per24010 where workno='''+ADOrmoney1workno.asstring+''' and leave<>1 ');
    open;
    if eof then
      application.messagebox('对不起,没有此工号!','Warning',mb_ok+mb_iconwarning)
    else begin
      adormoney1.edit;
      ADOrmoney1cardno.asstring:=fieldbyname('cardno').asstring;
      ADOrmoney1name.asstring:=fieldbyname('name').asstring;
      //ADOrmoney1deptno.asstring:=fieldbyname('deptno').asstring;
      {ADOrmoney1dept.asstring:=fieldbyname('dept').asstring;
      ADOrmoney1prof.asstring:=fieldbyname('prof').asstring;
      ADOrmoney1basepay.asstring:=fieldbyname('basepay').asstring;
      ADOrmoney1cpgrade.AsString:=fieldbyname('meatmoney').asstring; //职务津贴
      AdoRmoney1deptpay.asstring:=fieldbyname('present').asstring;  //原全勤奖
      ADOrmoney1Ctechpay.asstring:=fieldbyname('insurance').asstring;   //夜宵
      ADOrmoney1techpay.asstring:=fieldbyname('profmoney').asstring;  //资料费
      ADOrmoney1ptechpay.AsString:=fieldbyname('techmoney').asstring; //交通补贴
      ADOrmoney1prof1.AsString:=fieldbyname('yangrao').asstring; //养老保险
    }end;
    close;
  end;
end;




procedure Tformraisepay.wwDBLookupCombo1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if key=VK_Down then
     (Sender as Twwdblookupcombo).dropdown;
end;
procedure Tformraisepay.wwDBLookupCombo2KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if key=VK_Down then
     (Sender as Twwdblookupcombo).dropdown;
end;
procedure Tformraisepay.wwDBLookupCombo3KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
            if key=VK_Down then
     (Sender as Twwdblookupcombo).dropdown;
end;

procedure Tformraisepay.AdoRmoney1BeforePost(DataSet: TDataSet);
begin
 AdoRmoney1.edit;
  AdoRmoney1.FieldByName('operator').AsString:=pubworkname;
  AdoRmoney1.FieldByName('cdate').Asstring:=formatdatetime('yyyy/mm/dd',now);
end;

end.