insrecord.pas

pasa人力资源考勤管理系统

unit insrecord;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, ImgList, DBCtrls, ComCtrls, ToolWin, Menus,
  Grids, DBGrids, Db, ADODB, Mask, ppDB, ppDBPipe, ppDBBDE, ppCtrls,
  ppBands, ppVar, ppPrnabl, ppClass, ppCache, ppComm, ppRelatv, ppProd,
  ppReport;

type
  TForminsrecord = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    TabSheet4: TTabSheet;
    DBGrid4: TDBGrid;
    DSinsrecord: TDataSource;
    ImageList2: TImageList;
    ToolBar1: TToolBar;
    all: TToolButton;
    ToolButton6: TToolButton;
    tbnsort: TToolButton;
    tbnfind: TToolButton;
    tbnprint: TToolButton;
    ToolButton4: TToolButton;
    DBNavigator1: TDBNavigator;
    Adoinsrecord: TADODataSet;
    Adoinsrecordworkno: TStringField;
    Adoinsrecordcardno: TStringField;
    Adoinsrecordname: TStringField;
    Adoinsrecordrq: TStringField;
    Adoinsrecordinsno: TStringField;
    Adoinsrecordinsname: TStringField;
    Adoinsrecordinstype: TStringField;
    Adoinsrecordinsmoney: TBCDField;
    Adoinsrecordinsreason: TStringField;
    Adoinsrecordoperator: TStringField;
    Adoinsrecordmemo: TStringField;
    ADOinsreturn: TADODataSet;
    ADOinsreturnworkno: TStringField;
    ADOinsreturncardno: TStringField;
    ADOinsreturnname: TStringField;
    ADOinsreturnreturnrq: TStringField;
    ADOinsreturninsno: TStringField;
    ADOinsreturninsname: TStringField;
    ADOinsreturninstype: TStringField;
    ADOinsreturninsmoney: TBCDField;
    ADOinsreturninsreason: TStringField;
    ADOinsreturnoperator: TStringField;
    ADOinsreturnmemo: TStringField;
    Adoinstotal: TADODataSet;
    Adoinstotalworkno: TStringField;
    Adoinstotalcardno: TStringField;
    Adoinstotalname: TStringField;
    Adoinstotalrq: TStringField;
    Adoinstotalreturnrq: TStringField;
    Adoinstotalmonths: TBCDField;
    Adoinstotalinsno: TStringField;
    Adoinstotalinsname: TStringField;
    Adoinstotalinstype: TStringField;
    Adoinstotalinsmoney: TBCDField;
    Adoinstotalinstotalmoney: TBCDField;
    Adoinstotaloperator: TStringField;
    ADOinskind: TADODataSet;
    ADOinskindinsno: TStringField;
    ADOinskindinsname: TStringField;
    ADOinskindinsmoney: TBCDField;
    ADOinskindinstype: TStringField;
    Dsinsreturn: TDataSource;
    Dsinstotal: TDataSource;
    Dsinskind: TDataSource;
    Splitter1: TSplitter;
    Panel1: TPanel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    DBComboBox2: TDBComboBox;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    DateTimePicker1: TDateTimePicker;
    Panel2: TPanel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    DBText6: TDBText;
    DBText7: TDBText;
    DBText8: TDBText;
    DBText9: TDBText;
    DBText10: TDBText;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBComboBox1: TDBComboBox;
    DateTimePicker2: TDateTimePicker;
    Splitter2: TSplitter;
    Panel3: TPanel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    DBEdit13: TDBEdit;
    Splitter3: TSplitter;
    DBEdit10: TDBEdit;
    Label23: TLabel;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBComboBox3: TDBComboBox;
    ADOinskindoutmoneyDate: TStringField;
    ppReport1: TppReport;
    ppBDEPipeline1: TppBDEPipeline;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppTitleBand1: TppTitleBand;
    ppLabel1: TppLabel;
    ppDBText1: TppDBText;
    ppLabel2: TppLabel;
    ppDBText3: TppDBText;
    ppLabel4: TppLabel;
    ppDBText4: TppDBText;
    ppLabel5: TppLabel;
    ppDBText6: TppDBText;
    ppLabel7: TppLabel;
    ppDBText7: TppDBText;
    ppLabel8: TppLabel;
    ppDBText8: TppDBText;
    ppLabel9: TppLabel;
    ppDBText9: TppDBText;
    ppLabel10: TppLabel;
    ppDBText10: TppDBText;
    ppLabel11: TppLabel;
    ppLine1: TppLine;
    ppSummaryBand1: TppSummaryBand;
    ppLabel34: TppLabel;
    ppDBCalc3: TppDBCalc;
    ppLabel33: TppLabel;
    ppLine4: TppLine;
    ppLabel32: TppLabel;
    ppLabel31: TppLabel;
    ppLabel27: TppLabel;
    ppLabel28: TppLabel;
    ppSystemVariable7: TppSystemVariable;
    ppLabel29: TppLabel;
    ppLabel30: TppLabel;
    ppSystemVariable8: TppSystemVariable;
    ppLabel3: TppLabel;
    ppDBCalc1: TppDBCalc;
    Panel7: TPanel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Edit1: TEdit;
    Panel4: TPanel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    DateTimePicker5: TDateTimePicker;
    DateTimePicker6: TDateTimePicker;
    MaskEdit3: TMaskEdit;
    MaskEdit4: TMaskEdit;
    Edit2: TEdit;
    Panel5: TPanel;
    Label40: TLabel;
    Label41: TLabel;
    Label45: TLabel;
    Edit3: TEdit;
    ppReport2: TppReport;
    ppBDEPipeline2: TppBDEPipeline;
    ppHeaderBand2: TppHeaderBand;
    ppDetailBand2: TppDetailBand;
    ppTitleBand2: TppTitleBand;
    ppLabel6: TppLabel;
    ppDBText2: TppDBText;
    ppLabel12: TppLabel;
    ppDBText5: TppDBText;
    ppLabel13: TppLabel;
    ppDBText11: TppDBText;
    ppLabel14: TppLabel;
    ppDBText12: TppDBText;
    ppLabel15: TppLabel;
    ppDBText13: TppDBText;
    ppLabel16: TppLabel;
    ppDBText14: TppDBText;
    ppLabel17: TppLabel;
    ppDBText15: TppDBText;
    ppLabel18: TppLabel;
    ppDBText16: TppDBText;
    ppLabel19: TppLabel;
    ppLine2: TppLine;
    ppSummaryBand2: TppSummaryBand;
    ppLabel20: TppLabel;
    ppLabel21: TppLabel;
    ppLabel22: TppLabel;
    ppLabel23: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppLabel24: TppLabel;
    ppLabel25: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    ppDBCalc4: TppDBCalc;
    ppLabel36: TppLabel;
    ppLabel26: TppLabel;
    ppDBCalc2: TppDBCalc;
    ppLabel35: TppLabel;
    ppLine3: TppLine;
    ppBDEPipeline3: TppBDEPipeline;
    ppReport3: TppReport;
    ppHeaderBand3: TppHeaderBand;
    ppDetailBand3: TppDetailBand;
    ppTitleBand3: TppTitleBand;
    ppLabel37: TppLabel;
    ppDBText17: TppDBText;
    ppLabel38: TppLabel;
    ppDBText18: TppDBText;
    ppLabel39: TppLabel;
    ppDBText19: TppDBText;
    ppLabel40: TppLabel;
    ppDBText20: TppDBText;
    ppLabel41: TppLabel;
    ppDBText21: TppDBText;
    ppLabel42: TppLabel;
    ppDBText22: TppDBText;
    ppLabel43: TppLabel;
    ppDBText23: TppDBText;
    ppLabel44: TppLabel;
    ppDBText24: TppDBText;
    ppLabel45: TppLabel;
    ppDBText25: TppDBText;
    ppLabel46: TppLabel;
    ppLine5: TppLine;
    ppSummaryBand3: TppSummaryBand;
    ppDBCalc5: TppDBCalc;
    ppLabel52: TppLabel;
    ppLabel53: TppLabel;
    ppDBCalc6: TppDBCalc;
    ppLabel54: TppLabel;
    ppLine6: TppLine;
    ppLabel47: TppLabel;
    ppLabel48: TppLabel;
    ppSystemVariable3: TppSystemVariable;
    ppLabel49: TppLabel;
    ppLabel50: TppLabel;
    ppSystemVariable4: TppSystemVariable;
    ppLabel51: TppLabel;
    ppReport4: TppReport;
    ppBDEPipeline4: TppBDEPipeline;
    ppHeaderBand4: TppHeaderBand;
    ppDetailBand4: TppDetailBand;
    ppTitleBand4: TppTitleBand;
    ppLabel55: TppLabel;
    ppDBText26: TppDBText;
    ppLabel56: TppLabel;
    ppDBText27: TppDBText;
    ppLabel57: TppLabel;
    ppDBText28: TppDBText;
    ppLabel58: TppLabel;
    ppDBText29: TppDBText;
    ppLabel59: TppLabel;
    ppDBText30: TppDBText;
    ppLabel60: TppLabel;
    ppLine7: TppLine;
    ppSummaryBand4: TppSummaryBand;
    ppLabel71: TppLabel;
    ppDBCalc8: TppDBCalc;
    ppLabel72: TppLabel;
    ppLine8: TppLine;
    ppLabel61: TppLabel;
    ppLabel62: TppLabel;
    ppLabel63: TppLabel;
    ppSystemVariable5: TppSystemVariable;
    ppLabel64: TppLabel;
    ppLabel65: TppLabel;
    ppSystemVariable6: TppSystemVariable;
    procedure PageControl1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure allClick(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ADOinsreturnAfterInsert(DataSet: TDataSet);
    procedure AdoinsrecordworknoChange(Sender: TField);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure AdoinsrecordAfterInsert(DataSet: TDataSet);
    procedure AdoinsrecordinsnoChange(Sender: TField);
    procedure DBNavigator1BeforeAction(Sender: TObject;
      Button: TNavigateBtn);
    procedure DateTimePicker2Change(Sender: TObject);
    procedure ADOinsreturnworknoChange(Sender: TField);
    procedure ADOinsreturninsnoChange(Sender: TField);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure tbnfindClick(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ppReport1BeforePrint(Sender: TObject);
    procedure MaskEdit2Exit(Sender: TObject);
    procedure DateTimePicker3CloseUp(Sender: TObject);
    procedure DateTimePicker4CloseUp(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure DateTimePicker5CloseUp(Sender: TObject);
    procedure DateTimePicker6CloseUp(Sender: TObject);
    procedure MaskEdit4Exit(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
    procedure ppReport2BeforePrint(Sender: TObject);
    procedure ppReport3BeforePrint(Sender: TObject);
    procedure ppReport4BeforePrint(Sender: TObject);
    procedure tbnprintClick(Sender: TObject);
    procedure ppReport1PreviewFormCreate(Sender: TObject);
    procedure ppReport2PreviewFormCreate(Sender: TObject);
    procedure ppReport3PreviewFormCreate(Sender: TObject);
    procedure ppReport4PreviewFormCreate(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    f:string;
  end;

var
  Forminsrecord: TForminsrecord;

implementation

uses datamol,main,publicfunction, insdefine, canfind;
{$R *.DFM}

procedure TForminsrecord.PageControl1Change(Sender: TObject);
begin
   (sender as Tpagecontrol).activepage.highlighted:=true;
      case pagecontrol1.ActivePageIndex of
        0:
        begin
             all.enabled:=true;
             DBNavigator1.DataSource:=dsinsrecord;
        end;
        1:
        begin
             all.Enabled:=false;
             DBNavigator1.DataSource:=dsinsreturn;
        end;
        2:
        begin
             all.Enabled:=false;
             DBNavigator1.DataSource:=dsinstotal;
             adoinstotal.DisableControls;
             adoinstotal.close;
             inscal;    //汇总投保资料
             Adoinstotal.Open;
             Adoinstotal.EnableControls;
        end;
        3:
        begin
             all.Enabled:=false;
             DBNavigator1.DataSource:=dsinskind;
        end;
      end;
      Adoinskind.first;
      dbgrid1.Columns[4].PickList.clear;
      dbcombobox2.items.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.FormCreate(Sender: TObject);
begin
  adoinsrecord.Open;
  datamod.adopersonal.Open;
  pagecontrol1.ActivePageIndex:=0;
  maskedit1.Text:=datetostr(date);
  maskedit2.Text:=datetostr(date);
  maskedit3.Text:=datetostr(date);
  maskedit4.Text:=datetostr(date);
  Adoinsrecord.Filtered :=false;
  Adoinsrecord.Filter :='rq<='''+maskedit2.Text+''' and rq>='''+maskedit1.text+''' ';
  Adoinsrecord.Filtered :=true;
  adoinsreturn.Open;
  ADOinsreturn.Filtered :=false;
  ADOinsreturn.Filter :='returnrq<='''+maskedit4.Text+''' and returnrq>='''+maskedit3.text+''' ';
  ADOinsreturn.Filtered :=true;
end;

procedure TForminsrecord.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
     adoinsrecord.close;
     Adoinsrecord.open;
     Adoinsrecord.Close;
     Adoinsreturn.close;