unit Unit1;interface// !!! dbx_mssql_connectuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, DBXpress, DB, SqlExpr, StdCtrls, FMTBcd, Grids,  DBGrids, DBClient, Provider, ExtCtrls, dbx_mssql_connect;type  TForm1 = class(TForm)    SQLConnection: TSQLConnection;    LSRV: TLabel;    ESRV: TEdit;    LUSER: TLabel;    EUSER: TEdit;    LPWD: TLabel;    EPWD: TEdit;    LDNS: TLabel;    EDNS: TEdit;    CDirectOdbc: TCheckBox;    BConnect: TButton;    BDisconnect: TButton;    SQLStoredProc: TSQLStoredProc;    BSPExec: TButton;    LAdd: TLabel;    EAdditional: TEdit;    DataSource: TDataSource;    DSProv: TDataSetProvider;    CDS: TClientDataSet;    Grid: TDBGrid;    LDB: TLabel;    EDB: TEdit;    COSAuthentication: TCheckBox;    procedure BConnectClick(Sender: TObject);    procedure BDisconnectClick(Sender: TObject);    procedure FormCreate(Sender: TObject);    procedure BSPExecClick(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BConnectClick(Sender: TObject);begin  if (not CDirectOdbc.Enabled) and (EDNS.Text = '') then    raise Exception.Create('It is necessary to set DNS (DataSource Name).');  dbx_mssql_connect.MsSqlConnect(    SQLConnection,    {SERVER=} ESRV.Text,    {DATABASE=} EDB.Text,    {User=} EUSER.Text,    {Password=} EPWD.Text,    {DirectOdbc=} CDirectOdbc.Checked,    {LoginPrompt=} EUSER.Text = '',    {OSAuthentication,=}COSAuthentication.Checked,    {DNS=}EDNS.Text,    {AdditionalOptions=}EAdditional.Text  );end;procedure TForm1.BDisconnectClick(Sender: TObject);begin  SQLConnection.Connected := False;end;procedure TForm1.FormCreate(Sender: TObject);begin  { Grid position }  Grid.Left := 4;  Grid.Top := BConnect.Top + BConnect.Height + 10;  Grid.Height := ClientHeight - Grid.Top - 4;  Grid.Width := ClientWidth - 8;end;procedure TForm1.BSPExecClick(Sender: TObject);var  iResult: Integer;//  S: string;begin  SQLStoredProc.Close;  SQLStoredProc.ParamCheck := False;  iResult := SQLStoredProc.ExecProc();  ShowMessage('Result = "' + IntToStr(iResult) + '"');(*  //S := SQLStoredProc.StoredProcName;  //SQLStoredProc.StoredProcName := '';  //SQLStoredProc.StoredProcName := S; // SQLStoredProc.Open();  //ShowMessage('Result = "' + SQLStoredProc.Params[0].AsString);  //SQLStoredProc.NextRecordSet();  //CDS.Close;  //DSProv.DataSet := SQLStoredProc.NextRecordSet();  //CDS.Open;//*)end;end.