682 lines
14 KiB
Plaintext
682 lines
14 KiB
Plaintext
object Form1: TForm1
|
|
Left = 124
|
|
Top = 131
|
|
Caption = #53076#53092#54856#45367#48120#49464#47676#51648
|
|
ClientHeight = 864
|
|
ClientWidth = 851
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
ShowHint = True
|
|
OnClose = FormClose
|
|
OnCloseQuery = FormCloseQuery
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object addLabel2: TLabel
|
|
Left = 8
|
|
Top = 660
|
|
Width = 143
|
|
Height = 13
|
|
Caption = #54872#44221#49468#49436' '#48276#50948'('#46321#47197#50857')'
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object addLabel1: TLabel
|
|
Left = 280
|
|
Top = 630
|
|
Width = 115
|
|
Height = 13
|
|
Caption = #50696#48708'('#54788#51116' '#49324#50857' X)'
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object addLabel3: TLabel
|
|
Left = 8
|
|
Top = 690
|
|
Width = 61
|
|
Height = 13
|
|
Caption = #52769#51221' '#49884#44036
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object addLabel4: TLabel
|
|
Left = 8
|
|
Top = 720
|
|
Width = 75
|
|
Height = 13
|
|
Caption = #52769#51221#47581' '#51221#48372
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object addLabel5: TLabel
|
|
Left = 8
|
|
Top = 750
|
|
Width = 61
|
|
Height = 13
|
|
Caption = #52769#51221' '#51452#44592
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object addLabel6: TLabel
|
|
Left = 8
|
|
Top = 780
|
|
Width = 61
|
|
Height = 13
|
|
Caption = #52769#51221#49548' '#47749
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object addLabel7: TLabel
|
|
Left = 8
|
|
Top = 810
|
|
Width = 138
|
|
Height = 13
|
|
Caption = #48120#49464#47676#51648'(PM10) '#45453#46020
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object addLabel8: TLabel
|
|
Left = 280
|
|
Top = 660
|
|
Width = 143
|
|
Height = 13
|
|
Caption = #48120#49464#47676#51648'(PM2.5) '#45453#46020
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object addLabel9: TLabel
|
|
Left = 280
|
|
Top = 690
|
|
Width = 28
|
|
Height = 13
|
|
Caption = #50728#46020
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object addLabel10: TLabel
|
|
Left = 280
|
|
Top = 720
|
|
Width = 28
|
|
Height = 13
|
|
Caption = #49845#46020
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object addLabel11: TLabel
|
|
Left = 280
|
|
Top = 750
|
|
Width = 61
|
|
Height = 13
|
|
Caption = #50724#51316' '#45453#46020
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object addLabel12: TLabel
|
|
Left = 280
|
|
Top = 780
|
|
Width = 103
|
|
Height = 13
|
|
Caption = #51060#49328#54868#51656#49548' '#45453#46020
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object addLabel13: TLabel
|
|
Left = 280
|
|
Top = 810
|
|
Width = 42
|
|
Height = 13
|
|
Caption = #51088#50808#49440
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object redLabel2: TLabel
|
|
Left = 8
|
|
Top = 630
|
|
Width = 141
|
|
Height = 13
|
|
Caption = #48744#44053#51008' '#54596#49688' '#51077#47141' '#49324#54637
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object reqLabel1: TLabel
|
|
Left = 560
|
|
Top = 630
|
|
Width = 143
|
|
Height = 13
|
|
Caption = #54872#44221#49468#49436' '#48276#50948'('#50836#52397#50857')'
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object miseAddLabel: TLabel
|
|
Left = 8
|
|
Top = 840
|
|
Width = 221
|
|
Height = 13
|
|
Caption = #44032#51256#50732#48264#51648'(1~, '#49688#46041#46321#47197#54624#46412#51077#47141')'
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label2: TLabel
|
|
Left = 153
|
|
Top = 630
|
|
Width = 108
|
|
Height = 13
|
|
Caption = #54028#46993#51008' '#51088#46041' '#51077#47141
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object LogMemo: TMemo
|
|
Left = 8
|
|
Top = 136
|
|
Width = 835
|
|
Height = 488
|
|
TabOrder = 0
|
|
end
|
|
object addBtn: TButton
|
|
Left = 425
|
|
Top = 835
|
|
Width = 75
|
|
Height = 25
|
|
Caption = '5. '#49468#49436' '#46321#47197
|
|
TabOrder = 1
|
|
OnClick = addBtnClick
|
|
end
|
|
object reqBtn: TButton
|
|
Left = 560
|
|
Top = 649
|
|
Width = 75
|
|
Height = 25
|
|
Caption = #51221#48372' '#50836#52397
|
|
TabOrder = 2
|
|
OnClick = reqBtnClick
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 80
|
|
Width = 851
|
|
Height = 50
|
|
Align = alTop
|
|
TabOrder = 3
|
|
object SetIntervalLabel: TLabel
|
|
Left = 510
|
|
Top = 18
|
|
Width = 72
|
|
Height = 13
|
|
Caption = #51088#46041' '#49892#54665' '#51452#44592
|
|
end
|
|
object Label3: TLabel
|
|
Left = 640
|
|
Top = 18
|
|
Width = 11
|
|
Height = 13
|
|
Caption = #52488
|
|
end
|
|
object lblCollectMode: TLabel
|
|
Left = 265
|
|
Top = 18
|
|
Width = 47
|
|
Height = 13
|
|
Caption = #49688#51665' '#48169#49885
|
|
end
|
|
object DebugCheck: TCheckBox
|
|
Left = 8
|
|
Top = 17
|
|
Width = 80
|
|
Height = 17
|
|
Caption = #46356#48260#44536' '#47784#46300
|
|
TabOrder = 0
|
|
OnClick = DebugCheckClick
|
|
end
|
|
object LogCheck: TCheckBox
|
|
Left = 95
|
|
Top = 17
|
|
Width = 80
|
|
Height = 17
|
|
Caption = #47196#44536' '#51200#51109
|
|
TabOrder = 1
|
|
OnClick = LogCheckClick
|
|
end
|
|
object AutoCheck: TCheckBox
|
|
Left = 180
|
|
Top = 17
|
|
Width = 80
|
|
Height = 17
|
|
Caption = #51088#46041' '#49892#54665
|
|
TabOrder = 2
|
|
OnClick = AutoCheckClick
|
|
end
|
|
object cboCollectMode: TComboBox
|
|
Left = 323
|
|
Top = 15
|
|
Width = 175
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemIndex = 0
|
|
TabOrder = 3
|
|
Text = '1. MariaDB ('#49892#49884#44036' DB)'
|
|
OnChange = cboCollectModeChange
|
|
Items.Strings = (
|
|
'1. MariaDB ('#49892#49884#44036' DB)'
|
|
'2. MODBUS TCP ('#54252#53944' 502)')
|
|
end
|
|
object SetInterval: TEdit
|
|
Left = 585
|
|
Top = 15
|
|
Width = 48
|
|
Height = 21
|
|
NumbersOnly = True
|
|
TabOrder = 4
|
|
end
|
|
object SetIntervalBtn: TButton
|
|
Left = 660
|
|
Top = 13
|
|
Width = 55
|
|
Height = 25
|
|
Caption = #49444#51221
|
|
TabOrder = 5
|
|
OnClick = SetIntervalBtnClick
|
|
end
|
|
end
|
|
object szDataTime: TEdit
|
|
Left = 153
|
|
Top = 690
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 4
|
|
TextHint = '2023-06-15 17:09:09'
|
|
end
|
|
object nArea: TEdit
|
|
Left = 153
|
|
Top = 660
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 5
|
|
Text = '1'
|
|
TextHint = '0'
|
|
end
|
|
object szMangName: TEdit
|
|
Left = 153
|
|
Top = 720
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 6
|
|
Text = '0'
|
|
end
|
|
object szDataTerm: TEdit
|
|
Left = 153
|
|
Top = 750
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 7
|
|
Text = '0'
|
|
end
|
|
object szStationName: TEdit
|
|
Left = 153
|
|
Top = 780
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 8
|
|
end
|
|
object nPm10Value: TEdit
|
|
Left = 153
|
|
Top = 810
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 9
|
|
end
|
|
object fCtValue: TEdit
|
|
Left = 425
|
|
Top = 695
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 10
|
|
Text = '0'
|
|
end
|
|
object nPm25Value: TEdit
|
|
Left = 425
|
|
Top = 659
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 11
|
|
end
|
|
object fRhValue: TEdit
|
|
Left = 425
|
|
Top = 720
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 12
|
|
Text = '0'
|
|
end
|
|
object fO3Value: TEdit
|
|
Left = 425
|
|
Top = 750
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 13
|
|
Text = '0'
|
|
end
|
|
object fNo2Value: TEdit
|
|
Left = 425
|
|
Top = 780
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 14
|
|
Text = '0'
|
|
end
|
|
object fUvValue: TEdit
|
|
Left = 425
|
|
Top = 810
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 15
|
|
Text = '0'
|
|
end
|
|
object szReserved: TEdit
|
|
Left = 425
|
|
Top = 630
|
|
Width = 121
|
|
Height = 21
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 16
|
|
Text = '0'
|
|
TextHint = '0'
|
|
end
|
|
object reqMultiBtn: TButton
|
|
Left = 641
|
|
Top = 649
|
|
Width = 85
|
|
Height = 25
|
|
Caption = #51221#48372' '#50836#52397'('#47680#54000')'
|
|
TabOrder = 17
|
|
OnClick = reqMultiBtnClick
|
|
end
|
|
object nAreaReq: TEdit
|
|
Left = 722
|
|
Top = 630
|
|
Width = 121
|
|
Height = 21
|
|
NumbersOnly = True
|
|
TabOrder = 18
|
|
Text = '1'
|
|
TextHint = '0'
|
|
end
|
|
object readBtn: TButton
|
|
Left = 280
|
|
Top = 835
|
|
Width = 137
|
|
Height = 25
|
|
Caption = '4. '#48120#49464#47676#51648' '#45453#46020' '#44032#51256#50724#44592
|
|
TabOrder = 19
|
|
OnClick = readBtnClick
|
|
end
|
|
object miseAddress: TEdit
|
|
Left = 229
|
|
Top = 835
|
|
Width = 45
|
|
Height = 21
|
|
NumbersOnly = True
|
|
TabOrder = 20
|
|
Text = '1'
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 552
|
|
Top = 630
|
|
Width = 7
|
|
Height = 224
|
|
Color = clWhite
|
|
ParentBackground = False
|
|
TabOrder = 21
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 851
|
|
Height = 80
|
|
Align = alTop
|
|
TabOrder = 22
|
|
object loginLabel: TLabel
|
|
Left = 4
|
|
Top = 7
|
|
Width = 42
|
|
Height = 13
|
|
Caption = #47196#44536#51064
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label1: TLabel
|
|
Left = 576
|
|
Top = 7
|
|
Width = 267
|
|
Height = 13
|
|
Caption = #48177#44536#46972#50868#46300' '#46041#51089#51008' '#49345#45800#51032' X'#47484' '#45580#47084#51452#49464#50836
|
|
Font.Charset = HANGEUL_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = #48148#53461
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object loginBtn: TButton
|
|
Left = 78
|
|
Top = 28
|
|
Width = 75
|
|
Height = 25
|
|
Caption = '2. '#47196#44536#51064
|
|
TabOrder = 0
|
|
OnClick = loginBtnClick
|
|
end
|
|
object csConnectBtn: TButton
|
|
Left = 4
|
|
Top = 28
|
|
Width = 73
|
|
Height = 25
|
|
Caption = '1. '#49548#53011' '#50672#44208
|
|
TabOrder = 1
|
|
OnClick = csConnectBtnClick
|
|
end
|
|
object LogoutBtn: TButton
|
|
Left = 233
|
|
Top = 28
|
|
Width = 75
|
|
Height = 25
|
|
Caption = '6. '#49548#53011' '#54644#51228
|
|
TabOrder = 2
|
|
OnClick = LogoutBtnClick
|
|
end
|
|
object AliveBtn: TButton
|
|
Left = 153
|
|
Top = 28
|
|
Width = 80
|
|
Height = 25
|
|
Caption = '3. '#49888#54840' '#48372#45236#44592
|
|
TabOrder = 3
|
|
OnClick = AliveBtnClick
|
|
end
|
|
object ExitBtn: TButton
|
|
Left = 740
|
|
Top = 23
|
|
Width = 103
|
|
Height = 25
|
|
Caption = #54532#47196#44536#47016' '#51593#49884' '#51333#47308
|
|
TabOrder = 4
|
|
OnClick = ExitBtnClick
|
|
end
|
|
object ClrBtn: TButton
|
|
Left = 752
|
|
Top = 49
|
|
Width = 91
|
|
Height = 25
|
|
Caption = #47196#44536' '#45236#50857' '#51648#50864#44592
|
|
TabOrder = 5
|
|
OnClick = ClrBtnClick
|
|
end
|
|
end
|
|
object aliveTimer: TTimer
|
|
Enabled = False
|
|
Interval = 50000
|
|
OnTimer = aliveTimerTimer
|
|
Left = 380
|
|
Top = 160
|
|
end
|
|
object cs: TClientSocket
|
|
Active = False
|
|
ClientType = ctNonBlocking
|
|
Port = 0
|
|
OnConnect = csConnect
|
|
OnDisconnect = csDisconnect
|
|
OnRead = csRead
|
|
OnError = csError
|
|
Left = 380
|
|
Top = 204
|
|
end
|
|
object csHome2: TClientSocket
|
|
Active = False
|
|
ClientType = ctNonBlocking
|
|
Port = 0
|
|
OnConnect = csHome2Connect
|
|
OnDisconnect = csHome2Disconnect
|
|
OnRead = csHome2Read
|
|
OnError = csHome2Error
|
|
Left = 380
|
|
Top = 248
|
|
end
|
|
object TrayIcon1: TTrayIcon
|
|
OnDblClick = TrayIcon1DblClick
|
|
Left = 424
|
|
Top = 204
|
|
end
|
|
object AppEvt: TApplicationEvents
|
|
OnMinimize = AppEvtMinimize
|
|
Left = 472
|
|
Top = 204
|
|
end
|
|
object tmrExit: TTimer
|
|
Enabled = False
|
|
Interval = 100
|
|
OnTimer = tmrExitTimer
|
|
Left = 512
|
|
Top = 204
|
|
end
|
|
object TotalTimer: TTimer
|
|
Enabled = False
|
|
Interval = 300
|
|
OnTimer = TotalTimerTimer
|
|
Left = 172
|
|
Top = 144
|
|
end
|
|
object cs2: TIdTCPClient
|
|
ConnectTimeout = 0
|
|
Port = 0
|
|
ReadTimeout = -1
|
|
Left = 636
|
|
Top = 200
|
|
end
|
|
object tmrUpInterval: TTimer
|
|
Enabled = False
|
|
OnTimer = tmrUpIntervalTimer
|
|
Left = 92
|
|
Top = 144
|
|
end
|
|
object tmrInit: TTimer
|
|
Enabled = False
|
|
Interval = 300
|
|
OnTimer = tmrInitTimer
|
|
Left = 20
|
|
Top = 144
|
|
end
|
|
object FDCon: TFDConnection
|
|
Params.Strings = (
|
|
'DriverID=MySQL')
|
|
Left = 40
|
|
Top = 264
|
|
end
|
|
object FDQuery1: TFDQuery
|
|
Connection = FDCon
|
|
Left = 96
|
|
Top = 264
|
|
end
|
|
object FDPhysMySQLDriverLink1: TFDPhysMySQLDriverLink
|
|
Left = 160
|
|
Top = 264
|
|
end
|
|
end
|