請教各位大大: 今天我有一個DBGrid配DBNavigator做修改的動作,當修改某三欄欄位的值之後 ,按了DBNavigator的打勾選項(確定修改),對db而言是已經將修改過後的值寫 回去,但我要卡一個條件(即跳出一個message,如果user按了否,則rollback, 按了是則寫到db內),請問我該在那個事件下寫,並怎樣做? 目前小弟是用delphi7配oracle9,db跟ap不同台電腦,我用了table加上data- source兩個物件,為什麼每次我的DBGrid不會自動refresh?(假設我有新增一筆 資料,它不會馬上秀出來,一定要等我結束程式再進去才會出現此筆資料),是 那個地方沒設定好嗎? 感激不盡!!

引言: 請教各位大大: 今天我有一個DBGrid配DBNavigator做修改的動作,當修改某三欄欄位的值之後 ,按了DBNavigator的打勾選項(確定修改),對db而言是已經將修改過後的值寫 回去,但我要卡一個條件(即跳出一個message,如果user按了否,則rollback, 按了是則寫到db內),請問我該在那個事件下寫,並怎樣做? 在要新增的 TTable/TQuery 等的 OnBeforePost用如下的代码: begin if MessageDlg('确定要增加吗？', mtConfirmation, [mbYes, mbNO], 0)=mrNo then Abort; end; 目前小弟是用delphi7配oracle9,db跟ap不同台電腦,我用了table加上data- source兩個物件,為什麼每次我的DBGrid不會自動refresh?(假設我有新增一筆 資料,它不會馬上秀出來,一定要等我結束程式再進去才會出現此筆資料),是 那個地方沒設定好嗎? 将RequestLive设为True试试 感激不盡!!

——行径窄处，留一步与人行—— ========================= 为什么，经过多年以后，得失的过程如此冷漠 =========================

将RequestLive设为True试试 不好意思,我找不到這個屬性,請問它是在那個物件底下?

引言: 将RequestLive设为True试试 不好意思,我找不到這個屬性,請問它是在那個物件底下?

sorry，没说清楚,用于TQuery，如Query1.RequestLive:=true; 如果你是用DBNavigator控制增加，我试了没问题，按“ ”先增加一空记录，添加内容，再按打勾选项，没问题啊，你是不是在dataset的beforepost 或afterpost写了其他的内容 ——行径窄处，留一步与人行—— ========================= 为什么，经过多年以后，得失的过程如此冷漠 =========================

謝謝deity大大的講解: BUT....小弟使用的是Table加DataSource的物件,而不是用QUERY這個物件, 難道是ORACLE的問題?(ORACLE新增資料不是要按COMMIT的動作?) 每次都是離開程式再登入才會出現剛剛新增的資料.... 再補充一個問題,假設我的一個PROJECT內已經有15個FORM(FORM1到FORM15) ,每次程式執行時都會先跑FORM1的畫面,今天我要再加一個FORM16,但我要 程式先跑FORM16,請問我該如何做呢?

aaprada你好： 选Project——> Options——>Main form——>选择Form16即可 或 将form16移入Available forms即不让他自动建立，这时的Main form 还是form1，然后中程序的工程文件（.dpr）中,具体写法，可参照下面： {$R *.res} begin form16:=TForm16.Create(application); form16.ShowModal; if form16.ModalResult=1 then begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end; end. unit16 uses unit1; procedure TForm16.Button1Click(Sender: TObject); begin modalresult:=mrok; end; 只是做了一个小小的试范，我想你可能是做login窗口，可查询站内其他写法，试试看！ ——行径窄处，留一步与人行—— ===== 为什么，经过多年以后，得失的过程如此冷漠 为什么，经过多年以后，风干的伤口心痛依旧 發表人 - deity 於 2004/05/20 16:06:50

procedure TForm1.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn); begin case button of nbPost:begin //在這邊可以處理存檔前 自己下的判斷式 //如果不存擋可以下 abort; end; end; end;