unit1.pas

来自「open-dbexpress 最新版本 3.026, 让dbExpress支持多」· PAS 代码 · 共 114 行

unit Unit1;

interface

// !!! dbx_mssql_connect

uses
  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.