unbgdsd.dfm

DELPHI编写的商场收银POS机源代码

object FMBGDSD: TFMBGDSD
  OldCreateOrder = True
  Left = 285
  Top = 161
  Height = 479
  Width = 741
  object DSBGDS: TDataSource
    DataSet = QBGDS
    Left = 75
    Top = 10
  end
  object QBGDS: TQuery
    CachedUpdates = True
    AfterOpen = QBGDSAfterOpen
    AfterEdit = QBGDSAfterEdit
    AfterPost = QBGDSAfterPost
    DatabaseName = 'MAIN'
    SQL.Strings = (
      'SELECT * FROM BGDS')
    UpdateObject = UBGDS
    Left = 15
    Top = 10
    object QBGDSBGENO: TStringField
      FieldName = 'BGENO'
      Origin = 'MAIN.BGDS.BGENO'
    end
    object QBGDSBGNAM: TStringField
      FieldName = 'BGNAM'
      Origin = 'MAIN.BGDS.BGNAM'
      Size = 40
    end
    object QBGDSBGKIN: TStringField
      FieldName = 'BGKIN'
      Origin = 'MAIN.BGDS.BGKIN'
      Size = 3
    end
    object QBGDSBGPST: TFloatField
      FieldName = 'BGPST'
      Origin = 'MAIN.BGDS.BGPST'
    end
    object QBGDSBGPVP: TFloatField
      FieldName = 'BGPVP'
      Origin = 'MAIN.BGDS.BGPVP'
    end
    object QBGDSBGPMM: TFloatField
      FieldName = 'BGPMM'
      Origin = 'MAIN.BGDS.BGPMM'
    end
    object QBGDSBGCST: TFloatField
      FieldName = 'BGCST'
      Origin = 'MAIN.BGDS.BGCST'
    end
    object QBGDSBGOTH: TFloatField
      FieldName = 'BGOTH'
      Origin = 'MAIN.BGDS.BGOTH'
    end
    object QBGDSBGQTS: TFloatField
      FieldName = 'BGQTS'
      Origin = 'MAIN.BGDS.BGQTS'
    end
    object QBGDSBGCOS: TFloatField
      FieldName = 'BGCOS'
      Origin = 'MAIN.BGDS.BGCOS'
    end
    object QBGDSBSENO: TStringField
      FieldName = 'BSENO'
      Origin = 'MAIN.BGDS.BSENO'
      Size = 10
    end
    object QBGDSBGCNA: TStringField
      FieldName = 'BGCNA'
      Origin = 'MAIN.BGDS.BGCNA'
      Size = 40
    end
    object QBGDSBGSUM: TStringField
      FieldName = 'BGSUM'
      Origin = 'MAIN.BGDS.BGSUM'
      Size = 30
    end
    object QBGDSBGRUL: TStringField
      FieldName = 'BGRUL'
      Origin = 'MAIN.BGDS.BGRUL'
      Size = 3
    end
    object QBGDSBGGAU: TStringField
      FieldName = 'BGGAU'
      Origin = 'MAIN.BGDS.BGGAU'
      Size = 3
    end
    object QBGDSBGUNS: TStringField
      FieldName = 'BGUNS'
      Origin = 'MAIN.BGDS.BGUNS'
      Size = 3
    end
    object QBGDSBGUNP: TStringField
      FieldName = 'BGUNP'
      Origin = 'MAIN.BGDS.BGUNP'
      Size = 3
    end
    object QBGDSBGCLR: TStringField
      FieldName = 'BGCLR'
      Origin = 'MAIN.BGDS.BGCLR'
      Size = 3
    end
    object QBGDSBGCLH: TStringField
      FieldName = 'BGCLH'
      Origin = 'MAIN.BGDS.BGCLH'
      Size = 10
    end
    object QBGDSBGCLW: TFloatField
      FieldName = 'BGCLW'
      Origin = 'MAIN.BGDS.BGCLW'
    end
    object QBGDSBGUNW: TStringField
      FieldName = 'BGUNW'
      Origin = 'MAIN.BGDS.BGUNW'
      Size = 3
    end
    object QBGDSBGUSE: TStringField
      FieldName = 'BGUSE'
      Origin = 'MAIN.BGDS.BGUSE'
      Size = 3
    end
    object QBGDSBGCSS: TFloatField
      FieldName = 'BGCSS'
      Origin = 'MAIN.BGDS.BGCSS'
    end
    object QBGDSBGQTE: TFloatField
      FieldName = 'BGQTE'
      Origin = 'MAIN.BGDS.BGQTE'
    end
    object QBGDSBGDTC: TDateTimeField
      FieldName = 'BGDTC'
      Origin = 'MAIN.BGDS.BGDTC'
    end
    object QBGDSBGDAT: TDateTimeField
      FieldName = 'BGDAT'
      Origin = 'MAIN.BGDS.BGDAT'
    end
    object QBGDSBGMRK: TMemoField
      FieldName = 'BGMRK'
      Origin = 'MAIN.BGDS.BGMRK'
      BlobType = ftMemo
      Size = 1
    end
    object QBGDSBGSIN: TStringField
      FieldName = 'BGSIN'
      Origin = 'MAIN.BGDS.BGSIN'
      Size = 5
    end
    object QBGDSBGBSA: TStringField
      FieldName = 'BGBSA'
      Origin = 'MAIN.BGDS.BGBSA'
      Size = 50
    end
    object QBGDSBGBSB: TStringField
      FieldName = 'BGBSB'
      Origin = 'MAIN.BGDS.BGBSB'
      Size = 50
    end
    object QBGDSBGBSC: TStringField
      FieldName = 'BGBSC'
      Origin = 'MAIN.BGDS.BGBSC'
      Size = 50
    end
    object QBGDSBGBIA: TFloatField
      FieldName = 'BGBIA'
      Origin = 'MAIN.BGDS.BGBIA'
    end
    object QBGDSBGBIB: TFloatField
      FieldName = 'BGBIB'
      Origin = 'MAIN.BGDS.BGBIB'
    end
    object QBGDSBGBIC: TFloatField
      FieldName = 'BGBIC'
      Origin = 'MAIN.BGDS.BGBIC'
    end
    object QBGDSBGQTN: TFloatField
      FieldName = 'BGQTN'
      Origin = 'MAIN.BGDS.BGQTN'
    end
  end
  object UBGDS: TUpdateSQL
    Left = 155
    Top = 10
  end
  object QDOWN: TQuery
    CachedUpdates = True
    DatabaseName = 'MAIN'
    Left = 15
    Top = 225
  end
end