📄 unit12.dfm
字号:
item
FieldName = 'saler'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '售货员'
Width = 50
Footers = <>
end>
end
end
object TPage
Left = 0
Top = 0
Caption = 'payed'
object DBGridEh2: TDBGridEh
Left = 0
Top = 0
Width = 630
Height = 370
Align = alClient
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = '宋体'
TitleFont.Style = []
FooterRowCount = 1
FrozenCols = 1
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = 'MS Sans Serif'
FooterFont.Style = []
FooterColor = clWindow
SumList.Active = True
Columns = <
item
FieldName = 'sno'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '流水号'
Footers = <>
end
item
FieldName = 'orgtotal'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '应收金额'
Footers = <
item
Alignment = taCenter
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ValueType = fvtSum
end>
end
item
FieldName = 'stotal'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '实收金额'
Footers = <
item
Alignment = taCenter
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ValueType = fvtSum
end>
end
item
FieldName = 'change'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '找钱'
Footers = <
item
Alignment = taCenter
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ValueType = fvtSum
end>
end
item
FieldName = 'spay1'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '现金'
Footers = <
item
Alignment = taCenter
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ValueType = fvtSum
end>
end
item
FieldName = 'pay2'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '支票'
Footers = <
item
Alignment = taCenter
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ValueType = fvtSum
end>
end
item
FieldName = 'pay3'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '信用卡'
Footers = <
item
Alignment = taCenter
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ValueType = fvtSum
end>
end
item
FieldName = 'pay4'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '其他票据'
Footers = <
item
Alignment = taCenter
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ValueType = fvtSum
end>
end
item
FieldName = 'pay5'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '店内票据'
Footers = <
item
Alignment = taCenter
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ValueType = fvtSum
end>
end
item
FieldName = 'pay6'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '挂帐'
Footers = <
item
Alignment = taCenter
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
ValueType = fvtSum
end>
end
item
FieldName = 'ecr'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '收银机编号'
Width = 68
Footers = <>
end
item
FieldName = 'tmpclerk'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '替班员'
Width = 39
Footers = <>
end
item
FieldName = 'clerk'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '收银员'
Width = 42
Footers = <>
end
item
FieldName = 'saledate'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '销售日期'
Width = 65
Footers = <>
end
item
FieldName = 'saletime'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '销售时间'
Width = 61
Footers = <>
end
item
FieldName = 'totaldis'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '合计折扣'
Width = 61
Footers = <>
end
item
FieldName = 'totalsub'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = '合计折让'
Footers = <>
end>
end
end
end
end
object DataSourcequery: TDataSource
DataSet = querygoods
Left = 56
Top = 152
end
object querygoods: TQuery
DatabaseName = 'pos'
ParamCheck = False
SQL.Strings = (
''
'')
Left = 24
Top = 152
end
object Querypayed: TQuery
DatabaseName = 'pos'
SQL.Strings = (
'')
Left = 489
Top = 146
end
object DataSource1: TDataSource
DataSet = Querypayed
Left = 529
Top = 146
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -