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.