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;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSQL: TFrmSQL;

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

procedure TFrmSQL.Button1Click(Sender: TObject);
var
cSQL:string;
begin
  cSQL:=Trim(memoSQL.Text);
  with DataHJZL do
  BEGIN
    AdoQueryTMP.Close;
    AdoQueryTMP.SQL.Clear;
    AdoQueryTMP.SQL.Add(cSQL);
    AdoQueryTMP.Open ;
    FrmSQL.Caption:='SQL查询  共 '+IntToStr(AdoQueryTMP.RecordCount)+'个记录';
  end;
end;

procedure TFrmSQL.FormActivate(Sender: TObject);
begin
begin   //窗口激活时绑定数据，处理相应操作
  FrmMain.ToolButtonPY.Visible:=False;
  WITH FrmMain.DBNavigatorMain DO
  BEGIN
    Visible:=True;
    DataSource:=DataHJZL.DSTMP;
    VisibleButtons:=[nbFirst,nbPrior,nbNext,nbLast]; //要包含DBCtrls
  END;
end;

end;

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

procedure TFrmSQL.Button2Click(Sender: TObject);
var
cSQL:string;
begin
  cSQL:=Trim(memoSQL.Text);
  with DataHJZL do
   BEGIN
    AdoCommandTMP.CommandText:=cSQL;
    AdoCommandTMP.Execute();
   END;
end;

procedure TFrmSQL.Button3Click(Sender: TObject);
begin
   WriteToExcel(DataHJZL.ADOQUERYTMP, 'tmp', '导出数据');
end;

end.