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.

337 lines
8.4 KiB
Plaintext

11 months ago
object fra_ch_custbefbal_do: Tfra_ch_custbefbal_do
Left = 0
Top = 0
Width = 565
Height = 467
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object bsSkinGroupBox2: TbsSkinGroupBox
Left = 0
Top = 0
Width = 565
Height = 371
TabOrder = 0
SkinDataName = 'groupbox'
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 = bvNone
CaptionMode = True
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = #39044#25910#36153#29992#32467#31639#26126#32454
Align = alClient
object dxDBGrid12: TdxDBGrid
Left = 0
Top = 22
Width = 565
Height = 349
Bands = <
item
end>
DefaultLayout = True
HeaderPanelRowCount = 1
KeyField = 'BFID'
SummaryGroups = <>
SummarySeparator = ', '
Align = alClient
PopupMenu = PopupMenu2
TabOrder = 0
DataSource = t_ch_cust_befbal1
Filter.Criteria = {00000000}
OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
ShowGrid = False
ShowPreviewGrid = False
object dxDBGridMaskColumn59: TdxDBGridMaskColumn
ReadOnly = True
Width = 96
BandIndex = 0
RowIndex = 0
FieldName = #24080#21333#32534#21495
end
object dxDBGridMaskColumn60: TdxDBGridMaskColumn
ReadOnly = True
Width = 54
BandIndex = 0
RowIndex = 0
FieldName = #29366#24577
end
object dxDBGridMaskColumn61: TdxDBGridMaskColumn
ReadOnly = True
Width = 124
BandIndex = 0
RowIndex = 0
FieldName = #23458#25143#21517#31216
end
object dxDBGridMaskColumn63: TdxDBGridMaskColumn
ReadOnly = True
Width = 35
BandIndex = 0
RowIndex = 0
FieldName = #24065#21035
end
object dxDBGridColumn28: TdxDBGridColumn
Caption = #23454#25910#37329#39069
ReadOnly = True
Width = 83
BandIndex = 0
RowIndex = 0
FieldName = #32467#31639#37329#39069
end
object dxDBGrid12Column6: TdxDBGridColumn
Width = 54
BandIndex = 0
RowIndex = 0
FieldName = #26680#38144#24065#21035
end
object dxDBGrid12Column7: TdxDBGridColumn
Width = 81
BandIndex = 0
RowIndex = 0
FieldName = #26680#38144#37329#39069
end
end
object bs_text: TEdit
Left = 322
Top = 144
Width = 121
Height = 22
ReadOnly = True
TabOrder = 1
Visible = False
end
end
object bsSkinGroupBox1: TbsSkinGroupBox
Left = 0
Top = 371
Width = 565
Height = 96
TabOrder = 1
SkinData = frm_main.bsSkinData1
SkinDataName = 'groupbox'
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 = bvNone
CaptionMode = True
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = #23458#25143#39044#25910#36153#29992#21512#35745
Align = alBottom
object dxDBGrid11: TdxDBGrid
Left = 0
Top = 22
Width = 565
Height = 74
Bands = <
item
end>
DefaultLayout = True
HeaderPanelRowCount = 1
KeyField = #23458#25143#21517#31216
SummaryGroups = <>
SummarySeparator = ', '
Align = alClient
PopupMenu = PopupMenu3
TabOrder = 0
DataSource = t_ch_cust_befbal_sum1
Filter.Criteria = {00000000}
OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
object dxDBGrid11Column1: TdxDBGridColumn
Width = 84
BandIndex = 0
RowIndex = 0
FieldName = #23458#25143#21517#31216
end
object dxDBGrid11Column4: TdxDBGridColumn
Width = 48
BandIndex = 0
RowIndex = 0
FieldName = #31867#22411
end
object dxDBGrid11Column2: TdxDBGridColumn
Width = 91
BandIndex = 0
RowIndex = 0
FieldName = #24065#21035
end
object dxDBGrid11Column3: TdxDBGridColumn
Sorted = csUp
Width = 98
BandIndex = 0
RowIndex = 0
FieldName = #39044#25910#37329#39069
end
end
end
object do_ban1: TDataSource
Left = 64
Top = 148
end
object PopupMenu1: TPopupMenu
OwnerDraw = True
Left = 492
Top = 64
object N1: TMenuItem
Caption = #36153#29992#21015#34920#21462#28040#21152#20837
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 = 21
Top = 92
end
object t_ch_cust_befbal_sum: TADOQuery
Connection = frm_main.db
CursorType = ctStatic
Parameters = <
item
Name = #23458#25143#21517#31216
Attributes = [paNullable]
DataType = ftString
NumericScale = 255
Precision = 255
Size = 20
Value = Null
end>
SQL.Strings = (
'select '#23458#25143#21517#31216','#24065#21035',sum('#39044#25910#37329#39069') as '#39044#25910#37329#39069' from t_ch_cust_befbal'
'where '#23458#25143#21517#31216'=:'#23458#25143#21517#31216
'group by '#23458#25143#21517#31216','#24065#21035
'')
Left = 456
Top = 244
end
object t_ch_cust_befbal_sum1: TDataSource
DataSet = t_ch_cust_befbal_sum
Left = 384
Top = 320
end
object t_ch_cust_befbal1: TDataSource
DataSet = t_ch_cust_befbal
Left = 200
Top = 244
end
object t_ch_cust_befbal: TADOQuery
Connection = frm_main.db
CursorType = ctStatic
Parameters = <
item
Name = #24080#21333#32534#21495
Attributes = [paNullable]
DataType = ftString
NumericScale = 255
Precision = 255
Size = 12
Value = Null
end>
SQL.Strings = (
'select * from t_ch_cust_befbal'
'where '#24080#21333#32534#21495'=:'#24080#21333#32534#21495)
Left = 84
Top = 228
end
object PopupMenu2: TPopupMenu
OwnerDraw = True
Left = 492
Top = 156
object MenuItem1: TMenuItem
Caption = #36153#29992#21015#34920#21462#28040#21152#20837
OnClick = MenuItem1Click
end
end
object PopupMenu3: TPopupMenu
OwnerDraw = True
Left = 376
Top = 256
object N7: TMenuItem
Caption = #36153#29992#21015#34920#21152#20837
Visible = False
OnClick = N7Click
end
object N2: TMenuItem
Caption = '-'
end
object N3: TMenuItem
Caption = #36153#29992#37096#20998#21152#20837
OnClick = N3Click
end
end
object t_ch_cust_befbalnew: TADOQuery
Connection = frm_main.db
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select top 0 * from t_ch_cust_befbal'
'')
Left = 136
Top = 292
end
object t_rate: TRxMemoryData
FieldDefs = <
item
Name = 'currency'
DataType = ftString
Size = 20
end
item
Name = 'rate'
DataType = ftFloat
end>
Left = 214
Top = 356
end
end