insrecord.pas

pasa人力资源考勤管理系统

     Adoinstotal.close;
     Adoinskind.close;
    //datamod.adopersonal.Close;
     forminsrecord:=nil;
     action:=cafree;
end;

procedure TForminsrecord.FormActivate(Sender: TObject);
begin
      Adoinskind.open;
      Adoinskind.first;
      dbcombobox2.Items.Clear;
      dbgrid1.Columns[4].PickList.clear;
      dbgrid1.Columns[5].PickList.clear;
      dbgrid1.Columns[6].PickList.clear;
      dbgrid1.Columns[7].PickList.clear;
      dbgrid2.Columns[4].PickList.clear;
      dbgrid2.Columns[5].PickList.clear;
      dbgrid2.Columns[6].PickList.clear;
      dbgrid2.Columns[7].PickList.clear;
      dbgrid3.Columns[6].PickList.clear;
      dbgrid3.Columns[7].PickList.clear;
      while not Adoinskind.Eof do
      begin
           dbgrid1.Columns[4].PickList.add(Adoinskindinsno.asstring);
           dbcombobox2.Items.Add(Adoinskindinsno.asstring);
           dbgrid1.Columns[5].PickList.add(Adoinskindinsname.asstring);
           dbgrid1.Columns[6].PickList.add(Adoinskindinstype.asstring);
           dbgrid1.Columns[7].PickList.add(Adoinskindinsmoney.asstring);
           dbgrid2.Columns[4].PickList.add(Adoinskindinsno.asstring);
           dbgrid2.Columns[5].PickList.add(Adoinskindinsname.asstring);
           dbgrid2.Columns[6].PickList.add(Adoinskindinstype.asstring);
           dbgrid2.Columns[7].PickList.add(Adoinskindinsmoney.asstring);
           dbgrid3.Columns[6].PickList.add(Adoinskindinsno.asstring);
           dbgrid3.Columns[7].PickList.add(Adoinskindinsname.asstring);
           Adoinskind.next;
      end;
end;

procedure TForminsrecord.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  dbgrid_keypress(sender,key);
end;

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

procedure TForminsrecord.allClick(Sender: TObject);
begin
  if not assigned(forminsdefine) then
    forminsdefine:=TForminsdefine.create(application);
  forminsdefine.groupbox1.visible:=true;
  forminsdefine.groupbox2.visible:=false;
  whichform:='insrecord';
  forminsdefine.Caption:='参保管理-多人新增投保资料';
  //{try
    forminsdefine.show;
  //finally
  //  forminsdefine.Free;
  //end;}
end;

procedure TForminsrecord.ToolButton4Click(Sender: TObject);
begin
  close;
end;

procedure TForminsrecord.ADOinsreturnAfterInsert(DataSet: TDataSet);
begin
     Adoinsreturnreturnrq.AsString:=datetostr(date);
     Adoinsreturnoperator.asstring:=pubworkname;
end;

