📄 qry.~dfm
字号:
object frmQry: TfrmQry
Left = 207
Top = 170
Width = 696
Height = 480
BorderIcons = [biSystemMenu]
Caption = #26597#35810#21382#21490#25968#25454' '
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object lbl1: TLabel
Left = 240
Top = 16
Width = 200
Height = 24
Caption = #26597#35810#21382#21490#25968#25454' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object pgcqry: TPageControl
Left = 8
Top = 64
Width = 673
Height = 385
ActivePage = tsIDFInfo
TabIndex = 2
TabOrder = 0
object tsACData: TTabSheet
Caption = #22238#39118#28201#24230#26597#35810
object lbl2: TLabel
Left = 424
Top = 72
Width = 60
Height = 13
Caption = #36215#22987#26102#38388#65306
end
object lbl3: TLabel
Left = 424
Top = 112
Width = 63
Height = 13
Caption = #32467#26463#26102#38388#65306' '
end
object dbgrdacdata: TDBGrid
Left = 8
Top = 16
Width = 385
Height = 329
DataSource = dsacdata
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #26102#38388
Visible = True
end
item
Expanded = False
FieldName = 'id'
Title.Caption = #25509#21475#26495#22320#22336
Visible = True
end
item
Expanded = False
FieldName = 'ACAddress'
Title.Caption = #31354#35843#22320#22336
Visible = True
end
item
Expanded = False
FieldName = #22238#39118#28201#24230
Visible = True
end>
end
object chksj: TCheckBox
Left = 416
Top = 32
Width = 97
Height = 17
Caption = #26102#38388#26597#35810
TabOrder = 1
OnMouseUp = chksjMouseUp
end
object dtpstart: TDateTimePicker
Left = 496
Top = 56
Width = 145
Height = 21
CalAlignment = dtaLeft
Date = 39069.926291412
Time = 39069.926291412
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 2
end
object dtpstop: TDateTimePicker
Left = 496
Top = 104
Width = 145
Height = 21
CalAlignment = dtaLeft
Date = 39069.9272328819
Time = 39069.9272328819
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 3
end
object chkid: TCheckBox
Left = 416
Top = 160
Width = 121
Height = 17
Caption = #25509#21475#26495#22320#22336#26597#35810' '
TabOrder = 4
OnMouseUp = chkidMouseUp
end
object cbbid: TComboBox
Left = 552
Top = 152
Width = 89
Height = 21
ItemHeight = 13
TabOrder = 5
Text = '00'
Items.Strings = (
'00'
'01'
'02'
'03'
'04')
end
object chkadd: TCheckBox
Left = 416
Top = 208
Width = 121
Height = 17
Caption = #31354#35843#22320#22336#26597#35810' '
TabOrder = 6
OnMouseUp = chkaddMouseUp
end
object cbbadd: TComboBox
Left = 552
Top = 208
Width = 89
Height = 21
ItemHeight = 13
TabOrder = 7
Text = '01'
Items.Strings = (
'01'
'02'
'03'
'04'
'05'
'06'
'07'
'08'
'09'
'0A'
'0B'
'0C'
'0D'
'0E'
'0F'
'1F')
end
object btnqryacdata: TButton
Left = 504
Top = 272
Width = 75
Height = 25
Caption = #26597' '#35810
TabOrder = 8
OnClick = btnqryacdataClick
end
end
object ts1: TTabSheet
Caption = #25910#38598#36816#36716#29366#24577#25968#25454
ImageIndex = 1
object lbl4: TLabel
Left = 464
Top = 80
Width = 60
Height = 13
Caption = #36215#22987#26102#38388#65306
end
object lbl5: TLabel
Left = 464
Top = 120
Width = 63
Height = 13
Caption = #32467#26463#26102#38388#65306' '
end
object dbgrdRunState: TDBGrid
Left = 8
Top = 16
Width = 441
Height = 321
DataSource = dsRunState
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #26102#38388
Visible = True
end
item
Expanded = False
FieldName = 'id'
Title.Caption = #25509#21475#26495#22320#22336
Visible = True
end
item
Expanded = False
FieldName = #31354#35843#22320#22336
Visible = True
end
item
Expanded = False
FieldName = #31354#35843#29366#24577
Visible = True
end
item
Expanded = False
FieldName = #36816#36716#29366#24577
Visible = True
end
item
Expanded = False
FieldName = #39118#25159#29366#24577
Visible = True
end
item
Expanded = False
FieldName = #35686#25253#29366#24577
Visible = True
end
item
Expanded = False
FieldName = #24322#24120#29366#24577
Visible = True
end
item
Expanded = False
FieldName = #27880#24847#25253#29366#24577
Visible = True
end
item
Expanded = False
FieldName = #36807#28388#32593#29366#24577
Visible = True
end
item
Expanded = False
FieldName = #30005#21152#28909#22120#29366#24577
Visible = True
end
item
Expanded = False
FieldName = #21152#28287#22120#29366#24577
Visible = True
end
item
Expanded = False
FieldName = #21387#32553#26426#29366#24577
Visible = True
end>
end
object chksjr: TCheckBox
Left = 456
Top = 40
Width = 89
Height = 17
Caption = #26102#38388#26597#35810' '
TabOrder = 1
OnMouseUp = chksjrMouseUp
end
object dtpstartr: TDateTimePicker
Left = 536
Top = 72
Width = 122
Height = 21
CalAlignment = dtaLeft
Date = 39074.4818397338
Time = 39074.4818397338
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 2
end
object dtpstopr: TDateTimePicker
Left = 536
Top = 112
Width = 121
Height = 21
CalAlignment = dtaLeft
Date = 39074.4820099074
Time = 39074.4820099074
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 3
end
object chkidr: TCheckBox
Left = 464
Top = 160
Width = 121
Height = 17
Caption = #25509#21475#26495#22320#22336#26597#35810' '
TabOrder = 4
OnMouseUp = chkidrMouseUp
end
object chkaddr: TCheckBox
Left = 464
Top = 200
Width = 105
Height = 17
Caption = #31354#35843#22320#22336#26597#35810' '
TabOrder = 5
OnMouseUp = chkaddrMouseUp
end
object cbbidr: TComboBox
Left = 592
Top = 156
Width = 65
Height = 21
ItemHeight = 13
TabOrder = 6
Text = '00'
end
object cbbaddr: TComboBox
Left = 592
Top = 196
Width = 65
Height = 21
ItemHeight = 13
TabOrder = 7
Text = '01'
end
object btnqryr: TButton
Left = 520
Top = 272
Width = 75
Height = 25
Caption = #26597' '#35810' '
TabOrder = 8
OnClick = btnqryrClick
end
end
object tsIDFInfo: TTabSheet
Caption = #24322#24120#25253#35686#25968#25454
ImageIndex = 2
object dbgrdIDFInfo: TDBGrid
Left = 16
Top = 16
Width = 465
Height = 321
DataSource = dsIDFInfo
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'DT'
Title.Caption = #26102#38388
Width = 120
Visible = True
end
item
Expanded = False
FieldName = 'Address'
Title.Caption = #31354#35843#22320#22336
Width = 55
Visible = True
end
item
Expanded = False
FieldName = 'SCommuAbal'
Title.Caption = #36890#20449#24322#24120
Visible = True
end
item
Expanded = False
FieldName = 'SFilterAbal'
Title.Caption = #36807#28388#32593#24322#24120
Visible = True
end
item
Expanded = False
FieldName = 'SLine0Abal'
Title.Caption = 'LINE0'#36890#20449#24322#24120
Visible = True
end
item
Expanded = False
FieldName = 'SAbnormal'
Title.Caption = #24322#24120#21457#25253
Visible = True
end>
end
object chkbsj: TCheckBox
Left = 496
Top = 24
Width = 97
Height = 17
Caption = #26102#38388#26597#35810
TabOrder = 1
end
end
end
object dsacdata: TDataSource
DataSet = qryacdata
Left = 24
Top = 8
end
object qryacdata: TADOQuery
Connection = frmain.conAir
Parameters = <>
SQL.Strings = (
'select * from acdata')
Left = 56
Top = 8
end
object qryRunState: TADOQuery
Connection = frmain.conAir
Parameters = <>
SQL.Strings = (
'select * from RunState')
Left = 184
Top = 8
end
object dsRunState: TDataSource
DataSet = qryRunState
Left = 152
Top = 8
end
object dsIDFInfo: TDataSource
DataSet = qryIDFInfo
Left = 480
Top = 8
end
object qryIDFInfo: TADOQuery
Active = True
Connection = frmain.conAir
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from IDFInfo')
Left = 520
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -