【正文】 =True)//如果串口已打開，則關(guān)閉之 Com1PortOpen=false。 //打開串口 Com1InBufferCount=0。//消除輸出緩沖區(qū)的內(nèi)容 if(!Com1PortOpen) //判斷串口初始化是否失敗并顯示 ShowMessage(串口初始化失敗 )。 //開啟串口監(jiān)聽定時器 RE_MessLinesAdd(串口初始化成功，正在監(jiān)聽 )。 } (3）運(yùn)行結(jié)果 圖 5 開始檢測后 界面 停止檢測 (1）程序代碼 void __fastcall Ttcw::M_PauseClick(TObject *Sender) { //關(guān)閉串口，關(guān)閉 JudgeTimer 定時器定時測控串口 MainMenuItemsItems[2]Enabled=True。//停止檢測菜單項(xiàng)非能 JudgeTimerEnabled=false。 //關(guān)閉串口 RE_MessLinesAdd(串口已關(guān)閉 ，與下位機(jī)通信中斷 )。 // __fastcall TF_Query::TF_Query(TComponent* Owner) : TForm(Owner) 武漢理工大學(xué)《測控系統(tǒng)應(yīng)用軟件實(shí)訓(xùn)》課程設(shè)計(jì)說明書 10 { } // void __fastcall TF_Query::CB_TimeClick(TObject *Sender) { //判斷時間查詢復(fù)選框是否選中，以決定各單選按鈕是否能使用 if(CB_TimeChecked) { //若時間框選中，則各單選按鈕被激活 RadioButton1Enabled= true 。 // RadioButton3Enabled= true 。 // RadioButton2Enabled= false 。 // } } // void __fastcall TF_Query::CB_CodeClick(TObject *Sender) {//判斷編號查詢復(fù)選框是否被選中 if(CB_CodeChecked) { M_CodeEnabled=true 。//標(biāo)簽控件被激活 } else { //memo 與標(biāo)簽控件失效 M_CodeEnabled=false。 } } //武漢理工大學(xué)《測控系統(tǒng)應(yīng)用軟件實(shí)訓(xùn)》課程設(shè)計(jì)說明書 11 圖 7 時間設(shè)定查詢界面 圖 8 時間設(shè)定查詢結(jié)果 // void __fastcall TF_Query::CB_TypeClick(TObject *Sender) { //判斷類型查詢是否選中 if(CB_TypeChecked) E_TypeEnabled=true。 } 武漢理工大學(xué)《測控系統(tǒng)應(yīng)用軟件實(shí)訓(xùn)》課程設(shè)計(jì)說明書 12 圖 9 按類型查詢界面 圖 10 類型查詢結(jié)果 void __fastcall TF_Query::CB_PowerClick(TObject *Sender) { //判斷功率查詢是否選中 if(CB_PowerChecked) E_PowerEnabled=true。 }// 武漢理工大學(xué)《測控系統(tǒng)應(yīng)用軟件實(shí)訓(xùn)》課程設(shè)計(jì)說明書 13 圖 11 按功率查詢界面 圖 12 功率查詢結(jié)果 void __fastcall TF_Query::CB_NumClick(TObject *Sender) { //判斷管數(shù)查詢是否選中 if(CB_NumChecked) { E_NumEnabled=true。 } else { E_NumEnabled=false。 }} 武漢理工大學(xué)《測控系統(tǒng)應(yīng)用軟件實(shí)訓(xùn)》課程設(shè)計(jì)說明書 14 圖 13 按管數(shù)查詢界面 圖 14 按管數(shù)查詢結(jié)果 void __fastcall TF_Query::B_CancelClick(TObject *Sender) { DataModule1AQ_RecordClose()。//清除 SQL 語句 DataModule1AQ_RecordSQLAdd(SELECT * FROM Industry_Record)。//關(guān)閉檢測數(shù)據(jù)數(shù)據(jù)源 DataModule1AQ_DataSQLClear()。 DataModule1AQ_RecordOpen()。//執(zhí)行 SQL 語句，打開檢測數(shù)據(jù)表 F_QueryClose()。amp。amp。amp。amp。 return。 + E_TypeText + 39。 + E_TypeText + 39。 + E_PowerText + 39。 + E_PowerText + 39。//關(guān)閉檢測記錄數(shù)據(jù)源 DataModule1AQ_RecordSQLClear()。 //增加一條 SQL 語句，從檢測記錄表中提取數(shù)據(jù) 記錄 DataModule1AQ_DataClose()。//清除 SQL 語句 DataModule1AQ_DataSQLAdd(SELECT * FROM Industry_Record,Industry_Data WHERE = AND )。 DataModule1AQ_DataSQLAdd( Record_Date BETWEEN :timer1 AND :timer2)。 DataModule1AQ_RecordParametersParamByName(timel2)Value= StrToDateTime(DateToStr(Now())+ 23:59:59)。 DataModule1AQ_DataParametersParamByName(timer2)Value= StrToDateTime(DateToStr(Now())+ 23:59:59)。 *DT=Now()。//國內(nèi)外一周的起止不一樣 TDateTime Monday=DToperator(convert[DTDayOfWeek()])。 DataModule1AQ_RecordParametersParamByName(timel2)Value= StrToDateTime(DateToStr(Now())+ 23:59:59)。 DataModule1AQ_DataParametersParamByName(timer2)Value= StrToDateTime(DateToStr(Now())+ 23:59:59)。 Now().DecodeDate(amp。j,amp。//提取當(dāng)前的年月日，分別存入變量 i,j,k DataModule1AQ_RecordParametersParamByName(timel1)Value= StrToDateTime(IntToStr(i)+39。+IntToStr(j)+01 00:00:00)。 DataModule1AQ_DataParametersParamByName(timer1)Value= StrToDateTime(IntToStr(i)+39。+IntToStr(j)+01 00:00:00)。 } } //類型查詢 if(CB_TypeChecked) { if(CB_TimeChecked) {//如果前面已經(jīng)添加了時間查詢，則需要加 AND 條件同時成立運(yùn)算符 DataModule1AQ_RecordSQLAdd( AND )。 } DataModule1AQ_RecordSQLAdd(str1)。 } //功率查詢 if(CB_PowerChecked) 武漢理工大學(xué)《測