全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:994
推到 Plurk!
推到 Facebook!

DBGRID 資料計算抓取

尚未結案
wj2pp
一般會員


發表:19
回覆:9
積分:5
註冊:2002-05-20

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-09-15 08:09:26 IP:61.222.xxx.xxx 未訂閱
請問 如何抓取dbgrid 資料當時異動時,即可以得知此資料內容, 例如:在一個欄位數如跳到下一個欄位時,就知道上一個欄位的值是多少, 我只有在before post 可以抓到,但不知在輸入完的當頭就可以知道。
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-09-15 08:31:10 IP:202.39.xxx.xxx 未訂閱
利用 TInplaceEditor, 例:
procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;  Shift: TShiftState);
var
  i: word;
  c: TInplaceEdit;
begin
  for i := 0 to DBGrid1.ControlCount -1 do
  begin
    if DBGrid1.Controls[i] is TInPlaceEdit then
    begin
      c := DBGrid1.Controls[i] as TInPlaceEdit;
      Lable1.Caption := c.Text;
      Break;
    end;
  end;
end;
T.J.B
版主


發表:29
回覆:532
積分:497
註冊:2002-08-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-09-15 10:01:09 IP:61.218.xxx.xxx 未訂閱
你可以在dbGrid所對應的query 打開欄位編輯器 找到某個欄位後 有一個onValidate事件 在這裡面就可以 在一個欄位數跳到下一個欄位時,就知道上一個欄位的值是多少 exc: 設依個全域變數 aa:= query1.FieldByName('empno').asstring; ps:onValidate事件的功用是提供我們當一個欄位輸入完畢後馬上去 依照他所輸入的值去做檢查 所以 同理 這裡就可以抓到當時輸入的值 你的需求 這裡可以辦到 天行健 君子當自強不息~~@.@
------
天行健
君子當自強不息~~@.@
likush
高階會員


發表:5
回覆:235
積分:103
註冊:2002-10-08

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-09-16 02:47:44 IP:220.134.xxx.xxx 未訂閱
小弟拙見,有錯請指正 procedure TForm1.DBGrid1ColExit(Sender: TObject); begin ShowMessage(DBGrid1.SelectedField.NewValue); end; ========================= 讀萬卷書~不如來K.TOP走一遭 =========================
系統時間:2024-11-23 3:52:15
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!