不好意思，第一次沒壓縮成功，換一個壓縮程式，重新上傳也無法下載，只好另開一個上傳區，麻煩站長幫我砍前一個上傳文件及程式，謝謝。    感謝K.Top有一個讓我們可以學習的空間，這個程式最早是用Clipper所寫的，後來又改為FiveWin，現在由於客服強烈要求，並要加入一些新的功能及欄位，所以只好硬著頭皮，用Delphi來寫，上傳上來的目的，是希望站上的先見能給予初學者的有些指導，謝謝大家：    壓縮採用自解檔，執行後會在您現在的目錄後，建立一新的目錄ccpm 請先用控制台的「資料來源 (ODBC)」建立一系統來源 驅動程式：Microsoft Access *.mdb 名 稱：ccpm 資 料 庫：連接到ccpm\ccpm.mdb         (此資料庫請勿外流，謝謝)    Form1已經設計差不多了，主要是依各條件查詢，按下修改交給Form2作詳細修改，或新增一筆資料庫    問題及需求

• 1.FORM2當使用者按下「訂院訊」時, 是否能將「寄給院訊」A16打勾？並且將現在日期及時間存入A32，一年後的時間存入A33，但還不要作存檔動作喔，要等使用者按存檔離開，才能正式存儲，否則不存復原。
• 2.反止當使用者按下「刪除院訊」時，清除「是否寄給院訊」A16的勾勾，並且刪除A32、A33的值，但還不要作存檔動作喔，要等使用者按存檔離開，才能正式存儲，否則不存復原。
• 3.如何在Form2作儲存動作，是不是用ADOQuery1.post？（我還沒試過）
• 4.當Form2作儲存動作時，檢察如果有作修改動作，則存檔並且自動記錄操作人A20及操作日期A19
• 5.當在Form1按下新增時，要等好久，這是為什麼？
• 6.按下新增時，如何定義，所有勾選選項A18、A15、A21、A16、A9、A29為未勾選狀態？

由於這些細部動作，從來沒做過，相信只要做一次，以後就會比較熟悉了，希望K.Top的各位高手能給予指導，不要笑我喔，因為我都是半路出家，邊學邊問出來的 發表人 - jawtair 於 2003/06/11 17:24:53

附加檔案：32184_ccpm.exe

可否先請您於資料庫討論區(Delphi)區發表問題文章, 然侯寫明問題程式連結於此,這樣大家才會看到您的問題! 我先暫時在此區回覆您的問題: 經過我下載您的程式(您的資料庫太大了,下一次要刪掉一些再傳上來), 先回答您一些問題: 1.FORM2當使用者按下「訂院訊」時, 是否能將「寄給院訊」A16打勾？並且將現在日期及時間存入A32，一年後的時間存入A33，但還不要作存檔動作喔，要等使用者按存檔離開，才能正式存儲，否則不存復原。 ANS: 修改打勾 form1.adoQuery1.edit; form1.adoQuery1.FieldByName('A16').asboolean:=true; form1.adoQuery1.FieldByName('A32').asstring:='lee'; form1.adoQuery1.FieldByName('A33').asstring:='2003/01/01'; 存檔 form1.adoQuery1.post; 2.反止當使用者按下「刪除院訊」時，清除「是否寄給院訊」A16的勾勾，並且刪除A32、A33的值，但還不要作存檔動作喔，要等使用者按存檔離開，才能正式存儲，否則不存復原。 ANS: 取消打勾 form1.adoQuery1.edit; form1.adoQuery1.FieldByName('A16').asboolean:=False; form1.adoQuery1.FieldByName('A32').asstring:=''; form1.adoQuery1.FieldByName('A33').asstring:=''; 存檔 form1.adoQuery1.post; 3.如何在Form2作儲存動作，是不是用ADOQuery1.post？（我還沒試過） AND: form1.adoQuery1.post; 4.當Form2作儲存動作時，檢察如果有作修改動作，則存檔並且自動記錄操作人A20及操作日期A19 ANS: form1的ADOQuery1的 procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet); begin //..在此記錄 end; 5.當在Form1按下新增時，要等好久，這是為什麼？ ANS; // Form2.ADOQuery1.Close; // Form2.ADOQuery1.OPEN; 此兩行的關係 6.按下新增時，如何定義，所有勾選選項A18、A15、A21、A16、A9、A29為未勾選狀態？ ANS: 當新增時本來就是內定不勾的,但是因為您的Form2未連上Form1的ADOQuery1 PS:修正您的一些觀念 1.unit2中不需要再宣告Form1,直接uses unit1;就可以了 2.form2中不需要再拉一個AdoQuery1,直接將form2的datasource1的dataset指向Form1.ADOQuery1就可以了 3.修正後的程式放在 會員求助程式檔案上傳區 您再試看看 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=32278 ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～