📄 fmain.~dfm
字号:
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 pnl6: TPanel
Left = 0
Top = 369
Width = 725
Height = 47
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object btn25: TSpeedButton
Left = 16
Top = 8
Width = 57
Height = 30
Caption = #35745#31639
Flat = True
OnClick = btn25Click
end
object btn26: TSpeedButton
Left = 88
Top = 8
Width = 89
Height = 30
Caption = #35745#31639#25152#26377#20154
Flat = True
OnClick = btn26Click
end
object btn27: TSpeedButton
Left = 192
Top = 8
Width = 57
Height = 30
Caption = #21024#38500
Flat = True
OnClick = btn27Click
end
object btn28: TSpeedButton
Left = 288
Top = 8
Width = 57
Height = 30
Caption = #25253#34920
Flat = True
OnClick = btn28Click
end
object lbl1: TLabel
Left = 440
Top = 16
Width = 15
Height = 15
Caption = #24180
end
object lbl2: TLabel
Left = 528
Top = 16
Width = 15
Height = 15
Caption = #26376
end
object edt1: TEdit
Left = 384
Top = 12
Width = 49
Height = 23
TabOrder = 0
end
object cbb1: TComboBox
Left = 464
Top = 12
Width = 57
Height = 23
Style = csDropDownList
ItemHeight = 15
TabOrder = 1
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12')
end
object pb1: TProgressBar
Left = 560
Top = 16
Width = 150
Height = 16
TabOrder = 2
end
end
object dbgrd13: TDBGrid
Left = 0
Top = 132
Width = 725
Height = 237
Align = alClient
DataSource = dm.dsYgz
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 = []
Columns = <
item
Expanded = False
FieldName = 'nian'
Title.Caption = #24180
Visible = True
end
item
Expanded = False
FieldName = 'yue'
Title.Caption = #26376
Visible = True
end
item
Expanded = False
FieldName = 'jbgz'
Title.Caption = #22522#26412#24037#36164
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'jt'
Title.Caption = #27941#36148
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'kc'
Title.Caption = #25187#38500
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'bx'
Title.Caption = #25253#38144'/'#20445#38505
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'zj'
Title.Caption = #24635#35745
Width = 100
Visible = True
end>
end
end
object ts7: TTabSheet
Caption = #24180#25253#34920
ImageIndex = 6
OnShow = ts7Show
object spl5: TSplitter
Left = 0
Top = 129
Width = 725
Height = 3
Cursor = crVSplit
Align = alTop
end
object dbgrd14: 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 pnl7: TPanel
Left = 0
Top = 369
Width = 725
Height = 47
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object btn29: TSpeedButton
Left = 16
Top = 8
Width = 57
Height = 30
Caption = #35745#31639
Flat = True
OnClick = btn29Click
end
object btn30: TSpeedButton
Left = 88
Top = 8
Width = 89
Height = 30
Caption = #35745#31639#25152#26377#20154
Flat = True
OnClick = btn30Click
end
object btn31: TSpeedButton
Left = 192
Top = 8
Width = 57
Height = 30
Caption = #21024#38500
Flat = True
OnClick = btn31Click
end
object btn32: TSpeedButton
Left = 288
Top = 8
Width = 57
Height = 30
Caption = #25253#34920
Flat = True
OnClick = btn32Click
end
object lbl3: TLabel
Left = 416
Top = 16
Width = 60
Height = 15
Caption = #24180#24230#25928#30410
end
object edt2: TEdit
Left = 360
Top = 12
Width = 49
Height = 23
TabOrder = 0
end
object edt3: TEdit
Left = 480
Top = 12
Width = 65
Height = 23
TabOrder = 1
end
object pb2: TProgressBar
Left = 560
Top = 16
Width = 150
Height = 16
TabOrder = 2
end
end
object dbgrd15: TDBGrid
Left = 0
Top = 132
Width = 725
Height = 237
Align = alClient
DataSource = dm.dsNzjj
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 = []
Columns = <
item
Expanded = False
FieldName = 'nian'
Title.Caption = #24180
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'zj'
Title.Caption = #22870#37329#24635#25968
Width = 150
Visible = True
end>
end
end
object ts8: TTabSheet
Caption = '-='#31995#32479'=-'
ImageIndex = 7
DesignSize = (
725
416)
object btn35: TSpeedButton
Left = 568
Top = 328
Width = 129
Height = 57
Anchors = [akRight, akBottom]
Caption = #36864#20986
Flat = True
OnClick = btn35Click
end
object lbl5: TLabel
Left = 176
Top = 136
Width = 336
Height = 56
Anchors = []
Caption = #36130#21153#31649#29702#31995#32479
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -56
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ParentFont = False
Transparent = True
end
object btn33: TButton
Left = 408
Top = 328
Width = 137
Height = 57
Caption = #30331#24405#31649#29702
TabOrder = 0
OnClick = btn33Click
end
end
end
object ApplicationEvents1: TApplicationEvents
OnException = ApplicationEvents1Exception
Left = 680
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -