mainform.~pas

权限控件sdfsfsdagfadsgasdgadsgg

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, SystemFun, ExtCtrls;

type
  TForm1 = class(TForm)
    ado: TADOConnection;
    editConnstring: TLabeledEdit;
    Button2: TButton;
    Memo1: TMemo;
    Bevel1: TBevel;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   editconnstring.Text:= ADODB.PromptDataSource(Handle, editconnstring.Text);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
   sql: string;
   temp: string;
   position: Integer;
begin
   try
      ado.ConnectionString:= editconnstring.Text;
      ado.Connected:= True;
      sql:= memo1.Text;
      position:= pos(';',sql);
      while position > 0 do
      begin
         temp:= copy(sql, 1, position-1);
         ado.Execute(temp);
         sql:= copy(sql, position+1, length(sql)-position);
         position:= pos(';',sql);
      end;
      SystemFun.MsgBox('Secussful!','',0);
   except
      on E: Exception do
      begin
         MsgBox_Error(E.Message+Chr($0D)+Chr($0D)+temp);
      end;
   end;
end;

end.