📄 dset.~dfm
字号:
object frmdset: Tfrmdset
Left = 232
Top = 100
Width = 730
Height = 443
Caption = #21442#25968#24405#20837
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
DesignSize = (
722
416)
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 16
Top = 168
Width = 249
Height = 201
ActivePage = TabSheet2
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #35760#24405#19968
object Label2: TLabel
Left = 15
Top = 56
Width = 65
Height = 13
AutoSize = False
Caption = #21442#25968#21517#31216
end
object paranameEdit1: TEdit
Left = 87
Top = 48
Width = 121
Height = 21
TabOrder = 0
end
object Button1: TButton
Left = 71
Top = 104
Width = 75
Height = 25
Caption = #28155#21152
TabOrder = 1
OnClick = Button1Click
end
end
object TabSheet2: TTabSheet
Caption = #35760#24405#20108
ImageIndex = 1
object Label3: TLabel
Left = 9
Top = 24
Width = 56
Height = 13
AutoSize = False
Caption = #21442#25968#21517#31216
end
object Label4: TLabel
Left = 9
Top = 50
Width = 81
Height = 13
AutoSize = False
Caption = #27979#35797#28201#24230'('#8451')'
end
object Label5: TLabel
Left = 9
Top = 77
Width = 73
Height = 13
AutoSize = False
Caption = #21442#25968#19978#38480#20540
end
object Label6: TLabel
Left = 9
Top = 104
Width = 73
Height = 13
AutoSize = False
Caption = #21442#25968#19979#38480#20540
end
object paranameedit2: TEdit
Left = 113
Top = 24
Width = 121
Height = 21
TabOrder = 0
end
object temperatureEdit: TEdit
Left = 113
Top = 50
Width = 121
Height = 21
TabOrder = 1
end
object maxvalueEdit: TEdit
Left = 113
Top = 77
Width = 121
Height = 21
TabOrder = 2
end
object minvalueEdit: TEdit
Left = 113
Top = 104
Width = 121
Height = 21
TabOrder = 3
end
object Button2: TButton
Left = 9
Top = 136
Width = 48
Height = 25
Caption = #28155#21152
TabOrder = 4
OnClick = Button2Click
end
object Button8: TButton
Left = 152
Top = 136
Width = 81
Height = 25
Caption = #36873#25321#27604#36739#21442#25968
TabOrder = 5
OnClick = Button8Click
end
object ComboBox1: TComboBox
Left = 77
Top = 137
Width = 68
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemIndex = 0
TabOrder = 6
Text = 'max'
Items.Strings = (
'max'
'min'
'sub')
end
end
object TabSheet3: TTabSheet
Caption = #25335#36125#21442#25968
ImageIndex = 2
OnHide = TabSheet3Hide
OnShow = TabSheet3Show
object Label8: TLabel
Left = 24
Top = 8
Width = 33
Height = 13
AutoSize = False
Caption = 'From'
end
object Label9: TLabel
Left = 24
Top = 40
Width = 32
Height = 13
AutoSize = False
Caption = 'PN'
end
object Label10: TLabel
Left = 24
Top = 80
Width = 38
Height = 13
AutoSize = False
Caption = #24037#24207
end
object Button5: TButton
Left = 88
Top = 120
Width = 75
Height = 25
Caption = #30830#23450
TabOrder = 0
OnClick = Button5Click
end
object pnCBox: TComboBox
Left = 64
Top = 32
Width = 145
Height = 21
ItemHeight = 0
Sorted = True
TabOrder = 1
OnChange = pnCBoxChange
end
object prodorderCBox: TComboBox
Left = 64
Top = 72
Width = 145
Height = 21
ItemHeight = 0
TabOrder = 2
end
end
object TabSheet4: TTabSheet
Caption = 'PN'#23545#24212#20851#31995
ImageIndex = 3
OnHide = TabSheet4Hide
OnShow = TabSheet4Show
object Label12: TLabel
Left = 6
Top = 36
Width = 60
Height = 13
AutoSize = False
Caption = #22806#23553#21518'PN'
end
object Label13: TLabel
Left = 6
Top = 84
Width = 60
Height = 13
AutoSize = False
Caption = #22806#23553#21069'PN'
end
object AfterCBox: TComboBox
Left = 72
Top = 32
Width = 145
Height = 21
ItemHeight = 0
Sorted = True
TabOrder = 0
end
object BeforeCBox: TComboBox
Left = 72
Top = 80
Width = 145
Height = 21
ItemHeight = 0
Sorted = True
TabOrder = 1
end
object Button6: TButton
Left = 64
Top = 128
Width = 75
Height = 25
Caption = #28155#21152
TabOrder = 2
OnClick = Button6Click
end
end
object TabSheet5: TTabSheet
Caption = 'SN'#23545#24212#20851#31995
ImageIndex = 4
object Label14: TLabel
Left = 6
Top = 36
Width = 60
Height = 13
AutoSize = False
Caption = #22806#23553#21518'SN'
end
object Label15: TLabel
Left = 6
Top = 84
Width = 60
Height = 13
AutoSize = False
Caption = #22806#23553#21069'SN'
end
object Button7: TButton
Left = 64
Top = 128
Width = 75
Height = 25
Caption = #28155#21152
TabOrder = 0
OnClick = Button7Click
end
object AfterSN: TEdit
Left = 72
Top = 32
Width = 121
Height = 21
TabOrder = 1
end
object BeforeSN: TEdit
Left = 72
Top = 80
Width = 121
Height = 21
TabOrder = 2
end
end
end
object GroupBox1: TGroupBox
Left = 280
Top = 8
Width = 425
Height = 153
Anchors = [akLeft, akTop, akRight]
Caption = #35760#24405#19968
TabOrder = 1
DesignSize = (
425
153)
object DBGrid1: TDBGrid
Left = 0
Top = 16
Width = 425
Height = 129
Anchors = [akLeft, akTop, akRight, akBottom]
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = DBGrid1DblClick
Columns = <
item
Expanded = False
FieldName = 'para_id1'
Title.Caption = #24207#21495
Width = 20
Visible = True
end
item
Expanded = False
FieldName = 'paraname'
Title.Caption = #21442#25968#21517
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'pn'
Title.Caption = 'PN'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'prodorder'
Title.Caption = #24037#24207
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'ordernum'
Width = 48
Visible = True
end
item
Expanded = False
FieldName = 'status'
Width = 50
Visible = True
end>
end
end
object GroupBox2: TGroupBox
Left = 280
Top = 200
Width = 425
Height = 169
Anchors = [akLeft, akTop, akRight, akBottom]
Caption = #35760#24405#20108
TabOrder = 2
object DBGrid2: TDBGrid
Left = 2
Top = 15
Width = 421
Height = 150
Align = alTop
DataSource = DataSource2
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = DBGrid2DblClick
Columns = <
item
Expanded = False
FieldName = 'para_id2'
Title.Caption = #24207#21495
Width = 25
Visible = True
end
item
Expanded = False
FieldName = 'paraname'
Title.Caption = #21442#25968#21517
Width = 90
Visible = True
end
item
Expanded = False
FieldName = 'temperature'
Title.Caption = #28201#24230
Width = 20
Visible = True
end
item
Expanded = False
FieldName = 'maxvalue'
Title.Caption = #26368#22823#20540
Width = 30
Visible = True
end
item
Expanded = False
FieldName = 'minvalue'
Title.Caption = #26368#23567#20540
Width = 30
Visible = True
end
item
Expanded = False
FieldName = 'pn'
Title.Caption = 'PN'
Width = 90
Visible = True
end
item
Expanded = False
FieldName = 'prodorder'
Title.Caption = #24037#24207
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'status'
Width = 50
Visible = True
end>
end
end
object Button3: TButton
Left = 440
Top = 168
Width = 75
Height = 25
Anchors = [akTop]
Caption = #21024#38500
TabOrder = 3
OnClick = Button3Click
end
object Button4: TButton
Left = 455
Top = 382
Width = 75
Height = 25
Anchors = []
Caption = #21024#38500
TabOrder = 4
OnClick = Button4Click
end
object GroupBox3: TGroupBox
Left = 16
Top = 8
Width = 249
Height = 153
TabOrder = 5
object Label1: TLabel
Left = 24
Top = 56
Width = 25
Height = 13
AutoSize = False
Caption = #24037#24207
end
object Label7: TLabel
Left = 24
Top = 24
Width = 25
Height = 13
AutoSize = False
Caption = 'PN'
end
object Label11: TLabel
Left = 24
Top = 111
Width = 24
Height = 13
Caption = 'order'
end
object prodorderEdit: TEdit
Left = 72
Top = 50
Width = 121
Height = 21
TabOrder = 0
end
object PNEdit: TEdit
Left = 72
Top = 20
Width = 121
Height = 21
TabOrder = 1
end
object ordernum: TEdit
Left = 72
Top = 105
Width = 121
Height = 21
TabOrder = 2
end
object Status: TCheckBox
Left = 72
Top = 77
Width = 121
Height = 17
Caption = #26159#21542#32456#27979#24037#24207
TabOrder = 3
end
end
object DataSource1: TDataSource
DataSet = ADODataSet1
Left = 272
Top = 56
end
object DataSource2: TDataSource
DataSet = ADODataSet2
Left = 272
Top = 160
end
object ADODataSet1: TADODataSet
Active = True
Connection = DM.ADOConn
CursorType = ctStatic
CommandText =
'select para_id1, paraname, pn, prodorder, ordernum,status from d' +
'evice_paraset1 order by para_id1 '
Parameters = <>
Left = 320
Top = 48
end
object ADODataSet2: TADODataSet
Active = True
Connection = DM.ADOConn
CursorType = ctStatic
CommandText =
'select para_id2, paraname, temperature, maxvalue, minvalue, pn, ' +
'prodorder ,status from device_paraset2 order by para_id2'
Parameters = <>
Left = 336
Top = 160
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -