unit uConfigNILM;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, BaseGrid, AdvGrid,
  ExtCtrls, StdCtrls, AdvUtil, AdvObj, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
  FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.DataSet,
  FireDAC.Comp.Client;

type
  TfrmNILM = class(TForm)
    AdvStringGrid1: TAdvStringGrid;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    btnAdd: TButton;
    btnEdit: TButton;
    btnDelete: TButton;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    Edit7: TEdit;
    FDQuery1: TFDQuery;
    procedure FormShow(Sender: TObject);
    procedure AdvStringGrid1ClickCell(Sender: TObject; ARow,
      ACol: Integer);
    procedure btnAddClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
  private
    { Private declarations }
    select_nilm_idxNo : integer;
    procedure CreateTableNilmValueLog(nilm_idxno : integer);
    procedure DropTableNilmValueLog(nilm_idxno : integer);
    function CheckNILM(nilmID : integer) : Boolean;
    function Get_NILM_idxNo(nilmID : integer) : integer;
  public
    { Public declarations }
    procedure ShowNILM();
  end;

var
  frmNILM: TfrmNILM;

implementation

uses uMain, uDevConfig;

{$R *.dfm}


procedure TfrmNILM.DropTableNilmValueLog(nilm_idxno : integer);
var
  sql : string;
begin
  sql := '';
  sql := 'DROP TABLE IF EXISTS nilm_'+format('%.5d',[nilm_idxno]);
  frmMain.insertSQL(sql);
end;

procedure TfrmNILM.CreateTableNilmValueLog(nilm_idxno : integer);
var
  sql : string;
begin
  sql := '';

         {  mariaDB 테이블 생성
  sql := 'CREATE TABLE IF NOT EXISTS nilm_'+format('%.5d',[nilm_idxno])+' ('+
         'aNo int(11) NOT NULL AUTO_INCREMENT,'+
         'NilmID int(11) DEFAULT NULL,'+
         'pf_1 float DEFAULT NULL,'+
         'CorrectFactor_1 float DEFAULT NULL,'+
         'Vrms_1 float DEFAULT NULL,'+
         'Irms_1 float DEFAULT NULL,'+
         'Var_1 float DEFAULT NULL,'+
         'Va_1 float DEFAULT NULL,'+
         'Pwr_1 float DEFAULT NULL,'+
         'pf_2 float DEFAULT NULL,'+
         'CorrectFactor_2 float DEFAULT NULL,'+
         'Vrms_2 float DEFAULT NULL,'+
         'Irms_2 float DEFAULT NULL,'+
         'Var_2 float DEFAULT NULL,'+
         'Va_2 float DEFAULT NULL,'+
         'Pwr_2 float DEFAULT NULL,'+
         'pf_3 float DEFAULT NULL,'+
         'CorrectFactor_3 float DEFAULT NULL,'+
         'Vrms_3 float DEFAULT NULL,'+
         'Irms_3 float DEFAULT NULL,'+
         'Var_3 float DEFAULT NULL,'+
         'Va_3 float DEFAULT NULL,'+
         'Pwr_3 float DEFAULT NULL,'+
         'gX float DEFAULT NULL,'+
         'gY float DEFAULT NULL,'+
         'gZ float DEFAULT NULL,'+
         'aX float DEFAULT NULL,'+
         'aY float DEFAULT NULL,'+
         'aZ float DEFAULT NULL,'+
         'TempC float DEFAULT NULL,'+
         'lastUpdate datetime DEFAULT NULL,'+
         'UNIQUE KEY aNo (aNo)'+
         ') ENGINE=InnoDB AUTO_INCREMENT=1 DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_general_ci';
         }

          // PostgreSQL 테이블 생성
   sql := 'CREATE TABLE IF NOT EXISTS "nilm_'+format('%.5d',[nilm_idxno])+'" ('+
          '"aNo" SERIAL NOT NULL,'+
          '"NilmID" INTEGER ,'+
          '"pf_1" REAL ,'+
          '"CorrectFactor_1" REAL ,'+
          '"Vrms_1" REAL ,'+
          '"Irms_1" REAL ,'+
          '"Var_1" REAL ,'+
          '"Va_1" REAL ,'+
          '"Pwr_1" REAL ,'+
          '"pf_2" REAL ,'+
          '"CorrectFactor_2" REAL ,'+
          '"Vrms_2" REAL ,'+
          '"Irms_2" REAL ,'+
          '"Var_2" REAL ,'+
          '"Va_2" REAL ,'+
          '"Pwr_2" REAL ,'+
          '"pf_3" REAL ,'+
          '"CorrectFactor_3" REAL ,'+
          '"Vrms_3" REAL ,'+
          '"Irms_3" REAL ,'+
          '"Var_3" REAL ,'+
          '"Va_3" REAL ,'+
          '"Pwr_3" REAL ,'+
          '"gX" REAL ,'+
          '"gY" REAL ,'+
          '"gZ" REAL ,'+
          '"aX" REAL ,'+
          '"aY" REAL ,'+
          '"aZ" REAL ,'+
          '"TempC" REAL ,'+
          '"lastUpdate" TIMESTAMP ,'+
          'CONSTRAINT nilm_'+format('%.5d',[nilm_idxno])+'_pkey PRIMARY KEY ("aNo"));';


   frmMain.insertSQL(sql);
end;

procedure TfrmNILM.ShowNILM();
var
  i, idxNo, nilmID, nilmType : integer;
  nilmName, S : string;
  srcAddr, srcMac, dstAddr, topic : string;
  dstPort : integer;
begin
  select_nilm_idxNo := 0;
  try
    frmMain.NILM_ID_List.Clear;
    frmMain.NILM_TOPIC_List.Clear;

    if not frmMain.FDConnection1.Connected then frmMain.FDConnection1.Connected := True;
    if frmMain.FDConnection1.Connected then
    begin
      FDQuery1.Close;
      FDQuery1.SQL.Clear;
      FDQuery1.SQL.Text := 'SELECT * FROM "nilm_info"';
      FDQuery1.Open;

      if FDQuery1.RecordCount> 0 then
      begin
        FDQuery1.First;
        i := 0;
        frmDevConfig.cb_nilm.items.clear;
        AdvStringGrid1.RowCount := FDQuery1.RecordCount + 1;
        While not FDQuery1.Eof do
        begin
          Inc(i, 1);
          idxNo := FDQuery1.FieldByName('idxNo').asInteger;
          nilmID := FDQuery1.FieldByName('NilmID').asInteger;

          frmMain.NILM_ID_List.Add(nilmID);
//              frmMain.NILM_Map.Add(nilmID,i);

          nilmType := FDQuery1.FieldByName('nilmType').asInteger;
          dstPort := FDQuery1.FieldByName('dstPort').asInteger;
          srcAddr := FDQuery1.FieldByName('srcAddr').asString; // 시리얼넘버로 변경_20250905
          srcMac := FDQuery1.FieldByName('srcMac').asString;
          dstAddr := FDQuery1.FieldByName('dstAddr').asString;
          topic := FDQuery1.FieldByName('Topic').asString;

          frmMain.NILM_TOPIC_List.Add(topic);

          nilmName := FDQuery1.FieldByName('nilmName').asString;

          AdvStringGrid1.Cells[0, i] := inttostr(idxNo);
          AdvStringGrid1.Cells[1, i] := inttostr(nilmID);
          AdvStringGrid1.Cells[2, i] := nilmName;
          AdvStringGrid1.Cells[3, i] := inttostr(nilmType);
          AdvStringGrid1.Cells[4, i] := srcAddr;  // 시리얼넘버로 변경_20250905
          AdvStringGrid1.Cells[5, i] := srcMac;
          AdvStringGrid1.Cells[6, i] := dstAddr;
          AdvStringGrid1.Cells[7, i] := inttostr(dstPort);
          AdvStringGrid1.Cells[8, i] := topic;

          frmMain.fNILM[nilmID]._TOPIC := topic;
          frmMain.fNILM[nilmID].idxNo := idxNo;
          frmMain.fNILM[nilmID]._NAME := nilmName;

          S := '';
          S := format('%d:%s',[nilmID, nilmName]);
          frmDevConfig.cb_nilm.items.add(S);
          FDQuery1.Next;
        end;
      end;
    end;
  except
      on e : exception do
      begin
        frmMain.printlog('Database Connect Error :: '+e.Message, 'DB');
      end;
  end;
end;

function TfrmNILM.CheckNILM(nilmID : integer) : Boolean;
begin
  result := true;
  try

    if not frmMain.FDConnection1.Connected then frmMain.FDConnection1.Connected := True;
    if frmMain.FDConnection1.Connected then
    begin
      FDQuery1.Close;
      FDQuery1.SQL.Clear;
      FDQuery1.SQL.Text := 'SELECT * FROM "nilm_info" WHERE "NilmID"='+inttostr(nilmID);
      FDQuery1.Open;

      if FDQuery1.RecordCount> 0 then
      begin
        result := false;
      end;
    end;
  except
      on e : exception do
      begin
        frmMain.printlog('Database Connect Error :: '+e.Message, 'DB');
      end;
  end;
end;

function TfrmNILM.Get_NILM_idxNo(nilmID : integer) : integer;
begin
  result := 0;
  try
    if not frmMain.FDConnection1.Connected then frmMain.FDConnection1.Connected := True;
    if frmMain.FDConnection1.Connected then
    begin
      FDQuery1.Close;
      FDQuery1.SQL.Clear;
      FDQuery1.SQL.Text := 'SELECT * FROM "nilm_info" WHERE "NilmID"='+inttostr(nilmID);
      FDQuery1.Open;

      if FDQuery1.RecordCount> 0 then
      begin
        result :=  FDQuery1.FieldByName('idxNo').AsInteger;
      end;
    end;
  except
      on e : exception do
      begin
        frmMain.printlog('Database Connect Error :: '+e.Message, 'DB');
      end;
  end;
end;


procedure TfrmNILM.FormShow(Sender: TObject);
begin
  ShowNILM();

end;

procedure TfrmNILM.AdvStringGrid1ClickCell(Sender: TObject; ARow,
  ACol: Integer);
var
  nilmType : integer;
begin
  if ARow > 0 then
  begin
     select_nilm_idxNo := StrToIntDef(AdvStringGrid1.Cells[0, ARow], 0);
     Edit2.Text := IntToStr(StrToIntDef(AdvStringGrid1.Cells[1, ARow], 0));
     Edit1.Text := AdvStringGrid1.Cells[2, ARow];
     nilmType := StrToIntDef(AdvStringGrid1.Cells[3, ARow], 0);
     ComboBox1.ItemIndex := nilmType;
     Edit3.Text := AdvStringGrid1.Cells[4, ARow];
     Edit4.Text := AdvStringGrid1.Cells[5, ARow];
     Edit5.Text := AdvStringGrid1.Cells[6, ARow];
     Edit7.Text := IntToStr(StrToIntDef(AdvStringGrid1.Cells[7, ARow], 0));
     Edit6.Text := AdvStringGrid1.Cells[8, ARow];
  end;
end;

procedure TfrmNILM.btnAddClick(Sender: TObject);
var
  sql : string;
  nilm_idxno : integer;
begin
  if CheckNILM(StrToInt(Edit2.Text)) then
  begin
    sql := '';
    sql := 'INSERT INTO nilm_info VALUES(DEFAULT, '+
           ''+Edit2.Text+', '+
           ''+inttostr(ComboBox1.ItemIndex)+', '+
           ''''+Edit1.Text+''', '+
           ''''+Edit3.Text+''', '+
           ''''+Edit4.Text+''', '+
           ''''+Edit5.Text+''', '+
           ''+Edit7.Text+', '+
           ''''+Edit6.Text+''' '+
           ')';
    frmMain.insertSQL(sql);
    sql := '';
    sql := 'INSERT INTO "nilm_value" VALUES('+
           ''+Edit2.Text+',0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,now() '+
           ')';
    frmMain.insertSQL(sql);
    nilm_idxno := Get_NILM_idxNo(StrToInt(Edit2.Text));
    if nilm_idxno > 0 then CreateTableNilmValueLog(nilm_idxno);
    ShowNILM();
    select_nilm_idxNo := 0;
  end else
  begin
    ShowMessage('이미 존재하는 NILM ID 입니다.');
  end;
end;

procedure TfrmNILM.btnEditClick(Sender: TObject);
var
  sql : string;
begin
  if (not CheckNILM(StrToInt(Edit2.Text))) and (select_nilm_idxNo>0) then
  begin
    sql := '';
    sql := 'UPDATE "nilm_info" SET '+
           '"NilmID"='+Edit2.Text+', '+
           '"nilmType"='+inttostr(ComboBox1.ItemIndex)+', '+
           '"nilmName"='''+Edit1.Text+''', '+
           '"srcAddr"='''+Edit3.Text+''', '+     // 시리얼넘버로 변경_20250905
           '"srcMac"='''+Edit4.Text+''', '+
           '"dstAddr"='''+Edit5.Text+''', '+
           '"dstPort"='+Edit7.Text+', '+
           '"Topic"='''+Edit6.Text+''' '+
           ' WHERE "idxNo"='+inttostr(select_nilm_idxNo);
    frmMain.insertSQL(sql);
    ShowNILM();

    select_nilm_idxNo := 0;
  end else
  begin
    ShowMessage('NILM ID를 찾을 수 없습니다.');

  end;

end;

procedure TfrmNILM.btnDeleteClick(Sender: TObject);
var
  sql : string;
begin
  if (not CheckNILM(StrToInt(Edit2.Text))) and (select_nilm_idxNo>0) then
  begin
    sql := '';
    sql := 'DELETE FROM "nilm_info" WHERE "idxNo"='+inttostr(select_nilm_idxNo);
    frmMain.insertSQL(sql);


    DropTableNilmValueLog(select_nilm_idxNo);
    ShowNILM();

    select_nilm_idxNo := 0;
  end else
  begin
    ShowMessage('NILM ID를 찾을 수 없습니다.');

  end;
end;

end.