你們好，我的新增功能及修改功能其實可以run出來… 但就是不完整…不夠完美.. 程式如下 //新增 procedure TForm2.BitBtn1Click(Sender: TObject); begin query1.Append; query1.FieldByName('p_id').AsString:= DBEdit1.Text; query1.FieldByName('p_name').AsString:= DBEdit2.Text; query1.FieldByName('p_add').AsString:= DBEdit3.Text; query1.FieldByName('p_tel').AsString:= DBEdit4.Text; query1.FieldByName('p_sid').AsString:= DBEdit5.Text;  Query1.Post;  Query1.ApplyUpdates;  Query1.CommitUpdates; end; //修改 procedure TForm3.BitBtn1Click(Sender: TObject); begin  Query1.Post;  Query1.ApplyUpdates;  Query1.CommitUpdates; end;     但我希望新增的時候…我的dbedit能是空白狀態…等待我輸入新的資料。 而…我的修改功能…我希望是我在資料表上所選取的資料…在修改form的dbedit能顯示出我所選取的資料… 那我該如何做呢?請各位大大能幫個忙

您好﹗    DBEdit元件是屬于資料感知元件﹐其可透過設定DataSource屬性和DataField屬性來完成您需要的功能﹒ 設定所有DBEdit元件的DataSource屬性值為連接Query1的DataSource元件 分別設定所有DBEdit元件的DataField屬性值為各自對應的欄位名稱 然后在Form中增加一個Button元件﹐用于Post﹐將程式碼改為如下﹕

procedure TForm2.BitBtn1Click(Sender: TObject);
//此為新增按鈕
begin
  Query1.Append;
end;    procedure TForm2.BitBtn2Click(Sender: TObject);
//此為修改按鈕
begin
  Query1.Edit;
end;    procedure TForm2.BitBtn3Click(Sender: TObject);
//此為新增加的用于Post資料的BitBtn元件
begin
  Query1.Post;
  Query1.ApplyUpdates;
  Query1.CommitUpdates;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================ 發表人 - cashxin2002 於 2005/06/28 17:29:15

------
忻晟

嗯~ 我有一個修改的問題 就是我將修改的form2裡頭的..query1和DataSource的屬性DataSource=form1.query1 DataSet=form1.query1 那麼…卻出現錯誤訊息…如下 及執行時的錯誤訊息如下 到底是哪裡出錯呢?

您好﹗    第一個錯誤信息是指您的Query尚未開啟﹐無法對其執行方法﹒ 解決方法﹕先將資料集元件開啟﹐如您使用Query元件﹐就先指定其SQL屬性值﹐然后將Active屬性值設為True即可﹒    第二個錯誤信息是指您并沒有開啟BDE的CachedUpdates功能﹒ 解決方法﹕當您需要使用ApplyUpdates; CommitUpdates等方法時﹐先將資料集元件的CachedUpdates屬性值設為True﹐如您使用Query元件﹐就等將其的CachedUpdates屬性值設為True即可﹒    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

嗯...cashxin2002您好， 我在新增的部份有點小問題… 就是我在該設的地方都設了…但還是出現以下這個錯誤息，這是為什麼呢?

您好﹗    錯誤訊息是指記憶體不充足﹒ 解決方法﹕在BDE Administrator中的Configuration頁次中修改所屬資料庫形態的相關屬性﹐不同的資料庫形態具有其不同的屬性﹐如BLOB SIZE; ENABLE SCHEMA CACHE; SCHEMA CACHE SIZE;等等﹒ 您使用何種形態的資料庫﹖    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

嗯… 你好，我現在的新增部份… 我改了RequestLive=true..但還是不能編輯耶!這是為什麼呢? 程式如下.. procedure TForm2.BitBtn1Click(Sender: TObject); begin Query1.Post; Query1.ApplyUpdates; Query1.CommitUpdates; end; procedure TForm2.FormCreate(Sender: TObject); begin query1.Append; end; end. 而一開始執行Project.exe時，卻先出現這麼一個錯誤訊息     那在新增功能部份…還是出現以下這個錯誤... < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=23213658&CC=519162">

您好﹗    資料集元件Query1尚未Open﹒    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================ 發表人 - cashxin2002 於 2005/06/30 09:00:42

------
忻晟