main.pas

Crlab公司用来连接MySQL数据库的控件

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, QuickRpt, Db, MemDS, StdCtrls, QRPrntr, DBAccess, MyAccess,
  MyDacVcl;

type
  TfmMain = class(TForm)
    MyConnection: TMyConnection;
    btPreview: TButton;
    Connect: TButton;
    Disconnect: TButton;
    procedure btPreviewClick(Sender: TObject);
    procedure ConnectClick(Sender: TObject);
    procedure DisconnectClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

uses Report1;

{$R *.DFM}

procedure TfmMain.btPreviewClick(Sender: TObject);
begin
  qrReport1.Preview;
end;

procedure TfmMain.ConnectClick(Sender: TObject);
begin
  MyConnection.Connect;
end;

procedure TfmMain.DisconnectClick(Sender: TObject);
begin
  MyConnection.Disconnect;
end;

end.