ustdform.pas

来自「ACCESS 数据库管理工具」· PAS 代码 · 共 96 行

unit uStdForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  uBaseForm, ExtCtrls, StdCtrls, Grids, DBGrids, DB, ADODB, GridsEh, DBGridEh,
  RzPanel, RzSplit;

type
  TStdForm = class(TBaseForm)
    ds1: TDataSource;
    qry1: TADOQuery;
    RzSizePanel1: TRzSizePanel;
    mmoSql: TMemo;
    dbgrd: TDBGridEh;
    procedure FormCreate(Sender: TObject);
    procedure dbgrdTitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure DoExecSQL; override;
    procedure DoExport; override;
    procedure DoSelectRow; override;
  end;

var
  StdForm: TStdForm;

implementation
uses uPublic, uFrmShowCxGrdRow, UntData;
{$R *.dfm}
 { TStdForm }

procedure TStdForm.dbgrdTitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
  inherited;
  DBGridEHTitleClick(Column, qry1);
end;

procedure TStdForm.DoExecSQL;
var
  SqlText: string;
begin
  SqlText := Trim(mmoSql.Text);
  dbgrd.Visible := False;
  qry1.Close;
  try
    if UpperCase(Copy(SqlText, 1, 6)) = 'SELECT' then
    begin
      RzSizePanel1.Align := alBottom;
      dbgrd.Align := alClient;
      dbgrd.Visible := True;
      RzSizePanel1.Height := Height div 3;
      qry1.SQL.Text := SqlText;
      qry1.Open;
    end
    else
    begin
      DataForm.RunSql(SqlText);

      RzSizePanel1.Align := alClient;
    end;
  except
    Screen.Cursor := crDefault;
    Application.MessageBox('没有执行成功,请检查SQL语句！', '提示', MB_OK +
      MB_ICONSTOP);
    abort;
  end;
  inherited;
end;

procedure TStdForm.DoExport;
begin
  inherited;
end;

procedure TStdForm.DoSelectRow;
begin
  inherited;
end;

procedure TStdForm.FormCreate(Sender: TObject);
begin
  inherited;
  dbgrd.Visible := False;
  dbgrd.Align := alNone;
  RzSizePanel1.Align := alClient;
end;

end.