datamol.pas

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

    ADOatddatadayhours: TBCDField;
    ADOatddataunatd: TBooleanField;
    ADOatddatanotgive: TBooleanField;
    ADOatddatamankind: TStringField;
    ADOatddatamustout: TDateTimeField;
    ADOatddatafactout: TDateTimeField;
    ADOatddataunatdxia: TBooleanField;
    ADOdaytotalworkno: TStringField;
    ADOdaytotalcardno: TStringField;
    ADOdaytotalname: TStringField;
    ADOdaytotaldept: TStringField;
    ADOdaytotalprof: TStringField;
    ADOdaytotalrq: TDateTimeField;
    ADOdaytotalmusthours: TBCDField;
    ADOdaytotalfacthours: TBCDField;
    ADOdaytotalfactday: TBCDField;
    ADOdaytotalyouxinday: TBCDField;
    ADOdaytotalwuxinday: TBCDField;
    ADOdaytotaleveninghours: TBCDField;
    ADOdaytotallate: TIntegerField;
    ADOdaytotallatetimes: TIntegerField;
    ADOdaytotalearly: TIntegerField;
    ADOdaytotalearlytimes: TIntegerField;
    ADOdaytotalkuanggong: TBCDField;
    ADOdaytotalkuanggongtimes: TIntegerField;
    ADOdaytotalkuanggongL: TBCDField;
    ADOdaytotalkuanggongtimesL: TIntegerField;
    ADOdaytotalleavehave: TBCDField;
    ADOdaytotalleavenohave: TBCDField;
    ADOdaytotalmustot: TBCDField;
    ADOdaytotalotpingshi: TBCDField;
    ADOdaytotalotjieri: TBCDField;
    ADOdaytotalotjiari: TBCDField;
    ADOdaytotalotnotgive: TBCDField;
    ADOdaytotallateOt: TIntegerField;
    ADOdaytotallatetimesOt: TIntegerField;
    ADOdaytotalearlyOt: TIntegerField;
    ADOdaytotalearlytimesOt: TIntegerField;
    ADOdaytotalkuanggongOt: TBCDField;
    ADOdaytotalkuanggongtimesOt: TIntegerField;
    ADOdaytotalkuanggongOtL: TBCDField;
    ADOdaytotalkuanggongtimesOtL: TIntegerField;
    ADOdaytotalleavehaveOt: TBCDField;
    ADOdaytotalleavenohaveOt: TBCDField;
    ADOdaytotalleavekind: TStringField;
    ADOdaytotalqiankaman: TStringField;
    ADOdaytotalkuanggonge: TBCDField;
    ADOdaytotalkuanggongtimese: TIntegerField;
    ADOdaytotalkuanggongote: TBCDField;
    ADOdaytotalkuanggongtimesote: TIntegerField;
    ADOatddatatrans: TBooleanField;
    ADOatddataworkno: TStringField;
    ADOatddatacardno: TStringField;
    ADOatddatarq: TDateTimeField;
    Adoatdsetotbu: TBCDField;
    ADOdaytotalotbu: TIntegerField;
    ADOsalsetlateM: TIntegerField;
    ADOsalsetlateMY: TBCDField;
    ADOsalsetlateMNE: TBooleanField;
    ADOsalsetlateMQ: TBCDField;
    ADOsalsetlateTY: TBCDField;
    ADOsalsetlateTQ: TBCDField;
    ADOsalsetKuangLB: TBCDField;
    ADOsalsetKuangB: TBCDField;
    ADOsalsetKuangHQ: TBCDField;
    ADOsalsetKuangLTY: TBCDField;
    ADOsalsetKuangTY: TBCDField;
    ADOsalsetKuangTQ: TBCDField;
    ADOsalsetOtSame: TBooleanField;
    ADOsalsetpingshi: TBCDField;
    ADOsalsetjiari: TBCDField;
    ADOsalsetjieri: TBCDField;
    ADOsalsetOtMode: TIntegerField;
    ADOsalsettrymonth: TBCDField;
    ADOsalsettrymonth1: TBCDField;
    ADOsalsetfixdays: TBCDField;
    ADOsalsetdivhours: TBCDField;
    ADOsalsetindate1: TStringField;
    ADOsalsetpresent1: TBCDField;
    ADOsalsetindate2: TStringField;
    ADOsalsetpresent2: TBCDField;
    ADOsalsetsmoney: TIntegerField;
    ADOsalsetfacevalue: TBooleanField;
    ADOsalsetnegative: TBooleanField;
    ADOsalsetqiankayuan: TBCDField;
    ADOsalsettaxbasic: TBCDField;
    ADOsalsettaxmoney1: TBCDField;
    ADOsalsettaxrate1: TBCDField;
    ADOsalsettaxmoney2: TBCDField;
    ADOsalsettaxrate2: TBCDField;
    ADOsalsettaxdec2: TBCDField;
    ADOsalsettaxmoney3: TBCDField;
    ADOsalsettaxrate3: TBCDField;
    ADOsalsettaxdec3: TBCDField;
    ADOsalsettaxmoney4: TBCDField;
    ADOsalsettaxrate4: TBCDField;
    ADOsalsettaxdec4: TBCDField;
    ADOsalsetyearmoney: TStringField;
    ADOsaldataworkno: TStringField;
    ADOsaldatacardno: TStringField;
    ADOsaldataname: TStringField;
    ADOsaldatadeptno: TStringField;
    ADOsaldatadeptname: TStringField;
    ADOsaldataprof: TStringField;
    ADOsaldataindate: TDateTimeField;
    ADOsaldatabrushcard: TBooleanField;
    ADOsaldatadayormon: TBooleanField;
    ADOsaldatamankind: TStringField;
    ADOsaldatamonthy: TStringField;
    ADOsaldatamustdays: TBCDField;
    ADOsaldatafactdays: TBCDField;
    ADOsaldatamusthours: TBCDField;
    ADOsaldatafacthours: TBCDField;
    ADOsaldatayouxinday: TBCDField;
    ADOsaldatawuxinday: TBCDField;
    ADOsaldataeveninghours: TBCDField;
    ADOsaldatalate: TIntegerField;
    ADOsaldatalatetimes: TIntegerField;
    ADOsaldataearly: TIntegerField;
    ADOsaldataearlytimes: TIntegerField;
    ADOsaldatakuanggong: TBCDField;
    ADOsaldatakuanggongtimes: TIntegerField;
    ADOsaldatakuanggongL: TBCDField;
    ADOsaldatakuanggongtimesL: TIntegerField;
    ADOsaldataleavehave: TBCDField;
    ADOsaldataleavenohave: TBCDField;
    ADOsaldataotpingshi: TBCDField;
    ADOsaldataotjieri: TBCDField;
    ADOsaldataotjiari: TBCDField;
    ADOsaldataotnotgive: TBCDField;
    ADOsaldatalateot: TIntegerField;
    ADOsaldatalatetimesot: TIntegerField;
    ADOsaldataearlyot: TIntegerField;
    ADOsaldataearlytimesot: TIntegerField;
    ADOsaldatakuanggongot: TBCDField;
    ADOsaldatakuanggongtimesot: TIntegerField;
    ADOsaldatakuanggongotl: TBCDField;
    ADOsaldatakuanggongtimesotl: TIntegerField;
    ADOsaldataleavehaveot: TBCDField;
    ADOsaldataleavenohaveot: TBCDField;
    ADOsaldataqiankatimes: TIntegerField;
    ADOsaldatabasepay: TBCDField;
    ADOsaldatafactbasepay: TBCDField;
    ADOsaldataprofmoney: TBCDField;
    ADOsaldatafactprof: TBCDField;
    ADOsaldatatechmoney: TBCDField;
    ADOsaldatafacttech: TBCDField;
    ADOsaldatadeptmoney: TBCDField;
    ADOsaldatafactdept: TBCDField;
    ADOsaldatamoney1: TBCDField;
    ADOsaldatamoney2: TBCDField;
    ADOsaldataadd1: TBCDField;
    ADOsaldataadd2: TBCDField;
    ADOsaldatapresent: TBCDField;
    ADOsaldatarewardmoney: TBCDField;
    ADOsaldatayearmoney: TBCDField;
    ADOsaldataproductmoney: TBCDField;
    ADOsaldataresultmoney: TBCDField;
    ADOsaldatafixot: TBCDField;
    ADOsaldataotmoney: TBCDField;
    ADOsaldatamustgive: TBCDField;
    ADOsaldatamanage: TBCDField;
    ADOsaldataclearpay: TBCDField;
    ADOsaldatatemplive: TBCDField;
    ADOsaldatastaymoney: TBCDField;
    ADOsaldatameatmoney: TBCDField;
    ADOsaldataother1: TBCDField;
    ADOsaldataother2: TBCDField;
    ADOsaldatadecrease1: TBCDField;
    ADOsaldatadecrease2: TBCDField;
    ADOsaldatainsurance: TBCDField;
    ADOsaldatamedmoney: TBCDField;
    ADOsaldatalatedec: TBCDField;
    ADOsaldatakuanggongdec: TBCDField;
    ADOsaldataleavemoney: TBCDField;
    ADOsaldatapanishmoney: TBCDField;
    ADOsaldataborrowmoney: TBCDField;
    ADOsaldatamustdec: TBCDField;
    ADOsaldatafactmoney: TBCDField;
    ADOsaldatatempvalue: TBCDField;
    ADOsaldatatempvalue2: TBCDField;
    ADOsaldatajzmoney: TBCDField;
    ADOsaldatasmoney: TBCDField;
    ADOsaldataoldsmoney: TBCDField;
    ADOsaldataoperator: TStringField;
    ADOsaldatacdate: TDateTimeField;
    ADOsaldataztid: TIntegerField;
    ADOsaldataztname: TStringField;
    ADOsalsetdivmode: TIntegerField;
    ADOsaldatatax: TBCDField;
    Dsgoods: TDataSource;
    Dsindetail: TDataSource;
    Dsindetailb: TDataSource;
    Adogoods: TADODataSet;
    Adogoodsgoodsid: TStringField;
    Adogoodsgoodsname: TStringField;
    Adogoodsprices: TBCDField;
    Adogoodsindetailno: TStringField;
    Adogoodsdeptno: TStringField;
    Adogoodsdept: TStringField;
    Adogoodscdate: TDateTimeField;
    Adogoodsoperator: TStringField;
    Adoindetail: TADODataSet;
    Adoindetailindetailno: TStringField;
    Adoindetailindetailname: TStringField;
    Adoindetailb: TADODataSet;
    Adoindetailbindetailno: TStringField;
    Adoindetailbgoodsid: TStringField;
    Adoindetailbgoodsname: TStringField;
    Adoindetailbprices: TBCDField;
    Adogoodsindetailname: TStringField;
    ADOdingdan: TADODataSet;
    Dsdingdan: TDataSource;
    ADOdingdanddid: TStringField;
    ADOdingdanddname: TStringField;
    ADOdingdangoodid: TStringField;
    ADOdingdancdate: TDateTimeField;
    ADOdingdanoperator: TStringField;
    ADOdingdandeptno: TStringField;
    ADOdingdanprices: TBCDField;
    ADOdingdanman: TADODataSet;
    Dsdingdanman: TDataSource;
    ADOdingdanmangoodsid: TStringField;
    ADOdingdanmandeptno: TStringField;
    ADOdingdanmanworkno: TStringField;
    ADOdingdanmanname: TStringField;
    ADOdingdanmanprof: TStringField;
    Dszjll: TDataSource;
    Dspieman: TDataSource;
    Adopieman: TADODataSet;
    Adopiemanrq: TDateTimeField;
    Adopiemanworkno: TStringField;
    Adopiemanname: TStringField;
    Adopiemanprof: TStringField;
    Adopiemandept: TStringField;
    Adopiemanmoney: TBCDField;
    Adopiemanid: TStringField;
    Adopiemon: TADODataSet;
    Dspiemon: TDataSource;
    Adopieday: TADODataSet;
    Dspieday: TDataSource;
    Adopiedayrq: TDateTimeField;
    Adopiedayworkno: TStringField;
    Adopiedayname: TStringField;
    Adopiedayprof: TStringField;
    Adopiedaydept: TStringField;
    Adopiedaymoney: TBCDField;
    Adozjll: TADODataSet;
    Adozjllrq: TDateTimeField;
    Adozjllid: TStringField;
    Adozjllgoodsid: TStringField;
    Adozjllddid: TStringField;
    Adozjllnumber: TBCDField;
    Adozjllreturnrq: TDateTimeField;
    Adozjllredept: TStringField;
    Adozjllpeaple: TIntegerField;
    Adozjllprices: TBCDField;
    Adozjllmoney: TBCDField;
    Adozjllflat: TBooleanField;
    Adozjllcdate: TDateTimeField;
    Adozjlloperator: TStringField;
    Adopiemonmonthy: TStringField;
    Adopiemonworkno: TStringField;
    Adopiemonname: TStringField;
    Adopiemonmoney: TBCDField;
    procedure Qrybc1schenoChange(Sender: TField);
    procedure Qrybc1gotime1Change(Sender: TField);
    procedure Qryclock1AfterInsert(DataSet: TDataSet);
    procedure adootworknoChange(Sender: TField);
    procedure adootcardnoChange(Sender: TField);
    procedure AdoadvanceAfterInsert(DataSet: TDataSet);
    procedure AdoraisepayworknoChange(Sender: TField);
    procedure AdostoppayBeforeDelete(DataSet: TDataSet);
    procedure Adoroom2BeforeDelete(DataSet: TDataSet);
    procedure AdoRmoney1BeforePost(DataSet: TDataSet);
    procedure adodaytotalfacthoursChange(Sender: TField);
    procedure AdostoppayBeforeEdit(DataSet: TDataSet);
    procedure AdostoppayBeforePost(DataSet: TDataSet);
    procedure AdodeptsumpersonChange(Sender: TField);
    procedure AdomanchangedeptnoChange(Sender: TField);
    procedure QrymealclockAfterInsert(DataSet: TDataSet);
    procedure ADOpersonalBeforeDelete(DataSet: TDataSet);
    procedure ADOpersonalBeforeEdit(DataSet: TDataSet);
    procedure ADOpersonalworknoChange(Sender: TField);
    procedure ADOpersonalcardnoChange(Sender: TField);
    procedure ADOjiangchenBeforeDelete(DataSet: TDataSet);
    procedure ADOjiangchenBeforeEdit(DataSet: TDataSet);
    procedure ADOjiangchenBeforePost(DataSet: TDataSet);
    procedure ADOjiangchenworknoChange(Sender: TField);
    procedure ADOjiangchenJCtimesChange(Sender: TField);
    procedure ADOjckindBeforeEdit(DataSet: TDataSet);
    procedure ADOjckindBeforeDelete(DataSet: TDataSet);
    procedure ADOjckindBeforePost(DataSet: TDataSet);
    procedure AdoadvanceBeforeDelete(DataSet: TDataSet);
    procedure AdoadvanceBeforeEdit(DataSet: TDataSet);
    procedure AdoadvanceBeforePost(DataSet: TDataSet);
    procedure AdoadvanceworknoChange(Sender: TField);
    procedure AdoraisepayBeforeDelete(DataSet: TDataSet);
    procedure AdoraisepayBeforeEdit(DataSet: TDataSet);
    procedure AdoRmoney1worknoChange(Sender: TField);
    procedure AdodismissBeforePost(DataSet: TDataSet);
    procedure AdodismissBeforeEdit(DataSet: TDataSet);
    procedure AdodismissBeforeDelete(DataSet: TDataSet);
    procedure AdodismissworknoChange(Sender: TField);
    procedure AdodeptBeforePost(DataSet: TDataSet);
    procedure AdodeptBeforeEdit(DataSet: TDataSet);
    procedure AdodeptBeforeDelete(DataSet: TDataSet);
    procedure AdodeptdnoChange(Sender: TField);
    procedure Adodismiss1BeforeEdit(DataSet: TDataSet);
    procedure Adodismiss1BeforeDelete(DataSet: TDataSet);
    procedure AdostoppayworknoChange(Sender: TField);
    procedure ADOcomrecorderBeforePost(DataSet: TDataSet);
    procedure ADOcomrecorderBeforeEdit(DataSet: TDataSet);
    procedure ADOcomrecorderBeforeDelete(DataSet: TDataSet);
    procedure ADOcomrecordercomcodeChange(Sender: TField);
    procedure ADOdeptrecorderBeforePost(DataSet: TDataSet);
    procedure ADOdeptrecorderBeforeEdit(DataSet: TDataSet);
    procedure ADOdeptrecorderBeforeDelete(DataSet: TDataSet);
    procedure ADOdeptrecordercomcodeChange(Sender: TField);
    procedure Adoroom1BeforeEdit(DataSet: TDataSet);
    procedure Adoroom1BeforeDelete(DataSet: TDataSet);
    procedure Adoroom2BeforeEdit(DataSet: TDataSet);
    procedure AdoempplanBeforeEdit(DataSet: TDataSet);
    procedure AdoempplanBeforeDelete(DataSet: TDataSet);
    procedure AdoempplanBeforePost(DataSet: TDataSet);
    procedure AdoempplanplannoChange(Sender: TField);
    procedure Adoempplan1BeforeEdit(DataSet: TDataSet);
    procedure Adoempplan1BeforeDelete(DataSet: TDataSet);
    procedure AdoempreqBeforeEdit(DataSet: TDataSet);
    procedure AdoempreqBeforeDelete(DataSet: TDataSet);
    procedure AdoempreqBeforePost(DataSet: TDataSet);
    procedure Adoempreq1BeforeEdit(DataSet: TDataSet);
    procedure Adoempreq1BeforeDelete(DataSet: TDataSet);
    procedure ADOempsaveBeforeEdit(DataSet: TDataSet);
    procedure ADOempsaveBeforeDelete(DataSet: TDataSet);
    procedure ADOempsaveBeforePost(DataSet: TDataSet);
    procedure ADOempsavefacenoChange(Sender: TField);
    procedure AdoempfaceBeforePost(DataSet: TDataSet);
    procedure AdoempfaceBeforeEdit(DataSet: TDataSet);
    procedure AdoempfaceBeforeDelete(DataSet: TDataSet);
    procedure AdoroomnowBeforeDelete(DataSet: TDataSet);
    procedure AdoroomnowBeforeEdit(DataSet: TDataSet);
    procedure AdoRmoneyBeforePost(DataSet: TDataSet);
    procedure AdoRmoneyBeforeDelete(DataSet: TDataSet);
    procedure AdoRmoneyBeforeEdit(DataSet: TDataSet);
    procedure AdoRmoneyidChange(Sender: TField);
    procedure AdoRmoney1BeforeDelete(DataSet: TDataSet);
    procedure AdoRmoney1Befor