dmunit.dfm

使用delphi语言

object dm: Tdm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 457
  Top = 283
  Height = 226
  Width = 545
  object gjjconn: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;Initi' +
      'al Catalog=ZFGJJ'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 16
    Top = 8
  end
  object bm: TADODataSet
    Connection = gjjconn
    CursorType = ctStatic
    CommandText = 'select * from '#37096#38376
    Parameters = <>
    Left = 72
    Top = 8
    object bmDSDesigner: TStringField
      FieldName = #37096#38376#32534#21495
      Size = 50
    end
    object bmDSDesigner2: TStringField
      FieldName = #37096#38376#21517#31216
      Size = 50
    end
  end
  object person: TADODataSet
    Connection = gjjconn
    CursorType = ctStatic
    CommandText = 'select * from '#32844#24037
    Parameters = <>
    Left = 120
    Top = 8
    object personDSDesigner: TStringField
      FieldName = #32844#24037#32534#21495
      Size = 50
    end
    object personDSDesigner2: TStringField
      FieldName = #32844#24037#22995#21517
      Size = 50
    end
    object personDSDesigner3: TStringField
      FieldName = #37096#38376#32534#21495
      Size = 50
    end
    object personDSDesigner4: TStringField
      FieldName = #36134#21495
      Size = 50
    end
    object personDSDesigner5: TStringField
      FieldName = #22791#27880
      Size = 50
    end
    object personDSDesigner6: TStringField
      FieldName = #24207#21495
      Size = 50
    end
  end
  object base: TADODataSet
    Connection = gjjconn
    CursorType = ctStatic
    CommandText = 'select * from '#31995#25968#34920
    Parameters = <>
    Left = 176
    Top = 8
    object baseDSDesigner: TStringField
      FieldName = #37096#38376#32534#21495
      Size = 50
    end
    object baseDSDesigner2: TStringField
      FieldName = #32844#24037#32534#21495
      Size = 50
    end
    object baseDSDesigner3: TStringField
      FieldName = #36134#21495
      Size = 50
    end
    object baseDSDesigner4: TStringField
      FieldName = #32844#24037#22995#21517
      Size = 50
    end
    object gr: TBCDField
      FieldName = #20010#20154#31995#25968
      OnChange = grChange
      currency = True
      Precision = 19
    end
    object dw: TBCDField
      FieldName = #21333#20301#31995#25968
      OnChange = dwChange
      currency = True
      Precision = 19
    end
    object total: TBCDField
      FieldName = #24635#31995#25968
      Required = True
      currency = True
      Precision = 19
    end
    object baseDSDesigner8: TStringField
      FieldName = #31867#22411
      Size = 2
    end
  end
  object qcye: TADODataSet
    Connection = gjjconn
    CursorType = ctStatic
    CommandText = 'select * from '#26399#21021#20313#39069
    Parameters = <>
    Left = 232
    Top = 8
    object qcyeDSDesigner: TStringField
      FieldName = #25688#35201
      Size = 50
    end
    object qcyeDSDesigner2: TStringField
      FieldName = #37096#38376#32534#21495
      Size = 50
    end
    object qcyeDSDesigner3: TStringField
      FieldName = #32844#24037#32534#21495
      Size = 50
    end
    object qcyeDSDesigner4: TStringField
      FieldName = #36134#21495
      Size = 50
    end
    object qcyeDSDesigner5: TStringField
      FieldName = #32844#24037#22995#21517
      Size = 50
    end
    object grq: TBCDField
      FieldName = #20010#20154#26399#21021#20313#39069
      OnChange = grqChange
      currency = True
      Precision = 19
    end
    object dwq: TBCDField
      FieldName = #21333#20301#26399#21021#20313#39069
      OnChange = dwqChange
      currency = True
      Precision = 19
    end
    object zqc: TBCDField
      FieldName = #24635#26399#21021#20313#39069
      currency = True
      Precision = 19
    end
  end
  object detail: TADODataSet
    Connection = gjjconn
    CursorType = ctStatic
    CommandText = 'select * from '#26126#32454#34920
    Parameters = <>
    Left = 288
    Top = 8
    object detailDSDesigner: TStringField
      FieldName = #25688#35201
      Size = 50
    end
    object detailDSDesigner2: TStringField
      FieldName = #24180
      Size = 4
    end
    object detailDSDesigner3: TStringField
      FieldName = #26376
      Size = 2
    end
    object detailDSDesigner4: TStringField
      FieldName = #32844#24037#32534#21495
      Size = 50
    end
    object detailDSDesigner5: TStringField
      FieldName = #36134#21495
      Size = 50
    end
    object detailDSDesigner6: TStringField
      FieldName = #32844#24037#22995#21517
      Size = 50
    end
    object zjgr: TBCDField
      FieldName = #20010#20154#31995#25968
      currency = True
      Precision = 19
    end
    object zjdw: TBCDField
      FieldName = #21333#20301#31995#25968
      currency = True
      Precision = 19
    end
    object zjzxs: TBCDField
      FieldName = #24635#31995#25968
      currency = True
      Precision = 19
    end
    object jsgr: TBCDField
      FieldName = #20010#20154#20943#23569#31995#25968
      currency = True
      Precision = 19
    end
    object jsdw: TBCDField
      FieldName = #21333#20301#20943#23569#31995#25968
      currency = True
      Precision = 19
    end
    object jszxs: TBCDField
      FieldName = #20943#23569#24635#31995#25968
      currency = True
      Precision = 19
    end
    object detailDSDesigner13: TStringField
      FieldName = #31867#21035
      Size = 2
    end
    object detailDSDesigner14: TStringField
      FieldName = #37096#38376#32534#21495
      Size = 50
    end
  end
  object lxjs: TADODataSet
    Connection = gjjconn
    CursorType = ctStatic
    CommandText = 'select * from '#21033#24687#32467#31639
    Parameters = <>
    Left = 336
    Top = 8
  end
  object infor: TADODataSet
    Connection = gjjconn
    CursorType = ctStatic
    CommandText = 'select * from '#20449#24687#21464#21160#34920
    Parameters = <>
    Left = 384
    Top = 8
  end
  object ye: TADODataSet
    Connection = gjjconn
    CursorType = ctStatic
    CommandText = 'select * from '#20313#39069#34920
    Parameters = <>
    Left = 480
    Top = 8
    object yeDSDesigner: TStringField
      FieldName = #25688#35201
      Size = 50
    end
    object yeDSDesigner2: TStringField
      FieldName = #24180
      Size = 50
    end
    object yeDSDesigner3: TStringField
      FieldName = #26376
      Size = 50
    end
    object yeDSDesigner4: TStringField
      FieldName = #32844#24037#32534#21495
      Size = 50
    end
    object yeDSDesigner5: TStringField
      FieldName = #36134#21495
      Size = 50
    end
    object yeDSDesigner6: TStringField
      FieldName = #32844#24037#22995#21517
      Size = 50
    end
    object yeDSDesigner7: TBCDField
      FieldName = #24635#31995#25968
      currency = True
      Precision = 19
    end
    object yeDSDesigner8: TBCDField
      FieldName = #20943#23569#24635#31995#25968
      currency = True
      Precision = 19
    end
    object yeDSDesigner9: TBCDField
      FieldName = #20313#39069
      currency = True
      Precision = 19
    end
  end
  object dsbm: TDataSource
    DataSet = bm
    Left = 72
    Top = 56
  end
  object dsperson: TDataSource
    DataSet = person
    Left = 120
    Top = 56
  end
  object dsbase: TDataSource
    DataSet = base
    Left = 176
    Top = 56
  end
  object dsqcye: TDataSource
    AutoEdit = False
    DataSet = qcye
    Left = 232
    Top = 56
  end
  object dsdetail: TDataSource
    DataSet = detail
    Left = 288
    Top = 56
  end
  object dslxjs: TDataSource
    DataSet = lxjs
    Left = 336
    Top = 56
  end
  object dsinfor: TDataSource
    DataSet = infor
    Left = 384
    Top = 56
  end
  object dsuser: TDataSource
    DataSet = user
    Left = 432
    Top = 56
  end
  object dsye: TDataSource
    DataSet = ye
    Left = 480
    Top = 56
  end
  object backconn: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=master'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 16
    Top = 56
  end
  object cmd: TADOCommand
    Connection = backconn
    Parameters = <>
    Left = 16
    Top = 104
  end
  object user: TADOQuery
    Connection = gjjconn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#29992#25143#34920)
    Left = 432
    Top = 8
    object userDSDesigner: TStringField
      FieldName = #29992#25143#32534#21495
      Size = 50
    end
    object userDSDesigner2: TStringField
      FieldName = #29992#25143#21517#31216
      Size = 50
    end
    object userDSDesigner3: TStringField
      FieldName = #23494#30721
      Size = 50
    end
    object usersysuser: TBooleanField
      FieldName = 'sysuser'
    end
    object userbm: TBooleanField
      FieldName = 'bm'
    end
    object usergz: TBooleanField
      FieldName = 'gz'
    end
    object userbase: TBooleanField
      FieldName = 'base'
    end
    object userqcye: TBooleanField
      FieldName = 'qcye'
    end
    object userinfor: TBooleanField
      FieldName = 'infor'
    end
    object userautodz: TBooleanField
      FieldName = 'autodz'
    end
    object userautodel: TBooleanField
      FieldName = 'autodel'
    end
    object usermanual: TBooleanField
      FieldName = 'manual'
    end
    object usergetfunds: TBooleanField
      FieldName = 'getfunds'
    end
    object userlx: TBooleanField
      FieldName = 'lx'
    end
    object userdellx: TBooleanField
      FieldName = 'dellx'
    end
    object useryecx: TBooleanField
      FieldName = 'yecx'
    end
    object usermxcx: TBooleanField
      FieldName = 'mxcx'
    end
    object usergr_dw: TBooleanField
      FieldName = 'gr_dw'
    end
    object useruser1: TBooleanField
      FieldName = 'user1'
    end
    object userdataback: TBooleanField
      FieldName = 'databack'
    end
  end
end