datapas.~pas

本软件是一套功能完整成熟的固定资产管理系统,具有固定资产管理系统的相应全部功能

unit datapas;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Thjzcdata = class(TDataModule)
    hjzcdatabase: TADOConnection;
    xtcsb: TADOTable;
    xtcsbDSDesigner: TWideStringField;
    xtcsbDSDesigner2: TBooleanField;
    xtcsbDSDesigner3: TBooleanField;
    gysbmb: TADOTable;
    gysbmbDSDesigner: TSmallintField;
    gysbmbDSDesigner2: TWideStringField;
    gysbmbDSDesigner3: TWideStringField;
    gysbmbDSDesigner4: TWideStringField;
    gysbmbDSDesigner5: TWideStringField;
    gysbmbDSDesigner6: TWideStringField;
    gysbmbDSDesigner7: TWideStringField;
    gysbmbDSDesigner8: TWideStringField;
    gyscx: TADOQuery;
    gyscxDSDesigner: TSmallintField;
    gyscxDSDesigner2: TWideStringField;
    gyscxDSDesigner3: TWideStringField;
    gyscxDSDesigner4: TWideStringField;
    gyscxDSDesigner5: TWideStringField;
    gyscxDSDesigner6: TWideStringField;
    gyscxDSDesigner7: TWideStringField;
    gyscxDSDesigner8: TWideStringField;
    lscx: TADOQuery;
    zwbmb: TADOTable;
    zwbmbDSDesigner: TWordField;
    zwbmbDSDesigner2: TWideStringField;
    bmbmb: TADOTable;
    sjbmbmb: TADOTable;
    sjbmbmbDSDesigner: TSmallintField;
    sjbmbmbDSDesigner2: TWideStringField;
    sjbmbmbDSDesigner3: TWordField;
    sjbmbmbDSDesigner4: TSmallintField;
    bmbmbDSDesigner: TSmallintField;
    bmbmbDSDesigner2: TWideStringField;
    bmbmbDSDesigner3: TWordField;
    bmbmbDSDesigner4: TSmallintField;
    bmbmbField: TStringField;
    zybmb: TADOTable;
    zybmbDSDesigner: TSmallintField;
    zybmbDSDesigner2: TWideStringField;
    zybmbDSDesigner3: TSmallintField;
    zybmbDSDesigner4: TWordField;
    zybmbDSDesigner5: TWideStringField;
    zybmbDSDesigner6: TWideStringField;
    zybmbDSDesigner7: TWideStringField;
    zybmbDSDesigner8: TWideStringField;
    zybmbDSDesigner9: TWideStringField;
    zybmbOICQ: TWideStringField;
    zybmbDSDesigner10: TWideStringField;
    zybmbField: TStringField;
    zybmbField2: TStringField;
    yhdlcx: TADOQuery;
    czqxcx: TADOQuery;
    czqxcxDSDesigner: TWideStringField;
    gdzclbb: TADOTable;
    gdzclbbDSDesigner: TSmallintField;
    gdzclbbDSDesigner2: TWideStringField;
    gdzclbbDSDesigner3: TFloatField;
    gdzclbbDSDesigner4: TFloatField;
    gdzcytb: TADOTable;
    gdzcytbDSDesigner: TSmallintField;
    gdzcytbDSDesigner2: TSmallintField;
    gdzcytbDSDesigner3: TWideStringField;
    zclbsource: TDataSource;
    gdzcmcb: TADOTable;
    gdzcmcbDSDesigner: TSmallintField;
    gdzcmcbDSDesigner2: TWideStringField;
    gdzcmcbDSDesigner3: TSmallintField;
    zdbmcx: TADOQuery;
    gdzcmcbDSDesigner4: TWideStringField;
    gdzcxhb: TADOTable;
    gdzcxhbDSDesigner: TSmallintField;
    gdzcxhbDSDesigner2: TSmallintField;
    gdzcxhbDSDesigner3: TWideStringField;
    gdzcmcsour: TDataSource;
    gdzcxxb: TADOTable;
    gdzcxxbDSDesigner: TSmallintField;
    gdzcxxbDSDesigner2: TSmallintField;
    gdzcxxbDSDesigner3: TSmallintField;
    gdzcxxbDSDesigner4: TSmallintField;
    gdzcxxbDSDesigner5: TSmallintField;
    gdzcxxbDSDesigner6: TWideStringField;
    gdzcxxbDSDesigner7: TWideStringField;
    gdzcxxbDSDesigner8: TSmallintField;
    gdzcxxbDSDesigner9: TDateTimeField;
    gdzcxxbDSDesigner10: TBCDField;
    gdzcxxbDSDesigner11: TSmallintField;
    gdzcxxbDSDesigner12: TWideStringField;
    gdzcxxbDSDesigner13: TSmallintField;
    gdzcxxbDSDesigner14: TBooleanField;
    gdzcxxbDSDesigner15: TBooleanField;
    gdzcxxbDSDesigner16: TWideStringField;
    gdzcxxbDSDesigner17: TMemoField;
    wbfzccx: TADOQuery;
    wbfzccxDSDesigner: TSmallintField;
    wbfzccxDSDesigner2: TSmallintField;
    wbfzccxDSDesigner3: TSmallintField;
    wbfzccxDSDesigner4: TSmallintField;
    wbfzccxDSDesigner5: TSmallintField;
    wbfzccxDSDesigner6: TSmallintField;
    wbfzccxDSDesigner7: TDateTimeField;
    wbfzccxDSDesigner8: TSmallintField;
    wbfzccxDSDesigner9: TWideStringField;
    wbfzccxDSDesigner10: TBooleanField;
    wbfzccxDSDesigner11: TWideStringField;
    wbfzccxDSDesigner12: TWideStringField;
    wbfzccxzclb: TStringField;
    wbfzccxzcmc: TStringField;
    wbfzccxzcyt: TStringField;
    wbfzccxzcxh: TStringField;
    wbfzccxgys: TStringField;
    wbfzccxzyxm: TStringField;
    wcjzccx: TADOQuery;
    SmallintField1: TSmallintField;
    SmallintField2: TSmallintField;
    SmallintField3: TSmallintField;
    SmallintField4: TSmallintField;
    SmallintField5: TSmallintField;
    SmallintField6: TSmallintField;
    DateTimeField1: TDateTimeField;
    SmallintField7: TSmallintField;
    WideStringField1: TWideStringField;
    WideStringField2: TWideStringField;
    WideStringField3: TWideStringField;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    StringField5: TStringField;
    StringField6: TStringField;
    ycjzccx: TADOQuery;
    SmallintField8: TSmallintField;
    SmallintField9: TSmallintField;
    SmallintField10: TSmallintField;
    SmallintField11: TSmallintField;
    SmallintField12: TSmallintField;
    SmallintField13: TSmallintField;
    SmallintField14: TSmallintField;
    WideStringField4: TWideStringField;
    WideStringField5: TWideStringField;
    WideStringField6: TWideStringField;
    StringField7: TStringField;
    StringField8: TStringField;
    StringField9: TStringField;
    StringField10: TStringField;
    StringField11: TStringField;
    StringField12: TStringField;
    gdzcjyb: TADOTable;
    gdzcjybDSDesigner: TSmallintField;
    gdzcjybDSDesigner2: TSmallintField;
    gdzcjybDSDesigner3: TIntegerField;
    gdzcjybDSDesigner4: TWideStringField;
    gdzcjybDSDesigner5: TDateTimeField;
    gdzcjybDSDesigner6: TDateTimeField;
    gdzcjybDSDesigner7: TWideStringField;
    gdzcjybDSDesigner8: TBooleanField;
    gdzcjybDSDesigner9: TWideStringField;
    gdzcjybjsr: TStringField;
    ycjzccxDSDesigner: TWideStringField;
    ycjzccxDSDesigner2: TDateTimeField;
    ycjzccxDSDesigner3: TDateTimeField;
    ycjzccxDSDesigner4: TSmallintField;
    zcwxcx: TADOQuery;
    SmallintField15: TSmallintField;
    SmallintField16: TSmallintField;
    SmallintField17: TSmallintField;
    SmallintField18: TSmallintField;
    SmallintField19: TSmallintField;
    SmallintField20: TSmallintField;
    DateTimeField2: TDateTimeField;
    SmallintField21: TSmallintField;
    WideStringField7: TWideStringField;
    BooleanField1: TBooleanField;
    WideStringField8: TWideStringField;
    WideStringField9: TWideStringField;
    StringField13: TStringField;
    StringField14: TStringField;
    StringField15: TStringField;
    StringField16: TStringField;
    StringField17: TStringField;
    StringField18: TStringField;
    zcwxcxDSDesigner: TBooleanField;
    gdzcxxbDSDesigner18: TDateTimeField;
    gdzcxxbDSDesigner19: TBooleanField;
    gdzccx: TADOQuery;
    SmallintField22: TSmallintField;
    SmallintField23: TSmallintField;
    SmallintField24: TSmallintField;
    SmallintField25: TSmallintField;
    SmallintField26: TSmallintField;
    SmallintField27: TSmallintField;
    DateTimeField3: TDateTimeField;
    SmallintField28: TSmallintField;
    WideStringField10: TWideStringField;
    BooleanField2: TBooleanField;
    WideStringField11: TWideStringField;
    WideStringField12: TWideStringField;
    StringField19: TStringField;
    StringField20: TStringField;
    StringField21: TStringField;
    StringField22: TStringField;
    StringField23: TStringField;
    StringField24: TStringField;
    gdzccxDSDesigner: TBCDField;
    gdzccxDSDesigner2: TSmallintField;
    gdzccxField: TCurrencyField;
    gdzccxField2: TCurrencyField;
    jczlcx: TADOQuery;
    jczlcxDSDesigner: TFloatField;
    jczlcxDSDesigner2: TFloatField;
    zcbfcx: TADOQuery;
    SmallintField29: TSmallintField;
    SmallintField30: TSmallintField;
    SmallintField31: TSmallintField;
    SmallintField32: TSmallintField;
    SmallintField33: TSmallintField;
    SmallintField34: TSmallintField;
    DateTimeField4: TDateTimeField;
    SmallintField35: TSmallintField;
    WideStringField13: TWideStringField;
    WideStringField14: TWideStringField;
    WideStringField15: TWideStringField;
    StringField25: TStringField;
    StringField26: TStringField;
    StringField27: TStringField;
    StringField28: TStringField;
    StringField29: TStringField;
    StringField30: TStringField;
    BCDField1: TBCDField;
    zcbfcxDSDesigner: TDateTimeField;
    zcbfcxDSDesigner2: TSmallintField;
    zccjcx: TADOQuery;
    SmallintField36: TSmallintField;
    SmallintField37: TSmallintField;
    SmallintField38: TSmallintField;
    SmallintField39: TSmallintField;
    SmallintField40: TSmallintField;
    SmallintField41: TSmallintField;
    SmallintField42: TSmallintField;
    WideStringField17: TWideStringField;
    WideStringField18: TWideStringField;
    StringField31: TStringField;
    StringField32: TStringField;
    StringField33: TStringField;
    StringField34: TStringField;
    StringField35: TStringField;
    DateTimeField5: TDateTimeField;
    DateTimeField6: TDateTimeField;
    zccjcxDSDesigner: TBooleanField;
    zccjcxDSDesigner2: TWideStringField;
    zccjcxDSDesigner3: TWideStringField;
    zccjcxDSDesigner4: TIntegerField;
    zccjcxField: TStringField;
    cjdqcx: TADOQuery;
    SmallintField43: TSmallintField;
    SmallintField44: TSmallintField;
    SmallintField45: TSmallintField;
    SmallintField46: TSmallintField;
    SmallintField47: TSmallintField;
    SmallintField48: TSmallintField;
    SmallintField49: TSmallintField;
    BooleanField3: TBooleanField;