請問如何在dbgrid中,edit和post後,加一筆資料在後面的欄位呢 |
答題得分者是:cashxin2002
|
2drirudi
一般會員 發表:2 回覆:4 積分:1 註冊:2005-11-07 發送簡訊給我 |
請問如何在dbgrid中,edit和post後,加一筆資料在後面的欄位呢?(這筆欄位在dbgrid是看不到的~用意是要知哪一個使用者修改資料)
我目前的寫法每次只能加LoginEmpId至我修改的第一第後最後一筆的Author,中間的都不會加(所以我不能去修改二筆以上的資料)
請幫我看看,謝謝
Author----變數要加的欄位
LoginEmpId----要加的變數 procedure TformAreaman.Button2Click(Sender: TObject);(按下edit時)
begin
query1.Edit;
query1.FieldByName('Author').asstring := LoginEmpId;
gridedit.SetFocus;
end; procedure TformAreaman.Button1Click(Sender: TObject);(按下儲存後)
var
i : integer;
begin
query1.FieldByName('Author').asstring := LoginEmpId;
query1.Post;
showmessage('資料已儲存至資料庫');
end; 一顆待破繭而出的蛹
有一天將會變成天邊
飛舞的蝴蝶
------
一顆待破繭而出的蛹 有一天將會變成天邊 飛舞的蝴蝶 |
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ 從您的貼文來看﹐在Edit按鈕和Post按鈕中的程式碼不是一樣的嗎﹖
您可以這樣做﹐將加一個欄位值的動作放在Query元件的BeforePost事件中﹐在每筆資料Post之前﹐即會賦值給Author這個欄位﹕
begin Query1.FieldByName('Author').AsString := LoginEmpId; end;而在Edit按鈕和Post按鈕中﹐僅触發修改和儲存的方法﹐如下﹕ procedure TformAreaman.Button2Click(Sender: TObject);(按下edit時) begin Query1.Edit; end; procedure TformAreaman.Button1Click(Sender: TObject);(按下儲存後) begin Query1.Post; ShowMessage('資料已儲存至資料庫'); end;================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================
------
忻晟 |
2drirudi
一般會員 發表:2 回覆:4 積分:1 註冊:2005-11-07 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |