685 lines
15 KiB
Plaintext
685 lines
15 KiB
Plaintext
object frmLsPlcMain: TfrmLsPlcMain
|
|
Left = 0
|
|
Top = 0
|
|
Caption = 'LS PLC TEST'
|
|
ClientHeight = 654
|
|
ClientWidth = 1033
|
|
Color = clBtnFace
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = #44404#47548#52404
|
|
Font.Style = []
|
|
KeyPreview = True
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnKeyDown = FormKeyDown
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object GroupBox1: TGroupBox
|
|
Left = 0
|
|
Top = 65
|
|
Width = 1033
|
|
Height = 68
|
|
Align = alTop
|
|
Caption = 'ADDRESS SETTING'
|
|
TabOrder = 0
|
|
object GroupBox2: TGroupBox
|
|
Left = 2
|
|
Top = 15
|
|
Width = 83
|
|
Height = 51
|
|
Align = alLeft
|
|
Caption = 'HEADER'
|
|
TabOrder = 0
|
|
object ComboBox1: TComboBox
|
|
Left = 10
|
|
Top = 20
|
|
Width = 67
|
|
Height = 21
|
|
ItemIndex = 0
|
|
TabOrder = 0
|
|
Text = '%MW'
|
|
OnChange = ComboBox1Change
|
|
OnCloseUp = ComboBox1CloseUp
|
|
Items.Strings = (
|
|
'%MW'
|
|
'%KW')
|
|
end
|
|
end
|
|
object GroupBox3: TGroupBox
|
|
Left = 85
|
|
Top = 15
|
|
Width = 164
|
|
Height = 51
|
|
Align = alLeft
|
|
Caption = #44060#48324' ADDRESS'
|
|
TabOrder = 1
|
|
object Edit2: TEdit
|
|
Left = 6
|
|
Top = 20
|
|
Width = 70
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = '556'
|
|
OnKeyDown = Edit2KeyDown
|
|
end
|
|
object BitBtn4: TBitBtn
|
|
Left = 83
|
|
Top = 16
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Send'
|
|
TabOrder = 1
|
|
OnClick = BitBtn4Click
|
|
end
|
|
end
|
|
object GroupBox4: TGroupBox
|
|
Left = 311
|
|
Top = 15
|
|
Width = 720
|
|
Height = 51
|
|
Align = alClient
|
|
Caption = #50672#49549' ADDRESS'
|
|
TabOrder = 2
|
|
object Label1: TLabel
|
|
Left = 92
|
|
Top = 24
|
|
Width = 7
|
|
Height = 13
|
|
Caption = '~'
|
|
end
|
|
object SpeedButton1: TSpeedButton
|
|
Left = 6
|
|
Top = 19
|
|
Width = 23
|
|
Height = 22
|
|
Caption = '<'
|
|
OnClick = SpeedButton1Click
|
|
end
|
|
object SpeedButton2: TSpeedButton
|
|
Left = 161
|
|
Top = 19
|
|
Width = 23
|
|
Height = 22
|
|
Caption = '>'
|
|
OnClick = SpeedButton2Click
|
|
end
|
|
object Edit3: TEdit
|
|
Left = 35
|
|
Top = 20
|
|
Width = 51
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = '550'
|
|
OnKeyDown = Edit3KeyDown
|
|
end
|
|
object Edit4: TEdit
|
|
Left = 105
|
|
Top = 20
|
|
Width = 51
|
|
Height = 21
|
|
TabOrder = 1
|
|
Text = '560'
|
|
OnKeyDown = Edit4KeyDown
|
|
end
|
|
object BitBtn5: TBitBtn
|
|
Left = 190
|
|
Top = 16
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Start'
|
|
TabOrder = 2
|
|
OnClick = BitBtn5Click
|
|
end
|
|
object BitBtn6: TBitBtn
|
|
Left = 271
|
|
Top = 16
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Stop'
|
|
TabOrder = 3
|
|
OnClick = BitBtn6Click
|
|
end
|
|
end
|
|
object GroupBox5: TGroupBox
|
|
Left = 249
|
|
Top = 15
|
|
Width = 62
|
|
Height = 51
|
|
Align = alLeft
|
|
Caption = 'TIMER'
|
|
TabOrder = 3
|
|
object Edit5: TEdit
|
|
Left = 6
|
|
Top = 20
|
|
Width = 47
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = '500'
|
|
OnKeyDown = Edit5KeyDown
|
|
end
|
|
end
|
|
end
|
|
object PageControl1: TPageControl
|
|
Left = 0
|
|
Top = 199
|
|
Width = 1033
|
|
Height = 455
|
|
ActivePage = TabSheet3
|
|
Align = alClient
|
|
TabOrder = 1
|
|
object TabSheet1: TTabSheet
|
|
Caption = 'TEXT'
|
|
object Splitter2: TSplitter
|
|
Left = 397
|
|
Top = 0
|
|
Height = 426
|
|
ExplicitLeft = 4
|
|
ExplicitHeight = 390
|
|
end
|
|
object Panel5: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 397
|
|
Height = 426
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Splitter1: TSplitter
|
|
Left = 0
|
|
Top = 189
|
|
Width = 397
|
|
Height = 3
|
|
Cursor = crVSplit
|
|
Align = alTop
|
|
ExplicitTop = 101
|
|
ExplicitWidth = 124
|
|
end
|
|
object Memo1: TMemo
|
|
Left = 0
|
|
Top = 0
|
|
Width = 397
|
|
Height = 189
|
|
Align = alTop
|
|
Lines.Strings = (
|
|
'Memo1')
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
end
|
|
object Memo2: TMemo
|
|
Left = 0
|
|
Top = 192
|
|
Width = 397
|
|
Height = 234
|
|
Align = alClient
|
|
Lines.Strings = (
|
|
'Memo2')
|
|
ScrollBars = ssVertical
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object Panel6: TPanel
|
|
Left = 400
|
|
Top = 0
|
|
Width = 625
|
|
Height = 426
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object Memo3: TMemo
|
|
Left = 0
|
|
Top = 0
|
|
Width = 625
|
|
Height = 426
|
|
Align = alClient
|
|
Lines.Strings = (
|
|
'Memo3')
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
object TabSheet2: TTabSheet
|
|
Caption = #49444#51221
|
|
ImageIndex = 1
|
|
object Splitter3: TSplitter
|
|
Left = 769
|
|
Top = 0
|
|
Height = 426
|
|
ExplicitLeft = 236
|
|
ExplicitHeight = 365
|
|
end
|
|
object GroupBox8: TGroupBox
|
|
Left = 772
|
|
Top = 0
|
|
Width = 253
|
|
Height = 426
|
|
Align = alClient
|
|
Caption = 'PLC INFOR'
|
|
TabOrder = 0
|
|
object StringGrid2: TStringGrid
|
|
Left = 2
|
|
Top = 15
|
|
Width = 249
|
|
Height = 409
|
|
Align = alClient
|
|
ColCount = 3
|
|
DefaultColWidth = 80
|
|
DefaultRowHeight = 19
|
|
FixedCols = 0
|
|
RowCount = 2
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect, goFixedRowDefAlign]
|
|
PopupMenu = PopupMenu2
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object GroupBox9: TGroupBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 769
|
|
Height = 426
|
|
Align = alLeft
|
|
Caption = 'PLC VIEWER'
|
|
TabOrder = 1
|
|
object StringGrid1: TStringGrid
|
|
Left = 2
|
|
Top = 15
|
|
Width = 785
|
|
Height = 409
|
|
Align = alLeft
|
|
ColCount = 11
|
|
DefaultColWidth = 68
|
|
DefaultRowHeight = 19
|
|
RowCount = 21
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goFixedRowDefAlign]
|
|
PopupMenu = PopupMenu1
|
|
TabOrder = 0
|
|
OnClick = StringGrid1Click
|
|
ColWidths = (
|
|
68
|
|
68
|
|
68
|
|
68
|
|
68
|
|
68
|
|
68
|
|
68
|
|
68
|
|
68
|
|
68)
|
|
end
|
|
end
|
|
end
|
|
object TabSheet3: TTabSheet
|
|
Caption = 'LOG'
|
|
ImageIndex = 2
|
|
object Splitter4: TSplitter
|
|
Left = 405
|
|
Top = 0
|
|
Height = 426
|
|
ExplicitLeft = 428
|
|
ExplicitTop = 236
|
|
ExplicitHeight = 100
|
|
end
|
|
object StringGrid3: TStringGrid
|
|
Left = 408
|
|
Top = 0
|
|
Width = 617
|
|
Height = 426
|
|
Align = alClient
|
|
ColCount = 4
|
|
DefaultColWidth = 147
|
|
DefaultRowHeight = 19
|
|
FixedCols = 0
|
|
RowCount = 2
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect, goFixedRowDefAlign]
|
|
TabOrder = 0
|
|
end
|
|
object Memo4: TMemo
|
|
Left = 0
|
|
Top = 0
|
|
Width = 405
|
|
Height = 426
|
|
Align = alLeft
|
|
Lines.Strings = (
|
|
'Memo4')
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
end
|
|
object GroupBox6: TGroupBox
|
|
Left = 0
|
|
Top = 133
|
|
Width = 1033
|
|
Height = 66
|
|
Align = alTop
|
|
Caption = 'Database Setting'
|
|
TabOrder = 2
|
|
object Panel1: TPanel
|
|
Left = 2
|
|
Top = 15
|
|
Width = 499
|
|
Height = 49
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object LabeledEdit6: TLabeledEdit
|
|
Left = 10
|
|
Top = 21
|
|
Width = 67
|
|
Height = 21
|
|
EditLabel.Width = 49
|
|
EditLabel.Height = 13
|
|
EditLabel.Caption = 'DB Name'
|
|
TabOrder = 0
|
|
Text = 'neol_db'
|
|
OnKeyDown = LabeledEdit6KeyDown
|
|
end
|
|
object LabeledEdit7: TLabeledEdit
|
|
Left = 89
|
|
Top = 21
|
|
Width = 70
|
|
Height = 21
|
|
EditLabel.Width = 28
|
|
EditLabel.Height = 13
|
|
EditLabel.Caption = 'User'
|
|
TabOrder = 1
|
|
Text = 'qsentech'
|
|
OnKeyDown = LabeledEdit7KeyDown
|
|
end
|
|
object LabeledEdit8: TLabeledEdit
|
|
Left = 165
|
|
Top = 21
|
|
Width = 106
|
|
Height = 21
|
|
EditLabel.Width = 56
|
|
EditLabel.Height = 13
|
|
EditLabel.Caption = 'Password'
|
|
TabOrder = 2
|
|
Text = 'qsentech!1233'
|
|
OnKeyDown = LabeledEdit8KeyDown
|
|
end
|
|
object LabeledEdit9: TLabeledEdit
|
|
Left = 277
|
|
Top = 21
|
|
Width = 135
|
|
Height = 21
|
|
EditLabel.Width = 42
|
|
EditLabel.Height = 13
|
|
EditLabel.Caption = 'Server'
|
|
TabOrder = 3
|
|
Text = 'qst-s.iptime.org'
|
|
OnKeyDown = LabeledEdit9KeyDown
|
|
end
|
|
object LabeledEdit10: TLabeledEdit
|
|
Left = 418
|
|
Top = 21
|
|
Width = 75
|
|
Height = 21
|
|
EditLabel.Width = 28
|
|
EditLabel.Height = 13
|
|
EditLabel.Caption = 'Port'
|
|
TabOrder = 4
|
|
Text = '33063'
|
|
OnKeyDown = LabeledEdit10KeyDown
|
|
end
|
|
end
|
|
object GroupBox7: TGroupBox
|
|
Left = 501
|
|
Top = 15
|
|
Width = 172
|
|
Height = 49
|
|
Align = alLeft
|
|
Caption = 'DB'
|
|
TabOrder = 1
|
|
object BitBtn10: TBitBtn
|
|
Left = 87
|
|
Top = 17
|
|
Width = 75
|
|
Height = 25
|
|
Caption = #45130#44592
|
|
TabOrder = 0
|
|
OnClick = BitBtn10Click
|
|
end
|
|
object BitBtn9: TBitBtn
|
|
Left = 6
|
|
Top = 17
|
|
Width = 75
|
|
Height = 25
|
|
Caption = #51217#49549
|
|
TabOrder = 1
|
|
OnClick = BitBtn9Click
|
|
end
|
|
end
|
|
object GroupBox11: TGroupBox
|
|
Left = 733
|
|
Top = 15
|
|
Width = 176
|
|
Height = 49
|
|
Align = alLeft
|
|
Caption = 'LOG '#49688#51665
|
|
TabOrder = 2
|
|
object BitBtn7: TBitBtn
|
|
Left = 10
|
|
Top = 17
|
|
Width = 75
|
|
Height = 25
|
|
Caption = #49884#51089
|
|
TabOrder = 0
|
|
OnClick = BitBtn7Click
|
|
end
|
|
object BitBtn8: TBitBtn
|
|
Left = 91
|
|
Top = 17
|
|
Width = 75
|
|
Height = 25
|
|
Caption = #51221#51648
|
|
TabOrder = 1
|
|
OnClick = BitBtn8Click
|
|
end
|
|
end
|
|
object GroupBox12: TGroupBox
|
|
Left = 673
|
|
Top = 15
|
|
Width = 60
|
|
Height = 49
|
|
Align = alLeft
|
|
Caption = 'TIMER'
|
|
TabOrder = 3
|
|
object Edit1: TEdit
|
|
Left = 6
|
|
Top = 21
|
|
Width = 47
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = '250'
|
|
OnKeyDown = Edit1KeyDown
|
|
end
|
|
end
|
|
object CheckBox1: TCheckBox
|
|
Left = 915
|
|
Top = 36
|
|
Width = 58
|
|
Height = 17
|
|
Caption = 'VIEW'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
object GroupBox10: TGroupBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 1033
|
|
Height = 65
|
|
Align = alTop
|
|
Caption = 'PLC SETTING'
|
|
TabOrder = 3
|
|
object Label4: TLabel
|
|
Left = 12
|
|
Top = 18
|
|
Width = 56
|
|
Height = 13
|
|
Caption = #49444#48708#44396#48516
|
|
end
|
|
object ComboBox2: TComboBox
|
|
Left = 12
|
|
Top = 37
|
|
Width = 73
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = #49548#44208#47196'1'
|
|
OnChange = ComboBox2Change
|
|
OnCloseUp = ComboBox2CloseUp
|
|
Items.Strings = (
|
|
'')
|
|
end
|
|
object LabeledEdit4: TLabeledEdit
|
|
Left = 167
|
|
Top = 37
|
|
Width = 76
|
|
Height = 21
|
|
EditLabel.Width = 56
|
|
EditLabel.Height = 13
|
|
EditLabel.Caption = #54840#44592#48264#54840
|
|
TabOrder = 1
|
|
Text = '#1'
|
|
OnKeyDown = LabeledEdit4KeyDown
|
|
end
|
|
object LabeledEdit1: TLabeledEdit
|
|
Left = 255
|
|
Top = 37
|
|
Width = 155
|
|
Height = 21
|
|
EditLabel.Width = 14
|
|
EditLabel.Height = 13
|
|
EditLabel.Caption = 'IP'
|
|
TabOrder = 2
|
|
Text = '192.168.0.51'
|
|
OnKeyDown = LabeledEdit1KeyDown
|
|
end
|
|
object LabeledEdit2: TLabeledEdit
|
|
Left = 416
|
|
Top = 37
|
|
Width = 79
|
|
Height = 21
|
|
EditLabel.Width = 28
|
|
EditLabel.Height = 13
|
|
EditLabel.Caption = 'PORT'
|
|
TabOrder = 3
|
|
Text = '2004'
|
|
OnKeyDown = LabeledEdit2KeyDown
|
|
end
|
|
object BitBtn1: TBitBtn
|
|
Left = 501
|
|
Top = 33
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'CONN'
|
|
TabOrder = 4
|
|
OnClick = BitBtn1Click
|
|
end
|
|
object BitBtn3: TBitBtn
|
|
Left = 582
|
|
Top = 33
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Disconn'
|
|
TabOrder = 5
|
|
OnClick = BitBtn3Click
|
|
end
|
|
object Panel4: TPanel
|
|
Left = 938
|
|
Top = 15
|
|
Width = 93
|
|
Height = 48
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
TabOrder = 6
|
|
object BitBtn2: TBitBtn
|
|
Left = 6
|
|
Top = 18
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'EXIT'
|
|
TabOrder = 0
|
|
OnClick = BitBtn2Click
|
|
end
|
|
end
|
|
object LabeledEdit3: TLabeledEdit
|
|
Left = 91
|
|
Top = 37
|
|
Width = 70
|
|
Height = 21
|
|
EditLabel.Width = 42
|
|
EditLabel.Height = 13
|
|
EditLabel.Caption = #54840#44592#47749
|
|
TabOrder = 7
|
|
Text = '1'#54840#44592
|
|
OnKeyDown = LabeledEdit3KeyDown
|
|
end
|
|
end
|
|
object ClientSocket1: TClientSocket
|
|
Active = False
|
|
ClientType = ctNonBlocking
|
|
Port = 0
|
|
OnConnecting = ClientSocket1Connecting
|
|
OnDisconnect = ClientSocket1Disconnect
|
|
OnRead = ClientSocket1Read
|
|
OnError = ClientSocket1Error
|
|
Left = 704
|
|
Top = 8
|
|
end
|
|
object Timer1: TTimer
|
|
Enabled = False
|
|
OnTimer = Timer1Timer
|
|
Left = 696
|
|
Top = 92
|
|
end
|
|
object PopupMenu1: TPopupMenu
|
|
Left = 260
|
|
Top = 342
|
|
object N1: TMenuItem
|
|
Caption = 'Address '#46321#47197
|
|
OnClick = N1Click
|
|
end
|
|
end
|
|
object PopupMenu2: TPopupMenu
|
|
Left = 868
|
|
Top = 346
|
|
object Address1: TMenuItem
|
|
Caption = 'Address '#54200#51665
|
|
OnClick = Address1Click
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Address2: TMenuItem
|
|
Caption = 'Address '#49325#51228
|
|
OnClick = Address2Click
|
|
end
|
|
end
|
|
object Timer2: TTimer
|
|
OnTimer = Timer2Timer
|
|
Left = 888
|
|
Top = 200
|
|
end
|
|
object FDConnection1: TFDConnection
|
|
Left = 504
|
|
Top = 200
|
|
end
|
|
object FDQuery1: TFDQuery
|
|
Connection = FDConnection1
|
|
Left = 584
|
|
Top = 200
|
|
end
|
|
object FDPhysMySQLDriverLink1: TFDPhysMySQLDriverLink
|
|
Left = 688
|
|
Top = 200
|
|
end
|
|
end
|