Project Structure

• Admin2009.dpr
• Admin2009_MainForm.pas
• Admin2009_MainForm.dfm {FormAdmin}

program Admin2009;

uses
  Forms,
  Admin2009_MainForm in 'Admin2009_MainForm.pas' {FormAdmin};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TFormAdmin, FormAdmin);
  Application.Run;
end.

unit Admin2009_MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WideStrings, DbxDatasnap, FMTBcd, StdCtrls, DB, SqlExpr, Grids,
  DBGrids, Provider, DBClient;

type
  TFormAdmin = class(TForm)
    SQLConnection1: TSQLConnection;
    smGetPlatformName: TSqlServerMethod;
    smGetServerClasses: TSqlServerMethod;
    smGetMethods: TSqlServerMethod;
    btnGetPlatformName: TButton;
    btnGetClasses: TButton;
    btnGetMethods: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    DataSetProvider1: TDataSetProvider;
    procedure btnGetPlatformNameClick(Sender: TObject);
    procedure btnGetClassesClick(Sender: TObject);
    procedure btnGetMethodsClick(Sender: TObject);
  private
    { Private declarations }
  end;

var
  FormAdmin: TFormAdmin;

implementation

{$R *.dfm}

procedure TFormAdmin.btnGetPlatformNameClick(Sender: TObject);
begin
  smGetPlatformName.ExecuteMethod;
  ShowMessage (smGetPlatformName.ServerMethodName + ': ' +
    smGetPlatformName.ParamByName('ReturnParameter').AsString)
end;

procedure TFormAdmin.btnGetClassesClick(Sender: TObject);
var
  I: Integer;
begin
  ClientDataSet1.Close;
  smGetServerClasses.Open;
  DataSetProvider1.DataSet := smGetServerClasses;
  ClientDataSet1.Open;
  for I := 0 to DbGrid1.Columns.Count - 1 do
    DbGrid1.Columns[I].Width := 150;
end;

procedure TFormAdmin.btnGetMethodsClick(Sender: TObject);
var
  // strLog: string;
  I: Integer;
begin
  ClientDataSet1.Close;
  smGetMethods.Open;
  DataSetProvider1.DataSet := smGetMethods;
  ClientDataSet1.Open;
  for I := 1 to DbGrid1.Columns.Count - 1 do
    DbGrid1.Columns[I].Width := 150;
  DbGrid1.Columns[0].Width := 250;

//  smGetMethods.Open;
//  while not smGetMethods.EOF do
//  begin
//    strLog := '';
//    for I := 0 to smGetMethods.FieldCount - 1 do
//      strLog := strLog + smGetMethods.Fields[I].AsString + ' | ';
//    ShowMessage (strLog);
//    smGetMethods.Next;
//  end;
end;

end.

object FormAdmin: TFormAdmin
  Left = 0
  Top = 0
  Caption = 'Admin2009'
  ClientHeight = 345
  ClientWidth = 844
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object btnGetPlatformName: TButton
    Left = 24
    Top = 22
    Width = 146
    Height = 25
    Caption = 'btnGetPlatformName'
    TabOrder = 0
    OnClick = btnGetPlatformNameClick
  end
  object btnGetClasses: TButton
    Left = 24
    Top = 72
    Width = 146
    Height = 25
    Caption = 'btnGetClasses'
    TabOrder = 1
    OnClick = btnGetClassesClick
  end
  object btnGetMethods: TButton
    Left = 24
    Top = 128
    Width = 146
    Height = 25
    Caption = 'btnGetMethods'
    TabOrder = 2
    OnClick = btnGetMethodsClick
  end
  object DBGrid1: TDBGrid
    Left = 200
    Top = 25
    Width = 617
    Height = 296
    DataSource = DataSource1
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
  object SQLConnection1: TSQLConnection
    DriverName = 'Datasnap'
    LoginPrompt = False
    Connected = True
    Left = 688
    Top = 64
  end
  object smGetPlatformName: TSqlServerMethod
    GetMetadata = False
    Params = <
      item
        DataType = ftWideString
        Precision = 2000
        Name = 'ReturnParameter'
        ParamType = ptResult
        Size = 2000
      end>
    SQLConnection = SQLConnection1
    ServerMethodName = 'DSAdmin.GetPlatformName'
    Left = 320
    Top = 64
  end
  object smGetServerClasses: TSqlServerMethod
    GetMetadata = False
    Params = <
      item
        DataType = ftDataSet
        ParamType = ptResult
        Value = 'TDataSet'
      end>
    SQLConnection = SQLConnection1
    ServerMethodName = 'DSAdmin.GetServerClasses'
    Left = 432
    Top = 64
  end
  object smGetMethods: TSqlServerMethod
    GetMetadata = False
    Params = <
      item
        DataType = ftDataSet
        ParamType = ptResult
        Value = 'TDataSet'
      end>
    SQLConnection = SQLConnection1
    ServerMethodName = 'DSAdmin.GetServerMethods'
    Left = 544
    Top = 64
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 240
    Top = 224
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 240
    Top = 176
  end
  object DataSetProvider1: TDataSetProvider
    Left = 240
    Top = 120
  end
end