local1.~pas

Delphi6分布式开发例程8 )

unit local1;

interface

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




type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    DBNavigator1: TDBNavigator;
    ListBox1: TListBox;
    MainMenu1: TMainMenu;
    Options1: TMenuItem;
    ShowTableName1: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    Database1: TDatabase;
    procedure Exit1Click(Sender: TObject);
    procedure ShowTableName1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Exit1Click(Sender: TObject);
begin
        close;
end;

procedure TForm1.ShowTableName1Click(Sender: TObject);
begin
        database1.GetTableNames(listbox1.Items,true);
end;

procedure TForm1.ListBox1Click(Sender: TObject);


var
        i:integer;

begin
        listbox1.MultiSelect:=false;
        for i := 0 to (ListBox1.Items.Count - 1) do
        begin
                if Listbox1.Selected[i] then//select a tablename
                begin
                        table1.Active:=false;
                        table1.TableName:=Listbox1.Items[i];
                        if table1.TableName='animals'//to settle the dbf format
//set the tabletype as default,the default table extension is db not dbf
//so had to settle the *.dbf alonr
                        then table1.TableName:=table1.TableName+'.dbf';
                        table1.Active:=true;
                end;
        end;
end;        
end.