command.pas

SQL远程管理程序的源码,DELPHI做的.不需要控件

unit Command;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, DBGridEh, SynEdit, SynMemo,
  SynEditHighlighter, SynHighlighterSQL, DB, ADODB;

type
  TfrmCommand = class(TForm)
    Qry1: TADOQuery;
    DataSource1: TDataSource;
    SynSQLSyn1: TSynSQLSyn;
    Memo1: TSynMemo;
    Splitter1: TSplitter;
    DBGridEh1: TDBGridEh;
    Panel1: TPanel;
    Button1: TButton;
    procedure Memo1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCommand: TfrmCommand;

implementation

uses Connect;

procedure OpenSQL(Aquery: TADOQuery; Command: string);
begin
  with AQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add(Command);
    Open;
  end;
end;

procedure ExecSQL(Aquery: TADOQuery; Command: string);
begin
  with AQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add(Command);
    ExecSQL;
  end;
end;
{$R *.dfm}

procedure TfrmCommand.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if KEY = VK_F5 then
  begin
    Button1Click(Sender);
  end;
end;

procedure TfrmCommand.Button1Click(Sender: TObject);
var
  S: string;
  I: integer;
begin
  S := Trim(Memo1.Lines.Text);
  if (UpperCase(Copy(S, 1,6)) = 'SELECT') OR
     (UpperCase(Copy(S, 1,7)) = 'SP_HELP') OR
     (UpperCase(Copy(S, 1,5)) = 'EXEC(') then
     begin
       DBGridEh1.DataSource := DataSource1;
       OpenSQL(Qry1, S);
       for I := 0 to Qry1.FieldCount - 1 do
       DBGridEh1.Columns[I].Width := 80;
     end
     else
     begin
       DBGridEh1.DataSource := nil;
       ExecSQL(Qry1, S);
       MessageDlg('Executed successfully', mtInformation, [MBOK], 0);
     end;
end;

procedure TfrmCommand.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

end.