搬家第41天-citect2018prj11使用cicode代码自动创建ACCESS数据库的ODBC连接、自动添加纪录、删除ACCESS记录

前面练习了在citect2018下如何使用cicode向access添加纪录。由于access数据库大小是有限制的，不能无限的添加纪录，所以需要定期的删除老的数据。今天练习了如何使用cicode删除access数据。我把联系程序放在百度网盘，文件编号citect2018prj11，地址是

链接: https://pan.baidu.com/s/11UGVuw83JOSVZMz5DuTJ9g 提取码: 1uuv

 

一 准备工作

新建一批citect2018内部变量

修改配置文件[Security]blokexec=0

修改administrator角色权限，允许执行为true

增加用户admin，密码123，属于administrator角色

二 新建cicode开发环境下的函数，为了避免程序代码与博客后台html语句冲突，我做了截图

createODBCLink()是为了动态创建ODBC连接

由于exec函数需要权限，因此先登录为admin用户，确认登录成功了，再执行，确保程序的严密性。实际工程中还需要考虑多用户情况，那么就需要做判断userinfo(1)="user1" or "user2" or "user3"这样子。

FUNCTION Setvalue()//设置内部变量数值
temp1=TimeSec(TimeCurrent())
temp2=TimeSec(TimeCurrent())+10
temp3=TimeSec(TimeCurrent())+20
temp4=TimeSec(TimeCurrent())+30
press1=TimeSec(TimeCurrent())+5
press2=TimeSec(TimeCurrent())+15
press3=TimeSec(TimeCurrent())+25
press4=TimeSec(TimeCurrent())+35
flow1=TimeSec(TimeCurrent())+8
flow2=TimeSec(TimeCurrent())+18
END

addrecorddb()是添加数据库记录函数

数据表的结构是这样子的

deleteTop100Record()函数作用是删除前100条记录

三 添加两个事件，用于赋值和定期写记录到ACCESS数据表

四新建一个画面Start，用于创建ODBC连接，画面大小为10*10。再新建一个画面main。start画面的打开事件写入以下代码：

CreateODBCLink()
PageDisplay("main", "Cluster1")

 

五 mian画面上放置一个按钮，按钮的鼠标点击事件写入以下代码：

DeleteTop100Reord()

保存编译，运行后每点击按钮一次，就会删除100条记录。DeleteTop100Reord()
也可以写入事件，自动定期删除记录。