📄 fmain.dfm
字号:
object frmMain: TfrmMain
Left = 236
Top = 138
Width = 741
Height = 515
Caption = #24037#36164#31649#29702#31995#32479
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Scaled = False
OnKeyUp = FormKeyUp
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 15
object pgc1: TPageControl
Left = 0
Top = 0
Width = 733
Height = 481
ActivePage = ts1
Align = alClient
TabIndex = 0
TabOrder = 0
object ts1: TTabSheet
Caption = #24037#36164#26631#20934#35774#23450
DesignSize = (
725
451)
object pnl1: TPanel
Left = 0
Top = 404
Width = 725
Height = 47
Align = alBottom
BevelOuter = bvLowered
TabOrder = 0
object btn1: TSpeedButton
Left = 16
Top = 8
Width = 57
Height = 30
Caption = #28155#21152
Flat = True
OnClick = btn1Click
end
object btn2: TSpeedButton
Left = 80
Top = 8
Width = 57
Height = 30
Caption = #20462#25913
Flat = True
OnClick = btn2Click
end
object btn3: TSpeedButton
Left = 144
Top = 8
Width = 57
Height = 30
Caption = #21024#38500
Flat = True
OnClick = btn3Click
end
object btn4: TSpeedButton
Left = 208
Top = 8
Width = 57
Height = 30
Caption = #28155#21152
Flat = True
OnClick = btn4Click
end
object btn5: TSpeedButton
Left = 264
Top = 8
Width = 57
Height = 30
Caption = #20462#25913
Flat = True
OnClick = btn5Click
end
object btn6: TSpeedButton
Left = 320
Top = 8
Width = 57
Height = 30
Caption = #21024#38500
Flat = True
OnClick = btn6Click
end
object btn7: TSpeedButton
Left = 384
Top = 8
Width = 57
Height = 30
Caption = #28155#21152
Flat = True
OnClick = btn7Click
end
object btn8: TSpeedButton
Left = 440
Top = 8
Width = 57
Height = 30
Caption = #20462#25913
Flat = True
OnClick = btn8Click
end
object btn9: TSpeedButton
Left = 496
Top = 8
Width = 57
Height = 30
Caption = #21024#38500
Flat = True
OnClick = btn9Click
end
object btn10: TSpeedButton
Left = 560
Top = 8
Width = 57
Height = 30
Caption = #28155#21152
Flat = True
OnClick = btn10Click
end
object btn11: TSpeedButton
Left = 616
Top = 8
Width = 57
Height = 30
Caption = #20462#25913
Flat = True
OnClick = btn11Click
end
object btn12: TSpeedButton
Left = 672
Top = 8
Width = 57
Height = 30
Caption = #21024#38500
Flat = True
OnClick = btn12Click
end
end
object rg1: TRadioGroup
Left = 0
Top = 0
Width = 685
Height = 57
Align = alCustom
Anchors = [akLeft, akTop, akRight]
Caption = #36873#25321#26631#20934
Columns = 4
ItemIndex = 0
Items.Strings = (
#24037#31181
#21152#29677#31867#21035
#32570#21220#31867#21035
#20225#19994#24180#24230#25928#30410)
TabOrder = 1
OnClick = rg1Click
end
object dbgrd1: TDBGrid
Left = 32
Top = 96
Width = 651
Height = 292
Anchors = [akLeft, akTop, akRight, akBottom]
DataSource = dm.dsGz
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 2
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnDblClick = btn2Click
Columns = <
item
Expanded = False
FieldName = 'gz'
Width = 200
Visible = True
end
item
Expanded = False
FieldName = 'jbgz'
Width = 80
Visible = True
end>
end
object dbgrd2: TDBGrid
Left = 40
Top = 104
Width = 651
Height = 292
Anchors = [akLeft, akTop, akRight, akBottom]
DataSource = dm.dsJblb
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 3
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnDblClick = btn5Click
Columns = <
item
Expanded = False
FieldName = 'jblb'
Width = 200
Visible = True
end
item
Expanded = False
FieldName = 'jbgz'
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'ndxs'
Visible = True
end>
end
object dbgrd3: TDBGrid
Left = 48
Top = 112
Width = 651
Height = 292
Anchors = [akLeft, akTop, akRight, akBottom]
DataSource = dm.dsQqlb
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 4
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnDblClick = btn8Click
Columns = <
item
Expanded = False
FieldName = 'qqlb'
Width = 200
Visible = True
end
item
Expanded = False
FieldName = 'jbgz'
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'ndxs'
Visible = True
end>
end
object dbgrd4: TDBGrid
Left = 56
Top = 120
Width = 651
Height = 292
Anchors = [akLeft, akTop, akRight, akBottom]
DataSource = dm.dsNdxy
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 5
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnDblClick = btn11Click
Columns = <
item
Expanded = False
FieldName = 'nian'
Width = 120
Visible = True
end
item
Expanded = False
FieldName = 'ndxy'
Width = 150
Visible = True
end>
end
end
object ts2: TTabSheet
Caption = #21592#24037#22522#26412#20449#24687
ImageIndex = 1
object dbgrd5: TDBGrid
Left = 0
Top = 0
Width = 725
Height = 404
Align = alClient
DataSource = dm.dsYgxx
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnDblClick = btn14Click
Columns = <
item
Expanded = False
FieldName = 'ygh'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'xm'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'aGz'
Title.Caption = #24037#31181
Width = 120
Visible = True
end
item
Expanded = False
FieldName = 'bm'
Title.Caption = #37096#38376
Width = 150
Visible = True
end
item
Expanded = False
FieldName = 'gzsj'
Title.Caption = #24037#20316#26102#38388
Width = 120
Visible = True
end>
end
object pnl2: TPanel
Left = 0
Top = 404
Width = 725
Height = 47
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object btn13: TSpeedButton
Left = 16
Top = 8
Width = 57
Height = 30
Caption = #28155#21152
Flat = True
OnClick = btn13Click
end
object btn14: TSpeedButton
Left = 80
Top = 8
Width = 57
Height = 30
Caption = #20462#25913
Flat = True
OnClick = btn14Click
end
object btn15: TSpeedButton
Left = 144
Top = 8
Width = 57
Height = 30
Caption = #21024#38500
Flat = True
OnClick = btn15Click
end
end
end
object ts3: TTabSheet
Caption = #32771#21220
ImageIndex = 2
object spl1: TSplitter
Left = 0
Top = 129
Width = 725
Height = 3
Cursor = crVSplit
Align = alTop
end
object dbgrd7: TDBGrid
Left = 0
Top = 132
Width = 725
Height = 272
Align = alClient
DataSource = dm.dsKqxx
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnDblClick = btn17Click
Columns = <
item
Expanded = False
FieldName = 'kqsj'
Visible = True
end
item
Expanded = False
FieldName = 'qqts'
Width = 64
Visible = True
end
item
Expanded = False
FieldName = 'aQqlb'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -