通用数据库查询工具

delphi + ado 实现通用数据库查询

 unit UnitMain;

interface

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

type
  TFrmMain = class(TForm)
    Panel1: TPanel;
    SynSQLSyn1: TSynSQLSyn;
    btnNew: TButton;
    Panel2: TPanel;
    Panel3: TPanel;
    Splitter1: TSplitter;
    SynEdit1: TSynEdit;
    Splitter2: TSplitter;
    DBGridEh1: TDBGridEh;
    lstTables: TListBox;
    Panel4: TPanel;
    edtFind: TEdit;
    Label1: TLabel;
    AdoCon: TADOConnection;
    qryData: TADOQuery;
    btnQuery: TButton;
    DataSource1: TDataSource;
    DBMemo1: TDBMemo;
    sSkinManager1: TsSkinManager;
    Splitter4: TSplitter;
    Panel5: TPanel;
    Panel6: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure btnNewClick(Sender: TObject);
    procedure lstTablesDblClick(Sender: TObject);
    procedure btnQueryClick(Sender: TObject);
    procedure DBGridEh1CellClick(Column: TColumnEh);
    procedure edtFindChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

uses
  AdoConEd;

{$R *.dfm}

procedure AutoSizeColDBGrid(DBGrid: TDBGridEh);
var
  i: integer;
begin
  for i := 0 to DBGrid.Columns.Count - 1 do
  begin
    DBGrid.Columns[i].OptimizeWidth;
  end;
end;

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  self.Caption := Application.Title;
end;

procedure TFrmMain.btnNewClick(Sender: TObject);
begin
  AdoCon.Close;
  if EditConnectionString(AdoCon) then
  begin
    AdoCon.GetTableNames(lstTables.Items);
  end;
end;

procedure TFrmMain.lstTablesDblClick(Sender: TObject);
begin
  SynEdit1.Lines.Add('select * from ' + lstTables.Items.Strings[lstTables.ItemIndex]);
end;

procedure TFrmMain.btnQueryClick(Sender: TObject);
var
  sql: string;
begin
  if Trim(SynEdit1.SelText) = '' then
  begin
    sql := SynEdit1.Text;
  end
  else
  begin
    sql := SynEdit1.SelText;
  end;
  if Trim(sql) = '' then
  begin
    SynEdit1.SetFocus;
    Application.MessageBox('查询语句不能为空！', '错误', MB_OK + MB_ICONERROR);
    Exit;
  end;
  qryData.Close;
  qryData.SQL.Clear;
  DBMemo1.DataField := '';
  qryData.SQL.Text := sql;
  try
    qryData.Open;
  except
    on E: Exception do
    begin
      Application.MessageBox(PAnsiChar(E.Message), '错误', MB_OK + MB_ICONERROR);
    end;
  end;
  DBGridEh1CellClick(DBGridEh1.Columns.Items[0]);
  AutoSizeColDBGrid(DBGridEh1);
end;

procedure TFrmMain.DBGridEh1CellClick(Column: TColumnEh);
begin
  if qryData.Active then
  begin
    try
      DBMemo1.DataField := Column.Field.FieldName;
    except

    end;
  end;
end;

procedure TFrmMain.edtFindChange(Sender: TObject);
var
  i: Integer;
  lst: TStrings;
begin
  lstTables.Clear;
  if Trim(edtFind.Text) = '' then
  begin
    AdoCon.GetTableNames(lstTables.Items);
    Exit;
  end;
  lst := TStringList.Create;
  AdoCon.GetTableNames(lst);
  try
    for i := 0 to lst.Count - 1 do
    begin
      if CompareStr(lst.Strings[i], edtFind.Text) > 0 then
      begin
        lstTables.Items.Add(lst.Strings[i]);
      end;
    end;
  finally
    FreeAndNil(lst);
  end;
end;

end.

下载地址：https://download.csdn.net/download/qq_61120185/85251371