unbgdsq.dfm

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

      DataField = 'BGCOS'
      DataSource = DSBGDS
      TabOrder = 3
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BSENO: JDBLOOKUPBOX
      Left = 65
      Top = 45
      Width = 185
      Height = 21
      DataField = 'BSENO'
      DataSource = DSBGDS
      MaxLength = 20
      TabOrder = 2
      _DatabaseName = 'MAIN'
      _TableName = 'BSUP'
      _Field_IDNO = 'BSENO'
      _Field_NAME = 'BSNAM'
      _EDIT_WIDTH = 80
      _CHANGE_QUERY = True
      _INSERT_RECORD = False
      _SHOW_MESSAGE = False
    end
    object BGPR1: TJDBEdit
      Left = 515
      Top = 6
      Width = 80
      Height = 21
      DataField = 'BGPR1'
      TabOrder = 8
      Visible = False
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGPR2: TJDBEdit
      Left = 515
      Top = 29
      Width = 80
      Height = 21
      DataField = 'BGPR2'
      TabOrder = 9
      Visible = False
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGPR3: TJDBEdit
      Left = 515
      Top = 52
      Width = 80
      Height = 21
      DataField = 'BGPR3'
      TabOrder = 10
      Visible = False
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object GroupBox1: TGroupBox
      Left = 5
      Top = 180
      Width = 371
      Height = 86
      Caption = '查询'
      TabOrder = 11
      object Label1: TLabel
        Left = 7
        Top = 18
        Width = 60
        Height = 15
        Caption = '产品条形码'
      end
      object Label2: TLabel
        Left = 7
        Top = 62
        Width = 60
        Height = 15
        Caption = '产品名称'
      end
      object Label4: TLabel
        Left = 7
        Top = 40
        Width = 60
        Height = 15
        Caption = '产品编号'
      end
      object LB1: TJEdit
        Left = 70
        Top = 15
        Width = 121
        Height = 21
        TabOrder = 0
        Digits = 1
        Max = 999999999
        _EditType = EDIT
        _SHOWCAL = NONE
        _BADINPUT = False
      end
      object LB2: TJEdit
        Left = 70
        Top = 37
        Width = 121
        Height = 21
        TabOrder = 1
        Digits = 1
        Max = 999999999
        _EditType = EDIT
        _SHOWCAL = NONE
        _BADINPUT = False
      end
      object LB3: TJEdit
        Left = 70
        Top = 59
        Width = 121
        Height = 21
        TabOrder = 2
        Digits = 1
        Max = 999999999
        _EditType = EDIT
        _SHOWCAL = NONE
        _BADINPUT = False
      end
      object BitBtn1: TBitBtn
        Left = 200
        Top = 15
        Width = 101
        Height = 66
        Caption = '查询'
        TabOrder = 3
        OnClick = BitBtn1Click
      end
      object BitBtn2: TBitBtn
        Left = 305
        Top = 15
        Width = 61
        Height = 66
        Caption = '清除'
        TabOrder = 4
        OnClick = BitBtn2Click
      end
    end
    object BGQTN: TJDBEdit
      Left = 190
      Top = 142
      Width = 60
      Height = 21
      DataField = 'BGQTN'
      DataSource = DSBGDS
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -15
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 12
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGKIN: SEDBLOOKUPBOX
      Left = 65
      Top = 67
      Width = 185
      Height = 21
      DataField = 'BGKIN'
      DataSource = DSBGDS
      MaxLength = 20
      TabOrder = 13
      _EditType = SEVARCHAR
      _DatabaseName = 'MAIN'
      _TableName = 'SYSLST'
      _Field_IDNO = 'BGDSBGKIN'
      _EDIT_WIDTH = 50
      _CHANGE_QUERY = True
      _INSERT_RECORD = True
      _SHOW_MESSAGE = True
    end
  end
  object QBGDS: TQuery
    CachedUpdates = True
    DatabaseName = 'MAIN'
    SQL.Strings = (
      'SELECT *'
      'FROM BGDS')
    UpdateObject = UBGDS
    Left = 505
    Top = 55
    object QBGDSBGENO: TStringField
      FieldName = '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
    Left = 565
    Top = 55
  end
  object UBGDS: TUpdateSQL
    Left = 645
    Top = 55
  end
  object MENU_BGDS: TMainMenu
    Left = 705
    Top = 155
    object YES1: TMenuItem
      Caption = 'YES'
      ShortCut = 112
      Visible = False
      OnClick = YES21Click
    end
    object YES21: TMenuItem
      Caption = 'YES2'
      ShortCut = 113
      Visible = False
      OnClick = YES21Click
    end
    object ESC1: TMenuItem
      Caption = 'ESC'
      ShortCut = 27
      Visible = False
      OnClick = ESC1Click
    end
    object QUIT1: TMenuItem
      Caption = 'QUIT'
      ShortCut = 16465
      Visible = False
      OnClick = QUIT1Click
    end
  end
end