【delphi开源代码栏目提醒】：网学会员在delphi开源代码频道为大家收集整理了fRunDDLMain.pas提供大家参考，希望对大家有所帮助!

    unit fRunDDLMain;
    
    interface
    
    uses
      SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs,
      QStdCtrls, QGrids, DB, QDBGrids, QExtCtrls, QDBCtrls;
    
    type
      TForm1 = class(TForm)
        btnCreateTable: TButton;
        DBNavigator1: TDBNavigator;
        DBGrid1: TDBGrid;
        DataSource1: TDataSource;
        btnDeleteTable: TButton;
        btnInsertData: TButton;
        procedure btnCreateTableClick(Sender: TObject);
        procedure btnDeleteTableClick(Sender: TObject);
        procedure btnInsertDataClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    uses udmRunDDL;
    
    {$R *.xfm}
    
    procedure TForm1.btnCreateTableClick(Sender: TObject);
    begin
      dmRunDDL.sdsRunDDL.ExecSQL(False);
      dmRunDDL.sdsCreateIndex.ExecSQL(False);
      dmRunDDL.scdsQuery.Active := False;
      dmRunDDL.scdsQuery.DataSet.CommandText := 'Select * from MyEssays';
      dmRunDDL.scdsQuery.Active := True;
    end;
    
    procedure TForm1.btnDeleteTableClick(Sender: TObject);
    begin
      dmRunDDL.sdsDropTable.ExecSQL(False);
    end;
    
    procedure TForm1.btnInsertDataClick(Sender: TObject);
    begin
      dmRunDDL.sqlqData.ExecSQL(False);
      dmRunDDL.scdsQuery.Refresh;
    end;
    
    end.