如何顯示從dbgrid到編輯框的記錄字段

Question

我已經建立了一個訪問數據庫並將其與ADOquery和Datasource連接起來。我已經建立了一個名為BagCost的表，該表的字段名稱為bag size和cost 。 我已將DBgrid附加到表單中，並將其與“ Bagcost”表鏈接。 Dbgrid具有以下字段：

如何在運行時從dbgrid列到不同的editboxes顯示這四個費用？

Answer 1

說明：

我希望我能正確理解你。 您需要做的是從四個記錄中的每一個讀取數據。 使用First和Next方法更改活動記錄，使用Eof方法測試活動記錄是否為數據集中的最后一條記錄。 （可選）（對於大量記錄），使用DisableControls和EnableControls方法可防止每次活動記錄更改時更新數據感知控件。

例：

接下來是一個基本示例，該示例使用AfterOpen事件從查詢的每個記錄中讀取字段值。

procedure TfrmMain.qryAfterOpen(DataSet: TDataSet);
begin
   DataSet.DisableControls;
   try
      DataSet.First;
      if not DataSet.Eof then Edit1.Text := DataSet.FieldByName('cost').AsString else Edit1.Text := 'Record not found';
      DataSet.Next;
      if not DataSet.Eof then Edit2.Text := DataSet.FieldByName('cost').AsString else Edit2.Text := 'Record not found';
      DataSet.Next;
      if not DataSet.Eof then Edit3.Text := DataSet.FieldByName('cost').AsString else Edit3.Text := 'Record not found';
      DataSet.Next;
      if not DataSet.Eof then Edit4.Text := DataSet.FieldByName('cost').AsString else Edit4.Text := 'Record not found';
      DataSet.First;
   finally
      DataSet.EnableControls;
   end{try};
end;