使用CreateTable方法建立“人员简要情况”数据库表

procedure TForm1. CreateTableBtnClick(Sender: TObject)；
begin
if not RenYuan.Exists then begin
//判别Table1组件的TableName属性指定的表是否存在，如果存在结束建表
    with RenYuanTable do begin
Active := False；
//首先将表的Active属性设置成False，否则无法建表
DatabaseName := 'DBDEMOS'；
//指定将要建立数据库的类型，如ORACLE、Foxbase、Paradox等之一
TableType := ttParadox；
//此处建立Paradox表
TableName := 'RenYuan'；
//指出将要建立的数据库表名
with FieldDefs do begin
//该语句定义表中所有的字段
      Clear；
      with AddFieldDef do begin
      //该语句描述第一个字段名（姓名），数据类型为字符串，长度为8个字节
        Name := '姓名'；
        DataType := ftString；
        Size := 8；
        Name := '学历'；
        DataType := ftString；
        Size := 10；
      with AddFieldDef do begin
        Name := '籍贯'；
        DataType := ftString；
        Size := 30；
      with AddFieldDef do begin
        Name := '部门'；
        DataType := ftString；
        Size := 26；
      with AddFieldDef do begin
        Name := '职务'；
        DataType := ftString；
        Size := 12；
      with AddFieldDef do begin
      //该语句描述年龄字段，数据类型为整数，数据不能为空
        Name := '年龄'；
        DataType := ftInteger；
        Required := True；
      end；
    end；
    //下面定义表的索引
with IndexDefs do begin
//该语句定义表的索引
      Clear；
      with AddIndexDef do begin
        Name := ''；
        //由于该表是Paradox，第一个索引为主索引，所以无须指出索引名
        Fields := '姓名'；
        Options := [ixPrimary]；
        // 指出表的索引类型
      end；
      with AddIndexDef do begin
      //该语句定义表的第二个索引
        Name := 'Fld2Indx'；
        Fields := '籍贯'；
        Options := [ixCaseInsensitive]；
      end；
    end；
CreateTable；
//调用Ttable组件的CreateTable方法，完成数据库表的建立
    end；
    end；
    end；