Question

delphi中的listbox的问题

比如listbox中显示出一个数据库里的很多表，像
table1
teble2
teble3
teble4
我如何使得选中teble1后，就只在table1的表中生成一列11位代码，
选中table2后就在table2表中生成一列11位代码，
不选中的不在那个表中生成代码，如何操作呢？谢谢。。。
就是生成11位代码，不是往里面手动加，是让它自动加1，然后生成到表的最后一行

Answer 1

//获取最大的11位代码
function TForm1.getMaxCode(sTblName:String):String;
begin
With self.ADOQuery1 do
begin
close;
sql.text:='select max(11位代码列名称) as maxValue from '+sTblName;
open();
result:=FieldByName('maxValue ').asInteger+1;
end
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
sql,
sTableName:String;
begin
//在这个事件中写代码

with (Sender As TListBox) do
sTableName:=Items[itemIndex];

//获取最大11为代码加1，然后插入
sql:='insert into '+sTableName+'(field) values(getMaxCode('+sTableName+'))';
self.ADOCommand1.CommandText:=sql;
self.ADOCommand1.Execute;

end;

Answer 2

这个最好看看书，listbox我用得不多，不是很清楚。
有一本书很好：北京邮电大学出版社出的书，十分详细。
或者可以问问我的朋友：photoszzt@yahoo.cn