📄 rpposdf.dfm

📁 DELPHI编写的商场收银POS机源代码
💻 DFM
📖 第 1 页 / 共 2 页
字号:
上一页 12
      Alignment = taRightJustify
      AutoSize = False
      Caption = ' '
      Color = 14811131
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label11: TLabel
      Left = 108
      Top = 142
      Width = 90
      Height = 15
      Caption = '今日实际收入'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object ED_TODAY_INCOME: TLabel
      Left = 115
      Top = 160
      Width = 80
      Height = 18
      Alignment = taRightJustify
      AutoSize = False
      Caption = ' '
      Color = 14811131
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Layout = tlCenter
    end
    object Label15: TLabel
      Left = 95
      Top = 162
      Width = 20
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Caption = '－'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      Layout = tlCenter
    end
    object Label17: TLabel
      Left = 195
      Top = 162
      Width = 20
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Caption = '＝'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      Layout = tlCenter
    end
    object ED_TODAY_SALE: TLabel
      Left = 10
      Top = 160
      Width = 80
      Height = 18
      Alignment = taRightJustify
      AutoSize = False
      Caption = ' '
      Color = 14811131
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label6: TLabel
      Left = 8
      Top = 142
      Width = 90
      Height = 15
      Caption = '今日实际收入'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object LB11: TJEdit
      Left = 83
      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 = False
      _LONGTIME = False
    end
    object LB12: TJEdit
      Left = 203
      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 LB21: JLOOKUPBOX
      Left = 83
      Top = 43
      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 = 'SYSLST'
      _Field_IDNO = 'LSTENO'
      _Field_NAME = 'LSTNAM'
      _Field_KEY1 = 'LSTITM'
      _EDIT_WIDTH = 80
      _CHANGE_QUERY = True
      _INSERT_RECORD = False
      _SHOW_MESSAGE = False
    end
    object LB31: JLOOKUPBOX
      Left = 83
      Top = 66
      Width = 221
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      MaxLength = 20
      ParentFont = False
      TabOrder = 3
      _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: JLOOKUPBOX
      Left = 83
      Top = 89
      Width = 221
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      MaxLength = 20
      ParentFont = False
      TabOrder = 4
      _DatabaseName = 'MAIN'
      _TableName = 'SYSLST'
      _Field_IDNO = 'LSTENO'
      _Field_NAME = 'LSTNAM'
      _Field_KEY1 = 'LSTITM'
      _EDIT_WIDTH = 80
      _CHANGE_QUERY = True
      _INSERT_RECORD = False
      _SHOW_MESSAGE = False
    end
    object LB91: TJEdit
      Left = 83
      Top = 112
      Width = 86
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      Digits = 1
      Max = 999999999
      _EditType = INTEGER_EDIT
      _SHOWCAL = NONE
      _BADINPUT = True
      _LONGTIME = False
    end
  end
  object MainMenu1: TMainMenu
    Left = 20
    Top = 190
    object ESC1: TMenuItem
      Caption = 'ESC'
      ShortCut = 27
      Visible = False
      OnClick = BTNQUTClick
    end
    object F11: TMenuItem
      Caption = 'F1'
      ShortCut = 112
      Visible = False
    end
    object F21: TMenuItem
      Caption = 'F2'
      ShortCut = 113
      Visible = False
    end
    object F31: TMenuItem
      Caption = 'F3'
      ShortCut = 114
      Visible = False
    end
    object F51: TMenuItem
      Caption = 'F5'
      ShortCut = 116
      Visible = False
    end
    object F61: TMenuItem
      Caption = 'F6'
      ShortCut = 117
      Visible = False
    end
    object F7: TMenuItem
      Caption = 'F7'
      ShortCut = 118
      Visible = False
    end
    object F8: TMenuItem
      Caption = 'F8'
      ShortCut = 119
      Visible = False
    end
  end
  object QPOSD: TQuery
    DatabaseName = 'MAIN'
    SQL.Strings = (
      'SELECT PAIDE, BNENO, PADAT FROM POSA')
    Left = 455
    Top = 105
    object QPOSDPAIDE: TStringField
      FieldName = 'PAIDE'
      Origin = 'MAIN.POSA.PAIDE'
      Size = 3
    end
    object QPOSDBNENO: TStringField
      FieldName = 'BNENO'
      Origin = 'MAIN.POSA.BNENO'
      Size = 10
    end
    object QPOSDPADAT: TDateTimeField
      FieldName = 'PADAT'
      Origin = 'MAIN.POSA.PADAT'
    end
  end
  object QPOSA: TQuery
    DatabaseName = 'MAIN'
    SQL.Strings = (
      'SELECT * FROM POSA')
    Left = 455
    Top = 25
    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 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
    object QPOSAPGCOS: TFloatField
      FieldName = 'PGCOS'
      Origin = 'MAIN.POSA.PABCK'
    end
  end
end
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -