unit1.pas.~32~

万能数据库查询客户端源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, DB, ADODB, Math;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Memo1: TMemo;
    DBGrid1: TDBGrid;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Splitter1: TSplitter;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    Procedure FixDBGridColumnsWidth(const DBGrid: TDBGrid);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var str1,constr:string;
begin
  constr:='Provider=MSDASQL.1;Password="";Persist Security Info=True;Data Source=';
  str1:=trim(edit1.Text);
  if str1='' then
  begin
    ShowMessage('请输入ODBC名称');
    exit;
  end;
  constr:=constr+str1;
  self.ADOConnection1.ConnectionString:=constr;
  self.ADOConnection1.LoginPrompt:=false;
  try
    self.ADOConnection1.Connected:=true;
    ShowMessage(str1+' 连接成功，等待输入命令！');
    self.BitBtn1.Enabled:=false;
  except
    ShowMessage('数据源连接失败，请检查！');
  end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  if self.BitBtn1.Enabled then
  begin
    ShowMessage('当前没有任何连接！');
    exit;
  end;
  try
    self.ADOConnection1.Connected:=false;
    ShowMessage('成功断开当前的数据源连接！');
    self.BitBtn1.Enabled:=true;
  except
    ShowMessage('断开失败，请稍候再试！')
  end;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var sqlstr:string;
begin
  if self.BitBtn1.Enabled then
  begin
    ShowMessage('当前没有任何连接！');
    exit;
  end;
  if self.Memo1.SelText='' then
    sqlstr:=trim(memo1.Text)
  else
    sqlstr:=trim(memo1.SelText);
  if sqlstr=''  then
  begin
    ShowMessage('输入查询语句！');
    exit;
  end;
  try
    self.ADOQuery1.Close;
    self.ADOQuery1.SQL.Clear;
    self.ADOQuery1.SQL.Add(sqlstr);
    self.ADOQuery1.Open;
    FixDBGridColumnsWidth(self.DBGrid1);
  except
  end;
end;


Procedure TForm1.FixDBGridColumnsWidth(const DBGrid: TDBGrid);
var i:integer;
begin
  for i := 0 to DBGrid.Columns.Count -1 do
    DBGrid.Columns[i].Width:=Length(DBGrid.Columns[i].Field.AsString)*8;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  application.Title:='ODBC查询';
end;

end.