main.pas

ODAC+SDAC源代码

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, ExtCtrls, Db, Grids, DBGrids, StdCtrls, ToolWin,
  ComCtrls, MSAccess, DBAccess, SdacVcl;

type
  TfmMain = class(TForm)
    MSConnection: TMSConnection;
    ToolBar: TPanel;
    btConnect: TButton;
    btDisconnect: TButton;
    ConnectDialog: TMSConnectDialog;
    meSQL: TMemo;
    btExecute: TButton;
    MSSQL: TMSSQL;
    ToolButton1: TToolButton;
    StatusBar: TStatusBar;
    Label1: TLabel;
    Splitter1: TSplitter;
    meResult: TMemo;
    procedure btConnectClick(Sender: TObject);
    procedure btDisconnectClick(Sender: TObject);
    procedure btExecuteClick(Sender: TObject);
    procedure meSQLExit(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure MSSQLAfterExecute(Sender: TObject; Result: Boolean);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

{$R *.nfm}

procedure TfmMain.FormShow(Sender: TObject);
begin
  MSSQL.SQL := meSQL.Lines;
end;

procedure TfmMain.btConnectClick(Sender: TObject);
begin
  MSConnection.Connect;
end;

procedure TfmMain.btDisconnectClick(Sender: TObject);
begin
  MSConnection.Disconnect;
end;

procedure TfmMain.btExecuteClick(Sender: TObject);
begin
  StatusBar.Panels[0].Text := 'Executing...';
  MSSQL.Execute;
end;

procedure TfmMain.meSQLExit(Sender: TObject);
begin
  MSSQL.SQL := meSQL.Lines;
end;

procedure TfmMain.MSSQLAfterExecute(Sender: TObject; Result: Boolean);
var
  i:integer;
begin
  if Result then begin
    StatusBar.Panels[0].Text := 'Success' + '  (' + IntToStr(MSSQL.RowsAffected) +
      ' rows processed)';
    meResult.Lines.Clear;
    for i := 0 to MSSQL.Params.Count-1 do begin
      meResult.Lines.Add(MSSQL.Params[i].Name + ' = ' +
       MSSQL.Params[i].AsString);
    end;
  end
  else
    StatusBar.Panels[0].Text := 'Fail';
  MessageBeep(MB_OK);
end;

end.