Dbchart error : dateset field not found

#1 引用回覆回覆
發表時間：2005-05-04 10:31:42
IP:61.220.xxx.xxx 未訂閱
我現在遇到一個問題是系統錯誤如下請各位幫忙
以下是我的程式及宣告
引言:
unit IMaintainProcessRogers02;    interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  SConnect, DBClient, Db, ExtCtrls, StdCtrls, Buttons, Mask, DBGrids,
  ComCtrls, CcpFormu, TeeProcs, TeEngine, Chart, DBChart, Series, EDBNavi1,
  MConnect, Grids;    type
  TFIMaintainProcessRogers02 = class(TCcpForm)
    lcFIMaintainProcessRogers02 : TSocketConnection;
    dtRCCT001_View : TClientDataSet;
    dtRCCT001_ViewCOMPANY : TStringField;
    dtRCCT001_ViewFIRM : TStringField;
    dtRCCT001_ViewROLL_NO : TStringField;
    dtRCCT001_ViewLOT_NO : TStringField;
    dtRCCT001_ViewROLL_LEN : TFloatField;
    dtRCCT001_ViewGOOD_LEN : TFloatField;
    dtRCCT001_ViewBAD_LEN : TFloatField;
    dtRCCT001_ViewPRD_PC : TStringField;
    dtRCCT001_ViewM_WIDTH : TFloatField;
    dtRCCT001_ViewCREATE_TIME : TDateTimeField;
    dtRCCT001_ViewCREATOR : TStringField;
    dtRCCT001D_View : TClientDataSet;
    dtRCCT001D_ViewCOMPANY : TStringField;
    dtRCCT001D_ViewFIRM : TStringField;
    dtRCCT001D_ViewLINE : TStringField;
    dtRCCT001D_ViewPRD_PC : TStringField;
    dtRCCT001D_ViewLOT_NO : TStringField;
    dtRCCT001D_ViewROLL_NO : TStringField;
    dtRCCT001D_ViewRECORD_TIME : TDateTimeField;
    dtRCCT001D_ViewZONE1_PARAM4 : TFloatField;
    dtRCCT001D_ViewZONE2_PARAM5 : TFloatField;
    dtRCCT001D_ViewZONE3_PARAM6 : TFloatField;
    dtRCCT001D_ViewZONE4_PARAM7 : TFloatField;
    dtRCCT001D_ViewZONE1_LEFT_PARAM29 : TFloatField;
    dtRCCT001D_ViewZONE2_LEFT_PARAM30 : TFloatField;
    dtRCCT001D_ViewZONE3_LEFT_PARAM31 : TFloatField;
    dtRCCT001D_ViewZONE4_LEFT_PARAM32 : TFloatField;
    dtRCCT001D_ViewZONE1_RIGHT_PARAM33 : TFloatField;
    dtRCCT001D_ViewZONE2_RIGHT_PARAM34 : TFloatField;
    dtRCCT001D_ViewZONE3_RIGHT_PARAM35 : TFloatField;
    dtRCCT001D_ViewZONE4_RIGHT_PARAM36 : TFloatField;
    dtRCCT001D_ViewSPEED_PARAM14 : TFloatField;
    dtRCCT001D_ViewSTICK_PARAM15 : TFloatField;
    dtRCCT001D_ViewNORTH_PRESS_PARAM16A : TFloatField;
    dtRCCT001D_ViewSOUTH_PRESS_PARAM16B : TFloatField;
    dtRCCT001D_ViewCOATER_FURNISH_PARAM17 : TFloatField;
    dtRCCT001D_ViewCOATER_METERING_PARAM18 : TFloatField;
    dtRCCT001D_ViewCOATER_APPLICATOR_PARAM19 : TFloatField;
    dtRCCT001D_ViewSTELL_SORFACE_TEMP_PARAM20A : TFloatField;
    dtRCCT001D_ViewRUBBER_SORFACE_TEMP_PARAM20B : TFloatField;
    dtRCCT001D_ViewRUBBER_THICK_LEFT_PARAM21A : TFloatField;
    dtRCCT001D_ViewRUBBER_SORFACE_RIGHT_PARAM21B : TFloatField;
    dtRCCT001D_ViewPRI_UNW_TENSION_FDBK_PARAM22 : TFloatField;
    dtRCCT001D_ViewINFEED_TENSION_FDBK_PARAM23 : TFloatField;
    dtRCCT001D_ViewVAC_TENSION_FDBK_PARAM24 : TFloatField;
    dtRCCT001D_ViewLAM_TENSION_FDBK_PARAM25 : TFloatField;
    dtRCCT001D_ViewPR2_TENSION_FDBK_PARAM26 : TFloatField;
    dtRCCT001D_ViewAUX_TENSION_FDBK_PARAM27 : TFloatField;
    dtRCCT001D_ViewWINDER_TENSION_FDBK_PARAM28 : TFloatField;
    dsRCCT001_View : TDataSource;
    dsRCCT001D_View : TDataSource;
    Panel2 : TPanel;
    LcNavigator1 : TEDBNavigator;
    Panel3 : TPanel;
    Splitter1 : TSplitter;
    Datablock1 : TScrollBox;
    lbDatablock1Param0 : TLabel;
    lbDatablock1Param1 : TLabel;
    lbDatablock1Param2 : TLabel;
    lbDatablock1Param3 : TLabel;
    QBtnDatablock1 : TBitBtn;
    edDatablock1Param0 : TMaskEdit;
    edDatablock1Param1 : TMaskEdit;
    edDatablock1Param2 : TMaskEdit;
    edDatablock1Param3 : TMaskEdit;
    Panel1 : TPanel;
    DataGrid1 : TDBGrid;
    PageControl1 : TPageControl;
    TabSheet1 : TTabSheet;
    Datablock3 : TScrollBox;
    TabSheet2 : TTabSheet;
    Splitter2 : TSplitter;
    DataGrid2 : TDBGrid;
    Panel4 : TPanel;
    Splitter4 : TSplitter;
    Panel5 : TPanel;
    GroupBox1 : TGroupBox;
    Label1 : TLabel;
    Label2 : TLabel;
    DateTimePicker1 : TDateTimePicker;
    DateTimePicker2 : TDateTimePicker;
    DateTimePicker3 : TDateTimePicker;
    DateTimePicker4 : TDateTimePicker;
    Panel6 : TPanel;
    Panel7 : TPanel;
    BitBtn1 : TBitBtn;
    Procedure QbtnDatablock1Click(Sender: TObject);
    Procedure FIMaintainProcessRogers02Create(Sender: TObject);
    Procedure DataGrid1Enter(Sender: TObject);
    Procedure DataGrid2Enter(Sender: TObject);
    Procedure RCCT001_ViewOnNewRecord_inc(DataSet: TDataSet);
    Procedure FIMaintainProcessRogers02OnActivate_inc(Sender: TObject);
    Procedure QBtnDatablock1OnClick_inc(Sender: TObject);
    Procedure BitBtn1OnClick_inc(Sender: TObject);
    Procedure DataGrid2OnDblClick_inc(Sender: TObject);
  private
    DBChart1: TDBChart;
  protected
  public
  end;    var
  FIMaintainProcessRogers02: TFIMaintainProcessRogers02;    implementation
