unit_sql.pas

传奇3SQL数据查询工具 可查询帐号数据库跟角色数据库的信息

unit Unit_SQL;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Grids, DBGrids, DB, ADODB;

type
  TFORM_SQL = class(TForm)
    GroupBox1: TGroupBox;
    StatusBar1: TStatusBar;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    ComboBox1: TComboBox;
    Label7: TLabel;
    ComboBox2: TComboBox;
    Label8: TLabel;
    ComboBox3: TComboBox;
    Edit5: TEdit;
    Label9: TLabel;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    Label10: TLabel;
    DataSource1: TDataSource;
    ADOConn: TADOConnection;
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FORM_SQL: TFORM_SQL;

implementation

{$R *.dfm}

procedure TFORM_SQL.Button1Click(Sender: TObject);
begin
   combobox1.Items.Clear;
   combobox2.Items.Clear;
   adoconn.Connected :=false;
   ADOConn.ConnectionString:='Provider=SQLOLEDB.1;Password='+edit4.Text+';Persist Security Info=True;User ID='+edit2.Text+';Initial Catalog='+edit1.Text+';Data Source='+edit3.Text;
   try
     adoconn.Connected:=true;
   except
     Application.MessageBox('连接数据库失败!!','错误',MB_OK+MB_ICONERROR);
     exit;
   end;
     adoconn.GetTableNames(combobox1.Items,false);
     combobox1.ItemIndex:=0;
end;

procedure TFORM_SQL.ComboBox1Change(Sender: TObject);
var
i:Integer;
begin
    combobox2.items.Clear;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select * from '+combobox1.Text );
    adoquery1.open;
    if adoquery1.FieldCount > 0 then
    begin
        for i:=0 to adoquery1.FieldCount-1 do
         begin
             combobox2.Items.Add(adoquery1.Fields[i].FieldName);
         end;
         combobox2.ItemIndex:=0;
    end;
end;

procedure TFORM_SQL.Button2Click(Sender: TObject);
begin
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('select * from  '+combobox1.Text +' where '+combobox2.Text +combobox3.Text +''''+edit5.Text+'''' );
//     showmessage('select * from  '+combobox1.Text +' where '+combobox2.Text +combobox3.Text +edit5.Text );
     adoquery1.Open;
end;

end.