main.pas

ODAC+SDAC源代码

unit Main;

interface

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

type
  TfmMain = class(TForm)
    MSConnection: TMSConnection;
    DBGrid: TDBGrid;
    DataSource: TDataSource;
    ToolBar: TPanel;
    btOpen: TButton;
    DBNavigator: TDBNavigator;
    btClose: TButton;
    Memo: TMemo;
    MSQuery: TMSQuery;
    MSConnectDialog: TMSConnectDialog;
    btConnect: TButton;
    btDisconnect: TButton;
    StatusBar: TStatusBar;
    Splitter1: TSplitter;
    FetchAllCB: TCheckBox;
    procedure btOpenClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure btConnectClick(Sender: TObject);
    procedure btDisconnectClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FetchAllCBClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

{$R *.DFM}

procedure TfmMain.btOpenClick(Sender: TObject);
var
  dt: TDateTime;
begin
  MSQuery.Connection.Open;

  MSQuery.SQL.Assign(Memo.Lines);

  if MSQuery.FetchAll then
    StatusBar.Panels[0].Text := 'MSQuery.FetchAll = True'
  else
    StatusBar.Panels[0].Text := 'MSQuery.FetchAll = False';
  StatusBar.Update;

  dt := Now;
  MSQuery.Open;
  StatusBar.Panels[1].Text := 'MSQuery.Open time = ' + TimeToStr(Now - dt);
  StatusBar.Update;
end;

procedure TfmMain.btCloseClick(Sender: TObject);
begin
  MSQuery.Close;
end;

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

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

procedure TfmMain.FormShow(Sender: TObject);
begin
  Memo.Lines.Text := MSQuery.SQL.Text;

  FetchAllCB.Checked := MSQuery.FetchAll;
end;

procedure TfmMain.FetchAllCBClick(Sender: TObject);
begin
  MSQuery.FetchAll := FetchAllCB.Checked;
end;

initialization

end.