procedure TForminsrecord.AdoinsrecordworknoChange(Sender: TField);
begin
  with datamod do
   begin
     query1.close;
     query1.sql.text:='select * from per24010 where workno='''+adoinsrecordworkno.asstring+''' and leave=0 ';
     query1.Open;
     if not query1.Eof then
      begin
         Adoinsrecord.FieldByName('cardno').asstring:=query1.fieldbyname('cardno').asstring;
         Adoinsrecord.fieldbyname('name').asstring:=query1.fieldbyname('name').asstring;
      end else
        begin
         application.messagebox('你输入了一个不存在的工号,请重新输入','工号错误',mb_ok+mb_iconerror);
         dbedit1.setfocus;
        end; 
     end;
end;

procedure TForminsrecord.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
      key:=#0;
      case pagecontrol1.ActivePageIndex of
        0: if activecontrol=DBEdit11 then
        begin
           adoinsrecord.edit;
           adoinsrecord.Post;
           adoinsrecord.Append;
           activecontrol:=DBGrid1;
        end;
        1: if activecontrol=DBEdit7 then
        begin
           adoinsreturn.edit;
           adoinsreturn.post;
           adoinsreturn.append;
           activecontrol:=DBGrid2;
        end;
        3: if activecontrol=DBEdit14 then
        begin
           adoinskind.edit;
           adoinskind.post;
           activecontrol:=Panel3;
           adoinskind.append;
        end;
      end;
      selectnext(activecontrol,true,true);
    end;
end;

procedure TForminsrecord.DateTimePicker1Change(Sender: TObject);
begin
     adoinsrecordrq.asdatetime:=datetimepicker1.date;
end;

procedure TForminsrecord.AdoinsrecordAfterInsert(DataSet: TDataSet);
begin
     adoinsrecordrq.asdatetime:=now;
     adoinsrecordoperator.asstring:=pubworkname;
end;

procedure TForminsrecord.AdoinsrecordinsnoChange(Sender: TField);
begin
     with datamod do
     begin
          query1.close;
          query1.sql.text:='select * from ins01010 where insno='''+adoinsrecordinsno.asstring+''' ';
          query1.Open;
          if not query1.Eof then
          begin
               Adoinsrecord.FieldByName('insname').asstring:=query1.fieldbyname('insname').asstring;
               Adoinsrecord.fieldbyname('instype').asstring:=query1.fieldbyname('instype').asstring;
               Adoinsrecord.Fieldbyname('insmoney').asfloat:=Query1.fieldbyname('insmoney').asfloat;
          end else
               application.messagebox('你输入了一个不存在的保险编号,请重新输入','保险编号错误',mb_ok+mb_iconerror);
     end;
end;

procedure TForminsrecord.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
    if button=nbInsert then
      Case Pagecontrol1.ActivePageIndex of
        0: DBEdit1.SetFocus;
        1: DBEdit2.SetFocus;
        3: DBEdit15.SetFocus;
      end;
end;

procedure TForminsrecord.DateTimePicker2Change(Sender: TObject);
begin
   adoinsreturnreturnrq.AsDateTime:=now;
   adoinsreturnoperator.asstring:=pubworkname;
end;

procedure TForminsrecord.ADOinsreturnworknoChange(Sender: TField);
begin
     with datamod do
     begin
          query1.close;
          query1.sql.text:='select * from ins02010 where workno='''+adoinsreturnworkno.asstring+''' ';
          query1.Open;
          if not query1.Eof then
          begin
               Adoinsreturn.Edit;
               Adoinsreturn.FieldByName('cardno').asstring:=query1.fieldbyname('cardno').asstring;
               Adoinsreturn.fieldbyname('name').asstring:=query1.fieldbyname('name').asstring;
               Adoinsreturn.Fieldbyname('insno').asstring:=Query1.fieldbyname('insno').asstring;
               dbcombobox1.items.clear;
               query1.close;
               query1.sql.text:='select * from ins02010 where workno='''+adoinsreturnworkno.asstring+''' ';
               query1.Open;
               while not query1.eof do
               begin
                  dbcombobox1.items.add(Query1.fieldbyname('insno').asstring);
                  query1.next;
               end;
          end else
               application.messagebox('此人没有投保,所以不存在退保,请重新输入','输入错误',mb_ok+mb_iconerror);
     end;
end;

procedure TForminsrecord.ADOinsreturninsnoChange(Sender: TField);
begin
     with datamod do
     begin
          query1.close;
          query1.sql.text:='select * from ins01010 where insno='''+adoinsreturninsno.asstring+''' ';
          query1.Open;
          if not query1.Eof then
          begin
               Adoinsreturn.edit;
               Adoinsreturn.FieldByName('insname').asstring:=query1.fieldbyname('insname').asstring;
               Adoinsreturn.fieldbyname('instype').asstring:=query1.fieldbyname('instype').asstring;
               Adoinsreturn.Fieldbyname('insmoney').asfloat:=Query1.fieldbyname('insmoney').asfloat;
          end else
               application.messagebox('你输入了一个不存在的保险编号,请重新输入','保险编号错误',mb_ok+mb_iconerror);
     end;
end;

procedure TForminsrecord.DBGrid1TitleClick(Column: TColumn);
begin
  if f='DESC' THEN
    F:='ASC'
  ELSE
    F:='DESC';
  CASE pagecontrol1.ActivePageIndex of
  0:adoinsrecord.sort:=column.fieldname+' '+f;
  1:adoinsreturn.sort:=column.fieldname+' '+f;
  2:adoinstotal.sort:=column.fieldname+' '+f;
  3:adoinskind.sort:=column.fieldname+' '+f;
  end;
end;

procedure TForminsrecord.tbnfindClick(Sender: TObject);
begin
  if assigned(formcanfind) then  formcanfind.close;
  case pagecontrol1.ActivePageIndex of
  0:findrecorder(adoinsrecord,'Adoinsrecord','ins02010');
  1:findrecorder(adoinsreturn,'Adoinsreturn','ins03010');
  2:findrecorder(adoinstotal,'Adoinstotal','ins04010');
  3:findrecorder(adoinskind,'Adoinskind','ins01010');
  end;
end;

procedure TForminsrecord.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
        //showmessage('ok!')
     //MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_CONTENTS0038');
    end;
end;

procedure TForminsrecord.ppReport1BeforePrint(Sender: TObject);
var fmat1:string;
begin
  if fmat='/' then
    fmat1:='    /  /  ';
  if fmat='-' then
    fmat1:='    -  -  ';
   pplabel31.caption:=companyname1;
   if (maskedit1.Text<>fmat1) and (maskedit2.Text<>fmat1) then
      pplabel32.caption:=maskedit1.text+'~'+maskedit2.text
   else
      pplabel32.Caption:='';
   pplabel29.caption:='制表人:'+pubworkname;
end;

procedure TForminsrecord.MaskEdit2Exit(Sender: TObject);
var fmat1:string;
begin
  if fmat='/' then
    fmat1:='    /  /  ';
  if fmat='-' then
    fmat1:='    -  -  ';
  if maskedit2.Text <>fmat1 then
    begin
      if isdate(maskedit1.text) and isdate(maskedit2.text) then
        begin
          Adoinsrecord.Filtered :=false;
          Adoinsrecord.Filter :='rq<='''+maskedit2.Text+''' and rq>='''+maskedit1.text+''' ';
          Adoinsrecord.Filtered :=true;
        end;
    end;
end;

procedure TForminsrecord.DateTimePicker3CloseUp(Sender: TObject);
begin
  maskedit1.text:=formatdatetime('yyyy/mm/dd',datetimepicker3.date);
end;

procedure TForminsrecord.DateTimePicker4CloseUp(Sender: TObject);
begin
  maskedit2.text:=formatdatetime('yyyy/mm/dd',datetimepicker4.date);
end;

procedure TForminsrecord.Edit1Exit(Sender: TObject);
begin
  if trim(edit1.text)<>'' then
    begin
      Adoinsrecord.Filtered :=false;
      Adoinsrecord.Filter :='workno='''+edit1.text+''' or cardno='''+edit1.text+''' ';
      Adoinsrecord.Filtered :=true;
    end;
end;

procedure TForminsrecord.DateTimePicker5CloseUp(Sender: TObject);
begin
  maskedit3.text:=formatdatetime('yyyy/mm/dd',datetimepicker5.date);
end;

procedure TForminsrecord.DateTimePicker6CloseUp(Sender: TObject);
begin
  maskedit4.text:=formatdatetime('yyyy/mm/dd',datetimepicker6.date);
end;

procedure TForminsrecord.MaskEdit4Exit(Sender: TObject);
var fmat1:string;
begin
  if fmat='/' then
    fmat1:='    /  /  ';
  if fmat='-' then
    fmat1:='    -  -  ';
  if maskedit4.Text <>fmat1 then
    begin
      if isdate(maskedit3.text) and isdate(maskedit4.text) then
        begin
          ADOinsreturn.Filtered :=false;
          ADOinsreturn.Filter :='returnrq<='''+maskedit4.Text+''' and returnrq>='''+maskedit3.text+''' ';
          ADOinsreturn.Filtered :=true;
        end;
    end;
end;

procedure TForminsrecord.Edit2Exit(Sender: TObject);
begin
  if trim(edit1.text)<>'' then
    begin
      ADOinsreturn.Filtered :=false;
      ADOinsreturn.Filter :='workno='''+edit1.text+''' or cardno='''+edit1.text+''' ';
      ADOinsreturn.Filtered :=true;
    end;
end;

procedure TForminsrecord.Edit3Exit(Sender: TObject);
begin
  if trim(edit1.text)<>'' then
    begin
      Adoinstotal.Filtered :=false;
      Adoinstotal.Filter :='workno='''+edit1.text+''' or cardno='''+edit1.text+''' ';
      Adoinstotal.Filtered :=true;
    end;
end;

procedure TForminsrecord.ppReport2BeforePrint(Sender: TObject);
var fmat1:string;
begin
  if fmat='/' then
    fmat1:='    /  /  ';
  if fmat='-' then
    fmat1:='    -  -  ';
   pplabel20.caption:=companyname1;
   if (maskedit3.Text<>fmat1) and (maskedit4.Text <>fmat1) then
      pplabel21.caption:=maskedit3.text+'~'+maskedit4.text
   else
      pplabel21.Caption:='';
   pplabel24.caption:='制表人:'+pubworkname;
end;

procedure TForminsrecord.ppReport3BeforePrint(Sender: TObject);
begin
   pplabel51.caption:=companyname1;
   pplabel49.caption:='制表人:'+pubworkname;
end;

procedure TForminsrecord.ppReport4BeforePrint(Sender: TObject);
begin
   pplabel61.caption:=companyname1;
   pplabel64.caption:='制表人:'+pubworkname;
end;

procedure TForminsrecord.tbnprintClick(Sender: TObject);
begin
   case pagecontrol1.activepageindex of
     0:
     begin
        ppreport1.DeviceType:='Screen';
        ppreport1.print;
     end;
     1:
     begin
        ppreport2.DeviceType:='Screen';
        ppreport2.print;
     end;
     2:
     begin
        ppreport3.DeviceType:='Screen';
        ppreport3.print;
     end;
     3:
     begin
        ppreport4.DeviceType:='Screen';
        ppreport4.print;
     end;
   end;
end;

procedure TForminsrecord.ppReport1PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

procedure TForminsrecord.ppReport2PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

procedure TForminsrecord.ppReport3PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

procedure TForminsrecord.ppReport4PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

procedure TForminsrecord.ToolButton6Click(Sender: TObject);
var fmat1:string;
begin
  if fmat='/' then
    fmat1:='    /  /  ';
  if fmat='-' then
    fmat1:='    -  -  ';
  case pagecontrol1.ActivePageIndex of
  0:begin
      adoinsrecord.Filtered :=false;
      adoinsrecord.Filter :='';
      adoinsrecord.Filtered :=true;
      maskedit1.text:=fmat1;
      maskedit2.Text:=fmat1;
    end;
  1:begin
      adoinsreturn.Filtered :=false;
      adoinsreturn.Filter :='';
      adoinsreturn.Filtered :=true;
      maskedit3.Text:=fmat1;
      maskedit4.Text:=fmat1;
    end;
  end;
end;

end.