DBGrid+DBNavigator的問題 |
尚未結案
|
aaprada
一般會員 ![]() ![]() 發表:6 回覆:5 積分:2 註冊:2004-05-14 發送簡訊給我 |
請教各位大大:
今天我有一個DBGrid配DBNavigator做修改的動作,當修改某三欄欄位的值之後
,按了DBNavigator的打勾選項(確定修改),對db而言是已經將修改過後的值寫
回去,但我要卡一個條件(即跳出一個message,如果user按了否,則rollback,
按了是則寫到db內),請問我該在那個事件下寫,並怎樣做? 目前小弟是用delphi7配oracle9,db跟ap不同台電腦,我用了table加上data-
source兩個物件,為什麼每次我的DBGrid不會自動refresh?(假設我有新增一筆
資料,它不會馬上秀出來,一定要等我結束程式再進去才會出現此筆資料),是
那個地方沒設定好嗎? 感激不盡!!
|
deity
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
引言: 請教各位大大: 今天我有一個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试试 感激不盡!!——行径窄处,留一步与人行—— ========================= 为什么,经过多年以后,得失的过程如此冷漠 ========================= |
aaprada
一般會員 ![]() ![]() 發表:6 回覆:5 積分:2 註冊:2004-05-14 發送簡訊給我 |
|
deity
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
引言: 将RequestLive设为True试试 不好意思,我找不到這個屬性,請問它是在那個物件底下?sorry,没说清楚,用于TQuery,如Query1.RequestLive:=true; 如果你是用DBNavigator控制增加,我试了没问题,按“ ”先增加一空记录,添加内容,再按打勾选项,没问题啊,你是不是在dataset的beforepost 或afterpost写了其他的内容 ——行径窄处,留一步与人行—— ========================= 为什么,经过多年以后,得失的过程如此冷漠 ========================= |
aaprada
一般會員 ![]() ![]() 發表:6 回覆:5 積分:2 註冊:2004-05-14 發送簡訊給我 |
|
deity
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
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
|
tgho
一般會員 ![]() ![]() 發表:3 回覆:14 積分:8 註冊:2003-03-18 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |