?? rec.dfm
字號:
object RecordFrm: TRecordFrm
Left = 196
Top = 164
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = ' '#32852#31995#35760#24405
ClientHeight = 419
ClientWidth = 781
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 137
Width = 781
Height = 230
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object DBGrid1: TDBGrid
Left = 2
Top = 2
Width = 777
Height = 226
Align = alClient
DataSource = DataSource1
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object Panel2: TPanel
Left = 0
Top = 367
Width = 781
Height = 52
Align = alBottom
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object SpeedButton1: TSpeedButton
Left = 16
Top = 8
Width = 69
Height = 33
Caption = #28155#21152'(&A)'
Flat = True
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 85
Top = 8
Width = 69
Height = 33
Caption = #21024#38500'(&D)'
Flat = True
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 154
Top = 8
Width = 69
Height = 33
Caption = #20462#25913'(&M)'
Flat = True
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 223
Top = 8
Width = 69
Height = 33
Caption = #21462#28040'(&C)'
Flat = True
OnClick = SpeedButton4Click
end
object SpeedButton5: TSpeedButton
Left = 292
Top = 8
Width = 69
Height = 33
Caption = #20445#23384'(&S)'
Enabled = False
Flat = True
OnClick = SpeedButton5Click
end
object SpeedButton6: TSpeedButton
Left = 361
Top = 8
Width = 69
Height = 33
Caption = #36864#20986'(&E)'
Flat = True
OnClick = SpeedButton6Click
end
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 781
Height = 137
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object Label1: TLabel
Left = 34
Top = 24
Width = 63
Height = 13
AutoSize = False
Caption = #23458#25143#32534#21495
FocusControl = DBEdit1
end
object Label2: TLabel
Left = 34
Top = 60
Width = 63
Height = 13
AutoSize = False
Caption = #35760#24405#20869#23481
FocusControl = DBEdit2
end
object Label3: TLabel
Left = 250
Top = 24
Width = 63
Height = 13
AutoSize = False
Caption = #35760#24405#26085#26399
FocusControl = DBEdit3
end
object Label4: TLabel
Left = 34
Top = 96
Width = 31
Height = 13
AutoSize = False
Caption = #22791#27880
FocusControl = DBEdit4
end
object DBEdit1: TDBEdit
Left = 98
Top = 24
Width = 134
Height = 21
DataField = 'RecordID'
DataSource = DataSource1
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 98
Top = 60
Width = 447
Height = 21
DataField = 'RecordDoc'
DataSource = DataSource1
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 313
Top = 24
Width = 145
Height = 21
DataField = 'RecordDate'
DataSource = DataSource1
TabOrder = 3
end
object DBEdit4: TDBEdit
Left = 98
Top = 96
Width = 449
Height = 21
DataField = 'RecordMomo'
DataSource = DataSource1
TabOrder = 2
end
object DateTimePicker1: TDateTimePicker
Left = 314
Top = 24
Width = 145
Height = 21
CalAlignment = dtaLeft
Date = 38579.5080242593
Time = 38579.5080242593
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 4
end
end
object ADOQuery1: TADOQuery
Connection = Datafrm.con
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from Record')
Left = 592
Top = 96
object ADOQuery1RecordID: TWideStringField
DisplayLabel = #23458#25143#32534#21495
DisplayWidth = 10
FieldName = 'RecordID'
Size = 50
end
object ADOQuery1RecordDoc: TWideStringField
DisplayLabel = #35760#24405#20869#23481
DisplayWidth = 50
FieldName = 'RecordDoc'
Size = 50
end
object ADOQuery1RecordDate: TDateTimeField
DisplayLabel = #35760#24405#26085#26399
DisplayWidth = 15
FieldName = 'RecordDate'
end
object ADOQuery1RecordMomo: TWideStringField
DisplayLabel = #22791#27880
DisplayWidth = 20
FieldName = 'RecordMomo'
Size = 100
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 624
Top = 96
end
end
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -