runsql.~pas

用delphi编的企业人事管理系统

unit RUNSQL;

interface

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

type
  TFrmSQL = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    MemoSQL: TMemo;
    ButtonSELECT: TButton;
    Button1: TButton;
    Label1: TLabel;
    procedure ButtonSELECTClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure MemoSQLChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSQL: TFrmSQL;

implementation
USES MainData,Main,Func, ygzlb;
{$R *.dfm}

procedure TFrmSQL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    FrmMain.DBNavigatorMain.DataSource:=datarenshi.DataSource1;
    Action:=caFree ; //真正关闭MDI子窗口而不是最小化
end;


procedure TFrmSQL.MemoSQLChange(Sender: TObject);
var cSQL:String;
begin
  cSQL:= trim(MemoSQL.Text);
  cSQL:= copy(MemoSQL.Text,1,pos(' ',csql)-1);  //截取第一个空格前的字符
  cSQL:=AnsiUpperCase(CSQL);
  IF POS('SELECT',CSQL)>0 THEN
  ButtonSELECT.Enabled:=TRUE
  else
  buttonselect.Enabled:=false;
end;

procedure TFrmSQL.Button1Click(Sender: TObject);
begin
 ButtonSELECT.Click;
 quickreport1.Preview; //报表预览
end;

procedure TFrmSQL.ButtonSELECTClick(Sender: TObject);
var
cSQL:string;
begin
  cSQL:=Trim(memoSQL.Text);
  with Datarenshi do
  BEGIN
    AdoQuery1.Close;
    AdoQuery1.SQL.Clear;
    AdoQuery1.SQL.Add(cSQL);
    AdoQuery1.Open ;
    frmsql.DBGrid1.DataSource:=datasource5;
   end;
end;

procedure TFrmSQL.FormCreate(Sender: TObject);
begin
 WITH FrmMain.DBNavigatorMain DO
  BEGIN
    Visible:=True;
    DataSource:=Datarenshi.DataSource5;
    VisibleButtons:=[nbFirst,nbPrior,nbNext,nbLast]; //要包含DBCtrls
  END;
end;

end.