写数据库的朋友，看看我的句子好吗？(100分)

procedure TForm1.Button1Click(Sender: TObject);
begin
createtable('c:/','ttjbiao1',ttdefault);
with table1 do
begin
active:=false;
databasename:='dedemos';
tablename:='ttjbiao1.db';
tabletype:=ttdefault;
end;
datasource1.DataSet :=table1;
dbgrid1.DataSource :=datasource1;
table1.active:=true;
end;

procedure TForm1.createtable(dbname, tblname: string; tbltype: ttabletype);
begin
tbl:=ttable.Create(self);
with tbl do
begin
active:=false;
databasename:=dbname;
tablename:=tblname;
tabletype:=tbltype;
with fielddefs do
begin
clear;
add('worknum',ftstring,10,true);
add('workname',ftstring,10,true);
add('ac',ftstring,3,false);
add('am',ftstring,3,false);
add('ljm',ftstring,3,true);
add('ljc',ftstring,3,true);
end;
CreateTable;
end;
//提示为‘an error occurred while attempting to initialize the bde’
帮我改改 ：）

把TForm1.Button1Click中的databasename:='dedemos';
改成databasename:='c:/';
或把createtable('c:/','ttjbiao1',ttdefault);
改成createtable('dedemos','ttjbiao1',ttdefault);
也可；
总之建表时的databasename与用表时的databasename要相同。

把源程序给我发过来，我式试。
tiansan@sina.com

你的BDE连接设置不对，请看看控件的设置。

这么麻烦，直接用query写一个sql，直接建表不就得了，
前提是把bde配好

多人接受答案了。