rppos2f.dfm

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

object RMPOS2F: TRMPOS2F
  Left = 273
  Top = 176
  AutoScroll = False
  Caption = '发票记录明细表'
  ClientHeight = 252
  ClientWidth = 421
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox2: TGroupBox
    Left = 0
    Top = 0
    Width = 300
    Height = 251
    Caption = '查询条件'
    Color = 16755370
    Ctl3D = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ParentColor = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 0
    object LB_A: TLabel
      Left = 10
      Top = 25
      Width = 60
      Height = 15
      Caption = '查询日期'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 173
      Top = 24
      Width = 15
      Height = 15
      Caption = '至'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 10
      Top = 76
      Width = 77
      Height = 15
      Caption = '收  款  员'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 10
      Top = 102
      Width = 60
      Height = 15
      Caption = '发票号码'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object LB11: TJEdit
      Left = 70
      Top = 20
      Width = 100
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Digits = 1
      Max = 999999999
      _EditType = CDATE_EDIT
      _SHOWCAL = NONE
      _BADINPUT = True
      _LONGTIME = False
    end
    object LB12: TJEdit
      Left = 190
      Top = 20
      Width = 100
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Digits = 1
      Max = 999999999
      _EditType = CDATE_EDIT
      _SHOWCAL = NONE
      _BADINPUT = True
      _LONGTIME = False
    end
    object LB31: JLOOKUPBOX
      Left = 70
      Top = 72
      Width = 221
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      MaxLength = 20
      ParentFont = False
      TabOrder = 2
      _DatabaseName = 'MAIN'
      _TableName = 'BMAN'
      _Field_IDNO = 'BNENO'
      _Field_NAME = 'BNNAM'
      _EDIT_WIDTH = 80
      _CHANGE_QUERY = True
      _INSERT_RECORD = False
      _SHOW_MESSAGE = False
    end
    object LB41: TJEdit
      Left = 70
      Top = 98
      Width = 221
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      Digits = 1
      Max = 999999999
      _EditType = EDIT
      _SHOWCAL = NONE
      _BADINPUT = True
      _LONGTIME = False
    end
    object Panel1: TPanel
      Left = 1
      Top = 130
      Width = 298
      Height = 120
      Align = alBottom
      Caption = ' '
      Color = clNavy
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      object ED_INVOICE: TRadioGroup
        Left = 10
        Top = 5
        Width = 126
        Height = 86
        Caption = '打印发票'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        ItemIndex = 0
        Items.Strings = (
          '全部'
          '只列有发票'
          '只列无发票')
        ParentFont = False
        TabOrder = 0
      end
      object ED_ORDER: TRadioGroup
        Left = 160
        Top = 5
        Width = 126
        Height = 106
        Caption = '排列方式'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        ItemIndex = 0
        Items.Strings = (
          '发票号码'
          '收款员'
          '收款台'
          '销售编号')
        ParentFont = False
        TabOrder = 1
      end
    end
  end
  object Panel2: TPanel
    Left = 301
    Top = 0
    Width = 120
    Height = 252
    Align = alRight
    BevelOuter = bvNone
    BorderWidth = 1
    Color = clNavy
    TabOrder = 1
    object BTNPRN: TSpeedButton
      Left = 0
      Top = 62
      Width = 120
      Height = 60
      Cursor = crHandPoint
      Caption = '&P 打印'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      OnClick = BTNPREClick
    end
    object BTNPRE: TSpeedButton
      Left = 0
      Top = 2
      Width = 120
      Height = 60
      Cursor = crHandPoint
      Caption = '&W 预览'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      OnClick = BTNPREClick
    end
    object BTNQUT: TSpeedButton
      Left = 0
      Top = 122
      Width = 120
      Height = 60
      Cursor = crHandPoint
      Caption = '&Q 结束'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      OnClick = BTNQUTClick
    end
  end
  object QPOSA: TQuery
    DatabaseName = 'MAIN'
    SQL.Strings = (
      'SELECT * '
      'FROM POSA')
    Left = 210
    Top = 5
    object QPOSAPAENO: TStringField
      FieldName = 'PAENO'
      Origin = 'MAIN.POSA.PAENO'
      Size = 12
    end
    object QPOSAPAIDE: TStringField
      FieldName = 'PAIDE'
      Origin = 'MAIN.POSA.PAIDE'
      Size = 3
    end
    object QPOSABMENO: TStringField
      FieldName = 'BMENO'
      Origin = 'MAIN.POSA.BMENO'
      Size = 10
    end
    object QPOSABNENO: TStringField
      FieldName = 'BNENO'
      Origin = 'MAIN.POSA.BNENO'
      Size = 10
    end
    object QPOSAPAIPN: TBooleanField
      FieldName = 'PAIPN'
      Origin = 'MAIN.POSA.PAIPN'
    end
    object QPOSAPAIVO: TStringField
      FieldName = 'PAIVO'
      Origin = 'MAIN.POSA.PAIVO'
      Size = 15
    end
    object QPOSAPACIV: TStringField
      FieldName = 'PACIV'
      Origin = 'MAIN.POSA.PACIV'
      Size = 8
    end
    object QPOSAPADAT: TDateTimeField
      FieldName = 'PADAT'
      Origin = 'MAIN.POSA.PADAT'
    end
    object QPOSAPATME: TStringField
      FieldName = 'PATME'
      Origin = 'MAIN.POSA.PATME'
      Size = 5
    end
    object QPOSAPACNT: TFloatField
      FieldName = 'PACNT'
      Origin = 'MAIN.POSA.PACNT'
    end
    object QPOSAPACOT: TFloatField
      FieldName = 'PACOT'
      Origin = 'MAIN.POSA.PACOT'
    end
    object QPOSAPACOG: TFloatField
      FieldName = 'PACOG'
      Origin = 'MAIN.POSA.PACOG'
    end
    object QPOSAPACNO: TStringField
      FieldName = 'PACNO'
      Origin = 'MAIN.POSA.PACNO'
    end
    object QPOSAPACDT: TDateTimeField
      FieldName = 'PACDT'
      Origin = 'MAIN.POSA.PACDT'
    end
    object QPOSAPACNA: TFloatField
      FieldName = 'PACNA'
      Origin = 'MAIN.POSA.PACNA'
    end
    object QPOSAPACKD: TStringField
      FieldName = 'PACKD'
      Origin = 'MAIN.POSA.PACKD'
      Size = 3
    end
    object QPOSAPGCOS: TFloatField
      FieldName = 'PGCOS'
      Origin = 'MAIN.POSA.PGCOS'
    end
    object QPOSAPABCK: TBooleanField
      FieldName = 'PABCK'
      Origin = 'MAIN.POSA.PABCK'
    end
    object QPOSAPABCN: TBooleanField
      FieldName = 'PABCN'
      Origin = 'MAIN.POSA.PABCN'
    end
    object QPOSAPACPD: TBooleanField
      FieldName = 'PACPD'
      Origin = 'MAIN.POSA.PACPD'
    end
    object QPOSAPAWEK: TStringField
      FieldName = 'PAWEK'
      Origin = 'MAIN.POSA.PAWEK'
      Size = 1
    end
  end
  object QPOSB: TQuery
    DatabaseName = 'MAIN'
    SQL.Strings = (
      'SELECT * '
      'FROM POSB, BGDS')
    Left = 250
    Top = 5
    object QPOSBPAENO: TStringField
      FieldName = 'PAENO'
      Origin = 'MAIN.POSB.PAENO'
      Size = 12
    end
    object QPOSBPBENO: TStringField
      FieldName = 'PBENO'
      Origin = 'MAIN.POSB.PBENO'
      Size = 3
    end
    object QPOSBBGQTN: TFloatField
      FieldName = 'BGQTN'
      Origin = 'MAIN.POSB.BGQTN'
    end
    object QPOSBBGENO: TStringField
      FieldName = 'BGENO'
      Origin = 'MAIN.POSB.BGENO'
    end
    object QPOSBBGCNT: TFloatField
      FieldName = 'BGCNT'
      Origin = 'MAIN.POSB.BGCNT'
    end
    object QPOSBBGCOS: TFloatField
      FieldName = 'BGCOS'
      Origin = 'MAIN.POSB.BGCOS'
    end
    object QPOSBBGCOT: TFloatField
      FieldName = 'BGCOT'
      Origin = 'MAIN.POSB.BGCOT'
    end
    object QPOSBBGENO_1: TStringField
      FieldName = 'BGENO_1'
      Origin = 'MAIN.POSB.BGCOT'
    end
    object QPOSBBGNAM: TStringField
      FieldName = 'BGNAM'
      Origin = 'MAIN.POSB.BGCOT'
      Size = 40
    end
    object QPOSBBGKIN: TStringField
      FieldName = 'BGKIN'
      Origin = 'MAIN.POSB.BGCOT'
      Size = 3
    end
    object QPOSBBGPST: TFloatField
      FieldName = 'BGPST'
      Origin = 'MAIN.POSB.BGCOT'
    end
    object QPOSBBGPVP: TFloatField
      FieldName = 'BGPVP'
      Origin = 'MAIN.POSB.BGCOT'
    end
    object QPOSBBGPMM: TFloatField
      FieldName = 'BGPMM'
      Origin = 'MAIN.POSB.BGCOT'
    end
    object QPOSBBGCST: TFloatField
      FieldName = 'BGCST'
      Origin = 'MAIN.POSB.BGCOT'
    end
    object QPOSBBGOTH: TFloatField
      FieldName = 'BGOTH'
      Origin = 'MAIN.POSB.BGCOT'
    end
    object QPOSBBGQTS: TFloatField
      FieldName = 'BGQTS'
      Origin = 'MAIN.POSB.BGCOT'
    end
    object QPOSBBGQTN_1: TFloatField
      FieldName = 'BGQTN_1'
      Origin = 'MAIN.POSB.BGCOT'
    end
    object QPOSBBGCOS_1: TFloatField
      FieldName = 'BGCOS_1'
      Origin = 'MAIN.POSB.BGCOT'
    end
    object QPOSBBSENO: TStringField
      FieldName = 'BSENO'
      Origin = 'MAIN.POSB.BGCOT'
      Size = 10
    end
    object QPOSBBGCNA: TStringField
      FieldName = 'BGCNA'
      Origin = 'MAIN.POSB.BGCOT'
      Size = 40
    end
    object QPOSBBGSUM: TStringField
      FieldName = 'BGSUM'
      Origin = 'MAIN.POSB.BGCOT'
      Size = 30
    end
    object QPOSBBGSIN: TStringField
      FieldName = 'BGSIN'
      Origin = 'MAIN.POSB.BGCOT'
      Size = 5
    end
    object QPOSBBGRUL: TStringField
      FieldName = 'BGRUL'
      Origin = 'MAIN.POSB.BGCOT'
      Size = 3
    end
    object QPOSBBGGAU: TStringField
      FieldName = 'BGGAU'
      Origin = 'MAIN.POSB.BGCOT'
      Size = 3
    end
    object QPOSBBGUNS: TStringField
      FieldName = 'BGUNS'
      Origin = 'MAIN.POSB.BGCOT'
      Size = 3
    end
    object QPOSBBGUNP: TStringField
      FieldName = 'BGUNP'
      Origin = 'MAIN.POSB.BGCOT'
      Size = 3
    end
    object QPOSBBGCLR: TStringField
      FieldName = 'BGCLR'
      Origin = 'MAIN.POSB.BGCOT'
      Size = 3
    end
    object QPOSBBGCLH: TStringField
      FieldName = 'BGCLH'
      Origin = 'MAIN.POSB.BGCOT'
      Size = 10
    end
    object QPOSBBGCLW: TFloatField
      FieldName = 'BGCLW'
      Origin = 'MAIN.POSB.BGCOT'
    end
    object QPOSBBGUNW: TStringField
      FieldName = 'BGUNW'
      Origin = 'MAIN.POSB.BGCOT'
      Size = 3
    end
    object QPOSBBGUSE: TStringField
      FieldName = 'BGUSE'
      Origin = 'MAIN.POSB.BGCOT'
      Size = 3
    end
    object QPOSBBGCSS: TFloatField
      FieldName = 'BGCSS'
      Origin = 'MAIN.POSB.BGCOT'
    end
    object QPOSBBGQTE: TFloatField
      FieldName = 'BGQTE'
      Origin = 'MAIN.POSB.BGCOT'
    end
    object QPOSBBGDTC: TDateTimeField
      FieldName = 'BGDTC'
      Origin = 'MAIN.POSB.BGCOT'
    end
    object QPOSBBGDAT: TDateTimeField
      FieldName = 'BGDAT'
      Origin = 'MAIN.POSB.BGCOT'
    end
    object QPOSBBGMRK: TMemoField
      FieldName = 'BGMRK'
      Origin = 'MAIN.POSB.BGCOT'
      BlobType = ftMemo
      Size = 1
    end
    object QPOSBBGBSA: TStringField
      FieldName = 'BGBSA'
      Origin = 'MAIN.POSB.BGCOT'
      Size = 50
    end
    object QPOSBBGBSB: TStringField
      FieldName = 'BGBSB'
      Origin = 'MAIN.POSB.BGCOT'
      Size = 50
    end
    object QPOSBBGBSC: TStringField
      FieldName = 'BGBSC'
      Origin = 'MAIN.POSB.BGCOT'
      Size = 50
    end
    object QPOSBBGBIA: TFloatField
      FieldName = 'BGBIA'
      Origin = 'MAIN.POSB.BGCOT'
    end
    object QPOSBBGBIB: TFloatField
      FieldName = 'BGBIB'
      Origin = 'MAIN.POSB.BGCOT'
    end
    object QPOSBBGBIC: TFloatField
      FieldName = 'BGBIC'
      Origin = 'MAIN.POSB.BGCOT'
    end
  end
end