newdm.~dfm

商品批发管理系统 本作品采用C/S模式

      FieldName = 'gj'
      FixedChar = True
      Size = 15
    end
    object ADOQkhgldh: TStringField
      DisplayLabel = #30005#35805
      FieldName = 'dh'
      FixedChar = True
      Size = 24
    end
    object ADOQkhglcz: TStringField
      DisplayLabel = #20256#30495
      FieldName = 'cz'
      FixedChar = True
      Size = 24
    end
  end
  object ADOTddgl: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'ddb'
    Left = 104
    Top = 144
    object ADOTddglddbh: TStringField
      FieldName = 'ddbh'
      FixedChar = True
      Size = 6
    end
    object ADOTddglkhbh: TStringField
      FieldName = 'khbh'
      FixedChar = True
      Size = 6
    end
    object ADOTddglgybh: TStringField
      FieldName = 'gybh'
      FixedChar = True
      Size = 6
    end
    object ADOTddgldgrq: TDateTimeField
      FieldName = 'dgrq'
    end
    object ADOTddgldhrq: TDateTimeField
      FieldName = 'dhrq'
    end
    object ADOTddglfhrq: TDateTimeField
      FieldName = 'fhrq'
    end
    object ADOTddglyhsbh: TStringField
      FieldName = 'yhsbh'
      FixedChar = True
      Size = 6
    end
    object ADOTddglyhf: TBCDField
      FieldName = 'yhf'
      Precision = 18
      Size = 0
    end
    object ADOTddglhzmc: TStringField
      FieldName = 'hzmc'
      FixedChar = True
    end
    object ADOTddglhzdz: TStringField
      FieldName = 'hzdz'
      FixedChar = True
    end
    object ADOTddglhzcs: TStringField
      FieldName = 'hzcs'
      FixedChar = True
      Size = 15
    end
    object ADOTddglhzdq: TStringField
      FieldName = 'hzdq'
      FixedChar = True
      Size = 15
    end
    object ADOTddglhzyzbm: TStringField
      FieldName = 'hzyzbm'
      FixedChar = True
      Size = 10
    end
    object ADOTddglhzgj: TStringField
      FieldName = 'hzgj'
      FixedChar = True
      Size = 15
    end
  end
  object DSddgl: TDataSource
    DataSet = ADOTddgl
    Left = 136
    Top = 144
  end
  object DSddglMX: TDataSource
    DataSet = ADOTddglMX
    Left = 312
    Top = 144
  end
  object ADOTddglMX: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    IndexFieldNames = 'ddbh'
    MasterFields = 'ddbh'
    MasterSource = DSddgl
    TableName = 'ddmxb'
    Left = 272
    Top = 144
  end
  object ADOTddglMXGY: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    IndexFieldNames = 'gybh'
    MasterFields = 'gybh'
    MasterSource = DSddgl
    TableName = 'gyb'
    Left = 432
    Top = 144
  end
  object DSddglMXGY: TDataSource
    DataSet = ADOTddglMXGY
    Left = 472
    Top = 144
  end
  object ADOTgygl: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'gyb'
    Left = 104
    Top = 192
  end
  object DSgygl: TDataSource
    DataSet = ADOTgygl
    Left = 152
    Top = 192
  end
  object ADOQgygl: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from gyb ')
    Left = 248
    Top = 192
    object ADOQgyglgybh: TStringField
      DisplayLabel = #38599#21592#32534#21495
      FieldName = 'gybh'
      FixedChar = True
      Size = 6
    end
    object ADOQgyglxm: TStringField
      DisplayLabel = #22995#21517
      FieldName = 'xm'
      FixedChar = True
      Size = 8
    end
    object ADOQgygltx: TStringField
      DisplayLabel = #22836#34900
      FieldName = 'tx'
      FixedChar = True
      Size = 6
    end
    object ADOQgyglzc: TStringField
      DisplayLabel = #23562#31216
      FieldName = 'zc'
      FixedChar = True
      Size = 6
    end
    object ADOQgyglcsrq: TDateTimeField
      DisplayLabel = #20986#29983#26085#26399
      FieldName = 'csrq'
    end
    object ADOQgyglgyrq: TDateTimeField
      DisplayLabel = #38599#20323#26085#26399
      FieldName = 'gyrq'
    end
    object ADOQgygldz: TStringField
      DisplayLabel = #22320#22336
      FieldName = 'dz'
      FixedChar = True
    end
    object ADOQgyglcs: TStringField
      DisplayLabel = #22478#24066
      FieldName = 'cs'
      FixedChar = True
      Size = 15
    end
    object ADOQgygldq: TStringField
      DisplayLabel = #22320#21306
      FieldName = 'dq'
      FixedChar = True
      Size = 15
    end
    object ADOQgyglyzbm: TStringField
      DisplayLabel = #37038#25919#32534#30721
      FieldName = 'yzbm'
      FixedChar = True
      Size = 10
    end
    object ADOQgyglgj: TStringField
      DisplayLabel = #22269#23478
      FieldName = 'gj'
      FixedChar = True
      Size = 15
    end
    object ADOQgygldh: TStringField
      DisplayLabel = #30005#35805
      FieldName = 'dh'
      FixedChar = True
      Size = 24
    end
    object ADOQgyglcz: TStringField
      DisplayLabel = #20256#30495
      FieldName = 'cz'
      FixedChar = True
      Size = 24
    end
  end
  object DSgyglCX: TDataSource
    DataSet = ADOQgygl
    Left = 304
    Top = 192
  end
  object ADOTyhsgl: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'yhsb'
    Left = 104
    Top = 240
  end
  object ADOQyhsgl: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from yhsb')
    Left = 248
    Top = 240
    object ADOQyhsglyhsbh: TStringField
      DisplayLabel = #36816#36135#21830#32534#21495
      FieldName = 'yhsbh'
      FixedChar = True
      Size = 6
    end
    object ADOQyhsglyhsmc: TStringField
      DisplayLabel = #36816#36135#21830#21517#31216
      FieldName = 'yhsmc'
      FixedChar = True
    end
    object ADOQyhsgldh: TStringField
      DisplayLabel = #30005#35805
      FieldName = 'dh'
      FixedChar = True
      Size = 24
    end
  end
  object DSyhsgl: TDataSource
    DataSet = ADOTyhsgl
    Left = 152
    Top = 240
  end
  object DSyhsglCX: TDataSource
    DataSet = ADOQyhsgl
    Left = 304
    Top = 240
  end
  object ADOQlbgl: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from lbb')
    Left = 248
    Top = 288
    object ADOQlbgllbbh: TStringField
      DisplayLabel = #31867#21035#32534#21495
      FieldName = 'lbbh'
      FixedChar = True
      Size = 6
    end
    object ADOQlbgllbmc: TStringField
      DisplayLabel = #31867#21035#21517#31216
      FieldName = 'lbmc'
      FixedChar = True
      Size = 15
    end
    object ADOQlbglsm: TStringField
      DisplayLabel = #35828#26126
      FieldName = 'sm'
      FixedChar = True
      Size = 100
    end
  end
  object DSlbgl: TDataSource
    DataSet = ADOTlbgl
    Left = 152
    Top = 288
  end
  object DSlbglCX: TDataSource
    DataSet = ADOQlbgl
    Left = 312
    Top = 288
  end
  object ADOTlbgl: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'lbb'
    Left = 104
    Top = 288
    object ADOTlbgllbbh: TStringField
      DisplayLabel = #31867#21035#32534#21495
      DisplayWidth = 10
      FieldName = 'lbbh'
      FixedChar = True
      Size = 6
    end
    object ADOTlbgllbmc: TStringField
      DisplayLabel = #31867#21035#21517#31216
      DisplayWidth = 14
      FieldName = 'lbmc'
      FixedChar = True
      Size = 15
    end
    object ADOTlbglsm: TStringField
      DisplayLabel = #35828#26126
      DisplayWidth = 120
      FieldName = 'sm'
      FixedChar = True
      Size = 100
    end
  end
  object ADOQddgl: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ddb')
    Left = 176
    Top = 144
    object ADOQddglddbh: TStringField
      DisplayLabel = #23450#21333#32534#21495
      FieldName = 'ddbh'
      FixedChar = True
      Size = 6
    end
    object ADOQddglkhbh: TStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'khbh'
      FixedChar = True
      Size = 6
    end
    object ADOQddglgybh: TStringField
      DisplayLabel = #38599#21592#32534#21495
      FieldName = 'gybh'
      FixedChar = True
      Size = 6
    end
    object ADOQddgldgrq: TDateTimeField
      DisplayLabel = #35746#36141#26085#26399
      FieldName = 'dgrq'
    end
    object ADOQddgldhrq: TDateTimeField
      DisplayLabel = #21040#36135#26085#26399
      FieldName = 'dhrq'
    end
    object ADOQddglfhrq: TDateTimeField
      DisplayLabel = #21457#36135#26085#26399
      FieldName = 'fhrq'
    end
    object ADOQddglyhsbh: TStringField
      DisplayLabel = #36816#36135#21830#32534#21495
      FieldName = 'yhsbh'
      FixedChar = True
      Size = 6
    end
    object ADOQddglyhf: TBCDField
      DisplayLabel = #36816#36135#36153
      FieldName = 'yhf'
      Precision = 18
      Size = 0
    end
    object ADOQddglhzmc: TStringField
      DisplayLabel = #36135#20027#21517#31216
      FieldName = 'hzmc'
      FixedChar = True
    end
    object ADOQddglhzdz: TStringField
      DisplayLabel = #36135#20027#22320#22336
      FieldName = 'hzdz'
      FixedChar = True
    end
    object ADOQddglhzcs: TStringField
      DisplayLabel = #36135#20027#22478#24066
      FieldName = 'hzcs'
      FixedChar = True
      Size = 15
    end
    object ADOQddglhzdq: TStringField
      DisplayLabel = #36135#20027#22320#22336
      FieldName = 'hzdq'
      FixedChar = True
      Size = 15
    end
    object ADOQddglhzyzbm: TStringField
      DisplayLabel = #36135#20027#37038#25919#32534#30721
      FieldName = 'hzyzbm'
      FixedChar = True
      Size = 10
    end
    object ADOQddglhzgj: TStringField
      DisplayLabel = #36135#20027#22269#23478
      FieldName = 'hzgj'
      FixedChar = True
      Size = 15
    end
  end
  object DSddglCX: TDataSource
    DataSet = ADOQddgl
    Left = 208
    Top = 144
  end
  object ADOTddglMXall: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'ddmxb'
    Left = 360
    Top = 144
  end
  object ADOQtubiao: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ddmxb')
    Left = 400
    Top = 192
  end
end