xtwh.pas

本软件应用了Delphi提供的BDE数据库引擎。本系统为政教管理系统

unit xtwh;

interface

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

type
  Tfrmxtwh = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmxtwh: Tfrmxtwh;

implementation
    uses dm3;
{$R *.dfm}

{procedure Tfrmxtwh.FormActivate(Sender: TObject);
var
listtables:tstringlist;
begin
   combobox1.Items.Clear;
   listtables:=tstringlist.Create;
   //session1.GetTableNames('xsgl','',false,false,listtables);
   combobox1.Items.AddStrings(listtables);
   combobox1.Text:=combobox1.Items[0];
end;  }

procedure Tfrmxtwh.ComboBox1Change(Sender: TObject);
begin
table1.Close;
table1.TableName:=combobox1.Text+'.db';
table1.Active:=true;
end;

procedure Tfrmxtwh.FormActivate(Sender: TObject);
{var
listtables:tstringlist;  }
begin
  {DataModule1 := TDataModule1.Create(Application);
  combobox1.Items.Clear;
  listtables:=tstringlist.Create; }
  session.GetTableNames('xsgl','',false,false,combobox1.Items);
  //combobox1.Items.AddStrings(listtables);
  combobox1.Text:=combobox1.Items[0];
end;

end.