uconn.pas

简单连接数据库 简单连接数据库 简单连接数据库

unit UConn;

interface

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

type
  TFrmConn = class(TForm)
    connDate: TADOConnection;
    BtnConn: TButton;
    AdoQuery: TADOQuery;
    btnSQLText: TButton;
    btnSQLOpen: TButton;
    Memo1: TMemo;
    DlgOpen: TOpenDialog;
    BtnClose: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure BtnConnClick(Sender: TObject);
    procedure btnSQLTextClick(Sender: TObject);
    procedure BtnCloseClick(Sender: TObject);
    procedure btnSQLOpenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
   
  aConStr :string;{ Public declarations }
  end;

var
  FrmConn: TFrmConn;

implementation

{$R *.dfm}

procedure TFrmConn.BtnConnClick(Sender: TObject);

begin


  aConStr := PromptDataSource(Application.Handle ,'');
  connDate.connectionString:=aConStr;
  //connDate.Connected:=true;

end;

procedure TFrmConn.btnSQLTextClick(Sender: TObject);
var
 f:file of byte;
 filename: string;
begin
dlgOpen.Execute;
filename:=dlgOpen.FileName;
//showmessage(filename);
case length(filename) of
  0:
showmessage('请先指定文件');
else
memo1.Lines.LoadFromFile(filename);
end;
end;




procedure TFrmConn.BtnCloseClick(Sender: TObject);
begin
application.Terminate;
end;

procedure TFrmConn.btnSQLOpenClick(Sender: TObject);
begin
try
connDate.Connected:=true;
try
adoquery.Close;
adoquery.SQL:=memo1.Lines;
//showmessage(memo1.Lines.Text);
adoquery.Prepared;
adoquery.ExecSQL;
adoquery.Active:=true;
//showmessage('ok');
except
showmessage('SQL语法出错,请检查语法.');
end;
except
showmessage('数据源连接出错,请先建立数据库连接.');

end;

end;

procedure TFrmConn.FormCreate(Sender: TObject);
begin
//btnSQLOpen.Enabled:=false;
end;

end.