unit3.pas

本文件为使用Delphi开发的学生信息管理系统,演示了如何使用BDE来开发数据库应用程序!

unit Unit3;

interface

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

type
  TfrmMaint = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMaint: TfrmMaint;

implementation

uses dm3; //引用数据模块单元datamodule3

{$R *.dfm}

//在组合框中添加students别名下的所有数据表
procedure TfrmMaint.FormActivate(Sender: TObject);
var
  listtables:tstringlist;
begin
  combobox1.Items.Clear;
  listtables:=tstringlist.Create;
  //通过session对象取得数据表名，表名存储在tstrings对象中
  datamodule3.Session1.GetTableNames('students','',false,false,listtables);
 //将所有该别名下的数据表名添加到组合框中
  combobox1.Items.AddStrings(listtables);
  combobox1.text:=combobox1.Items[0];
end;

//执行维护，也就是激活数据表，在dbgrid组件中显示该表详细信息
//然后通过导航条既可执行删除、添加等操作
procedure TfrmMaint.ComboBox1Change(Sender: TObject);
begin
   datamodule3.tblmaint.Close;
   datamodule3.Tblmaint.TableName:=combobox1.Text+'.db';
   datamodule3.tblmaint.Active:=true;
end;

end.