【delphi开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-fRunScriptMain.pas的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    unit fRunScriptMain;
    
    interface
    
    uses
      SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs,
      QStdCtrls, DB, QGrids, QDBGrids, QDBCtrls, QExtCtrls, QButtons;
    
    type
      TForm1 = class(TForm)
        mmScript: TMemo;
        bbtnLoadScript: TBitBtn;
        Panel1: TPanel;
        DBNavigator1: TDBNavigator;
        DBGrid1: TDBGrid;
        DataSource1: TDataSource;
        bbtnRunScript: TBitBtn;
        odlgScript: TOpenDialog;
        procedure bbtnLoadScriptClick(Sender: TObject);
        procedure bbtnRunScriptClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
        procedure RunScript(const sSQL : String);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    uses udmRunScript;
    
    {$R *.xfm}
    
    procedure TForm1.bbtnLoadScriptClick(Sender: TObject);
    begin
      if (odlgScript.Execute) then
        mmScript.Lines.LoadFromFile(odlgScript.FileName);
    end;
    
    procedure TForm1.bbtnRunScriptClick(Sender: TObject);
    const
      sTAG = ';';
    var
      sScript : String;
      sSQL : String;
      iPos : Integer;
    begin
      sScript := Trim(mmScript.Lines.Text);
      while True do
      begin
        iPos := Pos(sTAG, sScript);
        if (iPos > 0) then
        begin
          sSQL := Copy(sScript, 1, iPos - 1);
          RunScript(sSQL);
          Delete(sScript, 1, iPos);
        end;
        if (Length(sScript) = 0) then
          break;
      end;
      dmRunScript.scdsMyEssays.Active := True;
    end;
    
    procedure TForm1.RunScript(const sSQL: String);
    begin
    {
      dmRunScript.sdsScript.CommandText := sSQL;
      dmRunScript.sdsScript.ExecSQL(True);
    }
      dmRunScript.sqlqScript.SQL.Text := sSQL;
      dmRunScript.sqlqScript.ExecSQL(True);
    end;
    
    end.