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

如何利用上一条记录相同的内容,快速增加输入记录

尚未結案
dt520
一般會員


發表:11
回覆:61
積分:14
註冊:2003-05-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-11-09 16:15:51 IP:61.146.xxx.xxx 未訂閱
我建立一个数据库程序,新增的记录与上一条记录有很多相同的内容. 我如何才能让操作人员利用上一条记录相同的内容,减少数据重复输入? 使我的程序"聪明"少少. DT520 @>>>-->>---------一路风尘一路歌!!
timhuang
尊榮會員


發表:78
回覆:1815
積分:1608
註冊:2002-07-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-11-09 17:19:14 IP:61.62.xxx.xxx 未訂閱
HI, 若是這種狀況, 通常就會使用一般的輸入元件(非資料感知元件)來進行資料的輸入維護了, 但比較困難的地方在於要自行維護目前是處理新增狀態或是編輯狀態的控制. 但是弟的做法通常就會在輸入介面上多做幾個按鈕來處理. 例入新增, 編輯, 複製(這個複製不是複製單一欄位, 而是所有輸入介面上的資料), 貼上(這個貼上當然也是貼上剛才複製的多欄位資料囉), 如此一來就比較容易讓使用者進行重複性的大量資料輸入囉. 給你參考看看!
dt520
一般會員


發表:11
回覆:61
積分:14
註冊:2003-05-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-11-09 19:30:14 IP:61.146.xxx.xxx 未訂閱
timhuang 说法是一种不错的想法,我以前也这样做."但比較困難的地方在於要自行維護". 没有得到"資料感知元件"的一点帮助.现在我升级资料库了,字段多了, 维护也更烦了. 有没有办法用"資料感知元件"来完成同样的工作,省一点代码,也省一点维护! DT520 @>>>-->>---------一路风尘一路歌!!
timhuang
尊榮會員


發表:78
回覆:1815
積分:1608
註冊:2002-07-15

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-11-09 20:53:06 IP:61.62.xxx.xxx 未訂閱
若是想用資料感知元件的話, 建議你可以再利用另一組 TQuery (b)來進行新增的動作會比較理想, 在使用者按下新增時, 利用另一個 TQuery (b)來進行新增的動作, 原來的 TQuery (a) 則用來進行顯示及修改的行為, 只有新增時會用到 TQuery (b), 這樣一來就可以保有資料感知元件的好處, 又不需要寫太多程式碼. 要注意的地方在於, 新增資料時, 是利用 TQuery (b) 來進行, 完成新增後, TQuery (a) 要重新顯示外, 還要指向該筆新增的資料, 應該可以順利完成你這段 "聰明" 的輸入介面程式!
cmj
高階會員


發表:15
回覆:242
積分:226
註冊:2002-06-12

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-11-09 21:12:26 IP:211.76.xxx.xxx 未訂閱
1.定義 OldFds:variant;
2.在TForm Create事件中
  OldFds := VarArrayCreate([0, DataSet.FieldCount-1], varVariant);
3.保存記錄值在DataSet之BeforePost事件中
  for i:=0 to DataSet.FieldCount-1 do
      OldFds[i]:=DataSet.Fields[i].Value;
4.下一筆新增中在Dataset之OnNewRecord事件中
  for i:=0 to DataSet.FieldCount-1 do
      DataSet.Fields[i].Value:=OldFds[i];
huangeider
高階會員


發表:288
回覆:492
積分:231
註冊:2003-02-26

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-11-10 00:53:12 IP:61.231.xxx.xxx 未訂閱
在table1中beforepost設寫入條件 當狀態是新增時,另存新增的資料在table2 (這個資料是作為再次新增時的要讀取的data) 在table中afterinsert中設寫入條件->讀取table2的data放入感知元件中 「堅持」從洗馬桶做起 Aric 發表人 - huangeider 於 2003/11/10 00:54:12
dt520
一般會員


發表:11
回覆:61
積分:14
註冊:2003-05-13

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-11-10 09:33:42 IP:61.146.xxx.xxx 未訂閱
很好!!!! 有几位大哥的指教,对DataSet的事件有了新的认识(我以前不知insert前后的事件在哪里) . 我正在测试...... DT520 @>>>-->>---------一路风尘一路歌!!
dt520
一般會員


發表:11
回覆:61
積分:14
註冊:2003-05-13

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-11-10 10:05:58 IP:61.146.xxx.xxx 未訂閱
对比timhuang、cmj、huangeider 的方法, 我选用了cmj的方法。 再次感谢timhuang、cmj、huangeider 。 DT520 @>>>-->>---------一路风尘一路歌!!
系統時間:2024-05-02 12:01:40
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!