在資料庫做上下筆移動時 Query1.Prior; Query1.Next TDBEdit元件可以做到上下筆的資料顯示 如果不使用TDBEdit而使用一般的TEdit要如何與TQuery做配合 才能達到上述TDBEdit的功能 請各位指點一下

在 TQuery 的 AfterScroll 事件中 把各欄位的值指定給 TEdit, 例:

procedure TForm1.Query1AfterScroll(Dataset: TDataset);
begin
  Edit1.Text := Query1.FieldByName('Field1').AsString;
  Edit2.Text := Query1.FieldByName('Field2').AsString;
end;

不過, TDBEdit 這麼方便, 為什麼不用？ --- Everything I say is a lie.

您好﹗    也可將程式碼寫在DataSource元件的OnDataChange事件中﹐當資料錄指針移動時﹐即時地在Edit元件中反應出相對應的值﹕

begin
  if Query1.State = dsBrowse then
    begin
      Edit1.Text := Query1.FieldByName('Field1').AsString;
      Edit2.Text := Query1.FieldByName('Field2').AsString;
    end;
end;

小弟比較認同hagar版主的建議﹐DBEdit等資料感知元件已經通過DataSource元件的橋梁作用﹐通過屬性設定即可完成此類工作﹐省去編譯如上程式碼的部分﹐應為首選喔﹗ 參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

不過, TDBEdit 這麼方便, 為什麼不用？ 只是曾經有人建議過. 所以想要了解這其中有何不同 另外如果是做新增,存檔,刪除的動作又要如何做 敬請指教

您好!    DBEdit等資料感知元件可以通過Datasource元件對應資料表中的欄位, 顯示其欄位值, 并可做相對應的異動. 以其比較普通的資料輸入元件(如Edit等)的使用更為便捷, 只需要設定其Datasource屬性和DataField屬性即可, 就您的問題而言, 可使用DBEdit元件, 分別設定其DataSource屬性值和DataField屬性如下: DataSource屬性: 設定為連接資料表的DataSource元件名稱, 如DataSource1 DataField屬性: 正确設定DataSource屬性之后, DataField屬性中即可選取對應的資料表中所有的欄位名, 選擇需要對應的欄位名稱.    完成以上的步驟之后, 只需將資料集元件(如Table, Query)的Active屬性值設為True, 即將資料集元件Open, 您的資料感知元件(如DBEdit)中就是顯示對應的欄位值了, 其還有一個好處就是可以自行判斷目前資料集元件的State狀態, 如當資料集元件處于瀏覽(dsBrowse)狀態時, 即可對應顯示, 當資料集元件處于新增狀態(dsInsert)狀態時, 即可出現空白以供輸入儲存...    照以上的方法, 新建一個測試專案試一下, 再加上一個DBNavigator元件, 以用作操控資料表(可使用新增, 刪除, 修改方法等等). 您就會了解資料感知元件的作用及使用方法了.    參考看看!    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