unit2.pas

来自「delphi自动出题系统源代码,有兴趣的可以来看看！」· PAS 代码 · 共 72 行

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBCtrls, StdCtrls, Buttons, Grids, DBGrids, Db, DBTables;

type
  Tresultform = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  resultform: Tresultform;

implementation

{$R *.DFM}

procedure Tresultform.BitBtn2Click(Sender: TObject);
begin
     close;
end;

procedure Tresultform.BitBtn1Click(Sender: TObject);
var
      strText:string;
      iCounter:integer;
begin
    strText:='';
    for iCounter:=0 to query1.sql.count-1 do
    strText :=strText+query1.sql[iCounter];
    messagedlg('正在执行的查询是：'+#10+#10+strText,
    mtinformation,[mbOK],0);
    

end;

procedure Tresultform.SpeedButton1Click(Sender: TObject);
var
      strText:string;
      iCounter:integer;
begin

    strText:='';
    for iCounter:=0 to query1.sql.count-1 do
    strText :=strText+query1.sql[iCounter];
    messagedlg('正在执行的查询是：'+#10+#10+strText,
    mtinformation,[mbOK],0);
end;

procedure Tresultform.SpeedButton2Click(Sender: TObject);
begin
   close;
end;

end.