AB上位机配方使用.docx

AB上位机配方使用.docx

《AB上位机配方使用.docx》由会员分享，可在线阅读，更多相关《AB上位机配方使用.docx（19页珍藏版）》请在冰豆网上搜索。

AB上位机配方使用

1．定义ACCESSmdb数据库表格格式

在DesignView模式设计Recipe记录表格

定义Recipe组成

设置RecipeNo为PrimaryKey检索主键

2．定义系统数据源

ODBC数据源指向recipe.mdb

3.定义FTVIEWSE标签数据库中标签变量

AI01-05代表数据库Recipe显示缓冲变量

PLC01-05代表PLCRecipe变量

RecipeNo代表显示数据库内Recipe号码

RunRecipeNo代表PLC运行Recipe号码

4．运行测试画面

输入检索数据库Recipe号码

点击读取按钮

点击下装按钮

修改Recipe内容，点击保存

新建Recipe号码，点击保存

点击删除，删除当前数据库Recipe记录

点击上载，上载PLC内Recipe

5．查看程序

Recipe读取程序

PublicSubRead_DB（）

DimcnAsADODB.Connection

DimrsAsADODB.Recordset

DimgsqlsAsString

DimRIndexAsString

DimAI_01,AI_02,AI_03,AI_04,AI_05AsString

Setcn=NewADODB.Connection

Setrs=NewADODB.Recordset

cn.Open"persistsecurityinfo=false;datasource=odbcrecipe;"

RIndex=NumericInput6.Value

gsqls="SELECT*FROMRecipeTWHERERecipeNo="+RIndex

rs.Opengsqls,cn

Ifrs.EOFAndrs.BOFThen

'MsgBox"查询失败！

"

ExecuteCommand"SetAI010"

ExecuteCommand"SetAI020"

ExecuteCommand"SetAI030"

ExecuteCommand"SetAI040"

ExecuteCommand"SetAI050"

Else

AI_01=rs.Fields（"AI01"）

AI_02=rs.Fields（"AI02"）

AI_03=rs.Fields（"AI03"）

AI_04=rs.Fields（"AI04"）

AI_05=rs.Fields（"AI05"）

'NumericInput13.Value=rs.Fields（"AI03"）

ExecuteCommand"SetAI01"+AI_01

ExecuteCommand"SetAI02"+AI_02

ExecuteCommand"SetAI03"+AI_03

ExecuteCommand"SetAI04"+AI_04

ExecuteCommand"SetAI05"+AI_05

EndIf

rs.Close

cn.Close

EndSub

Recipe保存程序

PublicSubWrite_DB（）

DimcnAsADODB.Connection

DimrsAsADODB.Recordset

DimgsqlsAsString

DimRIndexAsString

DimAI_01,AI_02,AI_03,AI_04,AI_05AsString

Setcn=NewADODB.Connection

Setrs=NewADODB.Recordset

cn.Open"persistsecurityinfo=false;datasource=odbcrecipe;"

RIndex=NumericInput6.Value

gsqls="SELECT*FROMRecipeTWHERERecipeNo="+RIndex

rs.Opengsqls,cn,adOpenDynamic,adLockPessimistic

Ifrs.EOFAndrs.BOFThen

'MsgBox"查询失败！

"

rs.AddNew

rs.Fields（"RecipeNo"）=CInt（RIndex）

EndIf

rs.Fields（"AI01"）=NumericInput1.Value

rs.Fields（"AI02"）=NumericInput2.Value

rs.Fields（"AI03"）=NumericInput3.Value

rs.Fields（"AI04"）=NumericInput4.Value

rs.Fields（"AI05"）=NumericInput5.Value

rs.Update

rs.Close

cn.Close

EndSub

Recipe删除程序

PublicSubDelete_Recipe（）

DimcnAsADODB.Connection

DimrsAsADODB.Recordset

DimgsqlsAsString

DimRIndexAsString

DimAI_01,AI_02,AI_03,AI_04,AI_05AsString

Setcn=NewADODB.Connection

Setrs=NewADODB.Recordset

cn.Open"persistsecurityinfo=false;datasource=odbcrecipe;"

RIndex=NumericInput6.Value

gsqls="SELECT*FROMRecipeTWHERERecipeNo="+RIndex

rs.Opengsqls,cn,adOpenDynamic,adLockPessimistic

Ifrs.EOFAndrs.BOFThen

'MsgBox"查询失败！

"

Else

rs.Delete

rs.Update

ExecuteCommand"SetAI010"

ExecuteCommand"SetAI020"

ExecuteCommand"SetAI030"

ExecuteCommand"SetAI040"

ExecuteCommand"SetAI050"

EndIf

rs.Close

cn.Close

EndSub

Recipe下装/上传脚本程序

（注：

可编辑下载，若有不当之处，请指正，谢谢!

）