📄 unit6.dfm
字号:
object Day_data: TDay_data
Left = 179
Top = 35
Width = 506
Height = 474
Caption = 'Day_data'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 498
Height = 105
Align = alTop
Caption = #25805#20316#38754#26495
TabOrder = 2
object Label1: TLabel
Left = 8
Top = 29
Width = 84
Height = 13
Caption = #35831#36755#20837#27969#37327#35745#21495
end
object Label2: TLabel
Left = 189
Top = 29
Width = 108
Height = 13
Caption = #35831#36755#20837#26597#35810#26597#35810#26102#38388
end
object Label3: TLabel
Left = 376
Top = 29
Width = 15
Height = 13
Caption = '--->'
end
object ComboBox1: TComboBox
Left = 96
Top = 24
Width = 65
Height = 21
ImeName = #32043#20809#25340#38899#36755#20837#27861
ItemHeight = 13
TabOrder = 0
Text = '1'
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23'
'24'
'25'
'26')
end
object MaskEdit1: TMaskEdit
Left = 304
Top = 24
Width = 65
Height = 21
EditMask = '!99/99/00;1;_'
ImeName = #32043#20809#25340#38899#36755#20837#27861
MaxLength = 8
TabOrder = 1
Text = ' - - '
end
object MaskEdit2: TMaskEdit
Left = 416
Top = 24
Width = 65
Height = 21
EditMask = '!99/99/00;1;_'
ImeName = #32043#20809#25340#38899#36755#20837#27861
MaxLength = 8
TabOrder = 2
Text = ' - - '
end
object BitBtn1: TBitBtn
Left = 24
Top = 64
Width = 89
Height = 25
Caption = #30830#23450
TabOrder = 3
OnClick = BitBtn1Click
Kind = bkOK
end
object BitBtn2: TBitBtn
Left = 136
Top = 64
Width = 89
Height = 25
Caption = #21462#28040
TabOrder = 4
Kind = bkCancel
end
object BitBtn3: TBitBtn
Left = 256
Top = 64
Width = 89
Height = 25
Caption = #26354#32447#26174#31034
TabOrder = 5
OnClick = BitBtn3Click
end
object BitBtn4: TBitBtn
Left = 384
Top = 64
Width = 89
Height = 25
Caption = #25253#34920
TabOrder = 6
OnClick = BitBtn4Click
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 112
Width = 497
Height = 273
DataSource = DataSource1
ImeName = #32043#20809#25340#38899#36755#20837#27861
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #27969#37327#35745#32534#21495
Visible = True
end
item
Expanded = False
FieldName = #36816#34892#26085#26399
Visible = True
end
item
Expanded = False
FieldName = #36816#34892#26102#38388
Visible = True
end
item
Expanded = False
FieldName = #27700#20301
Title.Caption = #27700#20301'(m)'
Visible = True
end
item
Expanded = False
FieldName = #27969#36895
Title.Caption = #27969#36895'(m/s)'
Visible = True
end
item
Expanded = False
FieldName = #30636#26102#27969#37327
Title.Caption = #30636#26102#27969#37327'(t/h)'
Visible = True
end
item
Expanded = False
FieldName = #32047#35745#27969#37327
Title.Caption = #32047#31215#27969#37327'(t)'
Visible = True
end>
end
object DBNavigator1: TDBNavigator
Left = 8
Top = 392
Width = 480
Height = 18
DataSource = DataMD.DataSourceDay
TabOrder = 1
end
object StatusBar1: TStatusBar
Left = 0
Top = 414
Width = 498
Height = 33
Panels = <
item
Text = #24037#25511#20844#21496' '
Width = 50
end
item
Width = 50
end>
SimplePanel = False
end
object DataSource1: TDataSource
DataSet = Query1
Left = 88
Top = 104
end
object Query1: TQuery
DatabaseName = 'tling'
SQL.Strings = (
'select * from Day_1')
Left = 56
Top = 136
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -