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;
    DBGrid: TDBGrid;
    DataSource: TDataSource;
    ToolBar: TPanel;
    btOpen: TButton;
    DBNavigator: TDBNavigator;
    btClose: TButton;
    Memo: TMemo;
    MSQuery: TMSQuery;
    MSConnectDialog: TMSConnectDialog;
    btConnect: TButton;
    btDisconnect: TButton;
    edFetchRows: TEdit;
    cbDebug: TCheckBox;
    StaticText1: TStaticText;
    Bevel1: TBevel;
    btRefreshRecord: TButton;
    StatusBar: TStatusBar;
    edFilter: TEdit;
    Label5: TLabel;
    cbFiltered: TCheckBox;
    Splitter1: TSplitter;
    cbRefreshBeforeEdit: TCheckBox;
    cbRefreshAfterInsert: TCheckBox;
    cbRefreshAfterUpdate: TCheckBox;
    edUpdatingTable: TEdit;
    Label1: TLabel;
    procedure btOpenClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure btConnectClick(Sender: TObject);
    procedure btDisconnectClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure edFetchRowsExit(Sender: TObject);
    procedure cbDebugClick(Sender: TObject);
    procedure btRefreshRecordClick(Sender: TObject);
    procedure DataSourceDataChange(Sender: TObject; Field: TField);
    procedure DataSourceStateChange(Sender: TObject);
    procedure edFilterExit(Sender: TObject);
    procedure cbFilteredClick(Sender: TObject);
    procedure cbRefreshBeforeEditClick(Sender: TObject);
    procedure cbRefreshAfterInsertClick(Sender: TObject);
    procedure cbRefreshAfterUpdateClick(Sender: TObject);
    procedure MSQueryAfterOpen(DataSet: TDataSet);
    procedure edUpdatingTableExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

{$R *.DFM}

procedure TfmMain.btOpenClick(Sender: TObject);
begin
  MSQuery.SQL.Assign(Memo.Lines);

  MSQuery.Open;
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
  cbDebug.Checked := MSQuery.Debug;
  edFetchRows.Text := IntToStr(MSQuery.FetchRows);

  cbRefreshBeforeEdit.Checked := roBeforeEdit in MSQuery.RefreshOptions;
  cbRefreshAfterInsert.Checked := roAfterInsert in MSQuery.RefreshOptions;
  cbRefreshAfterUpdate.Checked := roAfterUpdate in MSQuery.RefreshOptions;

  edFilter.Text := MSQuery.Filter;
  cbFiltered.Checked := MSQuery.Filtered;
  
  Memo.Lines.Text := MSQuery.SQL.Text;
end;

procedure TfmMain.edFetchRowsExit(Sender: TObject);
begin
  try
    MSQuery.FetchRows := StrToInt(edFetchRows.Text);
  except
    ActiveControl := edFetchRows;
    raise;
  end;
end;

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


procedure TfmMain.btRefreshRecordClick(Sender: TObject);
begin
  MSQuery.RefreshRecord;
end;

procedure TfmMain.DataSourceStateChange(Sender: TObject);
begin
  StatusBar.Panels[0].Text := 'RecordCount:' + IntToStr(MSQuery.RecordCount);
  StatusBar.Panels[1].Text := 'RecordNo:' + IntToStr(MSQuery.RecNo);
end;

procedure TfmMain.DataSourceDataChange(Sender: TObject; Field: TField);
begin
  DataSourceStateChange(nil);
end;

procedure TfmMain.edFilterExit(Sender: TObject);
begin
  MSQuery.Filter := edFilter.Text;
end;

procedure TfmMain.cbFilteredClick(Sender: TObject);
begin
  MSQuery.Filtered := cbFiltered.Checked;
end;

procedure TfmMain.cbRefreshBeforeEditClick(Sender: TObject);
begin
  if cbRefreshBeforeEdit.Checked then
    MSQuery.RefreshOptions := MSQuery.RefreshOptions + [roBeforeEdit]
  else
    MSQuery.RefreshOptions := MSQuery.RefreshOptions - [roBeforeEdit];
end;

procedure TfmMain.cbRefreshAfterInsertClick(Sender: TObject);
begin
  if cbRefreshAfterInsert.Checked then
    MSQuery.RefreshOptions := MSQuery.RefreshOptions + [roAfterInsert]
  else
    MSQuery.RefreshOptions := MSQuery.RefreshOptions - [roAfterInsert];
end;

procedure TfmMain.cbRefreshAfterUpdateClick(Sender: TObject);
begin
  if cbRefreshAfterUpdate.Checked then
    MSQuery.RefreshOptions := MSQuery.RefreshOptions + [roAfterUpdate]
  else
    MSQuery.RefreshOptions := MSQuery.RefreshOptions - [roAfterUpdate];
end;

procedure TfmMain.MSQueryAfterOpen(DataSet: TDataSet);
begin
  edUpdatingTable.Text := MSQuery.UpdatingTable;
end;

procedure TfmMain.edUpdatingTableExit(Sender: TObject);
begin
  try
    MSQuery.UpdatingTable := edUpdatingTable.Text;
  except
    edUpdatingTable.SetFocus;
    raise;
  end;
end;

initialization
{
SELECT
  E.EmpNo, E.EName, E.DeptNo, E.RowId, D.*
FROM
  Emp E, Dept D
WHERE
  E.DeptNo = D.DeptNo(+)
}
end.