uses
  lcutils, Main;    {$R *.DFM}    {$i IMaintainProcessRogers02_inc.pas}    Procedure TFIMaintainProcessRogers02.QbtnDatablock1Click(Sender: TObject);
begin 
   dtRCCT001_View.Close; 
   lcFIMaintainProcessRogers02.AppServer.ChangeSqlRCCT001_View2(edDatablock1Param0.Text+#13+edDatablock1Param1.Text+#13+edDatablock1Param2.Text+#13+edDatablock1Param3.Text,SortFields); 
   dtRCCT001_View.Open; 
end;     Procedure TFIMaintainProcessRogers02.FIMaintainProcessRogers02Create(Sender: TObject);
begin 
   FIMaintainProcessRogers02:=TFIMaintainProcessRogers02(Self); 
   dsDataset:=dtRCCT001_View; 
   lcFIMaintainProcessRogers02.Connected:=true; 
end;     Procedure TFIMaintainProcessRogers02.DataGrid1Enter(Sender: TObject);
begin 
   LcNavigator1.DataSource:=dsRCCT001_View; 
end;     Procedure TFIMaintainProcessRogers02.DataGrid2Enter(Sender: TObject);
begin 
   LcNavigator1.DataSource:=dsRCCT001D_View; 
end;     Procedure TFIMaintainProcessRogers02.RCCT001_ViewOnNewRecord_inc(DataSet: TDataSet);
begin 
  RCCT001_ViewOnNewRecord(self,DataSet); 
end;     Procedure TFIMaintainProcessRogers02.FIMaintainProcessRogers02OnActivate_inc(Sender: TObject);
begin 
  FIMaintainProcessRogers02OnActivate(self,Sender); 
end;     Procedure TFIMaintainProcessRogers02.QBtnDatablock1OnClick_inc(Sender: TObject);
begin
  QBtnDatablock1OnClick(self,Sender); 
end;     Procedure TFIMaintainProcessRogers02.BitBtn1OnClick_inc(Sender: TObject);
begin 
  BitBtn1OnClick(self,Sender); 
end;     Procedure TFIMaintainProcessRogers02.DataGrid2OnDblClick_inc(Sender: TObject);
begin 
  DataGrid2OnDblClick(self,Sender); 
end;         end.    _inc.pas如下
當在datagrid某個欄位上按兩下時，就會依據TClientDataSet的資料動態建立歷史曲線    procedure DataGrid2OnDblClick(Self:TForm;Sender: TObject);
var
  Series1 : Tlineseries;
begin
  with TFIMaintainProcessRogers02(self) do
  begin
       DBChart1.FreeAllSeries;
       if dtRCCT001D_View.recordcount <> 0 then
       begin
           series1 := TLineseries.create(self);
           DBChart1.AddSeries(series1);
           series1.DataSource := dtRCCT001D_View;
           series1.XValues.ValueSource := 'RECORD_TIME';
           series1.XValues.DateTime := true;
           //showmessage(DataGrid2.selectedfield.name + 'dtRCCT001D_ViewZONE1_PARAM4');
           series1.YValues.ValueSource := DataGrid2.selectedfield.name;
           series1.Title  := DataGrid2.SelectedField.DisplayName;
           DBChart1.Legend.Visible := true;
           DBChart1.Legend.LegendStyle := lsSeries;
           DBChart1.Title.Text.Clear;
           DBChart1.Title.Text.Add(DataGrid2.SelectedField.DisplayName + '歷史曲線統計');
       end
       else
           showmessage('查無此參數資料');
  end;
end;