unit3.pas

万能数据库查询客户端源码

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm3 = class(TForm)
    GroupBox1: TGroupBox;
    ListBox1: TListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
  if (listbox1.Count=0) or (listbox1.ItemIndex=-1)  then exit;
  Form1.Memo1.Lines.Add(listbox1.Items.Strings[listbox1.ItemIndex]);
  close;
end;

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TForm3.FormShow(Sender: TObject);
var ts1:Tstrings;i:integer;
begin
  ts1:=TStringlist.Create;
  Form1.ADOConnection1.GetTableNames(ts1);
  listbox1.Clear;
  for i := 0 to ts1.Count -1 do
    listbox1.Items.Add(ts1.Strings[i]);
  ts1.Free;
end;

procedure TForm3.ListBox1DblClick(Sender: TObject);
begin
  if (listbox1.Count=0) or (listbox1.ItemIndex=-1)  then exit;
  Form1.Memo1.Lines.Add(listbox1.Items.Strings[listbox1.ItemIndex]);
  close;
end;

end.