📄 mainform.dfm
字号:
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 Label5: TLabel
Left = 56
Top = 48
Width = 65
Height = 13
Caption = #36141#20080#26085#26399#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
end
object DBEdit3: TDBEdit
Left = 256
Top = 8
Width = 33
Height = 21
DataField = #32418#33394'2'
DataSource = GDS
TabOrder = 2
end
object DBEdit4: TDBEdit
Left = 296
Top = 8
Width = 33
Height = 21
DataField = #32418#33394'3'
DataSource = GDS
TabOrder = 3
end
object DBEdit5: TDBEdit
Left = 336
Top = 8
Width = 33
Height = 21
DataField = #32418#33394'4'
DataSource = GDS
TabOrder = 4
end
object DBEdit6: TDBEdit
Left = 376
Top = 8
Width = 33
Height = 21
DataField = #32418#33394'5'
DataSource = GDS
TabOrder = 5
end
object DBEdit7: TDBEdit
Left = 416
Top = 8
Width = 33
Height = 21
DataField = #32418#33394'6'
DataSource = GDS
TabOrder = 6
end
object DBEdit8: TDBEdit
Left = 456
Top = 8
Width = 33
Height = 21
DataField = #34013#33394
DataSource = GDS
TabOrder = 7
end
object DBNavigator1: TDBNavigator
Left = 248
Top = 40
Width = 232
Height = 25
DataSource = GDS
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbEdit, nbPost, nbCancel]
TabOrder = 8
end
object GMRQ: TRzDBDateTimePicker
Left = 128
Top = 40
Width = 113
Height = 21
Date = 38783.000000000000000000
Time = 38783.000000000000000000
TabOrder = 9
DataField = #36141#20080#26085#26399
DataSource = GDS
end
end
object GDG: TdxDBGrid
Left = 0
Top = 73
Width = 555
Height = 326
Bands = <
item
end>
DefaultLayout = True
HeaderPanelRowCount = 1
SummaryGroups = <>
SummarySeparator = ', '
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
BandFont.Charset = ANSI_CHARSET
BandFont.Color = clWindowText
BandFont.Height = -13
BandFont.Name = #23435#20307
BandFont.Style = []
DataSource = GDS
Filter.Criteria = {00000000}
GridLineColor = clMenuHighlight
HeaderFont.Charset = ANSI_CHARSET
HeaderFont.Color = clWindowText
HeaderFont.Height = -13
HeaderFont.Name = #23435#20307
HeaderFont.Style = []
OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
PreviewFont.Charset = DEFAULT_CHARSET
PreviewFont.Color = clBlue
PreviewFont.Height = -13
PreviewFont.Name = #23435#20307
PreviewFont.Style = []
OnColumnClick = DGColumnClick
object dxDBGridColumn1: TdxDBGridColumn
Alignment = taCenter
Font.Charset = ANSI_CHARSET
Font.Color = clTeal
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
HeaderAlignment = taCenter
Width = 80
BandIndex = 0
RowIndex = 0
FieldName = #36141#20080#26399#25968
end
object GDGColumn9: TdxDBGridColumn
HeaderAlignment = taCenter
Width = 75
BandIndex = 0
RowIndex = 0
FieldName = #36141#20080#26085#26399
end
object dxDBGridColumn2: TdxDBGridColumn
Alignment = taCenter
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
HeaderAlignment = taCenter
Width = 50
BandIndex = 0
RowIndex = 0
FieldName = #32418#33394'1'
end
object dxDBGridColumn3: TdxDBGridColumn
Alignment = taCenter
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
HeaderAlignment = taCenter
Width = 46
BandIndex = 0
RowIndex = 0
FieldName = #32418#33394'2'
end
object dxDBGridColumn4: TdxDBGridColumn
Alignment = taCenter
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
HeaderAlignment = taCenter
Width = 48
BandIndex = 0
RowIndex = 0
FieldName = #32418#33394'3'
end
object dxDBGridColumn5: TdxDBGridColumn
Alignment = taCenter
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
HeaderAlignment = taCenter
Width = 48
BandIndex = 0
RowIndex = 0
FieldName = #32418#33394'4'
end
object dxDBGridColumn6: TdxDBGridColumn
Alignment = taCenter
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
HeaderAlignment = taCenter
Width = 50
BandIndex = 0
RowIndex = 0
FieldName = #32418#33394'5'
end
object dxDBGridColumn7: TdxDBGridColumn
Alignment = taCenter
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
HeaderAlignment = taCenter
Width = 39
BandIndex = 0
RowIndex = 0
FieldName = #32418#33394'6'
end
object dxDBGridColumn8: TdxDBGridColumn
Alignment = taCenter
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
HeaderAlignment = taCenter
Width = 38
BandIndex = 0
RowIndex = 0
FieldName = #34013#33394
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 StatusBar1: TStatusBar
Left = 0
Top = 427
Width = 563
Height = 19
Panels = <
item
Alignment = taCenter
Text = #29256#26435#25152#26377
Width = 50
end
item
Text = #29579#19996
Width = 50
end
item
Alignment = taCenter
Text = #37038#20214
Width = 50
end
item
Text = 'wangdong_tjcn@yahoo.com.cn'
Width = 180
end
item
Alignment = taCenter
Text = #32593#31449
Width = 50
end
item
Text = 'http://www.eastwhisht.cn'
Width = 150
end
item
Width = 50
end>
end
object DS: TDataSource
DataSet = AT
Left = 156
Top = 160
end
object AT: TADOTable
Active = True
Connection = AC
CursorType = ctStatic
AfterInsert = ATAfterInsert
AfterEdit = ATAfterEdit
AfterDelete = ATAfterDelete
TableName = #24320#22870#25968#25454
Left = 188
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 = 148
Top = 224
end
object RBH: TRzBalloonHints
Alignment = taLeftJustify
Bitmaps.TransparentColor = clOlive
CaptionWidth = 100
Color = clInfoBk
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
HintPause = 500
Left = 268
Top = 144
end
object GAT: TADOTable
Active = True
Connection = AC
CursorType = ctStatic
AfterInsert = GATAfterInsert
AfterEdit = GATAfterEdit
AfterDelete = GATAfterDelete
TableName = #36141#20080#35760#24405
Left = 68
Top = 176
end
object GDS: TDataSource
DataSet = GAT
Left = 76
Top = 216
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -