SmartFactory_NEOL/SOURCE/NEOL_GTWYAgent_D104_PG/uGtwyAgent.dfm
2026-09-04 14:06:10 +09:00

1442 lines
41 KiB
Plaintext

object fGtwyAgent: TfGtwyAgent
Left = 0
Top = 0
Caption = 'MQTT Client for GTWY[Program by QSenTech. Co. Ltd]'
ClientHeight = 595
ClientWidth = 1215
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
DesignSize = (
1215
595)
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 1215
Height = 595
ActivePage = TabSheet5
Align = alClient
Style = tsButtons
TabHeight = 40
TabOrder = 0
TabWidth = 150
object TabSheet1: TTabSheet
Caption = 'Status'
object cxGrid_GTWY: TcxGrid
Left = 0
Top = 0
Width = 1207
Height = 545
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #47569#51008' '#44256#46357
Font.Style = []
ParentFont = False
TabOrder = 0
LookAndFeel.Kind = lfUltraFlat
LookAndFeel.NativeStyle = False
LookAndFeel.SkinName = 'DevExpressStyle'
object cxGrid_GTWY_Tv: TcxGridTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoFocusTopRowAfterSorting]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Format = ',0 '#44148
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.PostponedSynchronization = False
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnsQuickCustomization = True
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsSelection.CellSelect = False
OptionsSelection.MultiSelect = True
OptionsView.NoDataToDisplayInfoText = 'No Data...'
OptionsView.CellAutoHeight = True
OptionsView.DataRowHeight = 25
OptionsView.GroupByBox = False
OptionsView.HeaderHeight = 25
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 10
object cxGrid_GTWY_TvColumn0: TcxGridColumn
Caption = 'GTWYID'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taCenter
SortIndex = 0
SortOrder = soAscending
Width = 103
end
object cxGrid_GTWY_TvColumn1: TcxGridColumn
Caption = 'lastUpdate'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taCenter
Width = 245
end
object cxGrid_GTWY_TvColumn2: TcxGridColumn
Caption = 'AI_00'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taCenter
Width = 90
end
object cxGrid_GTWY_TvColumn3: TcxGridColumn
Caption = 'AI_01'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taCenter
Width = 90
end
object cxGrid_GTWY_TvColumn4: TcxGridColumn
Caption = 'AI_02'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taCenter
Width = 90
end
object cxGrid_GTWY_TvColumn5: TcxGridColumn
Caption = 'AI_03'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taCenter
Width = 90
end
object cxGrid_GTWY_TvColumn6: TcxGridColumn
Caption = 'TM_00'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 90
end
object cxGrid_GTWY_TvColumn7: TcxGridColumn
Caption = 'TM_01'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 90
end
object cxGrid_GTWY_TvColumn8: TcxGridColumn
Caption = 'TM_02'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 90
end
object cxGrid_GTWY_TvColumn9: TcxGridColumn
Caption = 'TM_03'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 90
end
end
object cxGrid_GTWY_Lv: TcxGridLevel
GridView = cxGrid_GTWY_Tv
end
end
end
object TabSheet5: TTabSheet
Caption = 'Alarm View'
ImageIndex = 4
object cxGrid2: TcxGrid
Left = 0
Top = 57
Width = 1207
Height = 488
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #47569#51008' '#44256#46357
Font.Style = []
ParentFont = False
TabOrder = 0
LookAndFeel.Kind = lfUltraFlat
LookAndFeel.NativeStyle = False
LookAndFeel.SkinName = 'DevExpressStyle'
object cxGridTableView2: TcxGridTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoFocusTopRowAfterSorting]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Format = ',0 '#44148
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.PostponedSynchronization = False
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnsQuickCustomization = True
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsSelection.CellSelect = False
OptionsSelection.MultiSelect = True
OptionsView.NoDataToDisplayInfoText = 'No Data...'
OptionsView.CellAutoHeight = True
OptionsView.DataRowHeight = 25
OptionsView.GroupByBox = False
OptionsView.HeaderHeight = 25
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 10
object cxGridTableView2Column1: TcxGridColumn
Caption = #49444#48708#44396#48516
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 113
end
object cxGridTableView2Column2: TcxGridColumn
Caption = #49444#48708#47749
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 119
end
object cxGridTableView2Column3: TcxGridColumn
Caption = #48156#49373#51068#51088
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
SortIndex = 0
SortOrder = soDescending
Width = 100
end
object cxGridTableView2Column4: TcxGridColumn
Caption = #48156#49373#49884#44036
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
SortIndex = 1
SortOrder = soDescending
Width = 120
end
object cxGridTableView2Column5: TcxGridColumn
Caption = #50508#46988#49345#53468
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridTableView2Column6: TcxGridColumn
Caption = #48156#49569#51068#51088
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 100
end
object cxGridTableView2Column7: TcxGridColumn
Caption = #48156#49569#49884#44036
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 120
end
object cxGridTableView2Column8: TcxGridColumn
Caption = #49688#49888#48264#54840
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 149
end
object cxGridTableView2Column9: TcxGridColumn
Caption = #48156#49569#45236#50857
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 274
end
end
object cxGridLevel2: TcxGridLevel
GridView = cxGridTableView2
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 1207
Height = 57
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Label28: TLabel
Left = 248
Top = 25
Width = 47
Height = 13
Caption = #51312#54924' '#44592#44036
end
object Label29: TLabel
Left = 418
Top = 25
Width = 8
Height = 13
Caption = '~'
end
object DateTimePicker1: TDateTimePicker
Left = 308
Top = 21
Width = 97
Height = 21
Date = 45965.000000000000000000
Time = 0.626815011572034600
TabOrder = 0
end
object DateTimePicker2: TDateTimePicker
Left = 436
Top = 21
Width = 97
Height = 21
Date = 45965.000000000000000000
Time = 0.626815011572034600
TabOrder = 1
end
object Button7: TButton
Left = 568
Top = 13
Width = 113
Height = 34
Caption = #51312#54924
TabOrder = 2
OnClick = Button7Click
end
object RadioGroup2: TRadioGroup
Left = 0
Top = 0
Width = 230
Height = 57
Align = alLeft
Caption = #44396#48516
Columns = 3
ItemIndex = 0
Items.Strings = (
#51204#52404
#50756#47308
#48156#49373)
TabOrder = 3
end
end
end
object TabSheet2: TTabSheet
Caption = 'Log'
ImageIndex = 1
object Splitter1: TSplitter
Left = 0
Top = 169
Width = 1207
Height = 5
Cursor = crVSplit
Align = alTop
ExplicitTop = 265
ExplicitWidth = 754
end
object Memo1: TMemo
Left = 0
Top = 51
Width = 1207
Height = 118
Align = alTop
TabOrder = 0
end
object Memo2: TMemo
Left = 0
Top = 174
Width = 1207
Height = 371
Align = alClient
TabOrder = 1
WordWrap = False
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 1207
Height = 51
Align = alTop
BevelKind = bkFlat
BevelOuter = bvNone
TabOrder = 2
object CheckBox1: TCheckBox
Left = 24
Top = 16
Width = 73
Height = 17
Caption = 'LOG VIEW'
TabOrder = 0
end
object CheckBox2: TCheckBox
Left = 120
Top = 16
Width = 73
Height = 17
Caption = 'LOG SAVE'
TabOrder = 1
end
end
end
object TabSheet4: TTabSheet
Caption = 'Setup - DEVICE'
ImageIndex = 3
DesignSize = (
1207
545)
object GroupBox3: TGroupBox
Left = 3
Top = 3
Width = 1201
Height = 519
Anchors = [akLeft, akTop, akRight, akBottom]
Caption = 'Device Setting'
TabOrder = 0
DesignSize = (
1201
519)
object Label11: TLabel
Left = 12
Top = 400
Width = 63
Height = 13
Anchors = [akLeft, akBottom]
Caption = 'Device NAME'
ExplicitTop = 195
end
object Label12: TLabel
Left = 12
Top = 427
Width = 49
Height = 13
Anchors = [akLeft, akBottom]
Caption = 'GTWY ID'
Font.Charset = DEFAULT_CHARSET
Font.Color = 234
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitTop = 222
end
object Label13: TLabel
Left = 12
Top = 454
Width = 62
Height = 13
Anchors = [akLeft, akBottom]
Caption = 'MQTT TOPIC'
ExplicitTop = 249
end
object Label14: TLabel
Left = 12
Top = 481
Width = 87
Height = 13
Anchors = [akLeft, akBottom]
Caption = 'AI Port No[0..3]'
Font.Charset = DEFAULT_CHARSET
Font.Color = 234
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitTop = 276
end
object Label19: TLabel
Left = 528
Top = 427
Width = 88
Height = 13
Anchors = [akLeft, akBottom]
Caption = #49444#51221' '#52572#45824#44050'('#50728#46020')'
end
object Label20: TLabel
Left = 764
Top = 427
Width = 23
Height = 13
Anchors = [akLeft, akBottom]
Caption = 'X [1]'
Visible = False
end
object Label21: TLabel
Left = 764
Top = 481
Width = 23
Height = 13
Anchors = [akLeft, akBottom]
Caption = 'X [3]'
Visible = False
end
object Label22: TLabel
Left = 764
Top = 454
Width = 23
Height = 13
Anchors = [akLeft, akBottom]
Caption = 'X [2]'
Visible = False
end
object Label15: TLabel
Left = 895
Top = 427
Width = 23
Height = 13
Anchors = [akLeft, akBottom]
Caption = 'Y [1]'
Visible = False
end
object Label16: TLabel
Left = 895
Top = 481
Width = 23
Height = 13
Anchors = [akLeft, akBottom]
Caption = 'Y [3]'
Visible = False
end
object Label17: TLabel
Left = 895
Top = 454
Width = 23
Height = 13
Anchors = [akLeft, akBottom]
Caption = 'Y [2]'
Visible = False
end
object Label18: TLabel
Left = 528
Top = 400
Width = 88
Height = 13
Anchors = [akLeft, akBottom]
Caption = #50508#46988' '#51076#44228#52824'('#50728#46020')'
end
object Label35: TLabel
Left = 528
Top = 454
Width = 88
Height = 13
Anchors = [akLeft, akBottom]
Caption = #49444#51221' '#52572#49548#44050'('#50728#46020')'
end
object cxGrid1: TcxGrid
Left = 2
Top = 15
Width = 1197
Height = 367
Align = alTop
Anchors = [akLeft, akTop, akRight, akBottom]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #47569#51008' '#44256#46357
Font.Style = []
ParentFont = False
TabOrder = 0
LookAndFeel.Kind = lfUltraFlat
LookAndFeel.NativeStyle = False
LookAndFeel.SkinName = 'DevExpressStyle'
object cxGridTableView1: TcxGridTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = cxGridTableView1FocusedRecordChanged
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoFocusTopRowAfterSorting]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Format = ',0 '#44148
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.PostponedSynchronization = False
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnsQuickCustomization = True
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsSelection.CellSelect = False
OptionsSelection.MultiSelect = True
OptionsView.NoDataToDisplayInfoText = 'No Data...'
OptionsView.CellAutoHeight = True
OptionsView.DataRowHeight = 25
OptionsView.GroupByBox = False
OptionsView.HeaderHeight = 25
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 10
object cxGridColumn1: TcxGridColumn
Caption = 'Device NM'
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taCenter
Width = 82
end
object cxGridColumn2: TcxGridColumn
Caption = 'GTWY ID'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
OnCustomDrawCell = cxGridColumn2CustomDrawCell
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taCenter
SortIndex = 0
SortOrder = soAscending
Width = 87
end
object cxGridColumn3: TcxGridColumn
Caption = 'MQTT TOPIC'
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taCenter
Width = 390
end
object cxGridColumn4: TcxGridColumn
Caption = 'Port No'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
OnCustomDrawCell = cxGridColumn2CustomDrawCell
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taCenter
SortIndex = 1
SortOrder = soAscending
Width = 82
end
object cxGridColumn14: TcxGridColumn
Caption = #51076#44228#52824'('#50728#46020')'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 99
end
object cxGridColumn5: TcxGridColumn
Caption = #52572#45824#44050'('#50728#46020')'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 100
end
object cxGridColumn16: TcxGridColumn
Caption = #52572#49548#44050'('#50728#46020')'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 100
end
object cxGridColumn6: TcxGridColumn
Caption = 'X [1]'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Visible = False
HeaderAlignmentHorz = taCenter
Width = 48
end
object cxGridColumn7: TcxGridColumn
Caption = 'X [2]'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Visible = False
HeaderAlignmentHorz = taCenter
Width = 48
end
object cxGridColumn8: TcxGridColumn
Caption = 'X [3]'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Visible = False
HeaderAlignmentHorz = taCenter
Width = 48
end
object cxGridColumn9: TcxGridColumn
Caption = 'Y [1]'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Visible = False
HeaderAlignmentHorz = taCenter
Width = 48
end
object cxGridColumn10: TcxGridColumn
Caption = 'Y [2]'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Visible = False
HeaderAlignmentHorz = taCenter
Width = 48
end
object cxGridColumn11: TcxGridColumn
Caption = 'Y [3]'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Visible = False
HeaderAlignmentHorz = taCenter
Width = 48
end
object cxGridColumn12: TcxGridColumn
Visible = False
end
object cxGridColumn13: TcxGridColumn
Visible = False
end
object cxGridColumn15: TcxGridColumn
Caption = 'Qty'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taCenter
Properties.DisplayFormat = '0'
HeaderAlignmentHorz = taCenter
Width = 40
end
end
object cxGridLevel1: TcxGridLevel
GridView = cxGridTableView1
end
end
object Edit11: TEdit
Left = 120
Top = 397
Width = 329
Height = 21
Anchors = [akLeft, akBottom]
TabOrder = 1
end
object Edit12: TEdit
Left = 120
Top = 424
Width = 329
Height = 21
Anchors = [akLeft, akBottom]
TabOrder = 2
end
object Edit13: TEdit
Left = 120
Top = 451
Width = 329
Height = 21
Anchors = [akLeft, akBottom]
TabOrder = 3
end
object Edit14: TEdit
Left = 120
Top = 478
Width = 329
Height = 21
Anchors = [akLeft, akBottom]
TabOrder = 4
end
object Button1: TButton
Left = 1052
Top = 397
Width = 126
Height = 48
Anchors = [akLeft, akBottom]
Caption = 'Device '#52628#44032' / '#49688#51221
TabOrder = 5
OnClick = Button1Click
end
object Button2: TButton
Left = 1052
Top = 451
Width = 126
Height = 48
Anchors = [akLeft, akBottom]
Caption = #49440#53469' Device '#49325#51228
TabOrder = 6
OnClick = Button2Click
end
object Edit18: TEdit
Left = 636
Top = 424
Width = 65
Height = 21
Anchors = [akLeft, akBottom]
TabOrder = 7
end
object Edit19: TEdit
Left = 803
Top = 424
Width = 59
Height = 21
Anchors = [akLeft, akBottom]
TabOrder = 8
Visible = False
end
object Edit20: TEdit
Left = 803
Top = 451
Width = 59
Height = 21
Anchors = [akLeft, akBottom]
TabOrder = 9
Visible = False
end
object Edit21: TEdit
Left = 803
Top = 478
Width = 59
Height = 21
Anchors = [akLeft, akBottom]
TabOrder = 10
Visible = False
end
object Edit15: TEdit
Left = 934
Top = 424
Width = 59
Height = 21
Anchors = [akLeft, akBottom]
TabOrder = 11
Visible = False
end
object Edit16: TEdit
Left = 934
Top = 451
Width = 59
Height = 21
Anchors = [akLeft, akBottom]
TabOrder = 12
Visible = False
end
object Edit17: TEdit
Left = 934
Top = 478
Width = 59
Height = 21
Anchors = [akLeft, akBottom]
TabOrder = 13
Visible = False
end
object Edit22: TEdit
Left = 455
Top = 479
Width = 58
Height = 21
Anchors = [akLeft, akBottom]
TabOrder = 14
Visible = False
end
object Edit23: TEdit
Left = 519
Top = 479
Width = 74
Height = 21
Anchors = [akLeft, akBottom]
TabOrder = 15
Visible = False
end
object Edit24: TEdit
Left = 636
Top = 397
Width = 65
Height = 21
Anchors = [akLeft, akBottom]
TabOrder = 16
end
object Edit34: TEdit
Left = 636
Top = 451
Width = 65
Height = 21
Anchors = [akLeft, akBottom]
TabOrder = 17
end
end
end
object TabSheet3: TTabSheet
Caption = 'Setup - DB / MQTT / ALARM'
ImageIndex = 2
object GroupBox1: TGroupBox
Left = 16
Top = 8
Width = 289
Height = 177
Caption = 'Server DB (PG)'
TabOrder = 0
object Label6: TLabel
Left = 32
Top = 27
Width = 10
Height = 13
Caption = 'IP'
end
object Label7: TLabel
Left = 32
Top = 54
Width = 27
Height = 13
Caption = 'PORT'
end
object Label8: TLabel
Left = 32
Top = 81
Width = 22
Height = 13
Caption = 'User'
end
object Label9: TLabel
Left = 32
Top = 108
Width = 22
Height = 13
Caption = 'Pass'
end
object Label10: TLabel
Left = 32
Top = 135
Width = 37
Height = 13
Caption = 'Schema'
end
object Edit1: TEdit
Left = 112
Top = 24
Width = 153
Height = 21
TabOrder = 0
end
object Edit2: TEdit
Left = 112
Top = 51
Width = 153
Height = 21
NumbersOnly = True
TabOrder = 1
end
object Edit3: TEdit
Left = 112
Top = 78
Width = 153
Height = 21
TabOrder = 2
end
object Edit4: TEdit
Left = 112
Top = 105
Width = 153
Height = 21
PasswordChar = '#'
TabOrder = 3
end
object Edit5: TEdit
Left = 112
Top = 132
Width = 153
Height = 21
TabOrder = 4
end
end
object GroupBox2: TGroupBox
Left = 16
Top = 198
Width = 289
Height = 177
Caption = 'MQTT Broker'
TabOrder = 1
object Label1: TLabel
Left = 32
Top = 27
Width = 10
Height = 13
Caption = 'IP'
end
object Label2: TLabel
Left = 32
Top = 54
Width = 27
Height = 13
Caption = 'PORT'
end
object Label3: TLabel
Left = 32
Top = 81
Width = 38
Height = 13
Caption = 'ClientID'
end
object Label4: TLabel
Left = 32
Top = 108
Width = 33
Height = 13
Caption = 'UserID'
end
object Label5: TLabel
Left = 32
Top = 135
Width = 47
Height = 13
Caption = 'UserPASS'
end
object Edit6: TEdit
Left = 112
Top = 24
Width = 153
Height = 21
TabOrder = 0
end
object Edit7: TEdit
Left = 112
Top = 51
Width = 153
Height = 21
NumbersOnly = True
TabOrder = 1
end
object Edit8: TEdit
Left = 112
Top = 78
Width = 153
Height = 21
TabOrder = 2
end
object Edit9: TEdit
Left = 112
Top = 105
Width = 153
Height = 21
TabOrder = 3
end
object Edit10: TEdit
Left = 112
Top = 132
Width = 153
Height = 21
PasswordChar = '#'
TabOrder = 4
end
end
object Button3: TButton
Left = 322
Top = 389
Width = 417
Height = 48
Caption = #54532#47196#44536#47016' '#51333#47308
TabOrder = 2
OnClick = Button3Click
end
object Button4: TButton
Left = 16
Top = 389
Width = 289
Height = 48
Caption = #49444#51221' '#51200#51109
TabOrder = 3
OnClick = Button4Click
end
object GroupBox4: TGroupBox
Left = 322
Top = 8
Width = 417
Height = 177
Caption = 'Naver API Setting'
TabOrder = 4
object Label23: TLabel
Left = 13
Top = 27
Width = 19
Height = 13
Caption = 'URL'
end
object Label24: TLabel
Left = 13
Top = 81
Width = 60
Height = 13
Caption = 'ACCESS KEY'
end
object Label25: TLabel
Left = 13
Top = 108
Width = 59
Height = 13
Caption = 'SECRET KET'
end
object Label26: TLabel
Left = 13
Top = 135
Width = 69
Height = 13
Caption = #48156#49888' '#51064#51613#48264#54840
end
object Label30: TLabel
Left = 13
Top = 54
Width = 17
Height = 13
Caption = 'pID'
end
object Edit25: TEdit
Left = 93
Top = 24
Width = 313
Height = 21
TabOrder = 0
Text = 'https://sens.apigw.ntruss.com/sms/v2/services/%s/messages'
end
object Edit26: TEdit
Left = 93
Top = 78
Width = 313
Height = 21
NumbersOnly = True
TabOrder = 1
Text = 'ncp_iam_BPAMKR4fFCqdHP216XFU'
end
object Edit27: TEdit
Left = 93
Top = 105
Width = 313
Height = 21
TabOrder = 2
Text = 'ncp_iam_BPKMKRaReqvyaeVxeGdfKnVaOMaIsqkU8T'
end
object Edit28: TEdit
Left = 93
Top = 132
Width = 313
Height = 21
NumbersOnly = True
TabOrder = 3
Text = '0336480037'
end
object Edit32: TEdit
Left = 93
Top = 51
Width = 313
Height = 21
TabOrder = 4
Text = 'ncp:sms:kr:361375647463:simple_alarm'
end
end
object GroupBox5: TGroupBox
Left = 322
Top = 198
Width = 417
Height = 177
Caption = #50508#46988' '#49688#49888#48264#54840' '#47532#49828#53944
TabOrder = 5
object cxGrid3: TcxGrid
Left = 2
Top = 40
Width = 413
Height = 135
Align = alBottom
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #47569#51008' '#44256#46357
Font.Style = []
ParentFont = False
TabOrder = 0
LookAndFeel.Kind = lfUltraFlat
LookAndFeel.NativeStyle = False
LookAndFeel.SkinName = 'DevExpressStyle'
object cxGridTableView3: TcxGridTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = cxGridTableView1FocusedRecordChanged
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoFocusTopRowAfterSorting]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Format = ',0 '#44148
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.PostponedSynchronization = False
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnsQuickCustomization = True
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsSelection.CellSelect = False
OptionsSelection.MultiSelect = True
OptionsView.NoDataToDisplayInfoText = 'No Data...'
OptionsView.CellAutoHeight = True
OptionsView.DataRowHeight = 25
OptionsView.GroupByBox = False
OptionsView.HeaderHeight = 25
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 10
object cxGridTableView3Column1: TcxGridColumn
Caption = #49688#49888#48264#54840
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 140
end
object cxGridTableView3Column2: TcxGridColumn
Caption = #49688#49888#51088#47749
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridTableView3Column3: TcxGridColumn
Caption = #44428#54620
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridTableView3Column4: TcxGridColumn
Caption = #51649#52293
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel3: TcxGridLevel
GridView = cxGridTableView3
end
end
object Button5: TButton
Left = 336
Top = 15
Width = 79
Height = 25
Align = alRight
Caption = #51312#54924
TabOrder = 1
OnClick = Button5Click
end
end
object GroupBox6: TGroupBox
Left = 754
Top = 84
Width = 417
Height = 353
Caption = 'SMS TEST'
TabOrder = 6
object Label31: TLabel
Left = 260
Top = 76
Width = 56
Height = 13
Caption = #51076#44228#44050' ('#8451')'
end
object Label32: TLabel
Left = 260
Top = 102
Width = 56
Height = 13
Caption = #54788#51116#44050' ('#8451')'
end
object Label33: TLabel
Left = 260
Top = 48
Width = 33
Height = 13
Caption = #51109#48708#47749
end
object Edit30: TEdit
Left = 296
Top = 45
Width = 105
Height = 21
Alignment = taCenter
TabOrder = 0
Text = #53448#51648#47196'_02 '#50728#46020#51060#49345
end
object Button9: TButton
Left = 260
Top = 126
Width = 141
Height = 32
Caption = 'SMS '#51204#49569' '#53580#49828#53944
TabOrder = 1
OnClick = Button9Click
end
object Memo3: TMemo
Left = 10
Top = 16
Width = 239
Height = 142
Lines.Strings = (
'['#45348#50732']'
'%s'
#51076#44228#44050' %s'#8451' / '#54788#51116' %s'#8451
'https://neol.co.kr')
TabOrder = 2
end
object Edit31: TEdit
Left = 344
Top = 72
Width = 57
Height = 21
Alignment = taCenter
TabOrder = 3
Text = '800'
end
object Memo4: TMemo
Left = 10
Top = 164
Width = 188
Height = 174
TabOrder = 4
end
object Memo5: TMemo
Left = 204
Top = 164
Width = 199
Height = 174
TabOrder = 5
end
object Edit33: TEdit
Left = 344
Top = 99
Width = 57
Height = 21
Alignment = taCenter
TabOrder = 8
Text = '900'
end
object RadioButton2: TRadioButton
Left = 344
Top = 19
Width = 49
Height = 17
Caption = 'MMS'
Enabled = False
TabOrder = 7
OnClick = RadioButton2Click
end
object RadioButton1: TRadioButton
Left = 262
Top = 19
Width = 49
Height = 17
Caption = 'SMS'
Checked = True
TabOrder = 6
TabStop = True
OnClick = RadioButton2Click
end
object RadioGroup1: TRadioGroup
Left = 13
Top = 110
Width = 161
Height = 46
Caption = #44396#48516
Columns = 2
ItemIndex = 0
Items.Strings = (
'REAL'
'TEST')
TabOrder = 9
Visible = False
end
end
object GroupBox7: TGroupBox
Left = 754
Top = 3
Width = 417
Height = 74
Caption = 'Alarm Setting'
TabOrder = 7
object Label27: TLabel
Left = 18
Top = 20
Width = 123
Height = 13
Caption = #50508#46988' '#51116#51204#49569' '#51452#44592' (Count)'
end
object Edit29: TEdit
Left = 18
Top = 43
Width = 123
Height = 21
Alignment = taCenter
NumbersOnly = True
TabOrder = 0
Text = '60'
end
object Button8: TButton
Left = 174
Top = 20
Width = 75
Height = 44
Caption = #51201#50857
TabOrder = 1
OnClick = Button8Click
end
end
end
end
object CheckBox3: TCheckBox
Left = 792
Top = 15
Width = 73
Height = 17
Anchors = [akLeft, akBottom]
Caption = #48372#51221' '#51228#50808
TabOrder = 1
end
object MQTTClient1: TMQTTClient
KeepAlive = 10
MaxRetries = 8
RetryTime = 60
Clean = False
Broker = False
AutoSubscribe = False
Port = 1883
LocalBounce = False
OnClientID = MQTTClient1ClientID
OnMon = MQTTClient1Mon
OnOnline = MQTTClient1Online
OnOffline = MQTTClient1Offline
OnEnableChange = MQTTClient1EnableChange
OnFailure = MQTTClient1Failure
OnMsg = MQTTClient1Msg
Left = 688
Top = 320
end
object FDConnection1: TFDConnection
Left = 604
Top = 376
end
object FDQuery1: TFDQuery
Connection = FDConnection1
Left = 692
Top = 380
end
object FDPhysPgDriverLink1: TFDPhysPgDriverLink
Left = 800
Top = 376
end
object FDGUIxWaitCursor1: TFDGUIxWaitCursor
Provider = 'Forms'
Left = 880
Top = 380
end
object TrayIcon1: TTrayIcon
OnDblClick = TrayIcon1DblClick
Left = 636
Top = 166
end
object FDScript1: TFDScript
SQLScripts = <>
Connection = FDConnection1
Params = <>
Macros = <>
Left = 692
Top = 470
end
end