newdm.~dfm

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

object DM: TDM
  OldCreateOrder = False
  Left = 205
  Top = 162
  Height = 386
  Width = 534
  object ADOConnection: TADOConnection
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 16
  end
  object DSgysb: TDataSource
    DataSet = ADOTgysb
    Left = 152
  end
  object ADOTgysb: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'gysb'
    Left = 104
    object gysbh: TStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'gysbh'
      FixedChar = True
      Size = 6
    end
    object gysmc: TStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      FieldName = 'gysmc'
      FixedChar = True
    end
    object lxrxm: TStringField
      DisplayLabel = #32852#31995#20154#22995#21517
      FieldName = 'lxrxm'
      FixedChar = True
      Size = 8
    end
    object lxrtx: TStringField
      DisplayLabel = #32852#31995#20154#22836#34900
      FieldName = 'lxrtx'
      FixedChar = True
      Size = 6
    end
    object dh: TStringField
      DisplayLabel = #30005#35805
      FieldName = 'dh'
      FixedChar = True
      Size = 24
    end
    object dz: TStringField
      DisplayLabel = #22320#22336
      FieldName = 'dz'
      FixedChar = True
    end
    object cs: TStringField
      DisplayLabel = #22478#24066
      FieldName = 'cs'
      FixedChar = True
      Size = 15
    end
    object dq: TStringField
      DisplayLabel = #22320#21306
      FieldName = 'dq'
      FixedChar = True
      Size = 15
    end
    object yzbm: TStringField
      DisplayLabel = #37038#25919#32534#30721
      FieldName = 'yzbm'
      FixedChar = True
      Size = 10
    end
    object gj: TStringField
      DisplayLabel = #22269#31821
      FieldName = 'gj'
      FixedChar = True
      Size = 15
    end
    object cz: TStringField
      DisplayLabel = #20256#30495
      FieldName = 'cz'
      FixedChar = True
      Size = 24
    end
  end
  object ADOQgysb: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from gysb  ')
    Left = 248
    object ADOQgysbgysbh: TStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'gysbh'
      Size = 6
    end
    object ADOQgysbgysmc: TStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      FieldName = 'gysmc'
    end
    object ADOQgysblxrxm: TStringField
      DisplayLabel = #32852#31995#20154#22995#21517
      FieldName = 'lxrxm'
      Size = 8
    end
    object ADOQgysblxrtx: TStringField
      DisplayLabel = #32852#31995#20154#22836#34900
      FieldName = 'lxrtx'
      Size = 6
    end
    object ADOQgysbdh: TStringField
      DisplayLabel = #30005#35805
      FieldName = 'dh'
      Size = 24
    end
    object ADOQgysbdz: TStringField
      DisplayLabel = #22320#22336
      FieldName = 'dz'
    end
    object ADOQgysbcs: TStringField
      DisplayLabel = #22478#24066
      FieldName = 'cs'
      Size = 15
    end
    object ADOQgysbdq: TStringField
      DisplayLabel = #22320#21306
      FieldName = 'dq'
      Size = 15
    end
    object ADOQgysbyzbm: TStringField
      DisplayLabel = #37038#25919#32534#30721
      FieldName = 'yzbm'
      Size = 10
    end
    object ADOQgysbcz: TStringField
      DisplayLabel = #20256#30495
      FieldName = 'cz'
      Size = 24
    end
    object ADOQgysbgj: TStringField
      DisplayLabel = #22269#31821
      FieldName = 'gj'
      Size = 15
    end
  end
  object DSgysbCX: TDataSource
    DataSet = ADOQgysb
    Left = 304
  end
  object ADOTspgl: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'spb'
    Left = 104
    Top = 48
    object ADOTspglcpbh: TStringField
      DisplayLabel = #20135#21697#32534#21495
      DisplayWidth = 10
      FieldName = 'cpbh'
      FixedChar = True
      Size = 6
    end
    object ADOTspglcpmc: TStringField
      DisplayLabel = #20135#21697#21517#31216
      DisplayWidth = 12
      FieldName = 'cpmc'
      FixedChar = True
    end
    object ADOTspglgysbh: TStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      DisplayWidth = 14
      FieldName = 'gysbh'
      Size = 6
    end
    object ADOTspgllbbh: TStringField
      DisplayLabel = #31867#21035#32534#21495
      DisplayWidth = 10
      FieldName = 'lbbh'
      FixedChar = True
      Size = 6
    end
    object ADOTspgldwsl: TStringField
      DisplayLabel = #21333#20301#25968#37327
      DisplayWidth = 14
      FieldName = 'dwsl'
      FixedChar = True
    end
    object ADOTspgldj: TBCDField
      DisplayLabel = #21333#20215
      DisplayWidth = 12
      FieldName = 'dj'
      Precision = 18
      Size = 0
    end
    object ADOTspglkcl: TBCDField
      DisplayLabel = #24211#23384#37327
      DisplayWidth = 12
      FieldName = 'kcl'
      Precision = 18
      Size = 2
    end
    object ADOTspgldgl: TBCDField
      DisplayLabel = #35746#36141#37327
      DisplayWidth = 17
      FieldName = 'dgl'
      Precision = 18
      Size = 0
    end
    object ADOTspglzdgl: TBCDField
      DisplayLabel = #20877#35746#36141#37327
      DisplayWidth = 14
      FieldName = 'zdgl'
      Precision = 18
      Size = 0
    end
    object ADOTspglzz: TStringField
      DisplayLabel = #32456#27490
      DisplayWidth = 5
      FieldName = 'zz'
      FixedChar = True
      Size = 2
    end
  end
  object DSspgl: TDataSource
    DataSet = ADOTspgl
    Left = 152
    Top = 48
  end
  object ADOQspgl: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from spb')
    Left = 248
    Top = 48
    object ADOQspglcpbh: TStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'cpbh'
      FixedChar = True
      Size = 6
    end
    object ADOQspglcpmc: TStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'cpmc'
      FixedChar = True
    end
    object ADOQspglgysbh: TStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'gysbh'
      Size = 6
    end
    object ADOQspgllbbh: TStringField
      DisplayLabel = #31867#21035#32534#21495
      FieldName = 'lbbh'
      FixedChar = True
      Size = 6
    end
    object ADOQspgldwsl: TStringField
      DisplayLabel = #21333#20301#25968#37327
      FieldName = 'dwsl'
      FixedChar = True
    end
    object ADOQspgldj: TBCDField
      DisplayLabel = #21333#20215
      FieldName = 'dj'
      Precision = 18
      Size = 0
    end
    object ADOQspglkcl: TBCDField
      DisplayLabel = #24211#23384#37327
      FieldName = 'kcl'
      Precision = 18
      Size = 2
    end
    object ADOQspgldgl: TBCDField
      DisplayLabel = #35746#36141#37327
      FieldName = 'dgl'
      Precision = 18
      Size = 0
    end
    object ADOQspglzdgl: TBCDField
      DisplayLabel = #20877#35746#36141#37327
      FieldName = 'zdgl'
      Precision = 18
      Size = 0
    end
    object ADOQspglzz: TStringField
      DisplayLabel = #32456#27490
      FieldName = 'zz'
      FixedChar = True
      Size = 2
    end
  end
  object DSspblCX: TDataSource
    DataSet = ADOQspgl
    Left = 304
    Top = 48
  end
  object ADOTkhgl: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'khb'
    Left = 104
    Top = 96
    object ADOTkhglkhbh: TStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'khbh'
      FixedChar = True
      Size = 6
    end
    object ADOTkhglkhmc: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'khmc'
      FixedChar = True
    end
    object ADOTkhgllxrxm: TStringField
      DisplayLabel = #32852#31995#20154#22995#21517
      FieldName = 'lxrxm'
      FixedChar = True
      Size = 8
    end
    object ADOTkhgllxrtx: TStringField
      DisplayLabel = #32852#31995#20154#22836#34900
      FieldName = 'lxrtx'
      FixedChar = True
      Size = 6
    end
    object ADOTkhgldz: TStringField
      DisplayLabel = #22320#22336
      FieldName = 'dz'
      FixedChar = True
    end
    object ADOTkhglcs: TStringField
      DisplayLabel = #22478#24066
      FieldName = 'cs'
      FixedChar = True
      Size = 15
    end
    object ADOTkhgldq: TStringField
      DisplayLabel = #22320#21306
      FieldName = 'dq'
      FixedChar = True
      Size = 15
    end
    object ADOTkhglyzbm: TStringField
      DisplayLabel = #37038#25919#32534#30721
      FieldName = 'yzbm'
      FixedChar = True
      Size = 10
    end
    object ADOTkhglgj: TStringField
      DisplayLabel = #22269#23478
      FieldName = 'gj'
      FixedChar = True
      Size = 15
    end
    object ADOTkhgldh: TStringField
      DisplayLabel = #30005#35805
      FieldName = 'dh'
      FixedChar = True
      Size = 24
    end
    object ADOTkhglcz: TStringField
      DisplayLabel = #20256#30495
      FieldName = 'cz'
      FixedChar = True
      Size = 24
    end
  end
  object DSkhgl: TDataSource
    DataSet = ADOTkhgl
    Left = 152
    Top = 96
  end
  object DSkhglCX: TDataSource
    DataSet = ADOQkhgl
    Left = 304
    Top = 96
  end
  object ADOQkhgl: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from khb')
    Left = 248
    Top = 96
    object ADOQkhglkhbh: TStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'khbh'
      FixedChar = True
      Size = 6
    end
    object ADOQkhglkhmc: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'khmc'
      FixedChar = True
    end
    object ADOQkhgllxrxm: TStringField
      DisplayLabel = #32852#31995#20154#22995#21517
      FieldName = 'lxrxm'
      FixedChar = True
      Size = 8
    end
    object ADOQkhgllxrtx: TStringField
      DisplayLabel = #32852#31995#20154#22836#34900
      FieldName = 'lxrtx'
      FixedChar = True
      Size = 6
    end
    object ADOQkhgldz: TStringField
      DisplayLabel = #22320#22336
      FieldName = 'dz'
      FixedChar = True
    end
    object ADOQkhglcs: TStringField
      DisplayLabel = #22478#24066
      FieldName = 'cs'
      FixedChar = True
      Size = 15
    end
    object ADOQkhgldq: TStringField
      DisplayLabel = #22320#21306
      FieldName = 'dq'
      FixedChar = True
      Size = 15
    end
    object ADOQkhglyzbm: TStringField
      DisplayLabel = #37038#25919#32534#30721
      FieldName = 'yzbm'
      FixedChar = True
      Size = 10
    end
    object ADOQkhglgj: TStringField
      DisplayLabel = #22269#23478