📄 jm_jymxcx.dfm
字号:
end
object DateEdit3: TDateEdit
Left = 247
Top = 43
Width = 110
Height = 21
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
NumGlyphs = 2
ParentFont = False
PopupFont.Charset = DEFAULT_CHARSET
PopupFont.Color = clWindowText
PopupFont.Height = -11
PopupFont.Name = 'MS Sans Serif'
PopupFont.Style = []
YearDigits = dyFour
TabOrder = 9
end
end
object Panel5: TPanel
Left = 28
Top = 12
Width = 733
Height = 357
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Panel2'
TabOrder = 0
object Label2: TLabel
Left = 25
Top = 64
Width = 48
Height = 12
Caption = '交易类型'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 23
Top = 327
Width = 48
Height = 12
Caption = '总计金额'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 236
Top = 12
Width = 48
Height = 12
Caption = '交易情况'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 235
Top = 326
Width = 48
Height = 12
Caption = '交易金额'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 592
Top = 324
Width = 48
Height = 12
Caption = '交易数目'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 25
Top = 16
Width = 36
Height = 12
Caption = '营业员'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
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 = 236
Top = 30
Width = 473
Height = 283
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
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 = 'JE'
Title.Caption = '金额'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 130
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 = 130
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 = 170
Visible = True
end>
end
object CB_ygdm: TComboBox
Left = 24
Top = 32
Width = 187
Height = 20
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ItemHeight = 12
ParentFont = False
TabOrder = 2
end
object LB_jylx: TListBox
Left = 24
Top = 80
Width = 185
Height = 233
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ItemHeight = 12
ParentFont = False
TabOrder = 3
end
object Edit1: TCurrencyEdit
Left = 88
Top = 322
Width = 101
Height = 23
AutoSize = False
Color = cl3DLight
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 4
end
object Edit2: TCurrencyEdit
Left = 300
Top = 322
Width = 101
Height = 23
AutoSize = False
Color = cl3DLight
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 5
end
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 436
Top = 200
end
object Query1: TQuery
DatabaseName = 'YZPP'
SQL.Strings = (
'select yd JE, LSH, JYRQ '
'from VW_JYMXB '
'where yd is not Null and '
'to_char(JYRQ, '#39'YYYYMMDD'#39') ='#39'20020102'#39' and '
'SUBSTR(lsh,10,3)>=LTRIM(to_char('#39'1'#39','#39'000'#39')) and '
'SUBSTR(lsh,10,3)<=LTRIM(to_char('#39'3'#39','#39'000'#39'))')
Left = 408
Top = 200
object Query1YD: TFloatField
FieldName = 'JE'
OnGetText = Query1YDGetText
end
object Query1LSH: TStringField
FieldName = 'LSH'
Size = 15
end
object Query1JYRQ: TDateTimeField
FieldName = 'JYRQ'
end
end
object RQry_pnt: TRxQuery
DatabaseName = 'YZPP'
SQL.Strings = (
'select ygdm,11,'#39#39','#39'小计'#39',nvl(sum(YFK),0) + nvl(sum(BZJ),0) + nvl' +
'(sum(GBF),0) + nvl(sum(QTFY),0) + nvl(sum(LS),0) + nvl(sum(JS),0' +
') - nvl(sum(TB),0) + nvl(sum(CKLS),0) + nvl(sum(HK),0) - nvl(sum' +
'(TBZJ),0) from vw_jymxb a where %TJ group by ygdm'
'union'
'select a.ygdm,1,b.ygmc,'#39'预付款'#39', nvl(sum(yfk),0) from vw_jymxb a' +
', tgs_ryb b where a.ygdm=b.ygdm and %TJ group by a.ygdm,b.ygmc'
'union'
'select ygdm,2,'#39#39','#39'保证金'#39', nvl(sum(bzj),0) from vw_jymxb a where' +
' %TJ group by ygdm'
'union'
'select ygdm,3,'#39#39','#39'工本费'#39', nvl(sum(gbf),0) from vw_jymxb a where' +
' %TJ group by ygdm'
'union'
'select ygdm,4,'#39#39','#39'其他费用'#39', nvl(sum(qtfy),0) from vw_jymxb a wh' +
'ere %TJ group by ygdm'
'union'
'select ygdm,5,'#39#39','#39'零售'#39', nvl(sum(ls),0) from vw_jymxb a where %T' +
'J group by ygdm'
'union'
'select ygdm,6,'#39#39','#39'加收'#39', nvl(sum(js),0) from vw_jymxb a where %T' +
'J group by ygdm'
'union'
'select ygdm,7,'#39#39','#39'退补'#39', nvl(sum(tb),0) from vw_jymxb a where %T' +
'J group by ygdm'
'union'
'select ygdm,8,'#39#39','#39'磁卡零售'#39', nvl(sum(ckls),0) from vw_jymxb a wh' +
'ere %TJ group by ygdm'
'union'
'select ygdm,9,'#39#39','#39'换卡'#39', nvl(sum(hk),0) from vw_jymxb a where %T' +
'J group by ygdm'
'union '
'select ygdm,10,'#39#39','#39'退保证金'#39', nvl(sum(tbzj),0) from vw_jymxb a w' +
'here %TJ group by ygdm'
'union'
'select '#39#39', 12, '#39'合计'#39', '#39#39', nvl(sum(YFK),0) + nvl(sum(BZJ),0) + n' +
'vl(sum(GBF),0) + nvl(sum(QTFY),0) + nvl(sum(LS),0) + nvl(sum(JS)' +
',0) - nvl(sum(TB),0) + nvl(sum(CKLS),0) + nvl(sum(HK),0) - nvl(s' +
'um(TBZJ),0) from vw_jymxb a where %TJ'
'order by 1,2'
' ')
Macros = <
item
DataType = ftString
Name = 'TJ'
ParamType = ptInput
Value = '0=0'
end>
Left = 480
Top = 415
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -