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