在做學生選課管理的課程設計ListView1中用滑鼠選中了一行
然后程式中將選中的一行洗掉
求程式~~~
同時還要將access中的資料也刪掉~
procedure TForm10.Button2Click(Sender: TObject); //(就是這里不會，要洗掉選中項同時把呼叫的資料庫里的一項也刪掉)
begin
？？？？？？？？？？？？？？？
end;
procedure TForm10.Button4Click(Sender: TObject); //(這里是根據‘’課程編號‘‘這一項篩選洗掉那一行，同時洗掉access資料庫中的資訊)
begin
？？？？？？？？？？？？
end;
End.
求大神~~~
uj5u.com熱心網友回復：
vari : integer;
begin
for i := ListView1.Items.Count -1 downto 0 do
if ListView1.Items[i].Selected then
with DataModule9.ADOQuery1 do
begin
SQL.Clear;
SQL.Add('delete * from 學生選課 where 學號=:學號');
Parameters.ParamByName('學號').Value := ListView1.Items[i].Caption;
ExecSQL;
ListView1.Items.Delete(i);
application.MessageBox('資訊洗掉成功！','提示',mb_ok);
end;
end;
這是通過“課程編號“篩選資訊并洗掉的的程式，但是沒有用
求修改
uj5u.com熱心網友回復：
用過這個功能，等會幫你看我的代碼uj5u.com熱心網友回復：
vari : integer;
begin
for i := ListView1.Items.Count -1 downto 0 do
if ListView1.Items[i].Selected then
begin
with DataModule9.ADOQuery1 do
begin
SQL.Clear;
SQL.Add( 'delete from 學生選課 where (學號 = " ‘ + ListView1.Items.Item[i].Caption +'")');
ExecSQL;
ListView1.Items.Item[i].Delete;
showmessage('串列資料洗掉成功！');
end;
break;
end;
end;
uj5u.com熱心網友回復：
為什么用ListView？用DBGrid不是更方便？uj5u.com熱心網友回復：
這樣修改：試試看
procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
sSQL : string;
begin
for i := ListView1.Items.Count -1 downto 0 do
if ListView1.Items[i].Selected then
begin
with ADOQuery1 do
begin
sSQL:='delete from 學生選課 where (學號 ='+#39+ListView1.Items.Item[i].Caption+#39+')';
SQL.Clear;
SQL.Add(sSQL);
ExecSQL;
ListView1.Items.Item[i].Delete;
// showmessage('串列資料洗掉成功！');
end;
end;
end;
uj5u.com熱心網友回復：
根據key洗掉資料庫中資料重繪listview
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/74583.html
標籤：語言基礎/算法/系統設計
上一篇：字串自動換行函式，大家幫看一下是哪有問題，為什么總是亂碼了？？？？？？？？？？
下一篇：delphi 三層socket 查詢報錯insufficient memory for this operation