datamol.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 1,752 行 · 第 1/5 页

unit datamol;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, ADODB,DBCtrls,StdCtrls;
type
  TDataMod = class(TDataModule)
    Database1: TADOConnection;
    Query1: TADOQuery;
    ADOQuery1: TADOQuery;
    Dspermove: TDataSource;
    Adopermove: TADODataSet;
    AdopermoveID: TBCDField;
    Adopermoveworkno: TStringField;
    Adopermovefieldname: TStringField;
    Adopermovefieldvalue: TVarBytesField;
    AdopermoveFielddate: TDateTimeField;
    Adopermovechangedate: TDateTimeField;
    Adopermovewho: TStringField;
    DSdept: TDataSource;
    Qrydept: TADOQuery;
    DSpersonal: TDataSource;
    DSjiangchen: TDataSource;
    DSjckind: TDataSource;
    DSadvance: TDataSource;
    DSraisepay: TDataSource;
    DSdismiss: TDataSource;
    Dsdismiss1: TDataSource;
    DSstoppay: TDataSource;
    Dscomrecorder: TDataSource;
    DSdeptrecorder: TDataSource;
    Dsroom1: TDataSource;
    Adoroom2: TADODataSet;
    Dsroom2: TDataSource;
    Adoroomnow: TADODataSet;
    Dsroomnow: TDataSource;
    Qrydeptdno: TStringField;
    Qrydeptdept: TStringField;
    Qrydeptsumperson: TBCDField;
    Adoroomnowroomno: TStringField;
    Adoroomnowroomcan: TIntegerField;
    Adoroomnowroomkind: TStringField;
    Adoroomnowmoney: TIntegerField;
    Adoroomnowmemo: TStringField;
    Adoroom2roomno: TStringField;
    Adoroom2bedno: TStringField;
    Adoroom2workno: TStringField;
    Adoroom2name: TStringField;
    Adoroom2sexname: TStringField;
    Adoroom2deptno: TStringField;
    Adoroom2prof: TStringField;
    Adoroom2roomer: TBooleanField;
    ADOQuery2: TADOQuery;
    Query2: TADOQuery;
    Dsempreq: TDataSource;
    Dsempreq1: TDataSource;
    Dsempplan1: TDataSource;
    Dsempplan: TDataSource;
    Dsempsave: TDataSource;
    ADOhistory: TADODataSet;
    Dshistory: TDataSource;
    ADOhistorynum: TBCDField;
    ADOhistoryTablenameE: TStringField;
    ADOhistoryTablenameC: TStringField;
    ADOhistorywho: TStringField;
    ADOhistorysubject: TMemoField;
    Query3: TADOQuery;
    Dsrmoney: TDataSource;
    Dsrmoney1: TDataSource;
    ADOhistorystate: TStringField;
    Dsexchange: TDataSource;
    DSempface: TDataSource;
    Dsmanchange: TDataSource;
    Qrydeptoperator: TStringField;
    Qrydeptcdate: TStringField;
    DsdeptA: TDataSource;
    DSatdset: TDataSource;
    DSbc: TDataSource;
    DSclock: TDataSource;
    DSchangesche: TDataSource;
    DSOriginal: TDataSource;
    DSpublic: TDataSource;
    DSot: TDataSource;
    DSlianban: TDataSource;
    DSask: TDataSource;
    DSchangebc: TDataSource;
    DSresult: TDataSource;
    DSborrow: TDataSource;
    DSproduct: TDataSource;
    DSyear: TDataSource;
    DSend: TDataSource;
    DSsalset: TDataSource;
    Dsdaytotal: TDataSource;
    Dsatddata: TDataSource;
    DSsmoney: TDataSource;
    DSsaltotalot: TDataSource;
    DScompany: TDataSource;
    ADOhistoryEdate: TStringField;
    Dsmealclock: TDataSource;
    ADOpersonal: TADODataSet;
    ADOpersonalworkno: TStringField;
    ADOpersonalcardno: TStringField;
    ADOpersonalname: TStringField;
    ADOpersonaldeptno: TStringField;
    ADOpersonaldept: TStringField;
    ADOpersonalprof: TStringField;
    ADOpersonalgradename: TStringField;
    ADOpersonalsexname: TStringField;
    ADOpersonalbirthday: TDateTimeField;
    ADOpersonalage: TIntegerField;
    ADOpersonalmarry: TBooleanField;
    ADOpersonalpeopleID: TStringField;
    ADOpersonalprovname: TStringField;
    ADOpersonalpeople: TStringField;
    ADOpersonalhomeadd: TStringField;
    ADOpersonalreladd: TStringField;
    ADOpersonalreltel1: TStringField;
    ADOpersonalreltel2: TStringField;
    ADOpersonalreltel3: TStringField;
    ADOpersonalreltel4: TStringField;
    ADOpersonaldegreename: TStringField;
    ADOpersonalcoursename: TStringField;
    ADOpersonalvisa: TStringField;
    ADOpersonalforeignlan: TStringField;
    ADOpersonalindate: TDateTimeField;
    ADOpersonalleave: TBooleanField;
    ADOpersonalyears: TFloatField;
    ADOpersonalspecname1: TStringField;
    ADOpersonalspecname2: TStringField;
    ADOpersonalspecname3: TStringField;
    ADOpersonalspecname4: TStringField;
    ADOpersonalexperince: TMemoField;
    ADOpersonalintroduce1: TStringField;
    ADOpersonalrelation1: TStringField;
    ADOpersonalintroduce2: TStringField;
    ADOpersonalrelation2: TStringField;
    ADOpersonalmemo: TStringField;
    ADOpersonaltry: TBooleanField;
    ADOpersonalbrushcard: TBooleanField;
    ADOpersonalscheno: TStringField;
    ADOpersonaldothing: TStringField;
    ADOpersonalfactorykind: TStringField;
    ADOpersonaluniversity: TStringField;
    ADOpersonaldayormon: TBooleanField;
    ADOpersonaloperator: TStringField;
    ADOjiangchen: TADODataSet;
    ADOjiangchenrno: TStringField;
    ADOjiangchenworkno: TStringField;
    ADOjiangchenname: TStringField;
    ADOjiangchenprof: TStringField;
    ADOjiangchendept: TStringField;
    ADOjiangchenJCdate: TDateTimeField;
    ADOjiangchenJCname: TStringField;
    ADOjiangchenJCkind: TStringField;
    ADOjiangchenJCtimes: TIntegerField;
    ADOjiangchenJCmoney: TBCDField;
    ADOjiangchenCdate: TDateTimeField;
    ADOjiangchenoperator: TStringField;
    ADOjckind: TADODataSet;
    Adoadvance: TADODataSet;
    Adoadvanceid: TStringField;
    Adoadvanceworkno: TStringField;
    Adoadvancecardno: TStringField;
    Adoadvancename: TStringField;
    Adoadvancedept: TStringField;
    Adoadvanceprof: TStringField;
    AdoadvanceLdept: TStringField;
    AdoadvanceLprof: TStringField;
    Adoadvanceusefuldate: TDateTimeField;
    Adoadvancemovekind: TStringField;
    Adoadvancecdate: TDateTimeField;
    Adoadvanceoperator: TStringField;
    Adoraisepay: TADODataSet;
    Adoraisepayid: TStringField;
    Adoraisepayworkno: TStringField;
    Adoraisepaycardno: TStringField;
    Adoraisepayname: TStringField;
    Adoraisepaydeptno: TStringField;
    Adoraisepayprof: TStringField;
    Adoraisepaygradename: TStringField;
    Adoraisepaybasepay: TBCDField;
    Adoraisepayprofpay: TBCDField;
    Adoraisepaytechpay: TBCDField;
    Adoraisepaydeptpay: TBCDField;
    Adoraisepaypwho: TStringField;
    Adoraisepaypdate: TStringField;
    Adoraisepaycheckresult: TBooleanField;
    Adoraisepaycpgrade: TStringField;
    AdoraisepayCbasepay: TBCDField;
    AdoraisepayCprofpay: TBCDField;
    AdoraisepayCtechpay: TBCDField;
    AdoraisepayCdeptpay: TBCDField;
    AdoraisepayCpusedate: TStringField;
    Adoraisepaycheckdate: TStringField;
    Adoraisepaycheckman: TStringField;
    Adoraisepaycdate: TStringField;
    Adoraisepayoperator: TStringField;
    Adoraisepaytry: TBooleanField;
    Adodismiss: TADODataSet;
    Adodismissworkno: TStringField;
    Adodismisscardno: TStringField;
    Adodismissname: TStringField;
    Adodismissdept: TStringField;
    Adodismissprof: TStringField;
    AdodismissDplan: TDateTimeField;
    Adodismissreason: TStringField;
    Adodismissleavekind: TStringField;
    Adodismisschecked: TBooleanField;
    Adodismissagreedate: TDateTimeField;
    Adodismisscheckman: TStringField;
    Adodismisscheckdate: TDateTimeField;
    Adodismisscdate: TDateTimeField;
    Adodismissoperator: TStringField;
    Adodept: TADODataSet;
    Adodeptdno: TStringField;
    Adodeptdept: TStringField;
    Adodeptsumperson: TBCDField;
    Adodeptoperator: TStringField;
    Adodeptcdate: TStringField;
    Adodismiss1: TADODataSet;
    Adostoppay: TADODataSet;
    Adostoppayid: TStringField;
    Adostoppayworkno: TStringField;
    Adostoppaycardno: TStringField;
    Adostoppayname: TStringField;
    Adostoppaydeptno: TStringField;
    Adostoppayprof: TStringField;
    Adostoppaywhy: TStringField;
    Adostoppaycheckman: TStringField;
    Adostoppaymemo: TStringField;
    Adostoppayoperator: TStringField;
    ADOcomrecorder: TADODataSet;
    ADOcomrecordercomcode: TStringField;
    ADOcomrecordercodename: TStringField;
    ADOcomrecordercomdate: TStringField;
    ADOcomrecordercomweek: TStringField;
    ADOcomrecordermemo: TStringField;
    ADOcomrecorderoperator: TStringField;
    ADOcomrecordercdate: TStringField;
    ADOdeptrecorder: TADODataSet;
    ADOdeptrecordercomcode: TStringField;
    ADOdeptrecorderdeptcode: TStringField;
    ADOdeptrecordercomdate: TStringField;
    ADOdeptrecordercomweek: TStringField;
    ADOdeptrecordermemo: TStringField;
    ADOdeptrecorderoperator: TStringField;
    ADOdeptrecordercdate: TStringField;
    ADOdeptrecorderkindthing: TStringField;
    Adoroom1: TADODataSet;
    Adoroom1roomno: TStringField;
    Adoroom1bedno: TStringField;
    Adoroom1workno: TStringField;
    Adoroom1name: TStringField;
    Adoroom1sexname: TStringField;
    Adoroom1deptno: TStringField;
    Adoroom1prof: TStringField;
    Adoroom1roomer: TBooleanField;
    qryexchange: TADOQuery;
    qryexchangefaceno: TStringField;
    qryexchangefacerq: TStringField;
    qryexchangereqprof: TStringField;
    qryexchangedno: TStringField;
    qryexchangereqdept: TStringField;
    qryexchangename: TStringField;
    qryexchangesex: TStringField;
    qryexchangeblood: TStringField;
    qryexchangemarry: TStringField;
    qryexchangeprovince: TStringField;
    qryexchangeaddress: TStringField;
    qryexchangepeopleID: TStringField;
    qryexchangeage: TIntegerField;
    qryexchangeexpe: TMemoField;
    qryexchangeempprof: TStringField;
    qryexchangeintroduce: TStringField;
    qryexchangedegree: TStringField;
    qryexchangespecial: TStringField;
    qryexchangefactmoney: TBCDField;
    qryexchangefactprof: TStringField;
    qryexchangereladd: TStringField;
    qryexchangereltel: TStringField;
    qryexchangecdate: TStringField;
    qryexchangeoperator: TStringField;
    Adoempplan: TADODataSet;
    Adoempplanplanno: TStringField;
    Adoempplanplace1: TStringField;
    Adoempplanplace2: TStringField;
    Adoempplanstate: TBooleanField;
    Adoempplan1: TADODataSet;
    Adoempplan1planno: TStringField;
    Adoempplan1rno: TStringField;
    Adoempplan1rprof: TStringField;
    Adoempplan1rcourse: TStringField;
    Adoempplan1rdegree: TStringField;
    Adoempplan1boys: TIntegerField;
    Adoempplan1girls: TIntegerField;
    Adoempplan1rexp: TMemoField;
    Adoempplan1state: TBooleanField;
    Adoempreq: TADODataSet;
    Adoempreqrno: TStringField;
    Adoempreqrdept: TStringField;
    Adoempreqrman: TStringField;
    Adoempreqsumperson: TBCDField;
    Adoempreqnowperson: TBCDField;
    Adoempreq1: TADODataSet;
    Adoempreq1rno: TStringField;
    Adoempreq1Rcourse: TStringField;
    Adoempreq1Rdegree: TStringField;
    Adoempreq1boys: TBCDField;
    Adoempreq1girls: TBCDField;
    Adoempreq1Rexp: TMemoField;
    Adoempreq1Rprof: TStringField;
    Adoempreq1Rmarry: TStringField;
    Adoempreq1Rprov: TStringField;
    Adoempreq1why: TStringField;
    Adoempreq1state1: TBooleanField;
    Adoempreq1state2: TBooleanField;
    ADOempsave: TADODataSet;
    ADOempsaveID: TBCDField;
    ADOempsavefaceno: TStringField;
    ADOempsavefacerq: TStringField;
    ADOempsavereqprof: TStringField;
    ADOempsavereqdept: TStringField;
    ADOempsavemasterface: TStringField;
    ADOempsavesecondface: TStringField;
    ADOempsaveempno: TStringField;
    ADOempsavename: TStringField;
    ADOempsavesex: TStringField;
    ADOempsaveblood: TStringField;
    ADOempsavemarry: TStringField;
    ADOempsaveprovince: TStringField;
    ADOempsaveaddress: TStringField;
    ADOempsavepeopleID: TStringField;
    ADOempsaveage: TIntegerField;
    ADOempsaveexpe: TMemoField;
    ADOempsaveempprof: TStringField;
    ADOempsavefactprof: TStringField;
    ADOempsavesource: TStringField;
    ADOempsaveintroduce: TStringField;
    ADOempsavedegree: TStringField;
    ADOempsavespecial: TStringField;
    ADOempsavewantmoney: TBCDField;
    ADOempsavefactmoney: TBCDField;
    ADOempsavememo: TMemoField;
    ADOempsaveoperator: TStringField;
    ADOempsavecdate: TStringField;
    Adoempface: TADODataSet;
    AdoRmoney: TADODataSet;
    AdoRmoneyid: TStringField;
    AdoRmoneypwho: TStringField;