unbsupd.dfm

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

object FMBSUPD: TFMBSUPD
  OldCreateOrder = True
  Left = 285
  Top = 161
  Height = 479
  Width = 741
  object DSBSUP: TDataSource
    DataSet = QBSUP
    Left = 75
    Top = 10
  end
  object QBSUP: TQuery
    CachedUpdates = True
    AfterOpen = QBSUPAfterOpen
    AfterEdit = QBSUPAfterEdit
    AfterPost = QBSUPAfterPost
    DatabaseName = 'MAIN'
    SQL.Strings = (
      'SELECT *'
      'FROM BSUP'
      'ORDER BY BSENO')
    UpdateObject = UBSUP
    Left = 15
    Top = 10
    object QBSUPBSENO: TStringField
      FieldName = 'BSENO'
      Origin = 'MAIN.BSUP.BSENO'
      Size = 10
    end
    object QBSUPBSNAM: TStringField
      FieldName = 'BSNAM'
      Origin = 'MAIN.BSUP.BSNAM'
      Size = 40
    end
    object QBSUPBSCNA: TStringField
      FieldName = 'BSCNA'
      Origin = 'MAIN.BSUP.BSCNA'
      Size = 40
    end
    object QBSUPBSSCN: TStringField
      FieldName = 'BSSCN'
      Origin = 'MAIN.BSUP.BSSCN'
      Size = 3
    end
    object QBSUPBSMN1: TStringField
      FieldName = 'BSMN1'
      Origin = 'MAIN.BSUP.BSMN1'
      Size = 10
    end
    object QBSUPBSMN2: TStringField
      FieldName = 'BSMN2'
      Origin = 'MAIN.BSUP.BSMN2'
      Size = 10
    end
    object QBSUPBSMN3: TStringField
      FieldName = 'BSMN3'
      Origin = 'MAIN.BSUP.BSMN3'
      Size = 10
    end
    object QBSUPBSTL1: TStringField
      FieldName = 'BSTL1'
      Origin = 'MAIN.BSUP.BSTL1'
      Size = 15
    end
    object QBSUPBSTL2: TStringField
      FieldName = 'BSTL2'
      Origin = 'MAIN.BSUP.BSTL2'
      Size = 15
    end
    object QBSUPBSTL9: TStringField
      FieldName = 'BSTL9'
      Origin = 'MAIN.BSUP.BSTL9'
      Size = 15
    end
    object QBSUPBSFX1: TStringField
      FieldName = 'BSFX1'
      Origin = 'MAIN.BSUP.BSFX1'
      Size = 15
    end
    object QBSUPBSFX2: TStringField
      FieldName = 'BSFX2'
      Origin = 'MAIN.BSUP.BSFX2'
      Size = 15
    end
    object QBSUPBSAD1: TStringField
      FieldName = 'BSAD1'
      Origin = 'MAIN.BSUP.BSAD1'
      Size = 50
    end
    object QBSUPBSAD2: TStringField
      FieldName = 'BSAD2'
      Origin = 'MAIN.BSUP.BSAD2'
      Size = 50
    end
    object QBSUPBSAD9: TStringField
      FieldName = 'BSAD9'
      Origin = 'MAIN.BSUP.BSAD9'
      Size = 50
    end
    object QBSUPBSZP1: TStringField
      FieldName = 'BSZP1'
      Origin = 'MAIN.BSUP.BSZP1'
      Size = 5
    end
    object QBSUPBSZP2: TStringField
      FieldName = 'BSZP2'
      Origin = 'MAIN.BSUP.BSZP2'
      Size = 5
    end
    object QBSUPBSZP9: TStringField
      FieldName = 'BSZP9'
      Origin = 'MAIN.BSUP.BSZP9'
      Size = 5
    end
    object QBSUPBSID1: TStringField
      FieldName = 'BSID1'
      Origin = 'MAIN.BSUP.BSID1'
      Size = 10
    end
    object QBSUPBSDIS: TFloatField
      FieldName = 'BSDIS'
      Origin = 'MAIN.BSUP.BSDIS'
    end
    object QBSUPBSTP1: TFloatField
      FieldName = 'BSTP1'
      Origin = 'MAIN.BSUP.BSTP1'
    end
    object QBSUPBSTP2: TFloatField
      FieldName = 'BSTP2'
      Origin = 'MAIN.BSUP.BSTP2'
    end
    object QBSUPBSTP5: TFloatField
      FieldName = 'BSTP5'
      Origin = 'MAIN.BSUP.BSTP5'
    end
    object QBSUPBSTP6: TFloatField
      FieldName = 'BSTP6'
      Origin = 'MAIN.BSUP.BSTP6'
    end
    object QBSUPBSTPN: TStringField
      FieldName = 'BSTPN'
      Origin = 'MAIN.BSUP.BSTPN'
      Size = 30
    end
    object QBSUPBSTTP: TStringField
      FieldName = 'BSTTP'
      Origin = 'MAIN.BSUP.BSTTP'
      Size = 3
    end
    object QBSUPBSTTD: TFloatField
      FieldName = 'BSTTD'
      Origin = 'MAIN.BSUP.BSTTD'
    end
    object QBSUPBSTEG: TStringField
      FieldName = 'BSTEG'
      Origin = 'MAIN.BSUP.BSTEG'
      Size = 5
    end
    object QBSUPBSTBK: TStringField
      FieldName = 'BSTBK'
      Origin = 'MAIN.BSUP.BSTBK'
      Size = 3
    end
    object QBSUPBSALT: TFloatField
      FieldName = 'BSALT'
      Origin = 'MAIN.BSUP.BSALT'
    end
    object QBSUPBSTDT: TDateTimeField
      FieldName = 'BSTDT'
      Origin = 'MAIN.BSUP.BSTDT'
    end
    object QBSUPBSDAT: TDateTimeField
      FieldName = 'BSDAT'
      Origin = 'MAIN.BSUP.BSDAT'
    end
    object QBSUPBSMRK: TMemoField
      FieldName = 'BSMRK'
      Origin = 'MAIN.BSUP.BSMRK'
      BlobType = ftMemo
      Size = 1
    end
  end
  object UBSUP: TUpdateSQL
    Left = 155
    Top = 10
  end
end