citect数据读取.docx
- 文档编号:4659903
- 上传时间:2023-05-07
- 格式:DOCX
- 页数:49
- 大小:28.52KB
citect数据读取.docx
《citect数据读取.docx》由会员分享,可在线阅读,更多相关《citect数据读取.docx(49页珍藏版)》请在冰点文库上搜索。
citect数据读取
FUNCTIONQueryReport(INTReportMode)/////ReportMode1代表生产报表,2代表月报表,3代表日报表,4代表班报表
INThSQL;
INTStatus;
INTRow=3;
INTCol=1;
////////////设置变量接受数据库记录字段///////////////////
STRINGTimeFiled,空调9初校,空调9中效,空调9风速,空调8初校,空调8中效,空调8风速,空调1初校,空调1中效,空调1风速,空调2初校,空调2中效,空调2风速,空调3初校,空调3中效,空调3风速,空调4初校,空调4中效,空调4风速,空调5初校,空调5中效,空调5风速,空调6初校,空调6中效,空调6风速,空调7初校,空调7中效,空调7风速,罐装1风1,罐装1风2,罐装1压差,罐装2风1,罐装2风2,罐装2压差,罐装3风1,罐装3风2,罐装3压差,罐装4风1,罐装4风2,罐装4压差;
////////获取控件信息/////////////
INTiYear,iMonth,iDay;
STRINGsOperatorName,sWhere;
OBJECThDate=ObjectByName("AN45");/////日期时间控件
iYear=_ObjectGetProperty(hDate,"Year");
iMonth=_ObjectGetProperty(hDate,"Month")+100;
iDay=_ObjectGetProperty(hDate,"Day")+100;
SELECTCASEReportMode
CASE1
sWhere="where时间>='"+IntToStr(iYear)+"-01-01'and时间<='"+IntToStr(iYear)+"-12-31'";
CASE2
sWhere="where时间>='"+IntToStr(iYear)+"-"+StrRight(IntToStr(iMonth),2)+"-01'and时间<='";
sWhere=sWhere+IntToStr(iYear)+"-"+StrRight(IntToStr(iMonth),2)+"-31'";
CASE3
sWhere="where时间>='"+IntToStr(iYear)+"-"+StrRight(IntToStr(iMonth),2)+"-"+StrRight(IntToStr(iDay),2)+"00:
00:
00'and时间<='";
sWhere=sWhere+IntToStr(iYear)+"-"+StrRight(IntToStr(iMonth),2)+"-"+StrRight(IntToStr(iDay),2)+"23:
59:
59'";
CASE4
sWhere="where时间>='"+IntToStr(iYear)+"-"+StrRight(IntToStr(iMonth),2)+"-"+StrRight(IntToStr(iDay),2)+"00:
00:
00'and时间<='";
sWhere=sWhere+IntToStr(iYear)+"-"+StrRight(IntToStr(iMonth),2)+"-"+StrRight(IntToStr(iDay),2)+"23:
59:
59'";//and操作员='"+sOperatorName+"'";
ENDSELECT
////////////////////设置查询条件////////////////////////
STRINGsQuery="SELECT*FROM123"+sWhere
VbCallReturn(VbCallRun(VbCallOpen("ClearExcel1",ReportMode)));
hSQL=SQLConnect("DSN=dcpc;UID=;PWD=");
IFhSQL<>-1THEN
Status=SQLExec(hSQL,sQuery);
IFStatus=0THEN
WHILESQLNext(hSQL)=0DO
TimeFiled=SQLGetField(hSQL,"时间");
空调1初校=SQLGetField(hSQL,"空调1初效");
空调1中效=SQLGetField(hSQL,"空调1中效");
空调1风速=SQLGetField(hSQL,"空调1风速");
空调2初校=SQLGetField(hSQL,"空调2初效");
空调2中效=SQLGetField(hSQL,"空调2中效");
空调2风速=SQLGetField(hSQL,"空调2风速");
空调3初校=SQLGetField(hSQL,"空调3初效");
空调3中效=SQLGetField(hSQL,"空调3中效");
空调3风速=SQLGetField(hSQL,"空调3风速");
//空调4初校=SQLGetField(hSQL,"空调4初效");
//空调4中效=SQLGetField(hSQL,"空调4中效");
//空调4风速=SQLGetField(hSQL,"空调4风速");
//空调5初校=SQLGetField(hSQL,"空调5初效");
//空调5中效=SQLGetField(hSQL,"空调5中效");
//空调5风速=SQLGetField(hSQL,"空调5风速");
//空调6初校=SQLGetField(hSQL,"空调6初效");
//空调6中效=SQLGetField(hSQL,"空调6中效");
//空调6风速=SQLGetField(hSQL,"空调6风速");
//空调7初校=SQLGetField(hSQL,"空调7初效");
//空调7中效=SQLGetField(hSQL,"空调7中效");
//空调7风速=SQLGetField(hSQL,"空调7风速");
//罐装1风1=SQLGetField(hSQL,"罐装1风1");
//罐装1风2=SQLGetField(hSQL,"罐装1风2");
//罐装2风1=SQLGetField(hSQL,"罐装2风1");
//罐装2风2=SQLGetField(hSQL,"罐装2风2");
//软塞1风=SQLGetField(hSQL,"软塞1风");
//软塞1压差=SQLGetField(hSQL,"软塞1压差");
//软塞2风=SQLGetField(hSQL,"软塞2风");
//软塞2压差=SQLGetField(hSQL,"软塞2压");
//罐装1压差=SQLGetField(hSQL,"罐装1压差");
//罐装2压差=SQLGetField(hSQL,"罐装2压差");
SELECTCASEReportMode
CASE1
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,1,TimeFiled)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,2,空调1初校)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,3,空调1中效)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,4,空调1风速)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,5,空调2初校)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,6,空调2中效)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,7,空调2风速)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,8,空调3初校)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,9,空调3中效)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,10,空调3风速)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,11,空调4初校)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,12,空调4中效)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,13,空调4风速)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,5,空调5初校)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,6,空调5中效)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,7,空调5风速)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,17,空调6初校)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,18,空调6中效)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,19,空调6风速)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,20,空调7初校)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,21,空调7中效)));
////VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,22,空调7风速)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,23,罐装1风1)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,24,罐装1风2)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,25,罐装1压差)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,26,罐装2风1)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,27,罐装2风2)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,28,罐装2压差)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,29,软塞1风)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,30,软塞1压)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,31,软塞1风)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,32,软塞2压差)));
IFRow>1000THEN
VbCallReturn(VbCallRun(VbCallOpen("FomartGrid",Row,26)));
END
CASE2,3
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,1,TimeFiled)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,2,空调1初校)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,3,空调1中效)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,4,空调1风速)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,5,空调2初校)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,6,空调2中效)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,7,空调2风速)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,8,空调3初校)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,9,空调3中效)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,10,空调3风速)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,11,空调4初校)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,12,空调4中效)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,13,空调4风速)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,5,空调5初校)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,6,空调5中效)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,7,空调5风速)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,17,空调6初校)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,18,空调6中效)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,19,空调6风速)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,20,空调7初校)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,21,空调7中效)));
////VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,22,空调7风速)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,23,罐装1风1)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,24,罐装1风2)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,25,罐装1压差)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,26,罐装2风1)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,27,罐装2风2)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,28,罐装2压差)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,29,软塞1风)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,30,软塞1压)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,31,软塞1风)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,32,软塞2压差)));
IFRow>1000THEN
VbCallReturn(VbCallRun(VbCallOpen("FomartGrid",Row,26)));
END
CASE4
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,1,TimeFiled)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,2,空调1初校)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,3,空调1中效)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,4,空调1风速)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,5,空调2初校)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,6,空调2中效)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,7,空调2风速)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,8,空调3初校)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,9,空调3中效)));
VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,10,空调3风速)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,11,空调4初校)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,12,空调4中效)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,13,空调4风速)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,5,空调5初校)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,6,空调5中效)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,7,空调5风速)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,17,空调6初校)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,18,空调6中效)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData",Row,19,空调6风速)));
//VbCallReturn(VbCallRun(VbCallOpen("ShowData
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- citect 数据 读取
![提示](https://static.bingdoc.com/images/bang_tan.gif)