unit Unit1;

interface

uses
  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
  WEBLib.Forms, WEBLib.Miletus, WEBLib.Dialogs, Data.DB, WEBLib.CDS,
  Vcl.Controls, Vcl.Grids, WEBLib.DBCtrls, WEBLib.DB, Vcl.StdCtrls,
  WEBLib.StdCtrls, VCL.TMSFNCTypes, VCL.TMSFNCUtils, VCL.TMSFNCGraphics,
  VCL.TMSFNCGraphicsTypes, VCL.TMSFNCGridCell, VCL.TMSFNCGridOptions,
  VCL.TMSFNCCustomComponent, VCL.TMSFNCCustomGrid,
  VCL.TMSFNCGridDatabaseAdapter, VCL.TMSFNCCustomControl,
  VCL.TMSFNCCustomScrollControl, VCL.TMSFNCGridData, VCL.TMSFNCGrid,
  WEBLib.MiletusCDS;

type
  TForm1 = class(TMiletusForm)
    MiletusClientDataSet1: TMiletusClientDataSet;
    WebDataSource1: TWebDataSource;
    MiletusMSSQLDBDriver1: TMiletusMSSQLDBDriver;
    WebDBEdit1: TWebDBEdit;
    WebDBEdit2: TWebDBEdit;
    WebDBNavigator1: TWebDBNavigator;
    TMSFNCGridDatabaseAdapter1: TTMSFNCGridDatabaseAdapter;
    WebButton1: TWebButton;
    WebDBEdit3: TWebDBEdit;
    WebDBEdit4: TWebDBEdit;
    WebDBGrid1: TWebDBGrid;
    TMSFNCGrid1: TTMSFNCGrid;
    procedure MiletusFormCreate(Sender: TObject);
    procedure WebButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MiletusFormCreate(Sender: TObject);
begin
  MiletusMSSQLDBDriver1.Server := 'PC-AYDIN\SQL2017';
  MiletusMSSQLDBDriver1.DataBase := 'DBI_EXWIZ_GRANISER';
  MiletusMSSQLDBDriver1.OSAuthent := False;
  MiletusMSSQLDBDriver1.UserName := 'DBI_EXWIZ';
  MiletusMSSQLDBDriver1.Password := 'Agora';
  MiletusMSSQLDBDriver1.IndexName := 'Company code';
  MiletusClientDataSet1.DBDriver := MiletusMSSQLDBDriver1;

  MiletusClientDataSet1.QueryText := 'select * from company';
  WebDataSource1.DataSet := MiletusClientDataSet1;

  MiletusClientDataset1.Indexes.Add('IXCompany','Company name',[ixPrimary,ixUnique]);
  MiletusClientDataset1.ActiveIndex := 'IXCompany';

//  WebDBGrid1.DataSource := WebDataSource1;

  TMSFNCGridDatabaseAdapter1.DataSource := WebDataSource1;
  TMSFNCGridDatabaseAdapter1.Grid := TMSFNCGrid1;

  TMSFNCGridDatabaseAdapter1.Active := true;

end;

procedure TForm1.WebButton1Click(Sender: TObject);
begin
  MiletusClientDataset1.Active := true;
end;

initialization
  RegisterClass(TForm1);

end.