📄 mainform.dfm.~9~
字号:
TabOrder = 1
Text = #32418#29699#36208#21183
OnChange = TBFSChange
Items.Strings = (
#32418#29699#36208#21183
#34013#29699#36208#21183
#32418#34013#20849#21516#36208#21183
#21452#36830#21495#36208#21183
#19977#36830#21495#36208#21183
#22235#36830#21495#36208#21183
#21452#36339#21495#36208#21183
#19977#36339#21495#36208#21183)
end
object btnSave: TBitBtn
Left = 496
Top = 8
Width = 49
Height = 25
Caption = #20445#23384
TabOrder = 2
OnClick = btnSaveClick
end
end
end
object TabSheet5: TTabSheet
Caption = #25968#25454#22270#34920
ImageIndex = 4
OnShow = TabSheet5Show
object tb: TStringGrid
Left = 0
Top = 0
Width = 555
Height = 399
Align = alClient
ColCount = 50
Ctl3D = False
DefaultColWidth = 18
DefaultRowHeight = 18
RowCount = 2
ParentCtl3D = False
TabOrder = 0
OnDrawCell = tbDrawCell
end
end
object TabSheet3: TTabSheet
Caption = #36141#20080#35760#24405
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel3: TPanel
Left = 0
Top = 0
Width = 555
Height = 73
Align = alTop
BevelOuter = bvNone
TabOrder = 0
ExplicitLeft = 16
object Label4: TLabel
Left = 8
Top = 16
Width = 117
Height = 13
Caption = #26368#26032#24320#22870#25968#25454#24405#20837#65306
end
object DBEdit1: TDBEdit
Left = 128
Top = 8
Width = 81
Height = 21
DataField = #36141#20080#26399#25968
DataSource = GDS
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 216
Top = 8
Width = 33
Height = 21
DataField = #32418#33394'1'
DataSource = GDS
TabOrder = 1
OnKeyPress = DBEdit2KeyPress
end
object DBEdit3: TDBEdit
Left = 256
Top = 8
Width = 33
Height = 21
DataField = #32418#33394'2'
DataSource = GDS
TabOrder = 2
OnKeyPress = DBEdit3KeyPress
end
object DBEdit4: TDBEdit
Left = 296
Top = 8
Width = 33
Height = 21
DataField = #32418#33394'3'
DataSource = GDS
TabOrder = 3
OnKeyPress = DBEdit4KeyPress
end
object DBEdit5: TDBEdit
Left = 336
Top = 8
Width = 33
Height = 21
DataField = #32418#33394'4'
DataSource = GDS
TabOrder = 4
OnKeyPress = DBEdit5KeyPress
end
object DBEdit6: TDBEdit
Left = 376
Top = 8
Width = 33
Height = 21
DataField = #32418#33394'5'
DataSource = GDS
TabOrder = 5
OnKeyPress = DBEdit6KeyPress
end
object DBEdit7: TDBEdit
Left = 416
Top = 8
Width = 33
Height = 21
DataField = #32418#33394'6'
DataSource = GDS
TabOrder = 6
OnKeyPress = DBEdit7KeyPress
end
object DBEdit8: TDBEdit
Left = 456
Top = 8
Width = 33
Height = 21
DataField = #34013#33394
DataSource = GDS
TabOrder = 7
end
object DBNavigator1: TDBNavigator
Left = 257
Top = 48
Width = 232
Height = 25
DataSource = GDS
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbEdit, nbPost, nbCancel]
TabOrder = 8
end
end
object GDG: TDBGrid
Left = 0
Top = 79
Width = 561
Height = 281
DataSource = GDS
TabOrder = 1
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #32534#21495
Width = 60
Visible = True
end
item
Expanded = False
FieldName = #36141#20080#26399#25968
Width = 60
Visible = True
end
item
Expanded = False
FieldName = #32418#33394'1'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = #32418#33394'2'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = #32418#33394'3'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = #32418#33394'4'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = #32418#33394'5'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = #32418#33394'6'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = #34013#33394
Width = 60
Visible = True
end
item
Expanded = False
FieldName = #36141#20080#26085#26399
Width = 115
Visible = True
end>
end
end
object TabSheet4: TTabSheet
Caption = #36141#20080#20998#26512
ImageIndex = 4
OnHide = TabSheet4Hide
OnShow = TabSheet4Show
object GMTB: TStringGrid
Left = 0
Top = 0
Width = 555
Height = 399
Align = alClient
ColCount = 50
Ctl3D = False
DefaultColWidth = 18
DefaultRowHeight = 18
RowCount = 2
ParentCtl3D = False
TabOrder = 0
OnDrawCell = GMTBDrawCell
end
end
object TabSheet6: TTabSheet
Caption = #31449#38271#32593#31449
ImageIndex = 5
OnShow = TabSheet6Show
object wb: TWebBrowser
Left = 0
Top = 0
Width = 555
Height = 399
Align = alClient
TabOrder = 0
OnNewWindow2 = wbNewWindow2
ControlData = {
4C0000005C3900003D2900000000000000000000000000000000000000000000
000000004C000000000000000000000001000000E0D057007335CF11AE690800
2B2E126208000000000000004C0000000114020000000000C000000000000046
8000000000000000000000000000000000000000000000000000000000000000
00000000000000000100000000000000000000000000000000000000}
end
end
end
object DS: TDataSource
DataSet = AT
Left = 156
Top = 160
end
object AC: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='#21452#33394#29699'.mdb;Persist Sec' +
'urity Info=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 220
Top = 160
end
object AQ: TADOQuery
Connection = AC
Parameters = <>
Left = 156
Top = 296
end
object GDS: TDataSource
DataSet = GAT
Left = 76
Top = 216
end
object AT: TADOQuery
Active = True
Connection = AC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '#24320#22870#25968#25454' order by '#32534#21495' desc')
Left = 312
Top = 160
end
object GAT: TADOQuery
Active = True
Connection = AC
CursorType = ctStatic
OnNewRecord = GATNewRecord
Parameters = <>
SQL.Strings = (
'select * from '#36141#20080#35760#24405' order by '#32534#21495' desc')
Left = 272
Top = 224
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -