unbgdsn.dfm

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

      _TableName = 'SYSLST'
      _Field_IDNO = 'LSTID2'
      _Field_NAME = 'LSTNAM'
      _Field_KEY1 = 'LSTID1'
      _Field_KEY2 = 'BGDSBGKIN'
      _EDIT_WIDTH = 50
      _CHANGE_QUERY = True
      _INSERT_RECORD = True
      _INSERT_SYSLST = 'BGDSBGKIN'
      _SHOW_MESSAGE = True
    end
    object BGPR1: TJDBEdit
      Left = 515
      Top = 6
      Width = 80
      Height = 21
      DataField = 'BGPR1'
      TabOrder = 9
      Visible = False
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGPR2: TJDBEdit
      Left = 515
      Top = 29
      Width = 80
      Height = 21
      DataField = 'BGPR2'
      TabOrder = 10
      Visible = False
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGPR3: TJDBEdit
      Left = 515
      Top = 52
      Width = 80
      Height = 21
      DataField = 'BGPR3'
      TabOrder = 11
      Visible = False
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGCNA: TJDBEdit
      Left = 65
      Top = 121
      Width = 316
      Height = 21
      DataField = 'BGCNA'
      DataSource = DSBGDS
      ReadOnly = True
      TabOrder = 12
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGMRK: TJDBEdit
      Left = 65
      Top = 429
      Width = 316
      Height = 21
      DataField = 'BGMRK'
      DataSource = DSBGDS
      ReadOnly = True
      TabOrder = 13
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object RBCNT: TEdit
      Left = 320
      Top = 147
      Width = 61
      Height = 26
      BiDiMode = bdRightToLeft
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -20
      Font.Name = '新宋体'
      Font.Style = [fsBold]
      ParentBiDiMode = False
      ParentFont = False
      TabOrder = 14
    end
    object BGSUM: TJDBEdit
      Left = 65
      Top = 144
      Width = 185
      Height = 21
      DataField = 'BGSUM'
      DataSource = DSBGDS
      ReadOnly = True
      TabOrder = 15
      _EditType = EDIT
      _SHOWCAL = NONE
    end
  end
  object DBGrid: TDBGrid
    Left = 0
    Top = 0
    Width = 386
    Height = 453
    DataSource = DSBGDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '新宋体'
    Font.Style = []
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = '新宋体'
    TitleFont.Style = []
    OnCellClick = DBGridCellClick
    OnKeyDown = DBGridKeyDown
    Columns = <
      item
        Expanded = False
        FieldName = 'BGENO'
        Title.Alignment = taCenter
        Title.Caption = '产品条形码'
        Title.Color = clInfoBk
        Width = 131
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BGID1'
        Title.Alignment = taCenter
        Title.Caption = '产品编号'
        Title.Color = clInfoBk
        Width = 106
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BGNAM'
        Title.Alignment = taCenter
        Title.Caption = '产品名称'
        Title.Color = clInfoBk
        Width = 121
        Visible = True
      end>
  end
  object MainMenu1: TMainMenu
    Left = 300
    Top = 270
    object PREVIEW1: TMenuItem
      Caption = 'QUIT'
      ShortCut = 27
      Visible = False
      OnClick = BTNQUTClick
    end
    object SEARCH: TMenuItem
      Caption = 'SEARCH'
      ShortCut = 112
      Visible = False
    end
  end
  object QBGDS: TQuery
    CachedUpdates = True
    DatabaseName = 'MAIN'
    SQL.Strings = (
      'SELECT * FROM BGDS')
    Left = 265
    Top = 320
    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 QBGDSBGQTN: TFloatField
      FieldName = 'BGQTN'
      Origin = 'MAIN.BGDS.BGQTN'
    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 QBGDSBGSIN: TStringField
      FieldName = 'BGSIN'
      Origin = 'MAIN.BGDS.BGSIN'
      Size = 5
    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 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
  end
  object DSBGDS: TDataSource
    DataSet = QBGDS
    OnDataChange = DSBGDSDataChange
    Left = 300
    Top = 320
  end
end