📄 mainform.dfm.~14~
字号:
#26368#36817#65299#65298#26399
#26368#36817#65297#65302#26399)
end
object TBFS: TComboBox
Left = 344
Top = 12
Width = 145
Height = 21
ItemHeight = 13
ItemIndex = 0
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
object Panel3: TPanel
Left = 0
Top = 0
Width = 555
Height = 73
Align = alTop
BevelOuter = bvNone
TabOrder = 0
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
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=D:\tmp\redbase_ssq\' +
#21452#33394#29699'.mdb;Persist Security 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 + -