SmartFactory_NEOL/SOURCE/NILM_Manager_D104_PostgreSQL/uMain.~dfm
2026-09-04 14:06:10 +09:00

222 lines
4.7 KiB
Plaintext

object frmMain: TfrmMain
Left = 451
Top = 223
Width = 862
Height = 609
Caption = 'MQTT Client for NILM[Program by QSenTech. Co. Ltd]'
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #44404#47548
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object StatusBar1: TStatusBar
Left = 0
Top = 531
Width = 846
Height = 19
Panels = <
item
Width = 50
end
item
Width = 50
end
item
Width = 50
end
item
Width = 50
end>
end
object ListBox1: TListBox
Left = 0
Top = 0
Width = 846
Height = 455
Align = alClient
Color = clSilver
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #44404#47548
Font.Style = []
ItemHeight = 12
ParentFont = False
TabOrder = 1
OnDblClick = ListBox1DblClick
end
object Panel1: TPanel
Left = 0
Top = 455
Width = 846
Height = 76
Align = alBottom
BevelOuter = bvNone
Color = clBlack
TabOrder = 2
object Label1: TLabel
Left = 10
Top = 5
Width = 37
Height = 12
Caption = 'Label1'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -12
Font.Name = #44404#47548
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 10
Top = 25
Width = 37
Height = 12
Caption = 'Label1'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -12
Font.Name = #44404#47548
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 10
Top = 40
Width = 37
Height = 12
Caption = 'Label1'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -12
Font.Name = #44404#47548
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 10
Top = 55
Width = 37
Height = 12
Caption = 'Label1'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -12
Font.Name = #44404#47548
Font.Style = []
ParentFont = False
end
end
object MQTTClient1: TMQTTClient
ClientID = 'DATA_HUB_PRY'
KeepAlive = 10
MaxRetries = 8
RetryTime = 60
Clean = True
Broker = False
AutoSubscribe = False
Username = 'qsentech'
Password = 'qsentech!1233'
Host = '192.168.200.200'
Port = 1883
LocalBounce = False
OnClientID = MQTTClient1ClientID
OnMon = MQTTClient1Mon
OnOnline = MQTTClient1Online
OnOffline = MQTTClient1Offline
OnEnableChange = MQTTClient1EnableChange
OnFailure = MQTTClient1Failure
OnMsg = MQTTClient1Msg
Left = 216
Top = 144
end
object initTimer: TTimer
OnTimer = initTimerTimer
Left = 65
Top = 118
end
object MainMenu1: TMainMenu
Left = 115
Top = 170
object File2: TMenuItem
Caption = 'File'
object DebugMode1: TMenuItem
Caption = 'Debug Mode'
OnClick = DebugMode1Click
end
object N8: TMenuItem
Caption = '-'
end
object ProgramExit1: TMenuItem
Caption = 'Program Exit'
OnClick = ProgramExit1Click
end
end
object File1: TMenuItem
Caption = 'MQTT'
object Config1: TMenuItem
Caption = 'MQTT '#50672#44208#49444#51221
OnClick = Config1Click
end
object N2: TMenuItem
Caption = '-'
end
object Connect1: TMenuItem
Caption = 'Broker '#50672#44208
OnClick = Connect1Click
end
object Disconnect1: TMenuItem
Caption = 'Broker '#45130#44592
OnClick = Disconnect1Click
end
end
object NILM1: TMenuItem
Caption = 'NILM'
object Edit1: TMenuItem
Caption = #51109#52824#44288#47532
OnClick = Edit1Click
end
object N1: TMenuItem
Caption = #49444#48708#50672#44208
OnClick = N1Click
end
end
end
object JsonConvertor1: TJsonConvertor
Left = 345
Top = 230
end
object insertTimer: TTimer
Enabled = False
OnTimer = insertTimerTimer
Left = 350
Top = 142
end
object ZConnection1: TZConnection
Protocol = 'mysql'
Database = 'nilm'
Left = 175
Top = 255
end
object ZReadOnlyQuery1: TZReadOnlyQuery
Connection = ZConnection1
Params = <>
Left = 175
Top = 320
end
object ZQuery1: TZQuery
Connection = ZConnection1
Params = <>
Left = 175
Top = 395
end
end