【正文】 LAdd(mand)。 thisADOQuery2ParametersParamByName(stime)Value = thisDateTimePicker2DateTime。 thisADOQuery2ParametersParamByName(etime)Value = thisDateTimePicker3DateTime。 thisADOQuery2Open()。 thisDBGrid1DataSource = thisDataSource1。 } // define PG OlePropertyGet define PS OlePropertySet define FN OleFunction define PR OleProcedure bool TComConnection::DBGrid2Excel(TDataSet *dataset, String filename) { DeleteFile( filename )。 Variant excel = CreateOleObject()。 try { Variant newxls = (WorkBooks).FN(Add)。 21 int i。 Variant v = 123。 Variant vv = (varOleStr)。 for ( i = 0。 i datasetFieldsCount。 i++ ) { v = datasetFieldsFields[i]FieldName。 vv = (varOleStr)。 ((Cells, 1, i+1)).PS(Value, vv )。 } int row = 2。 AnsiString pos。 AnsiString tmp。 Variant format = @。 while( !datasetEof ) { for ( i = 0。 i datasetFieldsCount。 i++ ) { ((Cells, row, i+1)).PR(Select)。 ((Selection)).PS(NumberFormat, (varOleStr))。 v = datasetFieldsFields[i]AsString。 vv = (varOleStr)。 ((Cells, row, i+1)).PS(Value, vv )。 } row++。 datasetNext()。 } Variant fn = filename。 (SaveAs, (varOleStr) )。 (Quit)。 } catch(Exceptionamp。 e) { (Quit)。 int xx = 0。 xx = xx。 throw e。 } return true。 } void __fastcall TComConnection::Button5Click(TObject *Sender) { if(thisDBGrid2Excel(DataSource1DataSet,F:\\360data\\重要數(shù)據(jù) \\桌面 \\傳感器信息 _)){ ShowMessage(導出數(shù)據(jù)成功 !)。 } 22 else{ ShowMessage(導出失敗，請檢查相應程序 !)。 } } // void __fastcall TComConnection::Button6Click(TObject *Sender) { hiscShow()。 } // history（查看歷史界面） // ifndef hisH define hisH // include include include include include include include include include include include include include // class Thisc : public TForm { __published: // IDEmanaged Components TTabControl *TabControl1。 TChart *Chart1。 TLineSeries *Series1。 TADOQuery *ADOQuery1。 void __fastcall TabControl1Change(TObject *Sender)。 private: // User declarations public: // User declarations __fastcall Thisc(TComponent* Owner)。 }。 23 // extern PACKAGE Thisc *hisc。 // endif // include pragma hdrstop include include // pragma package(smart_init) pragma link Chart pragma link TeEngine pragma link TeeProcs pragma link Series pragma resource *.dfm Thisc *hisc。 UnicodeString sensorname[]={ BMP 溫度 , BMP 氣壓 , SHIT1x 溫度 , SHIT1x 濕度 , 光強 , 雨量 }。 UnicodeString fileindex[]={ bmptemp,bmppress,sht1xtemp,sht1xhr,light,rain }。 // __fastcall Thisc::Thisc(TComponent* Owner) : TForm(Owner) { } // void __fastcall Thisc::TabControl1Change(TObject *Sender) { int index = thisTabControl1TabIndex。 Chart1RemoveAllSeries()。 // 清除 Chart1 上所有舊 Series Chart1View3D=True。 // 要 3D 立體 Chart1LegendVisible=true。 // 24 Chart1TitleTextClear()。 Series1Clear()。 Series1ParentChart=Chart1。 Series1MarksVisible=true。 // 設定要提示說明 ADOQuery1SQLClear()。 UnicodeString mand = select top 20 +fileindex[index]+ from SensorData order by time desc 。 thisADOQuery1SQLAdd(mand)。 // thisADOQuery1ParametersParamByName(sfield)Value = fileindex[index]。 thisADOQuery1Open()。 thisADOQuery1First()。 double count[100]。 int i=0。 while(!(thisADOQuery1Eof)){ count[i++] = StrToFloat(thisADOQuery1FieldByName(fileindex[index])())。 // Series1AddY(tmp,i,clTeeColor)。 // Series1add thisADOQuery1Next()。 } Series1AddArray(count,i)。 Chart1TitleTextAdd(sensorname[index])。 thisADOQuery1Close()。 } //