📄 unit3.dfm
字号:
object Form_xjbd: TForm_xjbd
Left = 374
Top = 237
Width = 684
Height = 530
Caption = #23398#31821#21464#21160
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = OnFormCreate
PixelsPerInch = 96
TextHeight = 13
object Label34: TLabel
Left = 84
Top = 44
Width = 47
Height = 13
Caption = #23398#29983'ID'#65306
end
object Label1: TLabel
Left = 84
Top = 120
Width = 60
Height = 13
Caption = #21464#26356#26102#38388#65306
end
object Label2: TLabel
Left = 380
Top = 44
Width = 60
Height = 13
Caption = #21464#26356#21407#22240#65306
end
object Label4: TLabel
Left = 380
Top = 124
Width = 36
Height = 13
Caption = #21435#21521#65306
end
object reason: TEdit
Left = 476
Top = 34
Width = 100
Height = 21
TabOrder = 0
end
object destination: TEdit
Left = 476
Top = 114
Width = 100
Height = 21
TabOrder = 1
end
object Cancel: TButton
Left = 480
Top = 184
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 2
OnClick = CancelClick
end
object Ok: TButton
Left = 144
Top = 184
Width = 75
Height = 25
Caption = #28155#21152
TabOrder = 3
OnClick = OkClick
end
object changetime: TDateTimePicker
Left = 184
Top = 120
Width = 100
Height = 21
Date = 39412.524340810190000000
Time = 39412.524340810190000000
TabOrder = 4
end
object DBGrid1: TDBGrid
Left = 24
Top = 216
Width = 625
Height = 265
DataSource = DataSource1
TabOrder = 5
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
Columns = <
item
Expanded = False
FieldName = #23398#29983'ID'
Visible = True
end
item
Expanded = False
FieldName = #21464#26356#26102#38388
Visible = True
end
item
Expanded = False
FieldName = #21407#22240
Visible = True
end
item
Expanded = False
FieldName = #21435#21521
Visible = True
end>
end
object xsID: TDBEdit
Left = 184
Top = 40
Width = 100
Height = 21
DataField = #23398#29983'ID'
DataSource = DataSource1
TabOrder = 6
end
object ADOQuery1: TADOQuery
Active = True
Connection = Form_xjgl.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from CLASS_BG')
Left = 304
Top = 16
object ADOQuery1ID: TIntegerField
FieldName = #23398#29983'ID'
end
object ADOQuery1DSDesigner: TDateTimeField
FieldName = #21464#26356#26102#38388
end
object ADOQuery1DSDesigner2: TWideStringField
FieldName = #21407#22240
Size = 50
end
object ADOQuery1DSDesigner3: TWideStringField
FieldName = #21435#21521
Size = 50
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 24
Top = 144
end
object ADOQuery_add: TADOQuery
Connection = Form_xjgl.ADOConnection1
Parameters = <>
Left = 304
Top = 80
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -