main.pas

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

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, ExtCtrls, Grids, DBGrids, StdCtrls, ToolWin, ComCtrls, Db, SdacVcl,
  DBTables, Wwquery, Wwdatsrc, DBAccess, MSAccess, wwSpeedButton,
  wwDBNavigator, wwclearpanel, Buttons, Wwdbigrd, Wwdbgrid, MemDS, MSIP;

type
  TfmMain = class(TForm)
    wwDBGrid1: TwwDBGrid;
    MSConnection1: TMSConnection; 
    wwDataSource1: TwwDataSource;
    wwMSQuery: TwwMSQuery;
    wwDBGrid1IButton: TwwIButton;
    ToolBar: TPanel;
    btOpen: TButton;
    btClose: TButton;
    wwDBNavigator1: TwwDBNavigator;
    wwDBNavigator1First: TwwNavButton;
    wwDBNavigator1PriorPage: TwwNavButton;
    wwDBNavigator1Prior: TwwNavButton;
    wwDBNavigator1Next: TwwNavButton;
    wwDBNavigator1NextPage: TwwNavButton;
    wwDBNavigator1Last: TwwNavButton;
    wwDBNavigator1Insert: TwwNavButton;
    wwDBNavigator1Delete: TwwNavButton;
    wwDBNavigator1Edit: TwwNavButton;
    wwDBNavigator1Post: TwwNavButton;
    wwDBNavigator1Cancel: TwwNavButton;
    wwDBNavigator1Refresh: TwwNavButton;
    wwDBNavigator1SaveBookmark: TwwNavButton;
    wwDBNavigator1RestoreBookmark: TwwNavButton;
    wwMSQueryProductID: TIntegerField;
    wwMSQueryProductName: TStringField;
    wwMSQuerySupplierID: TIntegerField;
    wwMSQueryCategoryID: TIntegerField;
    wwMSQueryQuantityPerUnit: TStringField;
    wwMSQueryUnitPrice: TCurrencyField;
    wwMSQueryUnitsInStock: TIntegerField;
    wwMSQueryUnitsOnOrder: TIntegerField;
    wwMSQueryReorderLevel: TIntegerField;
    wwMSQueryDiscontinued: TBooleanField;
    procedure btOpenClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

{$R *.DFM}

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

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

end.