在Delphi中自动检测、建立数据库别名和表格 
procedure TForm1.CreateDBandTable;
var 

strAlias:TStringList;
iAnswer:Integer;

begin

strAlias:=TStringList.Create;
Session.GetAliasNames(strAlias);
if (strAlias.IndexOf('myDB') = -1) then
begin

iAnswer:=Application.MessageBox('数据库不存在，现在创建吗？','信息窗口',MB_OKCANCEL);
if iAnswer = IDCANCEL then
begin

strAlias.Free;
Exit;

end;
Session.AddStandardAlias('myDB' , Path , 'Paradox');
Session.SaveConfigFile;

end;
strAlias.Clear;
Session.GetTableNames('myDB','',False,False,strAlias);
if ( strAlias.IndexOf( tbName) = -1 ) then
begin

iAnswer:=Application.MessageBox('参数表格不存在，现在创建一个？','信息窗口',MB_OKCANCEL);
if iAnswer = IDCANCEL then
begin

strAlias.Free;
Exit;

end;
Table1.Active:=False;
Table1.DatabaseName:='myDB';
Table1.TableName:=tbName;
Table1.TableType:=ttParadox;
Table1.FieldDefs.Clear;
Table1.FieldDefs.Add('Name',ftString,6,False);
Table1.FieldDefs.Add('Sex',ftString,4,False);
Table1.IndexDefs.Clear;
Table1.IndexDefs.Add('Index','Name',[ixPrimary,ixUnique] );
Table1.CreateTable;

end;

end;