sendcard.pas

pasa人力资源考勤管理系统

unit sendcard;

interface

uses
  Windows, Messages, Sysutils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ToolWin, Db, ADODB, Grids, Wwdbigrd, Wwdbgrid, StdCtrls,
  wwdblook, DBActns, ActnList, EastRiver, Buttons, Mask, DBGrids, ExtCtrls,
  DBCtrls,shellapi, ppCtrls, ppBands, ppClass, ppPrnabl, ppCache, ppProd,
  ppReport, ppDB, ppComm, ppRelatv, ppDBPipe, ppDBBDE;
type
  Tformcard = class(TForm)
    ADODataSet5: TADODataSet;
    ADODataSet5workno: TStringField;
    ADODataSet5cardno: TStringField;
    ADODataSet5name: TStringField;
    ADOQrymealcard: TADODataSet;
    ADOQrymealcardcardno: TStringField;
    ADOQrymealcardname: TStringField;
    ADOQrymealcarddept: TStringField;
    ADOQrymealcardprof: TStringField;
    ADOQrymealcardworkno: TStringField;
    DataSource4: TDataSource;
    ToolBar1: TToolBar;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ADODataSet5prof: TStringField;
    ADODataSet5dept: TStringField;
    ADOQrymealcardcardkind: TStringField;
    ADOQrymealcardreadok: TBooleanField;
    ADOQrymealcardmoney: TBCDField;
    ADOQrymealcardtimes: TIntegerField;
    ADOQrymealcardedICCardPwd: TStringField;
    pagecontrol1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox5: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    cbComPort: TComboBox;
    cbComRate: TComboBox;
    edClock_id: TMaskEdit;
    btnConnect: TButton;
    udClock_id: TUpDown;
    btnDisConnect: TButton;
    DBGrid1: TDBGrid;
    ToolButton13: TToolButton;
    readcard: TToolButton;
    cardno1: TEdit;
    name1: TEdit;
    Money1: TEdit;
    times1: TEdit;
    ComboBox1: TComboBox;
    ADOQrymealcardmoney1: TBCDField;
    ADOQrymealcardmoney2: TBCDField;
    ADOQrymealcarddecmoney: TBCDField;
    TabSheet3: TTabSheet;
    ADODataSet1: TADODataSet;
    ADODataSet1workno: TStringField;
    ADODataSet1cardno: TStringField;
    ADODataSet1dept: TStringField;
    ADODataSet1prof: TStringField;
    ADODataSet1name: TStringField;
    ADODataSet1cardkind: TStringField;
    ADODataSet1readok: TBooleanField;
    ADODataSet1money: TBCDField;
    ADODataSet1rq: TDateTimeField;
    ADODataSet1cdate: TDateTimeField;
    ADODataSet1operator: TStringField;
    DataSource1: TDataSource;
    Panel1: TPanel;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    Label14: TLabel;
    DBText6: TDBText;
    Label16: TLabel;
    DBText2: TDBText;
    Label17: TLabel;
    DBText3: TDBText;
    Label5: TLabel;
    DBEdit3: TDBEdit;
    DateTimePicker1: TDateTimePicker;
    Label6: TLabel;
    Label13: TLabel;
    DBText4: TDBText;
    Label18: TLabel;
    DBText5: TDBText;
    ADODataSet2: TADODataSet;
    DBEdit1: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    DBText1: TDBText;
    DBGrid2: TDBGrid;
    DBEdit4: TDBEdit;
    ADODataSet1timesum: TIntegerField;
    Label9: TLabel;
    ComboBox2: TComboBox;
    ADODataSet1times: TIntegerField;
    ADODataSet1edICCardPwd: TStringField;
    DBNavigator1: TDBNavigator;
    TabSheet4: TTabSheet;
    Panel2: TPanel;
    Label10: TLabel;
    Label11: TLabel;
    DBText7: TDBText;
    Label12: TLabel;
    DBText8: TDBText;
    Label15: TLabel;
    DBText9: TDBText;
    Label19: TLabel;
    Label21: TLabel;
    DBText10: TDBText;
    Label22: TLabel;
    DBText11: TDBText;
    Label23: TLabel;
    Label24: TLabel;
    DBText12: TDBText;
    Label25: TLabel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DateTimePicker2: TDateTimePicker;
    DBEdit7: TDBEdit;
    ComboBox3: TComboBox;
    DBGrid3: TDBGrid;
    ADODataSet3: TADODataSet;
    adodataset3workno: TStringField;
    adodataset3cardno: TStringField;
    adodataset3dept: TStringField;
    adodataset3prof: TStringField;
    adodataset3name: TStringField;
    adodataset3cardkind: TStringField;
    adodataset3money: TBCDField;
    adodataset3rq: TDateTimeField;
    adodataset3cdate: TDateTimeField;
    adodataset3operator: TStringField;
    adodataset3timesum: TIntegerField;
    adodataset3ediccardpwd: TStringField;
    DataSource2: TDataSource;
    TabSheet5: TTabSheet;
    Panel3: TPanel;
    Label20: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Edit1: TEdit;
    MaskEdit1: TMaskEdit;
    DateTimePicker3: TDateTimePicker;
    MaskEdit2: TMaskEdit;
    DateTimePicker4: TDateTimePicker;
    ComboBox5: TComboBox;
    RadioGroup1: TRadioGroup;
    DBGrid4: TDBGrid;
    DataSource3: TDataSource;
    ADOdaycong: TADODataSet;
    TabSheet6: TTabSheet;
    Panel4: TPanel;
    Label29: TLabel;
    Label30: TLabel;
    Edit2: TEdit;
    MaskEdit3: TMaskEdit;
    ComboBox4: TComboBox;
    RadioGroup2: TRadioGroup;
    Label31: TLabel;
    DBGrid5: TDBGrid;
    count: TToolButton;
    ADOQuery1: TADOQuery;
    ADOmoncong: TADODataSet;
    DataSource5: TDataSource;
    ADOdaytuikuan: TADODataSet;
    ADOmontuikuan: TADODataSet;
    ADOdaycongworkno: TStringField;
    ADOdaycongcardno: TStringField;
    ADOdaycongdept: TStringField;
    ADOdaycongprof: TStringField;
    ADOdaycongname: TStringField;
    ADOdaycongmoney: TBCDField;
    ADOdaycongrq: TDateTimeField;
    ADOdaycongtimesum: TIntegerField;
    ADOdaytuikuanworkno: TStringField;
    ADOdaytuikuancardno: TStringField;
    ADOdaytuikuandept: TStringField;
    ADOdaytuikuanprof: TStringField;
    ADOdaytuikuanname: TStringField;
    ADOdaytuikuanmoney: TBCDField;
    ADOdaytuikuanrq: TDateTimeField;
    ADOmoncongworkno: TStringField;
    ADOmoncongcardno: TStringField;
    ADOmoncongdept: TStringField;
    ADOmoncongprof: TStringField;
    ADOmoncongname: TStringField;
    ADOmoncongmoney: TBCDField;
    ADOmoncongmonthy: TStringField;
    ADOmoncongtimesum: TIntegerField;
    ADOmontuikuanworkno: TStringField;
    ADOmontuikuancardno: TStringField;
    ADOmontuikuandept: TStringField;
    ADOmontuikuanprof: TStringField;
    ADOmontuikuanname: TStringField;
    ADOmontuikuanmoney: TBCDField;
    ADOmontuikuanmonthy: TStringField;
    DBGrid6: TDBGrid;
    Splitter1: TSplitter;
    ADODataSet4: TADODataSet;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    StringField5: TStringField;
    BCDField1: TBCDField;
    DateTimeField1: TDateTimeField;
    ADODataSet6: TADODataSet;
    StringField6: TStringField;
    StringField7: TStringField;
    StringField8: TStringField;
    StringField9: TStringField;
    StringField10: TStringField;
    BCDField2: TBCDField;
    DateTimeField2: TDateTimeField;
    IntegerField1: TIntegerField;
    DataSource6: TDataSource;
    print: TToolButton;
    ppBDEPipeline1: TppBDEPipeline;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppGroup1: TppGroup;
    ppGroupHeaderBand1: TppGroupHeaderBand;
    ppGroupFooterBand1: TppGroupFooterBand;
    ppLabel2: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLine1: TppLine;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppLabel3: TppLabel;
    ppDBText8: TppDBText;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppReport2: TppReport;
    ppHeaderBand2: TppHeaderBand;
    ppLabel12: TppLabel;
    ppLabel13: TppLabel;
    ppLabel14: TppLabel;
    ppDetailBand2: TppDetailBand;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    ppDBText12: TppDBText;
    ppDBText14: TppDBText;
    ppDBText15: TppDBText;
    ppFooterBand2: TppFooterBand;
    ppGroup2: TppGroup;
    ppGroupHeaderBand2: TppGroupHeaderBand;
    ppLabel15: TppLabel;
    ppDBText16: TppDBText;
    ppLine2: TppLine;
    ppLabel16: TppLabel;
    ppLabel17: TppLabel;
    ppLabel19: TppLabel;
    ppLabel20: TppLabel;
    ppLabel21: TppLabel;
    ppLabel22: TppLabel;
    ppGroupFooterBand2: TppGroupFooterBand;
    ppBDEPipeline2: TppBDEPipeline;
    ppReport3: TppReport;
    ppHeaderBand3: TppHeaderBand;
    ppLabel18: TppLabel;
    ppLabel23: TppLabel;
    ppLabel24: TppLabel;
    ppDetailBand3: TppDetailBand;
    ppDBText13: TppDBText;
    ppDBText17: TppDBText;
    ppDBText18: TppDBText;
    ppDBText19: TppDBText;
    ppDBText20: TppDBText;
    ppDBText21: TppDBText;
    ppFooterBand3: TppFooterBand;
    ppGroup3: TppGroup;
    ppGroupHeaderBand3: TppGroupHeaderBand;
    ppLabel25: TppLabel;
    ppDBText22: TppDBText;
    ppLine3: TppLine;
    ppLabel26: TppLabel;
    ppLabel27: TppLabel;
    ppLabel28: TppLabel;
    ppLabel29: TppLabel;
    ppLabel30: TppLabel;
    ppLabel31: TppLabel;
    ppGroupFooterBand3: TppGroupFooterBand;
    ppReport4: TppReport;
    ppHeaderBand4: TppHeaderBand;
    ppLabel32: TppLabel;
    ppLabel33: TppLabel;
    ppLabel34: TppLabel;
    ppDetailBand4: TppDetailBand;
    ppDBText23: TppDBText;
    ppDBText24: TppDBText;
    ppDBText25: TppDBText;
    ppDBText26: TppDBText;
    ppDBText27: TppDBText;
    ppDBText28: TppDBText;
    ppFooterBand4: TppFooterBand;
    ppGroup4: TppGroup;
    ppGroupHeaderBand4: TppGroupHeaderBand;
    ppLabel35: TppLabel;
    ppDBText29: TppDBText;
    ppLine4: TppLine;
    ppLabel36: TppLabel;
    ppLabel37: TppLabel;
    ppLabel38: TppLabel;
    ppLabel39: TppLabel;
    ppLabel40: TppLabel;
    ppLabel41: TppLabel;
    ppGroupFooterBand4: TppGroupFooterBand;
    ppLabel45: TppLabel;
    ppDBCalc3: TppDBCalc;
    ppLabel46: TppLabel;
    ppLabel47: TppLabel;
    ppDBCalc4: TppDBCalc;
    ppLabel48: TppLabel;
    ppDBCalc5: TppDBCalc;
    ppLabel49: TppLabel;
    ppLabel50: TppLabel;
    ppDBCalc6: TppDBCalc;
    ppLabel51: TppLabel;
    ppDBCalc7: TppDBCalc;
    ppLabel52: TppLabel;
    ppLabel53: TppLabel;
    ppDBCalc8: TppDBCalc;
    ppSummaryBand1: TppSummaryBand;
    ppLabel42: TppLabel;
    ppDBCalc1: TppDBCalc;
    ppLabel43: TppLabel;
    ppLabel44: TppLabel;
    ppDBCalc2: TppDBCalc;
    ppSummaryBand2: TppSummaryBand;
    ppSummaryBand3: TppSummaryBand;
    ppSummaryBand4: TppSummaryBand;
    ADODataSet1reson: TStringField;
    Label33: TLabel;
    DBEdit9: TDBEdit;
    ADODataSet3reson: TStringField;
    TabSheet7: TTabSheet;
    DBGrid7: TDBGrid;
    Panel5: TPanel;
    Label32: TLabel;
    Label34: TLabel;
    DBText13: TDBText;
    Label35: TLabel;
    DBText14: TDBText;
    Label36: TLabel;
    DBText15: TDBText;
    Label39: TLabel;
    DBText16: TDBText;
    Label40: TLabel;
    DBText17: TDBText;
    Label42: TLabel;
    DBText18: TDBText;
    DBEdit8: TDBEdit;
    DBEdit11: TDBEdit;
    Label41: TLabel;
    ADOguasi: TADODataSet;
    Dsguasi: TDataSource;
    ADOguasiworkno: TStringField;
    ADOguasicardno: TStringField;
    ADOguasidept: TStringField;
    ADOguasiprof: TStringField;
    ADOguasiname: TStringField;
    ADOguasimoney: TBCDField;
    ADOguasioperator: TStringField;
    ADOguasicdate: TDateTimeField;
    DBEdit10: TDBEdit;
    Label37: TLabel;
    TabSheet8: TTabSheet;
    DBGrid8: TDBGrid;
    Panel6: TPanel;
    Label38: TLabel;
    Label43: TLabel;
    DBText19: TDBText;
    Label44: TLabel;
    DBText20: TDBText;
    Label45: TLabel;
    DBText21: TDBText;
    Label46: TLabel;
    DBText22: TDBText;
    Label47: TLabel;
    DBText23: TDBText;
    Label48: TLabel;
    DBText24: TDBText;
    DBEdit12: TDBEdit;
    ADOjieguasi: TADODataSet;
    Dsjieguasi: TDataSource;
    ADOjieguasiworkno: TStringField;
    ADOjieguasicardno: TStringField;
    ADOjieguasidept: TStringField;
    ADOjieguasiprof: TStringField;
    ADOjieguasiname: TStringField;
    ADOjieguasioperator: TStringField;
    ADOjieguasicdate: TDateTimeField;
    Panel7: TPanel;
    Label49: TLabel;
    Edit3: TEdit;
    Panel8: TPanel;
    Label50: TLabel;
    Edit4: TEdit;
    ADOguasimach: TStringField;
    ADOjieguasimach: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure wwDBLookupCombo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ToolButton8Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ADOQrymealcardworknoChange(Sender: TField);
    procedure btnConnectClick(Sender: TObject);
    procedure btnDisConnectClick(Sender: TObject);
    procedure ADOQrymealcardAfterPost(DataSet: TDataSet);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure ToolButton13Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure readcardClick(Sender: TObject);
    procedure ADOQrymealcardmoneyChange(Sender: TField);
    procedure ADOQrymealcarddecmoneyChange(Sender: TField);
    procedure ADODataSet1worknoChange(Sender: TField);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure pagecontrol1Change(Sender: TObject);
    procedure adodataset3worknoChange(Sender: TField);
    procedure countClick(Sender: TObject);
    procedure ComboBox5Exit(Sender: TObject);
    procedure ComboBox4Exit(Sender: TObject);
    procedure ppReport1BeforePrint(Sender: TObject);
    procedure ppReport1PreviewFormCreate(Sender: TObject);
    procedure ppReport2BeforePrint(Sender: TObject);
    procedure ppReport2PreviewFormCreate(Sender: TObject);