随笔分类 - citectVBA
摘要：现场有一组储槽，装不同地区的煤，根据生产需要，每个槽储存的煤种不固定，中控工在citect2018运行界面上输入哥哥储槽的煤种，储槽煤种信息存放在sql server数据库，每次修改煤种信息就增加一条记录。有一个页面使用mshflexgrid控件显示各个储槽当前煤种信息，这就需要写脚本，脚本的核心就
阅读全文
摘要：比如页面上有一个date and time picker控件，符号为main_AN20.新建一个citectVBA程序段 Sub SetDate()main_AN20.value=cdate(now())End Sub 页面的进入页面事件写下面的代码 VbCallRun(VbCallOpen("se
阅读全文
摘要：citectVBA代码为 Sub ExcelSaveAsPDF()Dim xlapp As applicationDim objworkbook As ObjectSet xlapp=CreateObject("Excel.Application")xlapp.visible=FalsexlApp.
阅读全文
摘要：前面练习过在citect2018中使用精灵显示设备状态信息，这对同类设备在HMI上状态显示的制作非常方便。工艺中往往有很多同类型的运转设备需要在中控室控制，如果一个一个的制作操控面板非常麻烦费时，利用精灵先制作出通用的控制面板会非常方便。citect中使用asswin可以弹出面板，可以传递最多8个函
阅读全文
摘要：在使用citect制作工艺画面时，会遇到类似的设备外观是一样的，关联的变量名称写法也是一致的。这个时候就可以将这类设备的图形制作成精灵，便于反复调用，提高效率。今天做了一个练习，就是制作精灵。假设的应用场景是一个皮带控制系统，N条皮带都是类似的控制方法，由于仅仅是做练习，所以只关联了转换开关、运行反
阅读全文
摘要：前面一段时间练习了citect2008与ACCESS数据库的读写操作，最近接到一个新的任务，涉及读取其他项目的sql数据表信息，于是先行练习一下。本次练习基于sql server2008. 假设现场有8个储煤槽，分别储存不同的煤种，储煤槽的煤种随着需求变化会发生变化。有两张sql数据表，一张表名字叫
阅读全文
摘要：前面的博客已经记录了如何实现数据采集、数据记录、条件查询、数据导出功能。数据导出使用方法的是：后台创建一个excel文件，将microsoft datagrid控件中的数据逐行逐列读取出来，写入前面创建的excel文件，然后排版处理，最后保存excek文件。实际使用过程中，数据量大的时候，就很慢。
阅读全文
摘要：前面的博客记录了数据记录，数据查询等功能如何实现，条件查询数据后，可能需要导出到excel文件便于打印。这个需求可以通过citectVBA脚本实现，我在练习这个功能时，由于对microsoft datagrid控件不够了解，还是费了些功夫的。 microsoft datagrid控件有几个重要的属性
阅读全文
摘要：前面一篇博客记录了报表功能的准备工作和辅助功能如何实现，这一篇记录如何条件查询，条件查询我希望能够有以下功能： 1. 按照日报表，月报表，年报表查询。 2. 定制我希望看到哪些数据，过滤掉不关心的变量。 通过前面的练习，将报表部分人机交互功能所需要的控件都设置好了。新建一个citectVBA程序 m
阅读全文
摘要：在www.52plc.net论坛上，施耐德王工给了一个报表的例子程序，不过是用旧版本的citect开发的。最近在自学citect2018，用这个版本自己也做了报表功能，把它记录在博客里面，以后的工作也许用得上。做好的程序保存在我的百度网盘，程序名称是citect2018prj13，打开的网址前面的博
阅读全文
摘要：前面的练习记录了citect2018利用citectVBA脚本删除access数据表记录，压缩数据库，但还可以稍加完善。之所以需要删除和压缩，是因为access文件大小有限制，希望不要超限。解决思路是定一个限值，判断文件的大小，超过这个限值就自动的删除一定数量的记录，并且撒所数据库。限制的大小和删除
阅读全文
摘要：前面的练习使用了cicode删除access数据库里面数据表的记录，但是有一个问题，记录删除了理论上access文件大小应该变小，实际情况不是这样子，还需要做一下压缩数据库。压缩数据库可以通过打开access文件，在工具栏上手动压缩，也可以通过程序代码压缩。今天做了练习就是实现citectVBA脚本
阅读全文
摘要：前面的练习记录了查询access数据将结果显示在microsoft datagrid控件上面，有时候需要对显示的某些列隐藏。 在画面上放置microsoft form checkbox控件，数量与datagrid中查询结果的字段数量相关，本次联系对温度1至温度4，压力1至压力4，流量1，流量2一共十
阅读全文
摘要：前面的练习，查询access都是把全部结果显示出来，有时候我们只是想知道某一天的数据，就需要条件查询。 在前面的citect练习页面放置一个microsoft date and time picker。查询按钮的脚本中条件查询语句这么修改，其他语句不变 ssql1="select curdate a
阅读全文
摘要：以前在citect 7.x版本试验过将ACCESS数据采集到microsoft 数据表控件显示，但是当时是将查询结果记录集逐条按照字段位置和数值写入控件，效率低，尤其是数据表记录很多的时候，显得很慢。其实可以通过设定控件的datasource属性方法快速的显示数据。 在citect项目中写以下cit
阅读全文
摘要：前面几天练习了如何使用ODBC方式连接Access数据库，以便后来的数据表操作。当时做练习的目的是学习数据表的读写。实际项目中，项目文件夹的位置不是固定的，最好是根据项目文件夹的位置自动的匹配。为了达到这个目的，我特意的做了练习，把思路和解决办法记录在下面。 首先手动创建一个ODBC链接，名字叫做m
阅读全文
摘要：以前在7.4版本Cicode过连接access2013，用odbc方式，今天在2018版本练习了一下，还是有点不一样的。 一开始，使用下面的连接语句，不好使 FUNCTION ConnAccessDB() hSQL=SQLConnect("DSN=myaccess;UID=;PWD=") IF hS
阅读全文
摘要：在前一篇的画面上放置日期时间控件、microsoft hierarchical flexgrid控件、按钮控件。 在此之前，确保这些activex控件是有使用权限的。wincc和citect都遇到过需要权限的问题。可以看我的另外一篇博客 http://blog.sina.com.cn/s/blog_
阅读全文
摘要：前面的博客定义数组变量时候，数组是一个静态的，有时候数组的大小事先不能够确定，这个时候就需要定义动态数组，动态数组的定义方法和VB中差不多。 Sub defineArray() Dim array() Dim count,i count=10 Redim array(count) For i=1 T
阅读全文
摘要：前面的博客介绍了根据数组如何在owc chart上绘制一条曲线，如果想修改成其他类ixngde图表，只需要修改.type参数的数值就行了，比如修改成Cht.Type=1 就能绘制棒状图了。
阅读全文
浙公网安备 33010602011771号