hanxuntao
/
D6HECHUAN
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '4e4df949a6'
${ noResults }
D6HECHUAN/费用模块/u_ch_fee_view.~dfm

691 lines
19 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
object frm_ch_fee_view: Tfrm_ch_fee_view
Left = 230
Top = 107
Align = alClient
BorderIcons = []
BorderStyle = bsDialog
Caption = #19994#21153#36153#29992#23519#30475
ClientHeight = 453
ClientWidth = 688
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 12
object Panel2: TPanel
Left = 0
Top = 0
Width = 688
Height = 22
Align = alTop
BevelInner = bvLowered
Color = 14603702
TabOrder = 0
object bsSkinStdLabel4: TbsSkinStdLabel
Left = 2
Top = 2
Width = 23
Height = 18
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = frm_main.bsSkinData1
SkinDataName = 'stdlabel'
Align = alLeft
Caption = 'USD'
end
object bsSkinStdLabel2: TbsSkinStdLabel
Left = 81
Top = 2
Width = 6
Height = 18
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = frm_main.bsSkinData1
SkinDataName = 'stdlabel'
Align = alLeft
Caption = '='
end
object bsSkinStdLabel3: TbsSkinStdLabel
Left = 143
Top = 2
Width = 3
Height = 18
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = frm_main.bsSkinData1
SkinDataName = 'stdlabel'
Align = alLeft
Caption = '-'
end
object bsSkinStdLabel1: TbsSkinStdLabel
Left = 202
Top = 2
Width = 24
Height = 18
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = frm_main.bsSkinData1
SkinDataName = 'stdlabel'
Align = alLeft
Caption = 'RMB'
end
object bsSkinStdLabel5: TbsSkinStdLabel
Left = 282
Top = 2
Width = 6
Height = 18
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = frm_main.bsSkinData1
SkinDataName = 'stdlabel'
Align = alLeft
Caption = '='
end
object bsSkinStdLabel6: TbsSkinStdLabel
Left = 344
Top = 2
Width = 3
Height = 18
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = frm_main.bsSkinData1
SkinDataName = 'stdlabel'
Align = alLeft
Caption = '-'
end
object bsSkinStdLabel7: TbsSkinStdLabel
Left = 403
Top = 2
Width = 24
Height = 18
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = frm_main.bsSkinData1
SkinDataName = 'stdlabel'
Align = alLeft
Caption = #27611#21033
end
object bsSkinStdLabel8: TbsSkinStdLabel
Left = 483
Top = 2
Width = 6
Height = 18
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = frm_main.bsSkinData1
SkinDataName = 'stdlabel'
Align = alLeft
Caption = '='
end
object bsSkinStdLabel9: TbsSkinStdLabel
Left = 545
Top = 2
Width = 3
Height = 18
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = frm_main.bsSkinData1
SkinDataName = 'stdlabel'
Align = alLeft
Caption = '-'
end
object bsSkinStdLabel10: TbsSkinStdLabel
Left = 604
Top = 2
Width = 24
Height = 18
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = frm_main.bsSkinData1
SkinDataName = 'stdlabel'
Align = alLeft
Caption = #21033#29575
end
object bsSkinDBEdit6: TbsSkinDBEdit
Left = 25
Top = 2
Width = 56
Height = 18
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = False
SkinDataName = 'edit'
ReadOnly = True
Align = alLeft
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 0
Text = 'bsSkinDBEdit6'
AutoSize = False
DataField = #21033#28070'USD'
DataSource = t_op_gain1
end
object bsSkinDBEdit4: TbsSkinDBEdit
Left = 87
Top = 2
Width = 56
Height = 18
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = False
SkinDataName = 'edit'
ReadOnly = True
Align = alLeft
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 1
Text = 'bsSkinDBEdit4'
AutoSize = False
DataField = #24212#25910'USD'
DataSource = t_op_gain1
end
object bsSkinDBEdit1: TbsSkinDBEdit
Left = 146
Top = 2
Width = 56
Height = 18
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = False
SkinDataName = 'edit'
ReadOnly = True
Align = alLeft
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 2
Text = 'bsSkinDBEdit1'
AutoSize = False
DataField = #24212#20184'USD'
DataSource = t_op_gain1
end
object bsSkinDBEdit3: TbsSkinDBEdit
Left = 226
Top = 2
Width = 56
Height = 18
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = False
SkinDataName = 'edit'
ReadOnly = True
Align = alLeft
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 3
Text = 'bsSkinDBEdit3'
AutoSize = False
DataField = #21033#28070'RMB'
DataSource = t_op_gain1
end
object bsSkinDBEdit5: TbsSkinDBEdit
Left = 288
Top = 2
Width = 56
Height = 18
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = False
SkinDataName = 'edit'
ReadOnly = True
Align = alLeft
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 4
Text = 'bsSkinDBEdit5'
AutoSize = False
DataField = #24212#25910'RMB'
DataSource = t_op_gain1
end
object bsSkinDBEdit2: TbsSkinDBEdit
Left = 347
Top = 2
Width = 56
Height = 18
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = False
SkinDataName = 'edit'
ReadOnly = True
Align = alLeft
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 5
Text = 'bsSkinDBEdit2'
AutoSize = False
DataField = #24212#20184'RMB'
DataSource = t_op_gain1
end
object bsSkinDBEdit8: TbsSkinDBEdit
Left = 427
Top = 2
Width = 56
Height = 18
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = False
SkinDataName = 'edit'
ReadOnly = True
Align = alLeft
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 6
Text = 'bsSkinDBEdit8'
AutoSize = False
DataField = #27611#21033#28070
DataSource = t_op_gain1
end
object bsSkinDBEdit7: TbsSkinDBEdit
Left = 489
Top = 2
Width = 56
Height = 18
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = False
SkinDataName = 'edit'
ReadOnly = True
Align = alLeft
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 7
Text = 'bsSkinDBEdit7'
AutoSize = False
DataField = #21512#35745#24212#25910
DataSource = t_op_gain1
end
object bsSkinDBEdit9: TbsSkinDBEdit
Left = 548
Top = 2
Width = 56
Height = 18
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = False
SkinDataName = 'edit'
ReadOnly = True
Align = alLeft
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 8
Text = 'bsSkinDBEdit9'
AutoSize = False
DataField = #21512#35745#24212#20184
DataSource = t_op_gain1
end
object bsSkinDBEdit10: TbsSkinDBEdit
Left = 628
Top = 2
Width = 58
Height = 18
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = False
SkinDataName = 'edit'
ReadOnly = True
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 9
Text = 'bsSkinDBEdit10'
AutoSize = False
DataField = #21033#28070#29575
DataSource = t_op_gain1
end
end
object wwDBGrid1: TwwDBGrid
Left = 0
Top = 22
Width = 688
Height = 216
Selected.Strings = (
#36153#29992#29366#24577#9'8'#9#36153#29992#29366#24577
#36153#29992#21517#31216#9'12'#9#24212#25910#36153#29992#21517#31216
#32467#31639#21333#20301#9'8'#9#32467#31639#21333#20301
#23458#25143#21517#31216#9'13'#9#23458#25143#21517#31216
#26631#20934#9'6'#9#26631#20934
#21333#20215#9'7'#9#21333#20215
#25968#37327#9'7'#9#25968#37327
#37329#39069#9'10'#9#37329#39069
#24065#21035#9'4'#9#24065#21035
#27719#29575#9'5'#9#27719#29575
#32467#31639#37329#39069#9'10'#9#32467#31639#37329#39069
#24320#31080#37329#39069#9'19'#9#24320#31080#37329#39069
#30003#35831#37329#39069#9'19'#9#30003#35831#37329#39069
#25552#20132#26085#26399#9'11'#9#25552#20132#26085#26399
#23457#26680#20154#9'6'#9#23457#26680#20154
#23457#26680#26085#26399#9'11'#9#23457#26680#26085#26399
#24405#20837#20154#9'7'#9#24405#20837#20154
#24405#20837#26085#26399#9'12'#9#24405#20837#26085#26399
#22791#27880#9'100'#9#22791#27880)
IniAttributes.Delimiter = ';;'
TitleColor = clBtnFace
FixedCols = 0
ShowHorzScrollBar = True
Align = alTop
DataSource = t_ch_accept1
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 1
TitleAlignment = taLeftJustify
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
TitleLines = 1
TitleButtons = False
OnDrawDataCell = wwDBGrid1DrawDataCell
end
object wwDBGrid2: TwwDBGrid
Left = 0
Top = 238
Width = 688
Height = 215
Selected.Strings = (
#36153#29992#29366#24577#9'8'#9#36153#29992#29366#24577
#36153#29992#21517#31216#9'12'#9#24212#20184#36153#29992#21517#31216
#32467#31639#21333#20301#9'8'#9#32467#31639#21333#20301
#23458#25143#21517#31216#9'13'#9#23458#25143#21517#31216
#26631#20934#9'6'#9#26631#20934
#21333#20215#9'7'#9#21333#20215
#25968#37327#9'7'#9#25968#37327
#37329#39069#9'10'#9#37329#39069
#24065#21035#9'4'#9#24065#21035
#27719#29575#9'5'#9#27719#29575
#32467#31639#37329#39069#9'10'#9#32467#31639#37329#39069
#24320#31080#37329#39069#9'19'#9#24320#31080#37329#39069
#30003#35831#37329#39069#9'19'#9#30003#35831#37329#39069
#25552#20132#26085#26399#9'11'#9#25552#20132#26085#26399
#23457#26680#20154#9'6'#9#23457#26680#20154
#23457#26680#26085#26399#9'11'#9#23457#26680#26085#26399
#24405#20837#20154#9'7'#9#24405#20837#20154
#24405#20837#26085#26399#9'12'#9#24405#20837#26085#26399
#22791#27880#9'100'#9#22791#27880)
IniAttributes.Delimiter = ';;'
TitleColor = clBtnFace
FixedCols = 0
ShowHorzScrollBar = True
Align = alClient
DataSource = t_ch_pay1
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 2
TitleAlignment = taLeftJustify
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
TitleLines = 1
TitleButtons = False
OnDrawDataCell = wwDBGrid2DrawDataCell
end
object t_op_gain: TADOQuery
Connection = frm_main.db
CursorType = ctStatic
Parameters = <
item
Name = #32534#21495
DataType = ftString
NumericScale = 255
Precision = 255
Size = 12
Value = Null
end>
SQL.Strings = (
'select * from t_op_gain'
'where '#32534#21495'=:'#32534#21495)
Left = 272
Top = 112
end
object t_op_gain1: TDataSource
DataSet = t_op_gain
Left = 248
Top = 184
end
object t_ch_accept: TADOQuery
Connection = frm_main.db
CursorType = ctStatic
Parameters = <
item
Name = #32534#21495
Attributes = [paNullable]
DataType = ftString
NumericScale = 255
Precision = 255
Size = 12
Value = Null
end>
SQL.Strings = (
'select * from t_ch_fee'
'where '#31867#22411'='#39#25910#39' and '#32534#21495'=:'#32534#21495
'order by '#39034#24207',CH_ID')
Left = 132
Top = 116
end
object t_ch_accept1: TDataSource
DataSet = t_ch_accept
Left = 168
Top = 184
end
object t_ch_pay: TADOQuery
Active = True
Connection = frm_main.db
CursorType = ctStatic
Parameters = <
item
Name = #32534#21495
Attributes = [paNullable]
DataType = ftString
NumericScale = 255
Precision = 255
Size = 12
Value = Null
end>
SQL.Strings = (
'select * from t_ch_fee'
'where '#31867#22411'='#39#20184#39' and '#32534#21495'=:'#32534#21495
'order by '#39034#24207',CH_ID')
Left = 208
Top = 100
end
object t_ch_pay1: TDataSource
DataSet = t_ch_pay
Left = 208
Top = 184
end
object bsBusinessSkinForm1: TbsBusinessSkinForm
UseSkinFontInMenu = True
ShowIcon = False
MaximizeOnFullScreen = False
AlphaBlend = False
AlphaBlendAnimation = False
AlphaBlendValue = 100
ShowObjectHint = False
MenusAlphaBlend = False
MenusAlphaBlendAnimation = False
MenusAlphaBlendValue = 0
DefCaptionFont.Charset = GB2312_CHARSET
DefCaptionFont.Color = clBtnText
DefCaptionFont.Height = -12
DefCaptionFont.Name = #23435#20307
DefCaptionFont.Style = []
DefInActiveCaptionFont.Charset = GB2312_CHARSET
DefInActiveCaptionFont.Color = clBtnShadow
DefInActiveCaptionFont.Height = -12
DefInActiveCaptionFont.Name = #23435#20307
DefInActiveCaptionFont.Style = []
DefMenuItemHeight = 20
DefMenuItemFont.Charset = GB2312_CHARSET
DefMenuItemFont.Color = clWindowText
DefMenuItemFont.Height = -12
DefMenuItemFont.Name = #23435#20307
DefMenuItemFont.Style = []
UseDefaultSysMenu = True
SkinData = frm_main.bsSkinData1
MinHeight = 0
MinWidth = 0
Magnetic = False
MagneticSize = 10
BorderIcons = [biMinimize]
Left = 328
Top = 136
end
end