Dbchart error : dateset field not found |
尚未結案
|
fj
一般會員 發表:20 回覆:12 積分:6 註冊:2004-11-23 發送簡訊給我 |
我現在遇到一個問題是系統錯誤如下請各位幫忙 以下是我的程式及宣告
引言: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; |
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
|
fj
一般會員 發表:20 回覆:12 積分:6 註冊:2004-11-23 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |