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, DBTables, DB, StdCtrls, DBCtrls, Grids, DBGrids;

type
  TForm1 = class(TForm)
    Table1: TTable;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Button2: TButton;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  AliasNames:TStringList;  //字符串列表变量
  answer:Integer;
begin
  AliasNames:=TStringlist.Create;
  {-----------------数据库别名的创建和配置-------------------------------}
  Session.GetAliasNames(AliasNames);  //取得别名列表
  if (AliasNames.IndexOf('朋友信息')>-1) then
   Begin
   ShowMessage('"朋友信息"已经存在，请退出');
   Button2.Enabled:=True;
  end;

  if (AliasNames.IndexOf('朋友信息')=-1) then  //判断别名是否存在
  begin
  answer:=Application.MessageBox('"朋友信息"不存在，要创建吗？','BDE提示',mb_OKCancel);
  if  answer=IDCANCEL then
   begin
    AliasNames.Free;
    Exit;
    end;
  Session.AddStandardAlias('朋友信息','e:\','Paradox'); //
  Session.SaveConfigFile;                //BDE配置文件存盘
  end;
  AliasNames.Clear;      //清除别名称列表
  {-----------------数据表格的创建------------------------}
  Session.GetTableNames('朋友信息','',False,False,AliasNames);//获取数据库下的表格信息
  if (AliasNames.IndexOf('mateInfo')=-1)  then              //判断表格是否存在
  begin
    answer:=Application.MessageBox('"朋友信息"中不存在表格mateInfo,现在创建吗？','表格信息窗口',mb_OKCancel);
    if answer=IDCANCEL then
     begin
      AliasNames.Free;
      Exit;
     end;
    with table1 do
     begin
      Active:=false;
      DatabaseName:='朋友信息';    //数据库别名
      TableName:='mateInfo';       //表格名
      TableType:=ttParadox;        //数据库类型
      with FieldDefs do
       begin      //增加字段
        Clear;
        Add('姓名',ftString,10,False);  //姓名
        Add('年龄',ftString,10,False);  //年龄
        Add('省份',ftString,8,False);   //省份
        Add('收入',ftFloat,0,False);    //收入
      end;
      with IndexDefs do
       begin      //增加索引
       Clear;    //姓名字段建立主索引
       Add('matename','姓名',[ixPrimary,ixUnique]);
      end;
      CreateTable;   //创建表格
    end;
  end ;
  AliasNames.free;         //释放变量AliasNames
  Button2.Enabled:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Table1.DatabaseName:='朋友信息';
 Table1.TableName:='mateinfo';
 Table1.Active:=true;
 end;
end.