📄 umain.~dfm
字号:
object mainfm: Tmainfm
Left = 238
Top = 73
Width = 871
Height = 594
Caption = #25320#27454'DEMO'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Visible = True
WindowState = wsMaximized
OnCreate = FormCreate
OnPaint = FormPaint
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 257
Top = 0
Width = 5
Height = 508
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 257
Height = 508
Align = alLeft
Caption = 'Panel1'
TabOrder = 0
object unittree: TRzTreeView
Left = 1
Top = 1
Width = 255
Height = 506
SelectionPen.Color = clBtnShadow
Align = alClient
Images = ImageList1
Indent = 19
PopupMenu = PopupMenu1
ReadOnly = True
TabOrder = 0
OnChange = unittreeChange
OnClick = unittreeClick
OnDblClick = unittreeDblClick
end
end
object Panel2: TPanel
Left = 262
Top = 0
Width = 601
Height = 508
Align = alClient
Caption = 'Panel2'
TabOrder = 1
object Splitter2: TSplitter
Left = 1
Top = 281
Width = 599
Height = 5
Cursor = crVSplit
Align = alTop
end
object Panel3: TPanel
Left = 1
Top = 1
Width = 599
Height = 280
Align = alTop
Caption = 'Panel3'
TabOrder = 0
object GroupBox1: TGroupBox
Left = 1
Top = 1
Width = 597
Height = 278
Align = alClient
Caption = #25320#20986#35760#24405
TabOrder = 0
object DBGridEh1: TDBGridEh
Left = 2
Top = 15
Width = 593
Height = 261
Align = alClient
DataSource = DM1.DataSource1
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FooterColor = clWindow
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clInactiveCaption
FooterFont.Height = -11
FooterFont.Name = 'MS Sans Serif'
FooterFont.Style = [fsBold]
FooterRowCount = 1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
OptionsEh = [dghFixed3D, dghFooter3D, dghHighlightFocus, dghClearSelection, dghTraceColSizing, dghIncSearch, dghPreferIncSearch, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind]
ParentFont = False
PopupMenu = PopupMenu2
STFilter.Local = True
STFilter.Visible = True
SumList.Active = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
UseMultiTitle = True
OnGetCellParams = DBGridEh1GetCellParams
Columns = <
item
AlwaysShowEditButton = True
EditButtons = <>
FieldName = 'bumf_no'
Footer.Value = #21512#35745
Footer.ValueType = fvtStaticText
Footers = <>
Title.Caption = #19978#32423#36861#21152#25991#21495
Title.TitleButton = True
Width = 78
end
item
EditButtons = <>
FieldName = 'paymentno'
Footers = <>
Title.Caption = #25320#27454#25991#21495
Width = 80
end
item
EditButtons = <>
FieldName = 'ID'
Footers = <>
Title.Caption = #32534#21495
Width = 50
end
item
EditButtons = <>
FieldName = 'parentno'
Footers = <>
Title.Caption = #19978#32423#32534#21495
Width = 60
end
item
EditButtons = <>
FieldName = 'item_name'
Footer.ValueType = fvtCount
Footers = <>
Title.Caption = #39033#30446#21517#31216
Title.TitleButton = True
Width = 80
end
item
EditButtons = <>
FieldName = 'out_u_name'
Footers = <>
Title.Caption = #25320#20986#21333#20301
Width = 80
end
item
EditButtons = <>
FieldName = 'in_u_name'
Footers = <>
Title.Caption = #25320#20837#21333#20301
Width = 80
end
item
EditButtons = <>
FieldName = 'payment_time'
Footers = <>
Title.Caption = #25320#27454#26102#38388
Width = 60
end
item
EditButtons = <>
FieldName = 'sum_money'
Footer.ValueType = fvtSum
Footers = <>
Title.Caption = #37329#39069'|'#21512#35745
Width = 60
end
item
EditButtons = <>
FieldName = 'center_money'
Footer.ValueType = fvtSum
Footers = <>
Title.Caption = #37329#39069'|'#20013#22830
Width = 60
end
item
EditButtons = <>
FieldName = 'municipality_money'
Footer.ValueType = fvtSum
Footers = <>
Title.Caption = #37329#39069'|'#33258#27835#21306
Width = 60
end
item
EditButtons = <>
FieldName = 'city_money'
Footer.ValueType = fvtSum
Footers = <>
Title.Caption = #37329#39069'|'#24066#37197#22871
Width = 60
end
item
EditButtons = <>
FieldName = 'county_money'
Footer.ValueType = fvtSum
Footers = <>
Title.Caption = #37329#39069'|'#21439#37197#22871
Width = 60
end
item
EditButtons = <>
FieldName = 'self_money'
Footer.ValueType = fvtSum
Footers = <>
Title.Caption = #37329#39069'|'#33258#31609
Width = 60
end
item
EditButtons = <>
FieldName = 'receive_affirm'
Footers = <>
Title.Caption = #25910#21040#30830#35748
Width = 60
OnUpdateData = DBGridEh1Columns11UpdateData
end
item
EditButtons = <>
FieldName = 'receive_time'
Footers = <>
Title.Caption = #25910#21040#26102#38388
Width = 65
end
item
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -