FirstInit, the ZTE HSS log (SQLite) tool's WEB edition, with uniGUI。

Main.pas

+unit Main;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics,
+  Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
+  uniGUIClasses, uniGUIRegClasses, uniGUIForm, FireDAC.Stan.Intf,
+  FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf,
+  FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys,
+  FireDAC.Phys.SQLite, FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs,
+  FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf,
+  FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client,
+  uniMultiItem, uniListBox, uniDBListBox, uniGUIBaseClasses, uniPanel,
+  uniBasicGrid, uniDBGrid, uniSplitter, uniMemo, uniDBMemo, uniChart,
+  FireDAC.Phys.SQLiteWrapper.Stat, FireDAC.ConsoleUI.Wait, FireDAC.Comp.UI;
+
+type
+  TMainForm = class(TUniForm)
+    UniSimplePanel1: TUniSimplePanel;
+    FDConnection1: TFDConnection;
+    FDTable1: TFDTable;
+    DataSource1: TDataSource;
+    DataSource2: TDataSource;
+    FDQuery1: TFDQuery;
+    UniDBMemo1: TUniDBMemo;
+    UniSplitter1: TUniSplitter;
+    UniSimplePanel2: TUniSimplePanel;
+    UniDBGrid1: TUniDBGrid;
+    FDQuery2: TFDQuery;
+    DataSource3: TDataSource;
+    UniChart1: TUniChart;
+    UniHorizBarSeries1: TUniHorizBarSeries;
+    FDGUIxWaitCursor1: TFDGUIxWaitCursor;
+    procedure UniFormShow(Sender: TObject);
+    procedure UniDBGrid1DrawColumnCell(Sender: TObject; ACol, ARow: Integer;
+      Column: TUniDBGridColumn; Attribs: TUniCellAttribs);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+function MainForm: TMainForm;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  uniGUIVars, MainModule, uniGUIApplication;
+
+function MainForm: TMainForm;
+begin
+  Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));
+end;
+
+procedure TMainForm.UniDBGrid1DrawColumnCell(Sender: TObject; ACol,
+  ARow: Integer; Column: TUniDBGridColumn; Attribs: TUniCellAttribs);
+begin
+  if Column.FieldName='ERRTYPE' then
+  begin
+    if Column.Field.AsString='0' then
+    begin
+      Attribs.Font.Color:=clGreen;
+    end
+    else
+    begin
+      Attribs.Font.Color:=clRed;
+    end;
+  end ;
+end;
+
+procedure TMainForm.UniFormShow(Sender: TObject);
+var
+  i:Integer;
+begin
+  FDConnection1.Open();
+  FDTable1.Open();
+  FDQuery1.Open();
+  FDQuery2.Open();
+  for i:=0 to UniDBGrid1.Columns.Count-1 do
+  begin
+    UniDBGrid1.Columns.Items[i].Flex:=1;
+    UniDBGrid1.Columns.Items[i].MinWidth:=60;
+  end;
+  UniChart1.Font.Size:=7;
+end;
+
+initialization
+  RegisterAppFormClass(TMainForm);
+
+end.

Main.vlb

+[UniDBMemo1]
+Coordinates=767,10,94,36
+
+[FDQuery1]
+Coordinates=170,10,73,168
+
+[FDTable1]
+Coordinates=10,10,150,608
+
+[UniSimplePanel2]
+Coordinates=644,10,113,36
+
+[DataSource1]
+Coordinates=277,1,89,36
+
+[UniDBGrid1]
+Coordinates=551,10,83,36
+
+[FDConnection1]
+Coordinates=465,1,104,36
+
+[DataSource2]
+Coordinates=0,0,89,36
+
+[UniSplitter1]
+Coordinates=459,10,82,36
+
+[UniSimplePanel1]
+Coordinates=336,10,113,36
+
+[DataSource3]
+Coordinates=465,232,89,36
+
+[FDQuery2]
+Coordinates=253,10,73,102
+
+[]
+Coordinates=871,10,72,36
+Visible=True
+

MainModule.dfm

+object UniMainModule: TUniMainModule
+  OldCreateOrder = False
+  BackButtonAction = bbaWarnUser
+  Theme = 'triton.modified'
+  BrowserOptions = [boDisableMouseRightClick, boDisableChromeRefresh]
+  MonitoredKeys.Keys = <>
+  Title = #20013#20852'HSS'#26085#24535#25968#25454#24211#25991#20214#27983#35272
+  Height = 150
+  Width = 215
+end

MainModule.pas

+unit MainModule;
+
+interface
+
+uses
+  uniGUIMainModule, SysUtils, Classes;
+
+type
+  TUniMainModule = class(TUniGUIMainModule)
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+function UniMainModule: TUniMainModule;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  UniGUIVars, ServerModule, uniGUIApplication;
+
+function UniMainModule: TUniMainModule;
+begin
+  Result := TUniMainModule(UniApplication.UniMainModule)
+end;
+
+initialization
+  RegisterMainModuleClass(TUniMainModule);
+end.

ServerModule.pas

+unit ServerModule;
+
+interface
+
+uses
+  Classes, SysUtils, uniGUIServer, uniGUIMainModule, uniGUIApplication, uIdCustomHTTPServer,
+  uniGUITypes;
+
+type
+  TUniServerModule = class(TUniGUIServerModule)
+    procedure UniGUIServerModuleBeforeInit(Sender: TObject);
+  private
+    { Private declarations }
+  protected
+    procedure FirstInit; override;
+  public
+    { Public declarations }
+  end;
+
+function UniServerModule: TUniServerModule;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  UniGUIVars;
+
+function UniServerModule: TUniServerModule;
+begin
+  Result:=TUniServerModule(UniGUIServerInstance);
+end;
+
+procedure TUniServerModule.FirstInit;
+begin
+  InitServerModule(Self);
+end;
+
+procedure TUniServerModule.UniGUIServerModuleBeforeInit(Sender: TObject);
+begin
+{$ifdef Linux64}
+  FrameworkFilesRoot := '/mnt/hgfs/ShareFolder/bin/uniRT';
+{$endif}
+end;
+
+initialization
+  RegisterServerModuleClass(TUniServerModule);
+end.

ZTE_HSSLog_WEB.dpr

+program ZTE_HSSLog_WEB;
+
+uses
+  Forms,
+  ServerModule in 'ServerModule.pas' {UniServerModule: TUniGUIServerModule},
+  MainModule in 'MainModule.pas' {UniMainModule: TUniGUIMainModule},
+  Main in 'Main.pas' {MainForm: TUniForm};
+
+{$R *.res}
+
+begin
+  ReportMemoryLeaksOnShutdown := True;
+  Application.Initialize;
+  TUniServerModule.Create(Application);
+  Application.Run;
+end.

ZTE_HSSLog_WEB.dproj.local

+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<Transactions>
+    <Transaction>1899-12-30 00:00:00.000.982,=D:\WorksProNew\Personal\RAD_XE10\uniGUI_Test\Main.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.760,=D:\WorksProNew\Personal\RAD_XE10\uniGUI_Test\MainModule.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.738,=D:\WorksProNew\Personal\RAD_XE10\uniGUI_Test\ServerModule.pas</Transaction>
+    <Transaction>2021-11-22 09:20:04.037,D:\WorksProNew\Personal\RAD_XE10\ZTE_HSSLog_WEB\ZTE_HSSLog_WEB.dproj=D:\WorksProNew\Personal\RAD_XE10\ZTE_HSSLog_WEB\Shion_Test.dproj</Transaction>
+  </Transactions>
+</BorlandProject>

ZTE_HSSLog_WEB.skincfg

+[ExpressSkins]
+Default=1
+ShowNotifications=1
+Enabled=0
+dxSkinsDefaultPainters=0