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.

587 lines
19 KiB
Plaintext

11 months ago
object frm_ch_piliang_prnfee: Tfrm_ch_piliang_prnfee
Left = 410
Top = 104
BorderIcons = []
BorderStyle = bsDialog
Caption = #26680#31639#21333#25209#37327#25171#21360
ClientHeight = 417
ClientWidth = 475
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object bsSkinPanel1: TbsSkinPanel
Left = 0
Top = 0
Width = 475
Height = 73
TabOrder = 0
SkinData = frm_main.bsSkinData1
SkinDataName = 'panel'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = False
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = 'bsSkinPanel1'
Align = alTop
object dxDBGrid2: TdxDBGrid
Left = 1
Top = 1
Width = 275
Height = 71
Bands = <
item
end>
DefaultLayout = True
HeaderPanelRowCount = 1
KeyField = #25253#34920#21517#31216
SummaryGroups = <>
SummarySeparator = ', '
Align = alLeft
Color = 14402971
TabOrder = 0
DataSource = t_sys_report1
Filter.Criteria = {00000000}
OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
object dxDBGridMaskColumn1: TdxDBGridMaskColumn
ReadOnly = True
Width = 184
BandIndex = 0
RowIndex = 0
FieldName = #25253#34920#21517#31216
end
object dxDBGrid1Column2: TdxDBGridCheckColumn
MinWidth = 20
ReadOnly = True
Width = 54
BandIndex = 0
RowIndex = 0
FieldName = #26159#21542#40664#35748
ValueChecked = 'True'
ValueUnchecked = 'False'
end
end
object bsSkinButton8: TbsSkinButton
Left = 280
Top = 25
Width = 90
Height = 23
TabOrder = 1
SkinData = frm_main.bsSkinData1
SkinDataName = 'resizebutton'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #25171#21360#36755#20986
Glyph.Data = {
36060000424D360600000000000036000000280000001F000000100000000100
18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
FF00FFFF00FF6C6A6A6C6A6AFF00FFFF00FF6C6A6A6C6A6AFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FFFF00FF
FF00FF6C6A6AAAA7A7A19F9F6C6A6A6C6A6A6C6A6AE5E3E36C6A6A6C6A6A6C6A
6AFF00FFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FFFF00FF
6C6A6ADAD9D9A19F9FA19F9FA19F9F3736363535356C6D6DBFBFBFE1E2E2B7B6
B66C6A6A6C6A6A6C6A6AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FF6C6A6A
D4D3D3CACACA8E8C8C8E8C8C8E8C8C3C3B3B0A090A0707070B0B0B0707077A7A
7ABBBBBB6C6A6AFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000006C6A6ACACACA
CACACA8E8C8CD7D4D4CECBCBBFBCBCB1AFAFA3A0A08886865E5B5C0707070909
090808086C6A6A767373FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000006C6A6ACACACA
8E8C8CEFEEEEFFFEFEFBFAFAE3E0E1DEDEDEDEDDDDCFCECEBDBCBCADABAB8B89
895856567A7878757373FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000006C6A6A8E8C8C
FFFFFFFEFCFCFAFAFAD5D4D5989193A09899B2ABACC4C0C1D7D7D7D8D8D8C7C6
C6B7B6B6918F8F6C6969FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FF6C6A6A
6C6A6AEDEBEBB1A6A77A6F728A83889692959690919D97989A93959E9899BBBA
BAD1D1D1C2C2C26C6A6AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FFFF00FF
FF00FF6C6A6ABB897FA7876D8B6F647D67606F62657973798F8B8EA9A3A4CBCA
CAC1C1C16C6A6AFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FFFF00FF
FF00FFFF00FFBD8281FFE3B4FFD39FE9B281C99973BA916CBD8281807D7E6C6A
6A6C6A6AFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FFFF00FF
FF00FFFF00FFBD8281FFE0B8FFD3A7FFD09DFFCE90FFC688BD8281FF00FFFF00
FFFF00FFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FFFF00FF
FF00FFC08683FFE7CFFFE0C0FFD9B2FFD3A5FFD099BD8281FF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FFFF00FF
FF00FFBD8281FEEBD8FFE6CCFFDEBDFFD8B1FED3A4BD8281FF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FFFF00FF
BD8281FFFFF2FFFFF2FFEBD8FFE5CAFFE1BDF3C7A7BD8281FF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FFFF00FF
BD8281BD8281BD8281FBEFE2FBE3CFFBDDC2BD8281FF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00FFFF00FF
FF00FFFF00FFFF00FFBD8281BD8281BD8281FF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000}
NumGlyphs = 2
Spacing = 1
OnClick = bsSkinButton8Click
end
object bsSkinButton5: TbsSkinButton
Left = 376
Top = 25
Width = 90
Height = 23
TabOrder = 2
SkinData = frm_main.bsSkinData1
SkinDataName = 'resizebutton'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #36864#20986#25171#21360
Glyph.Data = {
36060000424D3606000000000000360400002800000020000000100000000100
08000000000000020000C40E0000C40E0000000100000000000000000000FFFF
FF00FF00FF00C76A6D00CC6E7100D0727500FBDDDE0069333400D2686900D06A
6B00D56D6E00DE737400DA727300D7707100D56F7000E0777800DF777800DB75
7600DA747500C3686900C66A6B00DF797A00E57D7E00E07A7B00E37D7E00D374
7600E9818200E57F8000EA828300E6808100F0878800EE868700F58C8D00F48C
8D00F28B8C00DC7F8000FA919200F9909200F48E8F00F8929300F9939400FE97
9800FD979800FC969700FF999A00E3888900FF9A9B00FE999A00FF9B9C00EB8F
9000E78C8D00E98E8F00FF9D9E00FF9FA000DA888A00D7868700D8888A00EC96
9700FEA2A300F0999A00B0717200FCAFB000FABCBD00F9C5C600FDDCDD00B966
6600BB686800E0858500DA8888009A666600FBF0D200FDF3D400FFF5D800FDFC
DA00FDFCDC00FFFFDD00FFFFDE00FFFFDF00FFFFE000ECFDD400B8E1AC006BDC
89003DC2640042C468005DD5800039C5650046D4730024CB600029CC630029CB
630030CD67002FCA640033CB670019CB5B0020CA5E0025CF6300000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000020202020202
0245070202020202020201010101010101010101010101010101020202024545
4142070202020202020201010101010101010101010101010101020245451409
08130745454545454502010101010101010101010101010101010202450B0D0E
0A03073A3D3E3F3F4502010101010101010101010101010101010202450F1112
0C0407555F585D3F450201010101010101010101010101010101020245161715
100507535A5C573F4502010101010101010101010101010101010202451C1B18
1D190752595B5E3F4502010101010101010101010101010101010202451E1A39
063807505154563F450201010101010101010101010101010101020245201F3B
403607484E4C4F3F450201010101010101010101010101010101020245242622
212307474D4B4E3F450201010101010101010101010101010101020245292827
254307474D4B4D3F450201010101010101010101010101010101020245302A2B
292D07474D4B4D3F450201010101010101010101010101010101020245352E2C
2E3207474D4B4D3F45020101010101010101010101010101010102024545332F
343107464A494A3F45020101010101010101010101010101010102020202453C
3744074545454545450201010101010101010101010101010101020202020202
4545070202020202020201010101010101010101010101010101}
NumGlyphs = 2
Spacing = 1
OnClick = bsSkinButton5Click
end
end
object dxDBGrid1: TdxDBGrid
Left = 0
Top = 73
Width = 475
Height = 344
Bands = <
item
end>
DefaultLayout = True
HeaderPanelRowCount = 1
KeyField = #32534#21495
ShowSummaryFooter = True
SummaryGroups = <>
SummarySeparator = ', '
Align = alClient
Color = clWhite
TabOrder = 1
DataSource = t_op_seae1
Filter.Criteria = {00000000}
OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoMultiSelect, edgoTabThrough, edgoVertThrough]
OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
object dxDBGrid1Column1: TdxDBGridMaskColumn
ReadOnly = True
Sizing = False
Width = 76
BandIndex = 0
RowIndex = 0
FieldName = #19994#21153#32534#21495
SummaryFooterType = cstCount
SummaryFooterFormat = #20849'0'#31080
end
object dxDBGrid1Column4: TdxDBGridMaskColumn
ReadOnly = True
Width = 124
BandIndex = 0
RowIndex = 0
FieldName = #20027#25552#21333#21495
end
object dxDBGrid1Column5: TdxDBGridMaskColumn
ReadOnly = True
Width = 124
BandIndex = 0
RowIndex = 0
FieldName = #20998#25552#21333#21495
end
object dxDBGrid1Column6: TdxDBGridMaskColumn
ReadOnly = True
Width = 124
BandIndex = 0
RowIndex = 0
FieldName = #22996#25176#32534#21495
end
object dxDBGrid1Column7: TdxDBGridMaskColumn
ReadOnly = True
Width = 124
BandIndex = 0
RowIndex = 0
FieldName = #22996#25176#21333#20301
end
object dxDBGrid1Column13: TdxDBGridMaskColumn
ReadOnly = True
Width = 124
BandIndex = 0
RowIndex = 0
FieldName = #22330#31449
end
object dxDBGrid1Column14: TdxDBGridMaskColumn
ReadOnly = True
Width = 239
BandIndex = 0
RowIndex = 0
FieldName = #33337#21517
end
object dxDBGrid1Column15: TdxDBGridMaskColumn
ReadOnly = True
Width = 69
BandIndex = 0
RowIndex = 0
FieldName = #33322#27425
end
object dxDBGrid1Column16: TdxDBGridDateColumn
ReadOnly = True
Width = 80
BandIndex = 0
RowIndex = 0
FieldName = #24320#33337#26085#26399
end
object dxDBGrid1Column19: TdxDBGridMaskColumn
ReadOnly = True
Width = 155
BandIndex = 0
RowIndex = 0
FieldName = #35013#36135#28207
end
object dxDBGrid1Column20: TdxDBGridMaskColumn
ReadOnly = True
Width = 178
BandIndex = 0
RowIndex = 0
FieldName = #21368#36135#28207
end
object dxDBGrid1TEU: TdxDBGridMaskColumn
ReadOnly = True
Width = 50
BandIndex = 0
RowIndex = 0
FieldName = #31665'TEU'
SummaryFooterType = cstSum
SummaryFooterFormat = '0'
end
object dxDBGrid1Column63: TdxDBGridMaskColumn
ReadOnly = True
Width = 100
BandIndex = 0
RowIndex = 0
FieldName = #38598#35013#31665
end
object dxDBGrid1Column64: TdxDBGridMaskColumn
ReadOnly = True
Width = 59
BandIndex = 0
RowIndex = 0
FieldName = #24405#20837#20154
end
object dxDBGrid1Column65: TdxDBGridDateColumn
ReadOnly = True
Width = 83
BandIndex = 0
RowIndex = 0
FieldName = #24405#20837#26085#26399
end
object dxDBGrid1Column66: TdxDBGridMaskColumn
ReadOnly = True
Width = 51
BandIndex = 0
RowIndex = 0
FieldName = #25805#20316#21592
end
object dxDBGrid1Column67: TdxDBGridMaskColumn
ReadOnly = True
Width = 48
BandIndex = 0
RowIndex = 0
FieldName = #25597#36135#20154
end
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 = 128
Top = 132
end
object t_op_seae1: TDataSource
DataSet = tv_bscard_all
Left = 88
Top = 216
end
object t_ch_accept: TADOQuery
Connection = frm_main.db
CursorType = ctStatic
DataSource = t_op_seae1
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 = 88
Top = 256
end
object t_ch_accept1: TDataSource
DataSet = t_ch_accept
Left = 80
Top = 304
end
object t_ch_pay: TADOQuery
Connection = frm_main.db
CursorType = ctStatic
DataSource = t_op_seae1
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 = 176
Top = 248
end
object t_ch_pay1: TDataSource
DataSet = t_ch_pay
Left = 168
Top = 312
end
object t_sys_report: TADOQuery
Connection = frm_main.db
CursorType = ctStatic
Parameters = <
item
Name = #25253#34920#23646#24615
DataType = ftString
NumericScale = 255
Precision = 255
Size = 20
Value = Null
end>
SQL.Strings = (
'select * from t_sys_report'
'where '#25253#34920#23646#24615'=:'#25253#34920#23646#24615
'order by '#25253#34920#21517#31216)
Left = 154
Top = 95
end
object t_sys_report1: TDataSource
DataSet = t_sys_report
Left = 90
Top = 127
end
object tv_bscard_all: TADOStoredProc
Connection = frm_main.db
ProcedureName = 'p_query_table;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = 'SQLStr'
Attributes = [paNullable]
DataType = ftMemo
Size = 8000
Value = Null
end>
Left = 89
Top = 162
end
object t_op_gain: TADOQuery
Connection = frm_main.db
CursorType = ctStatic
DataSource = t_op_seae1
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 = 160
end
object t_op_gain1: TDataSource
DataSet = t_op_gain
Left = 256
Top = 240
end
object t_op_gain_main1: TDataSource
DataSet = t_op_gain_main
Left = 360
Top = 248
end
object t_op_gain_main: TADOQuery
Connection = frm_main.db
CursorType = ctStatic
DataSource = t_op_seae1
Parameters = <
item
Name = #32534#21495
DataType = ftString
NumericScale = 255
Precision = 255
Size = 12
Value = Null
end>
SQL.Strings = (
'select * from t_op_gain_main'
'where '#32534#21495'=:'#32534#21495)
Left = 360
Top = 200
end
object qrytmp: TADOQuery
Connection = frm_main.db
Parameters = <>
Left = 248
Top = 104
end
end