如何在DELPHI 中新建一个数据库？

Question

用一个QUERY执行Create Table命令即可在程序中动态创建！
在程序外创建可以通过Database Desktop来创建。

Answer 1

procedure CreateNewDB(dbname,filename,logfilename:string;query:Tquery);
begin
  if query.Active then query.close;
  with query.sql do
  begin
    clear;
    add('create database '+dbname);
    add('on');
    add('primary(name=library_data,');
    add('filename="'+filename+'",');
    add('size=10,');
    add('maxsize=15,');
    add('filegrowth=20%)');
    add('log on');
    add('(name=library_log,');
    add('filename="'+logfilename+'",');
    add('size=3,');
    add('maxsize=5,');
    add('filegrowth=1)');
  end;
  try
    dm_junyao.H_QR_temp.ExecSQL;
  except
    MessageDlg('数据库建立出错！', mtInformation,[mbOk], 0);
    exit;
  end;
end;

Answer 2

对不起，是：
query.ExecSQL;

Answer 3

看你建立那种类型的数据库了，是大型的数据库还是桌面数据库，大型的数据要调用数据的API,如果是桌面的数据库，用BDE中的API就可以了。不知道你要那种类型？