main.pas

来自「ODAC+SDAC源代码」· PAS 代码 · 共 83 行

unit Main;

interface

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

type
  TfmMain = class(TForm)
    ToolBar: TPanel;
    btOpen: TButton;
    btClose: TButton;
    DBNavigator: TDBNavigator;
    MSConnection: TMSConnection;
    MSConnectDialog: TMSConnectDialog;
    DataSource: TDataSource;
    DBGrid: TDBGrid;
    btConnect: TButton;
    btDisconnect: TButton;
    MSQuery: TMSQuery;
    rbDefault: TRadioButton;
    rbMy: TRadioButton;
    rbInherited: TRadioButton;
    procedure btConnectClick(Sender: TObject);
    procedure btDisconnectClick(Sender: TObject);
    procedure btOpenClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure rbDefaultClick(Sender: TObject);
    procedure rbMyClick(Sender: TObject);
    procedure rbInheritedClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

{$R *.nfm}

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

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

procedure TfmMain.btOpenClick(Sender: TObject);
begin
  MSQuery.Open;
end;

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

procedure TfmMain.rbDefaultClick(Sender: TObject);
begin
  MSConnectDialog.DialogClass:= '';
end;

procedure TfmMain.rbMyClick(Sender: TObject);
begin
  MSConnectDialog.DialogClass:= 'TfmMyConnect';
end;

procedure TfmMain.rbInheritedClick(Sender: TObject);
begin
  MSConnectDialog.DialogClass:= 'TfmInheritedConnect';
end;

end.