基于Delphi7的圖書資訊管理系統 修改密碼 應該怎么做到
uj5u.com熱心網友回復：
資料庫是 SQL server 2000uj5u.com熱心網友回復：
你這么水，你家里人知道嗎？uj5u.com熱心網友回復：
頂你uj5u.com熱心網友回復：
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * from User Where UserName=:UserName AND PassWord=:PassWord');
ADOQuery1.Parameters.Items[0].Value := Edit1.Text;
ADOQuery1.Parameters.Items[1].Value := Edit2.Text;
ADOQuery1.Open;
if ADOQuery1.RecordCount >0 then begin
ADOQuery1.FieldByName('PassWord').AsString := Edit3.Text;
Showmessage('密碼修改成功！');
end else begin
Showmessage('用戶名或密碼錯誤，請確認后重新輸入！');
end;
end;
uj5u.com熱心網友回復：
你這么水，你家里人知道嗎？uj5u.com熱心網友回復：
樓代碼有很大漏洞喔！uj5u.com熱心網友回復：
4樓！
如果查詢有多條記錄呢？
uj5u.com熱心網友回復：
ADOQuery1.Edit;ADOQuery1.FieldByName('PassWord').AsString := Edit3.Text;
ADOQuery1.Post;
uj5u.com熱心網友回復：
這個也應該加上
uj5u.com熱心網友回復：
呃呃，就一個簡單的例子，用戶名肯定是唯一的
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/72901.html
標籤：數據庫相關
上一篇：借鑒網上寫的DBDateTime控制元件，使用這個控制元件運行程式的問題
下一篇：SFTP