unit3.pas.~4~

来自「万能数据库查询客户端源码」· ~4~ 代码 · 共 43 行

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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

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;

end.