unit_main.pas

Oracle数据库浏览Deliphi实现

unit Unit_Main;

interface

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

type
  TForm1 = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label6: TLabel;
    Edit6: TEdit;
    DBNavigator1: TDBNavigator;
    Label1: TLabel;
    Edit1: TEdit;
    Edit7: TEdit;
    CheckBox1: TCheckBox;
    ComboBox1: TComboBox;
    Label7: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.Open;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  try
    ADOQuery1.Close;
    if CheckBox1.Checked then
      ADOQuery1.ConnectionString := Format('Provider='+ComboBox1.Text+';'
          + 'Password=%s;Persist Security Info=True;'
          + 'User ID=%s;Data Source=%s',
          [Edit5.Text, Edit4.Text, Edit7.Text])
    else
      ADOQuery1.ConnectionString := Format('Provider='+ComboBox1.Text+';'
            + 'Password=%s;Persist Security Info=True;'
            + 'User ID=%s;Data Source=''(DESCRIPTION'
            + '=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)'
            + '(HOST=%s)(PORT=%d)))'
            + '(CONNECT_DATA=(SID = %s)))''',
            [Edit5.Text, Edit4.Text, Edit1.Text,
            StrToInt(Edit2.Text), Edit3.Text]);
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('SELECT * FROM ' + Edit6.Text);
    ADOQuery1.Open;
  except
    Application.MessageBox('连接数据库失败！', '提示');
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.ItemIndex := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Looper:Integer;
  strSQL : String;
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  strSQL := Memo1.Lines[0];
  for Looper:=1 to Memo1.Lines.Count-1 do
    strSQL := strSQL + ' ' + Memo1.Lines[Looper];
  ShowMessage(strSQL);
  ADOQuery1.SQL.Add(strSQL);
  ADOQuery1.Open;
end;

end.