main.pas

ODAC+SDAC源代码

unit Main;

interface

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

type
  TfmMain = class(TForm)
    MSConnection: TMSConnection;
    quMaster: TMSQuery;
    DBGrid: TDBGrid;
    ToolBar: TPanel;
    btOpen: TButton;
    DBNavigator: TDBNavigator;
    btClose: TButton;
    Splitter1: TSplitter;
    ToolBar1: TToolBar;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    quDetail: TMSQuery;
    dsDetail: TDataSource;
    MSConnectDialog: TMSConnectDialog;
    dsMaster: TDataSource;
    cbDebug: TCheckBox;
    ToolButton1: TToolButton;
    cbDebug1: TCheckBox;
    ToolButton2: TToolButton;
    procedure btOpenClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cbDebugClick(Sender: TObject);
    procedure cbDebug1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

{$R *.nfm}

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

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

procedure TfmMain.FormShow(Sender: TObject);
begin
  cbDebug.Checked:= quMaster.Debug;
  cbDebug1.Checked:= quDetail.Debug;
end;

procedure TfmMain.cbDebugClick(Sender: TObject);
begin
  quMaster.Debug:= cbDebug.Checked;
end;

procedure TfmMain.cbDebug1Click(Sender: TObject);
begin
  quDetail.Debug:= cbDebug1.Checked;
end;

end.