首页 > 数据库技术 > 详细

citect2018 cicode通过动作触发事件,向sql server添加记录

时间:2021-03-02 14:30:18      阅读:129      评论:0      收藏:0      [点我收藏+]

由于某浪博客一直不正常,售后也一直不相应我的求助,今后就在这里更新吧。

 

现场有这样一种需求:当布料小车停在某个储槽上方下料时,希望能够记录什么时间在什么储槽上方,便于查询。我先简化做了一个测试练习,现在把练习过程记录下来。

 

1. 建立数据库

在sql server新建一个数据库myDB。赋予数据库用户sa访问这个数据库的权限。数据库下新建一个表PositionRecord,表结构如下

技术分享图片

myID为主键,递增。

保存新建的表。

 

2.新建ODBC连接mtRecord,指向刚才新建的sql数据库。

3.新建citect项目

4. 新建本地变量

技术分享图片

5.新建画面,放置按钮和图形,按钮用于修改本地变量数值,模拟现场信号变化,图形用于观察变量变化效果。

技术分享图片

6.新建cicode函数

FUNCTION P1record()
STRING myTime,Posidescrip;
myTime=Date(10)
Posidescrip="A313布料小车处于1#槽位"
INT hSQL;
STRING SqlAction;
SqlAction= "INSERT INTO PositionRecord(myTime,Posidescrip) VALUES (‘" + myTime + "‘,‘" + Posidescrip + "‘)"
hSQL = SQLConnect("DSN=myRecord;UID=sa;PWD=sa");
IF hSQL <> -1 THEN
SQLExec(hSQL, SqlAction);
SQLDisconnect(hSQL);
END
END

FUNCTION P2Record()
STRING myTime,Posidescrip;
myTime=Date(10)
Posidescrip="A313布料小车处于2#槽位"
INT hSQL;
STRING SqlAction;
SqlAction= "INSERT INTO PositionRecord(myTime,Posidescrip) VALUES (‘" + myTime + "‘,‘" + Posidescrip + "‘)"
hSQL = SQLConnect("DSN=myRecord;UID=sa;PWD=sa");
IF hSQL <> -1 THEN
SQLExec(hSQL, SqlAction);
SQLDisconnect(hSQL);
END
END

 

7.新建两个事件,通过触发执行事件

技术分享图片

8. 编译。

9.设置计算机向导,允许运行期间执行这两个事件。

10.运行citect程序,点击按钮,使P1、P2置位。到sql server中查看PositionRecord表记录,可以看到新添加的记录。

技术分享图片

 

citect2018 cicode通过动作触发事件,向sql server添加记录

原文:https://www.cnblogs.com/fishingsriver/p/14468368.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!