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.
489 lines
13 KiB
Plaintext
489 lines
13 KiB
Plaintext
11 months ago
|
object frm_rp_op_ttl: Tfrm_rp_op_ttl
|
||
|
|
Left = 148
|
||
|
|
Top = 192
|
||
|
|
Width = 1052
|
||
|
|
Height = 572
|
||
|
|
Caption = #32508#21512#32479#35745
|
||
|
|
Color = clBtnFace
|
||
|
|
Font.Charset = GB2312_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -12
|
||
|
|
Font.Name = #23435#20307
|
||
|
|
Font.Style = []
|
||
|
|
OldCreateOrder = False
|
||
|
|
Visible = True
|
||
|
|
OnClose = FormClose
|
||
|
|
PixelsPerInch = 96
|
||
|
|
TextHeight = 12
|
||
|
|
object main_pool: TPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 1036
|
||
|
|
Height = 534
|
||
|
|
Align = alClient
|
||
|
|
BevelInner = bvLowered
|
||
|
|
TabOrder = 0
|
||
|
|
object Panel1: TPanel
|
||
|
|
Left = 2
|
||
|
|
Top = 2
|
||
|
|
Width = 1032
|
||
|
|
Height = 56
|
||
|
|
Align = alTop
|
||
|
|
BevelInner = bvLowered
|
||
|
|
TabOrder = 0
|
||
|
|
object bsSkinButton1: TbsSkinButton
|
||
|
|
Left = 3
|
||
|
|
Top = 0
|
||
|
|
Width = 75
|
||
|
|
Height = 25
|
||
|
|
TabOrder = 0
|
||
|
|
SkinDataName = 'button'
|
||
|
|
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 = #25552#21462#25968#25454
|
||
|
|
NumGlyphs = 2
|
||
|
|
Spacing = 1
|
||
|
|
OnClick = bsSkinButton1Click
|
||
|
|
end
|
||
|
|
object bsSkinButton2: TbsSkinButton
|
||
|
|
Left = 207
|
||
|
|
Top = 1
|
||
|
|
Width = 75
|
||
|
|
Height = 25
|
||
|
|
TabOrder = 1
|
||
|
|
SkinDataName = 'button'
|
||
|
|
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 = #23384#20026#25991#20214
|
||
|
|
NumGlyphs = 2
|
||
|
|
Spacing = 1
|
||
|
|
OnClick = bsSkinButton2Click
|
||
|
|
end
|
||
|
|
object bsSkinButton3: TbsSkinButton
|
||
|
|
Left = 285
|
||
|
|
Top = 1
|
||
|
|
Width = 75
|
||
|
|
Height = 25
|
||
|
|
TabOrder = 2
|
||
|
|
SkinDataName = 'button'
|
||
|
|
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
|
||
|
|
NumGlyphs = 2
|
||
|
|
Spacing = 1
|
||
|
|
OnClick = bsSkinButton3Click
|
||
|
|
end
|
||
|
|
object bsSkinButton4: TbsSkinButton
|
||
|
|
Left = 364
|
||
|
|
Top = 0
|
||
|
|
Width = 75
|
||
|
|
Height = 25
|
||
|
|
TabOrder = 3
|
||
|
|
SkinDataName = 'button'
|
||
|
|
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 = #20851#38381
|
||
|
|
NumGlyphs = 2
|
||
|
|
Spacing = 1
|
||
|
|
OnClick = bsSkinButton4Click
|
||
|
|
end
|
||
|
|
object CheckBox1: TCheckBox
|
||
|
|
Left = 79
|
||
|
|
Top = 5
|
||
|
|
Width = 113
|
||
|
|
Height = 17
|
||
|
|
Caption = #21253#21547#20998#20844#21496#25968#25454
|
||
|
|
TabOrder = 4
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object dxDBGrid2: TdxDBGrid
|
||
|
|
Left = 2
|
||
|
|
Top = 58
|
||
|
|
Width = 1032
|
||
|
|
Height = 446
|
||
|
|
Bands = <
|
||
|
|
item
|
||
|
|
end>
|
||
|
|
DefaultLayout = True
|
||
|
|
HeaderPanelRowCount = 1
|
||
|
|
KeyField = #32534#21495
|
||
|
|
ShowSummaryFooter = True
|
||
|
|
SummaryGroups = <>
|
||
|
|
SummarySeparator = ', '
|
||
|
|
Align = alClient
|
||
|
|
Color = clWhite
|
||
|
|
TabOrder = 1
|
||
|
|
DataSource = memtbl1
|
||
|
|
Filter.Criteria = {00000000}
|
||
|
|
OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
|
||
|
|
object dxDBGrid2Column6: TdxDBGridColumn
|
||
|
|
Alignment = taCenter
|
||
|
|
HeaderAlignment = taCenter
|
||
|
|
ReadOnly = True
|
||
|
|
Width = 112
|
||
|
|
BandIndex = 0
|
||
|
|
RowIndex = 0
|
||
|
|
FieldName = #22996#25176#32534#21495
|
||
|
|
end
|
||
|
|
object dxDBGrid2Column16: TdxDBGridColumn
|
||
|
|
Width = 120
|
||
|
|
BandIndex = 0
|
||
|
|
RowIndex = 0
|
||
|
|
FieldName = #20027#25552#21333#21495
|
||
|
|
end
|
||
|
|
object dxDBGrid2Column12: TdxDBGridColumn
|
||
|
|
Width = 124
|
||
|
|
BandIndex = 0
|
||
|
|
RowIndex = 0
|
||
|
|
FieldName = #22996#25176#21333#20301#21517#31216
|
||
|
|
end
|
||
|
|
object dxDBGrid2Column3: TdxDBGridColumn
|
||
|
|
Width = 68
|
||
|
|
BandIndex = 0
|
||
|
|
RowIndex = 0
|
||
|
|
FieldName = #23458#25143#23646#24615
|
||
|
|
end
|
||
|
|
object dxDBGrid2Column4: TdxDBGridColumn
|
||
|
|
Width = 65
|
||
|
|
BandIndex = 0
|
||
|
|
RowIndex = 0
|
||
|
|
FieldName = #25910#27454#36134#26399
|
||
|
|
end
|
||
|
|
object dxDBGrid2Column5: TdxDBGridColumn
|
||
|
|
Width = 94
|
||
|
|
BandIndex = 0
|
||
|
|
RowIndex = 0
|
||
|
|
FieldName = #20844#21496#27611#21033#28070
|
||
|
|
end
|
||
|
|
object dxDBGrid2Column7: TdxDBGridColumn
|
||
|
|
Sorted = csUp
|
||
|
|
Width = 63
|
||
|
|
BandIndex = 0
|
||
|
|
RowIndex = 0
|
||
|
|
FieldName = #37197#36135#36153
|
||
|
|
end
|
||
|
|
object dxDBGrid2Column8: TdxDBGridColumn
|
||
|
|
Caption = #21033#28070#27604#20363'%'
|
||
|
|
Width = 101
|
||
|
|
BandIndex = 0
|
||
|
|
RowIndex = 0
|
||
|
|
FieldName = #21033#28070#27604#20363
|
||
|
|
end
|
||
|
|
object dxDBGrid2Column17: TdxDBGridColumn
|
||
|
|
Width = 100
|
||
|
|
BandIndex = 0
|
||
|
|
RowIndex = 0
|
||
|
|
FieldName = #23458#25143#21517#31216
|
||
|
|
end
|
||
|
|
object dxDBGrid2Column13: TdxDBGridColumn
|
||
|
|
Width = 100
|
||
|
|
BandIndex = 0
|
||
|
|
RowIndex = 0
|
||
|
|
FieldName = #35013#36135#28207
|
||
|
|
end
|
||
|
|
object dxDBGrid2Column14: TdxDBGridColumn
|
||
|
|
Width = 100
|
||
|
|
BandIndex = 0
|
||
|
|
RowIndex = 0
|
||
|
|
FieldName = #21368#36135#28207
|
||
|
|
end
|
||
|
|
object dxDBGrid2Column15: TdxDBGridColumn
|
||
|
|
Width = 100
|
||
|
|
BandIndex = 0
|
||
|
|
RowIndex = 0
|
||
|
|
FieldName = #26469#28304#26126#32454
|
||
|
|
end
|
||
|
|
object dxDBGrid2Column10: TdxDBGridColumn
|
||
|
|
Width = 103
|
||
|
|
BandIndex = 0
|
||
|
|
RowIndex = 0
|
||
|
|
FieldName = #29305#27530#20107#30001#35828#26126
|
||
|
|
end
|
||
|
|
object dxDBGrid2Column11: TdxDBGridColumn
|
||
|
|
Width = 50
|
||
|
|
BandIndex = 0
|
||
|
|
RowIndex = 0
|
||
|
|
FieldName = #23457#25209
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object Panel2: TPanel
|
||
|
|
Left = 2
|
||
|
|
Top = 504
|
||
|
|
Width = 1032
|
||
|
|
Height = 28
|
||
|
|
Align = alBottom
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object XPMenu1: TXPMenu
|
||
|
|
Font.Charset = GB2312_CHARSET
|
||
|
|
Font.Color = clMenuText
|
||
|
|
Font.Height = -12
|
||
|
|
Font.Name = #23435#20307
|
||
|
|
Font.Style = []
|
||
|
|
Color = 15189677
|
||
|
|
IconBackColor = 15189677
|
||
|
|
MenuBarColor = 15189677
|
||
|
|
SelectColor = 14139102
|
||
|
|
SelectBorderColor = clHighlight
|
||
|
|
SelectFontColor = clMenuText
|
||
|
|
DisabledColor = clInactiveCaption
|
||
|
|
SeparatorColor = 13485965
|
||
|
|
CheckedColor = clHighlight
|
||
|
|
IconWidth = 24
|
||
|
|
DrawSelect = True
|
||
|
|
UseSystemColors = False
|
||
|
|
OverrideOwnerDraw = False
|
||
|
|
Gradient = True
|
||
|
|
FlatMenu = True
|
||
|
|
AutoDetect = True
|
||
|
|
Active = True
|
||
|
|
Left = 513
|
||
|
|
Top = 178
|
||
|
|
end
|
||
|
|
object ADOQueryFee: TADOQuery
|
||
|
|
Connection = frm_main.db
|
||
|
|
Parameters = <>
|
||
|
|
Left = 120
|
||
|
|
Top = 360
|
||
|
|
end
|
||
|
|
object ADOQuerySelect: TADOQuery
|
||
|
|
Connection = frm_main.db
|
||
|
|
Parameters = <>
|
||
|
|
SQL.Strings = (
|
||
|
|
|
||
|
|
'select fee.'#23458#25143#21517#31216',fee.'#24065#21035',t_export.'#25597#36135#20154',t_export.'#22996#25176#32534#21495',v_y_li_bill.'#22996#25176 +
|
||
|
|
#21333#20301',v_y_li_bill.'#24212#25910#37329#39069',v_y_li_bill.'#24212#20184#37329#39069',v_y_li_bill.'#24212#24471#21033#28070
|
||
|
|
|
||
|
|
',case when v_y_li_bill.'#24212#25910#37329#39069'<>0 then v_y_li_bill.'#24212#24471#21033#28070'/v_y_li_bi' +
|
||
|
|
'll.'#24212#25910#37329#39069' else 0 end as '#21033#28070#29575
|
||
|
|
',sum(fee.'#37329#39069'*fee.'#27719#29575') '#37329#39069',sum(fee.'#32467#31639#37329#39069'*fee.'#27719#29575') '#32467#31639#37329#39069
|
||
|
|
'from t_ch_accept fee'
|
||
|
|
'left Join t_export on t_export.'#36816#32534#21495'=fee.'#36816#32534#21495
|
||
|
|
'left Join v_y_li_bill on v_y_li_bill.'#36816#32534#21495'=fee.'#36816#32534#21495
|
||
|
|
'where t_export.'#24320#33337#26085#26399'>='#39'2012-12-23'#39'and t_export.'#24320#33337#26085#26399'<='#39'2012-01-22'#39
|
||
|
|
|
||
|
|
'group by fee.'#23458#25143#21517#31216',fee.'#24065#21035',t_export.'#25597#36135#20154',t_export.'#22996#25176#32534#21495',v_y_li_bill' +
|
||
|
|
'.'#22996#25176#21333#20301',v_y_li_bill.'#24212#25910#37329#39069',v_y_li_bill.'#24212#20184#37329#39069',v_y_li_bill.'#24212#24471#21033#28070
|
||
|
|
|
||
|
|
',case when v_y_li_bill.'#24212#25910#37329#39069'<>0 then v_y_li_bill.'#24212#24471#21033#28070'/v_y_li_bi' +
|
||
|
|
'll.'#24212#25910#37329#39069' else 0 end ')
|
||
|
|
Left = 208
|
||
|
|
Top = 328
|
||
|
|
end
|
||
|
|
object memtbl1: TDataSource
|
||
|
|
DataSet = memtbl
|
||
|
|
Left = 264
|
||
|
|
Top = 224
|
||
|
|
end
|
||
|
|
object SaveDialog: TSaveDialog
|
||
|
|
Left = 328
|
||
|
|
Top = 264
|
||
|
|
end
|
||
|
|
object ADOQuerysum: TADOQuery
|
||
|
|
Connection = dbsub
|
||
|
|
Parameters = <>
|
||
|
|
SQL.Strings = (
|
||
|
|
' Select'
|
||
|
|
' sum('#27611#21033#28070') '#27611#21033#28070
|
||
|
|
' from v_op_bscard'
|
||
|
|
' where '#20027#25552#21333#21495'=:'#20027#25552#21333#21495' and '#36153#29992#29366#24577'='#39#36153#29992#23553#24080#39)
|
||
|
|
Left = 392
|
||
|
|
Top = 328
|
||
|
|
end
|
||
|
|
object memtbl: TkbmMemTable
|
||
|
|
DesignActivation = True
|
||
|
|
AttachedAutoRefresh = True
|
||
|
|
AttachMaxCount = 1
|
||
|
|
FieldDefs = <
|
||
|
|
item
|
||
|
|
Name = #25597#36135#20154
|
||
|
|
DataType = ftString
|
||
|
|
Size = 20
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = #20027#25552#21333#21495
|
||
|
|
DataType = ftString
|
||
|
|
Size = 20
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = #24320#33337#26085#26399
|
||
|
|
DataType = ftString
|
||
|
|
Size = 20
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = #32467#31639#26085#26399
|
||
|
|
DataType = ftString
|
||
|
|
Size = 20
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = #27611#21033#28070
|
||
|
|
DataType = ftFloat
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = #36229#26399#22825#25968
|
||
|
|
DataType = ftInteger
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = #21327#35758#22825#25968
|
||
|
|
DataType = ftInteger
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = #32534#21495
|
||
|
|
DataType = ftString
|
||
|
|
Size = 20
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = #23454#38469#36229#26399#22825#25968
|
||
|
|
DataType = ftInteger
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = #22996#25176#21333#20301
|
||
|
|
DataType = ftString
|
||
|
|
Size = 20
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = #36229#26399#26376
|
||
|
|
DataType = ftString
|
||
|
|
Size = 10
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = #25552#25104#27604#20363
|
||
|
|
DataType = ftFloat
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = #25552#25104
|
||
|
|
DataType = ftFloat
|
||
|
|
end>
|
||
|
|
IndexDefs = <>
|
||
|
|
SortOptions = []
|
||
|
|
PersistentBackup = False
|
||
|
|
ProgressFlags = [mtpcLoad, mtpcSave, mtpcCopy]
|
||
|
|
FilterOptions = []
|
||
|
|
Version = '3.05'
|
||
|
|
LanguageID = 0
|
||
|
|
SortID = 0
|
||
|
|
SubLanguageID = 1
|
||
|
|
LocaleID = 1024
|
||
|
|
Left = 695
|
||
|
|
Top = 303
|
||
|
|
object memtblField: TStringField
|
||
|
|
FieldName = #22996#25176#32534#21495
|
||
|
|
Size = 40
|
||
|
|
end
|
||
|
|
object memtblField2: TStringField
|
||
|
|
FieldName = #22996#25176#21333#20301#21517#31216
|
||
|
|
end
|
||
|
|
object memtblField3: TStringField
|
||
|
|
FieldName = #23458#25143#23646#24615
|
||
|
|
end
|
||
|
|
object memtblField4: TStringField
|
||
|
|
FieldName = #25910#27454#36134#26399
|
||
|
|
end
|
||
|
|
object memtblField5: TFloatField
|
||
|
|
FieldName = #20844#21496#27611#21033#28070
|
||
|
|
end
|
||
|
|
object memtblField6: TFloatField
|
||
|
|
FieldName = #37197#36135#36153
|
||
|
|
end
|
||
|
|
object memtblField7: TFloatField
|
||
|
|
FieldName = #21033#28070#27604#20363
|
||
|
|
end
|
||
|
|
object memtblField8: TStringField
|
||
|
|
FieldName = #29305#27530#20107#30001#35828#26126
|
||
|
|
end
|
||
|
|
object memtblField9: TStringField
|
||
|
|
FieldName = #23457#26680
|
||
|
|
end
|
||
|
|
object memtblField10: TStringField
|
||
|
|
FieldName = #32534#21495
|
||
|
|
end
|
||
|
|
object memtblField11: TStringField
|
||
|
|
FieldName = #20027#25552#21333#21495
|
||
|
|
Size = 40
|
||
|
|
end
|
||
|
|
object memtblField12: TStringField
|
||
|
|
FieldName = #23458#25143#21517#31216
|
||
|
|
end
|
||
|
|
object memtblField13: TStringField
|
||
|
|
FieldName = #35013#36135#28207
|
||
|
|
Size = 60
|
||
|
|
end
|
||
|
|
object memtblField14: TStringField
|
||
|
|
FieldName = #21368#36135#28207
|
||
|
|
Size = 60
|
||
|
|
end
|
||
|
|
object memtblField15: TStringField
|
||
|
|
FieldName = #26469#28304#26126#32454
|
||
|
|
end
|
||
|
|
object memtblField16: TStringField
|
||
|
|
FieldName = #23545#24080#32534#21495
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object dbsub: TADOConnection
|
||
|
|
ConnectionString =
|
||
|
|
'Provider=SQLOLEDB.1;Password=ds20040201;Persist Security Info=Tr' +
|
||
|
|
'ue;User ID=sa;Initial Catalog=dongshengdata_jf;Data Source=LJP\S' +
|
||
|
|
'QL2005;Use Procedure for Prepare=1;Auto Translate=True;Packet Si' +
|
||
|
|
'ze=4096;Workstation ID=LJP;Use Encryption for Data=False;Tag wit' +
|
||
|
|
'h column collation when possible=False'
|
||
|
|
ConnectionTimeout = 30
|
||
|
|
LoginPrompt = False
|
||
|
|
Provider = 'SQLOLEDB.1'
|
||
|
|
Left = 644
|
||
|
|
Top = 263
|
||
|
|
end
|
||
|
|
end
|