大家来看一看吧，关于建立数据库的问题。。(100分)

我用这种方法来进行建立数据库
第一次建好的数据库能够看到在LISTBOX列表中，然后再用建库命令吧，再去LISTBOX看吧
只能看第一个第二个却不能显示出来，为什么呀？
//初始化

procedure TMainForm.FormCreate(Sender: TObject);
begin

Database1.Params.Values['USERNAME']:='lhc';
Database1.Params.Values['PASSWORD']:='lhc';
Database1.LoginPrompt:=False;
Database1.DatabaseName:='中间库';
Database1.AliasName:='中间库';
Session.GetDatabaseNames (ComboBox1.Items);
ComboBox1.Text := '中间库';
ComboBox1Change (self);
ListBox1.ItemIndex := 0;
ListBox1Click (self);
end;
//如果COMBOX1CHANGE，则在LISTBOX1中显示出'COMBOBOX1.TEXT'所指向的别名库中的数据
表，我想这也就是第一次只所以能显示出来数据表名的原因吧。错了吗？

procedure TMainForm.ComboBox1Change(Sender: TObject);
begin
Session.GetTableNames (ComboBox1.Text, '',
True, False, ListBox1.Items);
end;

//显示出来才能打开它并进行一些操作
procedure TMainForm.ListBox1Click(Sender: TObject);
begin
Table1.Close;
Table1.DatabaseName := ComboBox1.Text;
Table1.Tablename :=
Listbox1.Items [Listbox1.ItemIndex];
Table1.Open;
Caption := Format ('班级库名: %s - %s',
[Table1.DatabaseName,
Table1.Tablename]);

先区分库,database和表table
你的库名好像一直没变,'中间库'吧

同意

procedure TMainForm.ComboBox1Change(Sender: TObject);begin
Session.GetTableNames (ComboBox1.Text, '', True, False, ListBox1.Items);
end;
。。。。

这不是变了吗？
否则怎么会当第一次建立数据库时，用打开方法能够在列表中找到呢？这时找的时候是在
另一个库名学生库中的呀。也就是选了combobox1之后，这时不就发生ComboBox1Change了吗
之后
Table1.DatabaseName := ComboBox1.Text
这不就变了吗/
请详细说一下吧。谢了！

你是说
Session.GetTableNames (ComboBox1.Text, '', True, False, ListBox1.Items);
使之改变,可这个事件是在combobox1变了才会发生呀.

接受答案了.