武汉理工大学c课程设计报告书(编辑修改稿)

武汉理工大学c课程设计报告书(编辑修改稿)内容摘要：

功率查询是否选中 if(CB_PowerChecked) E_PowerEnabled=true。 else E_PowerEnabled=false。 }// 武汉理工大学《测控系统应用软件实训》课程设计说明书 13 图 11 按功率查询界面 图 12 功率查询结果 void __fastcall TF_Query::CB_NumClick(TObject *Sender) { //判断管数查询是否选中 if(CB_NumChecked) { E_NumEnabled=true。 UpDownEnabled=true。 } else { E_NumEnabled=false。 UpDownEnabled=false。 }} 武汉理工大学《测控系统应用软件实训》课程设计说明书 14 图 13 按管数查询界面 图 14 按管数查询结果 void __fastcall TF_Query::B_CancelClick(TObject *Sender) { DataModule1AQ_RecordClose()。 //关闭检测记录数据源 DataModule1AQ_RecordSQLClear()。 //清除 SQL 语句 DataModule1AQ_RecordSQLAdd(SELECT * FROM Industry_Record)。 DataModule1AQ_DataClose()。 //关闭检测数据数据源 DataModule1AQ_DataSQLClear()。 //清除 SQL 语句 DataModule1AQ_DataSQLAdd(SELECT * FROM Industry_Record,Industry_Data)。 DataModule1AQ_RecordOpen()。 //执行 SQL 语句，打开检测记录表 DataModule1AQ_DataOpen()。 //执行 SQL 语句，打开检测数据表 F_QueryClose()。 //关闭检测数据查看窗口 } // 武汉理工大学《测控系统应用软件实训》课程设计说明书 15 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()。 //关闭检测记录数据源 DataModule1AQ_RecordSQLClear()。 //清除 SQL 语句 DataModule1AQ_RecordSQLAdd(SELECT * FROM Industry_Record WHERE )。 //增加一条 SQL 语句，从检测记录表中提取数据 记录 DataModule1AQ_DataClose()。 //关闭检测数据数据源 DataModule1AQ_DataSQLClear()。 //清除 SQL 语句 DataModule1AQ_DataSQLAdd(SELECT * FROM Industry_Record,Industry_Data WHERE = AND )。 //增加一条 SQL 语句 ，从检测记录表、检测数据表中提取数据记录 //时间查询 if(CB_TimeChecked) { DataModule1AQ_RecordSQLAdd( Record_Date BETWEEN :timel1 AND :timel2)。 DataModule1AQ_DataSQLAdd( Record_Date BETWEEN :timer1 AND :timer2)。 //timel 2,timer 2 是在 SQL 语句中自定义的变量 if(RadioButton1Checked) //当天查询 { 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)。 } 武汉理工大学《测控系统应用软件实训》课程设计说明书 16 if(RadioButton2Checked) //本周查询 { TDateTime *DT=new TDateTime()。 *DT=Now()。 int convert[]={0,6,0,1,2,3,4,5}。 //国内外一周的起止不一样 TDateTime Monday=DToperator(convert[DTDayOfWeek()])。 //DayofWeek()取得今天是一周内的第 几天，再进行当前星期一的日期推算 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)。 //提取当前的年月日，分别存入变量 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=。