📄 unit4.dfm
字号:
object hydate: Thydate
Left = 395
Top = 187
Width = 311
Height = 358
BorderIcons = []
Caption = #20250#21592#30331#35760
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 261
Width = 303
Height = 35
Align = alBottom
BevelInner = bvLowered
Color = clSkyBlue
TabOrder = 1
object Button1: TButton
Left = 31
Top = 5
Width = 57
Height = 25
Caption = #30830#23450
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 120
Top = 5
Width = 57
Height = 25
Caption = #37325#22635
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button2Click
end
object Button3: TButton
Left = 201
Top = 5
Width = 57
Height = 25
Caption = #36864#20986
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = Button3Click
end
end
object Panel2: TPanel
Left = 0
Top = 49
Width = 303
Height = 212
Align = alClient
BevelInner = bvLowered
TabOrder = 0
object Edit1: TEdit
Left = 64
Top = 16
Width = 137
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object Edit2: TEdit
Left = 64
Top = 48
Width = 209
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
PasswordChar = '*'
TabOrder = 1
end
object Edit3: TEdit
Left = 64
Top = 80
Width = 65
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object Edit4: TEdit
Left = 208
Top = 80
Width = 65
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object Edit5: TEdit
Left = 64
Top = 112
Width = 209
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object Edit6: TEdit
Left = 64
Top = 144
Width = 209
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object Edit7: TEdit
Left = 64
Top = 176
Width = 209
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
end
object Panel5: TPanel
Left = 18
Top = 20
Width = 36
Height = 16
BevelOuter = bvNone
Caption = #24080' '#21495
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
end
object Panel6: TPanel
Left = 16
Top = 52
Width = 36
Height = 16
BevelOuter = bvNone
Caption = #23494' '#30721
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
end
object Panel7: TPanel
Left = 18
Top = 85
Width = 36
Height = 16
BevelOuter = bvNone
Caption = #25276' '#37329
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
end
object Panel8: TPanel
Left = 18
Top = 116
Width = 36
Height = 16
BevelOuter = bvNone
Caption = #22995' '#21517
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 10
end
object Panel9: TPanel
Left = 18
Top = 148
Width = 36
Height = 16
BevelOuter = bvNone
Caption = #35777' '#20214
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 11
end
object Panel10: TPanel
Left = 19
Top = 180
Width = 36
Height = 16
BevelOuter = bvNone
Caption = #21333' '#20301
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 12
end
object Panel11: TPanel
Left = 152
Top = 84
Width = 36
Height = 15
BevelOuter = bvNone
Caption = #36153' '#29575
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 13
end
object cb1: TCheckBox
Left = 208
Top = 16
Width = 65
Height = 25
TabOrder = 14
end
object Panel12: TPanel
Left = 224
Top = 20
Width = 60
Height = 17
BevelOuter = bvNone
Caption = #20020#26102#20250#21592
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 15
end
end
object Panel3: TPanel
Left = 0
Top = 296
Width = 303
Height = 28
Align = alBottom
Caption = #36229#21069#30005#33041#26377#38480#20844#21496
Color = clPurple
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 303
Height = 49
Align = alTop
Caption = #20250' '#21592' '#36164' '#26009
Color = clAqua
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -27
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object hy1: TADOTable
Connection = Form1.ADOCon1
CursorLocation = clUseServer
TableName = 'yhdate'
Left = 8
Top = 16
object hy1a1: TWideStringField
FieldName = #24080#21495
Size = 12
end
object hy1a2: TWideStringField
FieldName = #23494#30721
Size = 12
end
object hy1a3: TWideStringField
FieldName = #22995#21517
Size = 8
end
object hy1a4: TDateTimeField
FieldName = #24320#25143#26085#26399
end
object hy1a5: TFloatField
FieldName = #25276#37329
end
object hy1a6: TFloatField
FieldName = #35745#36153#26631#20934
end
object hy1a7: TWideStringField
FieldName = #35777#20214#21495#30721
end
object hy1a8: TWideStringField
FieldName = #21333#20301
Size = 30
end
object hy1a9: TWideStringField
FieldName = #26631#24535
Size = 4
end
end
object hy4: TADOTable
Connection = Form1.ADOCon1
CursorLocation = clUseServer
TableName = 'hyjqjl'
Left = 40
Top = 16
object hy4a1: TWideStringField
FieldName = #24080#21495
Size = 12
end
object hy4a2: TWideStringField
FieldName = #22995#21517
Size = 8
end
object hy4a3: TDateTimeField
FieldName = #21457#29983#26102#38388
end
object hy4a4: TDateTimeField
FieldName = #21457#29983#26085#26399
end
object hy4a5: TFloatField
FieldName = #37329#39069
end
object hy4a6: TWideStringField
FieldName = #26631#24535
Size = 4
end
object hy4a7: TWideStringField
FieldName = #22791#27880
Size = 10
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -