请问关于DBEdit修改数据的几个问题？ |
|
尚未結案
|
|
flysky
一般會員   發表：9 回覆：11 積分：4 註冊：2004-03-25 發送簡訊給我 |
|
|
yachanga
資深會員  發表：24 回覆：335 積分：296 註冊：2003-09-27 發送簡訊給我 |
我的做法: 1. query1.CachedUpdates:=true;
2.
procedure TForm1.Query1BeforePost(DataSet: TDataSet);
begin
query2.SQL.Text:='select * from table where key='''+dbedit1.Text+'''';
query2.Open;
if query2.RecordCount>0 then
begin
showmessage('KEY 值重複');
abort;
end;
end; 3. procedure TForm1.Query1AfterPost(DataSet: TDataSet);
begin
query1.ApplyUpdates;
end; ~悠遊法國號~
|
|
deity
尊榮會員 發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
怎么能让只有当敲回车或者按下“保存“按钮的时候才完成修改呢？
你想在敲回车时完成修改则：
procedure TFormBMZl.DBEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=013 then //回车
begin
//做保存到资料库表动作
end;
end;
同样“按下“保存“按钮的时候”
则procedure TForm1.Button1Click(Sender: TObject);
begin
//做保存到资料库表动作
end; ——行径窄处，留一步与人行——
|
發表時間：2004-03-30 15:27:00
IP:210.87.xxx.xxx 未訂閱
系統時間：2024-06-01 14:59:59
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |