📄 jm_ydmxcx.dfm
字号:
ParentFont = False
end
object Label1: TLabel
Left = 471
Top = 326
Width = 48
Height = 12
Caption = '交易金额'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 652
Top = 324
Width = 48
Height = 12
Caption = '交易数目'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 13
Top = 12
Width = 36
Height = 12
Caption = '营业员'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 191
Top = 326
Width = 24
Height = 12
Caption = '户数'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 307
Top = 326
Width = 48
Height = 12
Caption = '预订数量'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object ListBox1: TListBox
Left = 482
Top = 120
Width = 104
Height = 69
ItemHeight = 15
Items.Strings = (
' 预 定'
' 零 售'
' 加 收'
' 退 补'
' 换 卡')
TabOrder = 0
end
object DBGrid2: TDBGrid
Left = 192
Top = 30
Width = 553
Height = 283
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
PopupMenu = data.pm_Export
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'YDLX'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Visible = False
end
item
Expanded = False
FieldName = 'ZLMC'
Title.Caption = '预订类型'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 82
Visible = True
end
item
Expanded = False
FieldName = 'LSH'
Title.Caption = '收据号'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 91
Visible = True
end
item
Expanded = False
FieldName = '1'
Title.Caption = '户数'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 35
Visible = True
end
item
Expanded = False
FieldName = 'SL'
Title.Caption = '数量'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 35
Visible = True
end
item
Expanded = False
FieldName = 'YFK'
Title.Caption = '预付款'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'BZJ'
Title.Caption = '保证金'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Visible = True
end
item
Expanded = False
FieldName = 'GBF'
Title.Caption = '工本费'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'QTFY'
Title.Caption = '其他费用'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'FYHJ'
Title.Caption = '费用合计'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'JYRQ'
Title.Caption = '交易日期'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 70
Visible = True
end>
end
object CB_ygdm: TComboBox
Left = 12
Top = 30
Width = 165
Height = 20
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ItemHeight = 12
ParentFont = False
TabOrder = 2
end
object LB_ydlx: TListBox
Left = 12
Top = 92
Width = 165
Height = 221
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ItemHeight = 12
ParentFont = False
TabOrder = 3
end
object SE_year: TSpinEdit
Left = 108
Top = 66
Width = 69
Height = 21
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
MaxValue = 0
MinValue = 0
ParentFont = False
TabOrder = 4
Value = 2000
OnChange = SE_yearChange
end
object Edit2: TCurrencyEdit
Left = 540
Top = 322
Width = 101
Height = 23
AutoSize = False
Color = cl3DLight
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 5
end
object Edit1: TCurrencyEdit
Left = 76
Top = 322
Width = 101
Height = 23
AutoSize = False
Color = cl3DLight
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 6
end
object Edt_hs: TCurrencyEdit
Left = 224
Top = 322
Width = 69
Height = 23
AutoSize = False
Color = cl3DLight
DisplayFormat = '#,##'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 7
end
object Edt_ydsl: TCurrencyEdit
Left = 372
Top = 322
Width = 85
Height = 23
AutoSize = False
Color = cl3DLight
DisplayFormat = '#,##'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 8
end
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 436
Top = 200
end
object Query1: TQuery
AfterOpen = Query1AfterOpen
DatabaseName = 'YZPP'
SQL.Strings = (
'select a.YDLX,b.ZLMC,a.LSH,1,a.SL,a.YFK,a.GBF,a.QTFY,a.YFK+a.GBF' +
'+a.QTFY FYHJ,a.JYRQ '
'from TM_JYMXB a, TM_YDZLB b '
'where a.YDLX=b.ZLDM and b.NF='#39'2002'#39' and ygdm='#39'Q1'#39' ')
Left = 408
Top = 200
end
object RQry_pnt: TRxQuery
DatabaseName = 'YZPP'
SQL.Strings = (
'select 2,a.YDLX,'#39'小计'#39' YDLXMC,'#39#39' LSH,sum(1) HS,sum(a.SL) SL,sum(' +
'a.YFK*a.SL/100) YFK,sum(a.BZJ*a.SL/100) BZJ,sum(a.GBF/100) GBF,s' +
'um(a.QTFY/100) QTFY,sum((nvl(a.YFK*a.SL,0)+nvl(a.BZJ*a.SL,0)+nvl' +
'(a.GBF,0)+nvl(a.QTFY,0))/100) FYHJ from TM_JYMXB a, TM_YDZLB b w' +
'here a.YDLX=b.ZLDM and a.JYLX='#39'yd'#39' and b.NF=%NF and a.CZZT='#39'0'#39' a' +
'nd %TJ group by ydlx'
'union'
'select 1,a.YDLX,b.ZLMC,a.LSH,1,a.SL,a.YFK*a.SL/100 YFK,a.BZJ*a.S' +
'L/100 BZJ,a.GBF/100 GBF,a.QTFY/100 QTFY,(nvl(a.YFK*a.SL,0)+nvl(a' +
'.GBF,0)+nvl(a.QTFY,0))/100 FYHJ from TM_JYMXB a, TM_YDZLB b wher' +
'e a.YDLX=b.ZLDM and a.JYLX='#39'yd'#39' and b.NF=%NF and a.CZZT='#39'0'#39' and ' +
'%TJ'
'union'
'select 3,'#39#39','#39'合计'#39','#39#39', sum(1),sum(a.SL) SL,sum(a.YFK*a.SL/100' +
') YFK,sum(a.BZJ*a.SL/100) BZJ,sum(a.GBF/100) GBF,sum(a.QTFY/100)' +
' QTFY,sum((nvl(a.YFK*a.SL,0)+nvl(a.BZJ*a.SL,0)+nvl(a.GBF,0)+nvl(' +
'a.QTFY,0))/100) FYHJ from TM_JYMXB a, TM_YDZLB b where a.YDLX=b.' +
'ZLDM and a.JYLX='#39'yd'#39' and b.NF=%NF and a.CZZT='#39'0'#39' and %TJ'
'order by 2,1, 3'
' ')
Macros = <
item
DataType = ftString
Name = 'NF'
ParamType = ptInput
Value = '0=0'
end
item
DataType = ftString
Name = 'TJ'
ParamType = ptInput
Value = '0=0'
end>
Left = 480
Top = 411
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -