datapas.dfm

来自「本软件是一套功能完整成熟的固定资产管理系统,具有固定资产管理系统的相应全部功能」· DFM 代码 · 共 1,872 行 · 第 1/5 页

object hjzcdata: Thjzcdata
  OldCreateOrder = False
  Left = 328
  Top = 182
  Height = 284
  Width = 322
  object hjzcdatabase: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\hj' +
      'zcgl\gdzc.mdb;Mode=Share Deny None;Extended Properties="";Persis' +
      't Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Reg' +
      'istry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Ty' +
      'pe=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial ' +
      'Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Da' +
      'tabase Password="";Jet OLEDB:Create System Database=False;Jet OL' +
      'EDB:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compac' +
      't=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB' +
      ':SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 16
    Top = 8
  end
  object xtcsb: TADOTable
    Connection = hjzcdatabase
    CursorType = ctStatic
    TableName = #21442#25968#34920
    Left = 56
    Top = 8
    object xtcsbDSDesigner: TWideStringField
      FieldName = #21333#20301#21517#31216
      Size = 30
    end
    object xtcsbDSDesigner2: TBooleanField
      FieldName = #25253#34920#26684#24335
    end
    object xtcsbDSDesigner3: TBooleanField
      FieldName = #25240#26087#26041#24335
    end
  end
  object gysbmb: TADOTable
    Connection = hjzcdatabase
    CursorType = ctStatic
    TableName = #20379#24212#21830#32534#30721#34920
    Left = 88
    Top = 8
    object gysbmbDSDesigner: TSmallintField
      FieldName = #20379#24212#21830#32534#30721
    end
    object gysbmbDSDesigner2: TWideStringField
      FieldName = #20379#24212#21830#21517#31216
      Size = 40
    end
    object gysbmbDSDesigner3: TWideStringField
      FieldName = #25340#38899#30721
      Size = 10
    end
    object gysbmbDSDesigner4: TWideStringField
      FieldName = #22320#22336
      Size = 40
    end
    object gysbmbDSDesigner5: TWideStringField
      FieldName = #32852#31995#20154
      FixedChar = True
      Size = 8
    end
    object gysbmbDSDesigner6: TWideStringField
      FieldName = #32852#31995#30005#35805
      Size = 15
    end
    object gysbmbDSDesigner7: TWideStringField
      FieldName = #20256#30495
      Size = 15
    end
    object gysbmbDSDesigner8: TWideStringField
      FieldName = #37038#32534
      FixedChar = True
      Size = 6
    end
  end
  object gyscx: TADOQuery
    Connection = hjzcdatabase
    Parameters = <>
    SQL.Strings = (
      'select * from '#20379#24212#21830#32534#30721#34920)
    Left = 128
    Top = 8
    object gyscxDSDesigner: TSmallintField
      FieldName = #20379#24212#21830#32534#30721
    end
    object gyscxDSDesigner2: TWideStringField
      FieldName = #20379#24212#21830#21517#31216
      Size = 40
    end
    object gyscxDSDesigner3: TWideStringField
      FieldName = #25340#38899#30721
      Size = 10
    end
    object gyscxDSDesigner4: TWideStringField
      FieldName = #22320#22336
      Size = 40
    end
    object gyscxDSDesigner5: TWideStringField
      FieldName = #32852#31995#20154
      FixedChar = True
      Size = 8
    end
    object gyscxDSDesigner6: TWideStringField
      FieldName = #32852#31995#30005#35805
      Size = 15
    end
    object gyscxDSDesigner7: TWideStringField
      FieldName = #20256#30495
      Size = 15
    end
    object gyscxDSDesigner8: TWideStringField
      FieldName = #37038#32534
      FixedChar = True
      Size = 6
    end
  end
  object lscx: TADOQuery
    Connection = hjzcdatabase
    Parameters = <>
    Left = 160
    Top = 8
  end
  object zwbmb: TADOTable
    Active = True
    Connection = hjzcdatabase
    CursorType = ctStatic
    TableName = #32844#21153#32534#30721#34920
    Left = 192
    Top = 8
    object zwbmbDSDesigner: TWordField
      Alignment = taCenter
      FieldName = #32844#21153#32534#30721
    end
    object zwbmbDSDesigner2: TWideStringField
      Alignment = taCenter
      FieldName = #32844#21153
    end
  end
  object bmbmb: TADOTable
    Active = True
    Connection = hjzcdatabase
    CursorType = ctStatic
    TableName = #37096#38376#32534#30721#34920
    Left = 8
    Top = 64
    object bmbmbDSDesigner: TSmallintField
      FieldName = #37096#38376#32534#30721
    end
    object bmbmbDSDesigner2: TWideStringField
      FieldName = #37096#38376#21517#31216
      Size = 30
    end
    object bmbmbDSDesigner3: TWordField
      FieldName = #37096#38376#31867#22411
    end
    object bmbmbDSDesigner4: TSmallintField
      FieldName = #19978#32423#37096#38376#32534#30721
    end
    object bmbmbField: TStringField
      FieldKind = fkLookup
      FieldName = #19978#32423#37096#38376#21517#31216
      LookupDataSet = sjbmbmb
      LookupKeyFields = #37096#38376#32534#30721
      LookupResultField = #37096#38376#21517#31216
      KeyFields = #19978#32423#37096#38376#32534#30721
      Lookup = True
    end
  end
  object sjbmbmb: TADOTable
    Active = True
    Connection = hjzcdatabase
    CursorType = ctStatic
    TableName = #37096#38376#32534#30721#34920
    Left = 40
    Top = 64
    object sjbmbmbDSDesigner: TSmallintField
      FieldName = #37096#38376#32534#30721
    end
    object sjbmbmbDSDesigner2: TWideStringField
      FieldName = #37096#38376#21517#31216
      Size = 30
    end
    object sjbmbmbDSDesigner3: TWordField
      FieldName = #37096#38376#31867#22411
    end
    object sjbmbmbDSDesigner4: TSmallintField
      FieldName = #19978#32423#37096#38376#32534#30721
    end
  end
  object zybmb: TADOTable
    Connection = hjzcdatabase
    CursorType = ctStatic
    TableName = #32844#21592#32534#30721#34920
    Left = 80
    Top = 64
    object zybmbDSDesigner: TSmallintField
      FieldName = #32844#21592#32534#30721
    end
    object zybmbDSDesigner2: TWideStringField
      FieldName = #32844#21592#22995#21517
      Size = 8
    end
    object zybmbDSDesigner3: TSmallintField
      FieldName = #37096#38376#32534#30721
    end
    object zybmbDSDesigner4: TWordField
      FieldName = #32844#21153#32534#30721
    end
    object zybmbField: TStringField
      FieldKind = fkLookup
      FieldName = #37096#38376#21517#31216
      LookupDataSet = bmbmb
      LookupKeyFields = #37096#38376#32534#30721
      LookupResultField = #37096#38376#21517#31216
      KeyFields = #37096#38376#32534#30721
      Lookup = True
    end
    object zybmbField2: TStringField
      FieldKind = fkLookup
      FieldName = #32844#21153
      LookupDataSet = zwbmb
      LookupKeyFields = #32844#21153#32534#30721
      LookupResultField = #32844#21153
      KeyFields = #32844#21153#32534#30721
      Lookup = True
    end
    object zybmbDSDesigner6: TWideStringField
      FieldName = #30005#35805
      Size = 10
    end
    object zybmbDSDesigner7: TWideStringField
      FieldName = #25193#26426
      Size = 15
    end
    object zybmbDSDesigner8: TWideStringField
      FieldName = #25163#26426
      Size = 11
    end
    object zybmbDSDesigner9: TWideStringField
      FieldName = #30005#23376#37038#20214
      Size = 30
    end
    object zybmbOICQ: TWideStringField
      FieldName = 'OICQ'
      Size = 10
    end
    object zybmbDSDesigner10: TWideStringField
      FieldName = #23494#30721
      Size = 10
    end
    object zybmbDSDesigner5: TWideStringField
      FieldName = #22320#22336
      Size = 30
    end
  end
  object yhdlcx: TADOQuery
    Connection = hjzcdatabase
    Parameters = <
      item
        Name = 'zybm'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from '#32844#21592#32534#30721#34920' where '#32844#21592#32534#30721'=:zybm')
    Left = 120
    Top = 64
  end
  object czqxcx: TADOQuery
    Connection = hjzcdatabase
    Parameters = <
      item
        Name = 'zyxm'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select '#33756#21333#21517#31216' from '#32844#21592#26435#38480#34920','#32844#21592#32534#30721#34920','#31649#29702#32534#30721#34920
      'where '#32844#21592#26435#38480#34920'.'#32844#21592#32534#30721'='#32844#21592#32534#30721#34920'.'#32844#21592#32534#30721' '
      'and '#32844#21592#26435#38480#34920'.'#31649#29702#32534#30721'='#31649#29702#32534#30721#34920'.'#31649#29702#32534#30721
      'and '#32844#21592#32534#30721#34920'.'#32844#21592#22995#21517'=:zyxm')
    Left = 8
    Top = 112
    object czqxcxDSDesigner: TWideStringField
      FieldName = #33756#21333#21517#31216
    end
  end
  object gdzclbb: TADOTable
    Connection = hjzcdatabase
    CursorType = ctStatic
    TableName = #22266#23450#36164#20135#31867#21035#34920
    Left = 160
    Top = 64
    object gdzclbbDSDesigner: TSmallintField
      FieldName = #36164#20135#31867#21035#32534#30721
    end
    object gdzclbbDSDesigner2: TWideStringField
      FieldName = #22266#23450#36164#20135#31867#21035
      Size = 50
    end
    object gdzclbbDSDesigner3: TFloatField
      FieldName = #39044#35745#20928#27531#20540#29575
    end
    object gdzclbbDSDesigner4: TFloatField
      FieldName = #26376#25240#26087#29575
    end
  end
  object gdzcytb: TADOTable
    Connection = hjzcdatabase
    CursorType = ctStatic
    IndexFieldNames = #36164#20135#31867#21035#32534#30721
    MasterFields = #36164#20135#31867#21035#32534#30721
    MasterSource = zclbsource
    TableName = #22266#23450#36164#20135#29992#36884#34920
    Left = 200
    Top = 64
    object gdzcytbDSDesigner: TSmallintField
      Alignment = taCenter
      FieldName = #36164#20135#29992#36884#32534#30721
    end
    object gdzcytbDSDesigner2: TSmallintField
      Alignment = taCenter
      FieldName = #36164#20135#31867#21035#32534#30721
    end
    object gdzcytbDSDesigner3: TWideStringField
      Alignment = taCenter
      FieldName = #22266#23450#36164#20135#29992#36884
      Size = 80
    end
  end
  object zclbsource: TDataSource
    DataSet = gdzclbb
    Left = 40
    Top = 112
  end
  object gdzcmcb: TADOTable
    Connection = hjzcdatabase
    CursorType = ctStatic
    BeforePost = gdzcmcbBeforePost
    IndexFieldNames = #36164#20135#31867#21035#32534#30721
    MasterFields = #36164#20135#31867#21035#32534#30721
    MasterSource = zclbsource
    TableName = #22266#23450#36164#20135#21517#31216#34920
    Left = 240
    Top = 64
    object gdzcmcbDSDesigner: TSmallintField
      FieldName = #36164#20135#21517#31216#32534#30721
    end
    object gdzcmcbDSDesigner2: TWideStringField
      FieldName = #22266#23450#36164#20135#21517#31216
      Size = 50
    end
    object gdzcmcbDSDesigner3: TSmallintField
      FieldName = #36164#20135#31867#21035#32534#30721
    end
    object gdzcmcbDSDesigner4: TWideStringField
      Alignment = taCenter
      FieldName = #35828#26126
      Size = 50
    end