怎样在 Delphi 中建立一个新的数据库

[Z_Magic]

怎样在 Delphi 中建立一个新的数据库,如建立一个 'aaa.db' 并在其中新建一个
索引,如 'One' 然后在其中加入数据?

[sanjianxia]

sql可以的。

[no24wgh]

aaa.db只是一个数据表，数据库要利用数据库引擎建立，然后再用database引用其别名，然后再用一个数据控件如query建表和索引。

[sweihua]

先加一个TSession控件

try
ap:=TstringList.Create;
Session1.Sessionname:='session1';
Session1.GetAliasNames(ap);
if ap.IndexOf('album just for XY')=-1 then
begin
Session1.AddStandardAlias('album just for XY',S+'\pic','Paradox');
Session1.Saveconfigfile;
end;
ap.Clear;

[windindance]

table.CreateTable;

[sweihua]

以上是建库，以下是建表和索引：
With Table1 do begin
active:=false;
databasename:='album just for XY';
Tablename:='picturex';
TableType:=ttParadox;
With FieldDefs do begin
clear;
Add('Pcode',ftInteger,0,true);
add('Pway',ftstring,100,true);
add('Pshow',ftstring,10,false);
add('Psort',ftstring,10,false);
add('pexplain',ftstring,30,false);

end;
with Indexdefs do
begin
clear;
add('Pkey1','Pcode',[ixprimary,ixunique]);
// add('Pkey2','Pway',[ixCaseInsensitive,ixunique]);
end;
Session1.getTablenames('album just for XY','',False,False,ap);
if ap.IndexOf('picturex')=-1 then
begin
CreateTable;
end;
end;
ap.free;
except
end;

[silichip]

利用一个table控件的createtable可创建
table1.active:=false;
table1.tablename:='temp.dbf';
table1.databasename:='***';
with tabel1.fielddefs do
begin
add('字段名',ftfloat,0);
...
end;
table1.createtable;
你可以利用软件的帮助功能