unit1.pas

1.Session获取BDE信息 2.可视化创建数据表格 3.SQL语句的使用 4.“一对多表”的设计 5.文本和数据记录的转换 6.ADO的网络调用 7.多媒体数据库的使用 8.IntraWeb技术

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  StdCtrls, Buttons,DBTables;//, DB; (只要有DBTables就行了)

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button2: TButton;
    Button1: TButton;
    Button4: TButton;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var DatabaseNames:TStringList;
Begin
 DatabaseNames := TStringList.Create;
try
  Session.GetDatabaseNames(DatabaseNames);   //获取BDE中的数据库名
  ListBox1.Items := DatabaseNames;           //显示在列表框中
finally
 DatabaseNames.Free;                          //清空字符列表
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var  DriverParams:TStringList;
begin
 DriverParams := TStringList.Create;
try
  Session.GetDriverParams('IntrBase', DriverParams); //获取指定驱动器信息
  ListBox1.Items := DriverParams;                    //显示在列表框中
finally
  DriverParams.Free;                                 //清空字符列表
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
Var fieldnames:TStringList;
begin
 fieldnames:= TStringList.Create;
try
 session.GetFieldNames('DBDEMOS','employee.db',fieldnames);//获取指定表格的字段信息
 ListBox1.Items:=fieldnames;       //显示在列表框中
finally
  fieldnames.Free;  //清空字符列表
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var  TableNames:TStringList;
begin
 TableNames := TStringList.Create;
try
 Session.GetTableNames('DBDEMOS', '*.db',False, False,TableNames);  //获取指定数据库中的表格名
 ListBox1.Items:=TableNames;    //显示在列表框中
finally
  TableNames.Free;    //清空字符列表
end;
end;
end.