createprocedure.pas

《delphi数据库设计与实例开发》随书光盘

unit CreateProcedure;

interface

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

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOCommand1: TADOCommand;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Memo1.Text<>'' then
  begin
   with ADOCommand1 do
   begin
    CommandType:=cmdText;// 指明所要执行操作的类型
    CommandText:=Memo1.Text; //指定执行操作的内容为Memo1中输入的SQL语句
    Execute;//执行操作
   end;
 end;
end;

end.