【文章內(nèi)容簡介】 rue。 UpDownEnabled=true。 } else { E_NumEnabled=false。 UpDownEnabled=false。 }}圖13 按管數(shù)查詢界面圖14 按管數(shù)查詢結(jié)果void __fastcall TF_Query::B_CancelClick(TObject *Sender){ DataModule1AQ_RecordClose()。//關(guān)閉檢測記錄數(shù)據(jù)源 DataModule1AQ_RecordSQLClear()。//清除SQL語句 DataModule1AQ_RecordSQLAdd(SELECT * FROM Industry_Record)。 DataModule1AQ_DataClose()。//關(guān)閉檢測數(shù)據(jù)數(shù)據(jù)源 DataModule1AQ_DataSQLClear()。//清除SQL語句 DataModule1AQ_DataSQLAdd(SELECT * FROM Industry_Record,Industry_Data)。 DataModule1AQ_RecordOpen()。//執(zhí)行SQL語句，打開檢測記錄表 DataModule1AQ_DataOpen()。//執(zhí)行SQL語句，打開檢測數(shù)據(jù)表 F_QueryClose()。//關(guān)閉檢測數(shù)據(jù)查看窗口}// void __fastcall TF_Query::B_QueryClick(TObject *Sender){//查詢按鈕單擊事件 if(!CB_TimeCheckedamp。amp。!CB_TypeCheckedamp。amp。!CB_PowerChecked amp。amp。!CB_NumCheckedamp。amp。!CB_CodeChecked) //若沒有查詢條件 { ApplicationMessageBoxA(沒有查詢條件，請選擇或輸入,查詢出錯,MB_OKCANCEL)。 return。 } String str1==39。 + E_TypeText + 39。, str2=Record_Type=39。 + E_TypeText + 39。, str3==39。 + E_PowerText + 39。, str4=Record_Power=39。 + E_PowerText + 39。 DataModule1AQ_RecordClose()。//關(guān)閉檢測記錄數(shù)據(jù)源 DataModule1AQ_RecordSQLClear()。//清除SQL語句 DataModule1AQ_RecordSQLAdd(SELECT * FROM Industry_Record WHERE )。 //增加一條SQL語句，從檢測記錄表中提取數(shù)據(jù)記錄 DataModule1AQ_DataClose()。//關(guān)閉檢測數(shù)據(jù)數(shù)據(jù)源 DataModule1AQ_DataSQLClear()。//清除SQL語句 DataModule1AQ_DataSQLAdd(SELECT * FROM Industry_Record,Industry_Data WHERE = AND )。 //增加一條SQL語句，從檢測記錄表、檢測數(shù)據(jù)表中提取數(shù)據(jù)記錄 //時間查詢 if(CB_TimeChecked) { DataModule1AQ_RecordSQLAdd( Record_Date BETWEEN :timel1 AND :timel2)。 DataModule1AQ_DataSQLAdd( Record_Date BETWEEN :timer1 AND :timer2)。 //timel2,timer2是在SQL語句中自定義的變量 if(RadioButton1Checked) //當(dāng)天查詢 { DataModule1AQ_RecordParametersParamByName(timel1)Value= StrToDateTime(DateToStr(Now())+ 00:00:00)。 DataModule1AQ_RecordParametersParamByName(timel2)Value= StrToDateTime(DateToStr(Now())+ 23:59:59)。 DataModule1AQ_DataParametersParamByName(timer1)Value= StrToDateTime(DateToStr(Now())+ 00:00:00)。 DataModule1AQ_DataParametersParamByName(timer2)Value= StrToDateTime(DateToStr(Now())+ 23:59:59)。 } if(RadioButton2Checked) //本周查詢 { TDateTime *DT=new TDateTime()。 *DT=Now()。 int convert[]={0,6,0,1,2,3,4,5}。//國內(nèi)外一周的起止不一樣 TDateTime Monday=DToperator(convert[DTDayOfWeek()])。 //DayofWeek()取得今天是一周內(nèi)的第幾天，再進(jìn)行當(dāng)前星期一的日期推算 DataModule1AQ_RecordParametersParamByName(timel1)Value= StrToDateTime(DateToStr(Monday)+ 00:00:00)。 DataModule1AQ_RecordParametersParamByName(timel2)Value= StrToDateTime(DateToStr(Now())+ 23:59:59)。 DataModule1AQ_DataParametersParamByName(timer1)Value= StrToDateTime(DateToStr(Monday)+ 00:00:00)。 DataModule1AQ_DataParametersParamByName(timer2)Value= StrToDateTime(DateToStr(Now())+ 23:59:59)。 } if(RadioButton3Checked) //本月查詢 { unsigned short i,j,k。 Now().DecodeDate(amp。i,amp。j,amp。k)。//提取當(dāng)前的年月日，分別存入變量i,j,k DataModule1AQ_RecordParametersParamByName(timel1)Value= StrToDateTime(IntToStr(i)+39。39。+IntToStr(j)+01 00:00:00)。 DataModule1AQ_RecordParametersParamByName(timel2)Value= StrToDateTime(DateToStr(Now())+ 23:59:59)。 DataModule1AQ_DataParametersParamByName(timer1)Value= StrToDateTime(IntToStr(i)+39。39。+IntToStr(j)+01 00:00:00)。 DataModule1AQ_DataParametersParamByName(tim