query.pas

用delphi开发的一个数据库浏览器

unit query;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBCtrls, Grids, DBGrids, Db, ADODB, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    BitBtn2: TBitBtn;
    opendialog1: TOpenDialog;
    ComboBox1: TComboBox;
    ADOConnection1: TADOConnection;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);
var str:string;
begin
if opendialog1.Execute then
edit1.text:=opendialog1.FileName;
str:='DBQ='+edit1.text+';Driver={Driver do Microsoft Access (*.mdb)};DriverId=25;FIL=MS Access;UID=admin;UserCommitSync=Yes;';
adoconnection1.Close;
try
adoconnection1.ConnectionString :=str;
adoconnection1.GetTableNames(combobox1.Items,false)
except
messagedlg('数据连接失败！',mterror,[mbok],0);
end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
application.Terminate ;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
adotable1.Close;
adotable1.Connection :=adoconnection1;
adotable1.TableName :=combobox1.text;
adotable1.active:=true;
datasource1.DataSet:=adotable1;
dbgrid1.DataSource :=datasource1;
dbnavigator1.DataSource :=datasource1;
end;

end.