📄 fmain.~dfm
字号:
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'
Title.Caption = #32570#21220#31867#21035
Width = 100
Visible = True
end>
end
object pnl3: TPanel
Left = 0
Top = 369
Width = 725
Height = 47
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object btn16: TSpeedButton
Left = 16
Top = 8
Width = 57
Height = 30
Caption = #28155#21152
Flat = True
OnClick = btn16Click
end
object btn17: TSpeedButton
Left = 80
Top = 8
Width = 57
Height = 30
Caption = #20462#25913
Flat = True
OnClick = btn17Click
end
object btn18: TSpeedButton
Left = 144
Top = 8
Width = 57
Height = 30
Caption = #21024#38500
Flat = True
OnClick = btn18Click
end
end
object dbgrd6: TDBGrid
Left = 0
Top = 0
Width = 725
Height = 129
Align = alTop
DataSource = dm.dsYgxx
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 = 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
end
object ts4: TTabSheet
Caption = #27941#36148
ImageIndex = 3
object spl2: TSplitter
Left = 0
Top = 129
Width = 725
Height = 3
Cursor = crVSplit
Align = alTop
end
object dbgrd8: TDBGrid
Left = 0
Top = 0
Width = 725
Height = 129
Align = alTop
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 pnl4: TPanel
Left = 0
Top = 369
Width = 725
Height = 47
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object btn19: TSpeedButton
Left = 16
Top = 8
Width = 57
Height = 30
Caption = #28155#21152
Flat = True
OnClick = btn19Click
end
object btn20: TSpeedButton
Left = 80
Top = 8
Width = 57
Height = 30
Caption = #20462#25913
Flat = True
OnClick = btn20Click
end
object btn21: TSpeedButton
Left = 144
Top = 8
Width = 57
Height = 30
Caption = #21024#38500
Flat = True
OnClick = btn21Click
end
end
object dbgrd9: TDBGrid
Left = 0
Top = 132
Width = 725
Height = 237
Align = alClient
DataSource = dm.dsJtxx
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 = btn20Click
Columns = <
item
Expanded = False
FieldName = 'jbsj'
Visible = True
end
item
Expanded = False
FieldName = 'jbts'
Width = 64
Visible = True
end
item
Expanded = False
FieldName = 'aJblb'
Title.Caption = #21152#29677#31867#21035
Width = 100
Visible = True
end>
end
end
object ts5: TTabSheet
Caption = #21307#30103
ImageIndex = 4
object spl3: TSplitter
Left = 0
Top = 129
Width = 725
Height = 3
Cursor = crVSplit
Align = alTop
end
object dbgrd10: TDBGrid
Left = 0
Top = 0
Width = 725
Height = 129
Align = alTop
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 pnl5: TPanel
Left = 0
Top = 369
Width = 725
Height = 47
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object btn22: TSpeedButton
Left = 16
Top = 8
Width = 57
Height = 30
Caption = #28155#21152
Flat = True
OnClick = btn22Click
end
object btn23: TSpeedButton
Left = 80
Top = 8
Width = 57
Height = 30
Caption = #20462#25913
Flat = True
OnClick = btn23Click
end
object btn24: TSpeedButton
Left = 144
Top = 8
Width = 57
Height = 30
Caption = #21024#38500
Flat = True
OnClick = btn24Click
end
end
object dbgrd11: TDBGrid
Left = 0
Top = 132
Width = 725
Height = 237
Align = alClient
DataSource = dm.dsYlbx
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 = btn23Click
Columns = <
item
Expanded = False
FieldName = 'ylfy'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'bxfy'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'sj'
Width = 100
Visible = True
end>
end
end
object ts6: TTabSheet
Caption = #26376#25253#34920
ImageIndex = 5
OnShow = ts6Show
object spl4: TSplitter
Left = 0
Top = 129
Width = 725
Height = 3
Cursor = crVSplit
Align = alTop
end
object dbgrd12: TDBGrid
Left = 0
Top = 0
Width = 725
Height = 129
Align = alTop
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'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -