数据库表数据显示到listbox的问题delphi

显示在combobox1和combobox2的代码已经写完（没问题就不列出了）

按确定按钮显示在listbox1和listbox2的代码如下

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
flag : boolean;
begin
with data_M.ADO_bj do
begin
close;
sql.Clear;
sql.Add('select bjdm from bjsz where bjmc='''+bj.Text+'''');
open;
end;
with data_M.ADO_sjd do
begin
close;
sql.Clear;
sql.Add('select sjdm from sjdb where sjd='''+sjd.Text+'''');
open;
end;
with data_M.ADO_gbkm do
begin
close;
sql.Clear;
sql.Add('select kmmc from gbgxqkmb,kskmb where gbgxqkmb.kmdm=kskmb.kmdm and bjdm =:bjdm and sjdm =:sjdm');
parameters.ParamByName('bjdm').Value := data_m.ADO_bj.FieldValues['bjdm'];
parameters.ParamByName('sjdm').Value := data_m.ADO_sjd.FieldValues['sjdm'];
open;
end;
listbox2.Clear;
while not data_m.ADO_gbkm.Eof do
begin
listbox2.Items.add(data_m.ADO_gbkm.FieldValues['kmmc']);
data_m.ADO_gbkm.Next;
end;
with data_M.ADO_km do
begin
close;
sql.Clear;
sql.Add('select kmmc from kskmb');
open;
end;
listbox1.Items.Clear;
while not data_m.ADO_km.Eof do
begin
for i := 0 to listbox2.Items.Count - 1 do
begin
if data_m.ADO_km.FieldByName('kmmc').Value <> listbox2.Items[i] then
begin
listbox1.Items.Add(data_m.ADO_km.FieldValues['kmmc']);
data_m.ADO_km.Next;
end;
end;
end;
end;

问题如下：

with data_M.ADO_gbkm do
begin
close;
sql.Clear;
sql.Add('select kmmc from gbgxqkmb,kskmb where gbgxqkmb.kmdm=kskmb.kmdm and bjdm =:bjdm and sjdm =:sjdm');
parameters.ParamByName('bjdm').Value := data_m.ADO_bj.FieldValues['bjdm'];
parameters.ParamByName('sjdm').Value := data_m.ADO_sjd.FieldValues['sjdm'];
open;
end;

为什么只要这一步筛选就可以显示出来？？

sql.Add('select kmmc from gbgxqkmb,kskmb where gbgxqkmb.kmdm=kskmb.kmdm and bjdm =:bjdm and sjdm =:sjdm'); // 这里的 bjdm =:bjdm and sjdm =:sjdm 是来做什么的

parameters.ParamByName('bjdm').Value := data_m.ADO_bj.FieldValues['bjdm'];
parameters.ParamByName('sjdm').Value := data_m.ADO_sjd.FieldValues['sjdm'];
//这两步代码什么意思 添加数据？？添加到哪里？跟显示数据到listbox有什么关系？

接下来要做的保存是左边的数据往右移动一个数据

比如 大学英语 往右移动到右边的listbox

然后保存到数据数据库中

这步怎么做呢？疑惑

bjdm =:bjdm and sjdm =:sjdm 这是两个变量 下面是给变量赋值

移动到右边 是 listbox2.Items.Add(listbox1.Items[listbox1.itemindex]);

var
i:integer;
begin
for i:=1 to listbox2.Count then
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('insert 表(字段名) values('''+listbox2.Items[i]+''' )');
execsql;
end;
end;

open;//这里是执行查询的意思 就显示是因为之前已经绑定了数据集，只要查询结果一出来，就马上显示了~

bjdm =:bjdm and sjdm =:sjdm

这里是定义了两个变量，用来引用的，

parameters.ParamByName('bjdm').Value := data_m.ADO_bj.FieldValues['bjdm']; parameters.ParamByName('sjdm').Value := data_m.ADO_sjd.FieldValues['sjdm'];

这里就是因用那个了上面定义的变量，然后给他赋值

大学英语向右移的问题比较容易

你将选中的在第一个里边删除，然后在右边添加就行了。

listbox2.items.add(ListBox1.Items.Strings[ListBox1.ItemIndex]);//添加到右边

ListBox1.Items.Delete(ListBox1.ItemIndex);//删除左边

至于保存到数据库这步就由你自己写sql代码执行就行了

with data_M.ADO_gbkm do begin close; sql.Clear; sql.Add('insert into 表 values(....)');//自己添加代码 ExecSQL;