dll注册说明
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、注册dll
首先安装VS2010
在开始菜单中选择Visual Studio命令提示
使用cd命令选择存放dll的文件夹
使用gacutil /i 命令加载dll
使用regasm命令注册dll文件
若程序编译环境和使用环境不同，请为这两个环境均做上述操作，注册dll
二、dll文件说明
本文件中封装了三个方法
SetDataBaseConnectString(string connectionStr)
该方法用于输入数据库连接字符串
AddCuiHuoData(float dianya, float dianliu, float gonglv, float nengliang, float shijian,string zuhao, string lingjianbianma, string gongzhuangbianhao, string xingming, string gongwei, string nengliangzhuangtai, string dianyuan)
该方法用于设备工艺数据录入数据库，返回值为int型，为0时表示传输正常，为-1时表示传输错误。
AddCuiHuoDevPara(float CuiHuoWaterTemp, float CoolingWaterTemp, int SingleBeat, i nt CombineBeat, int SingleCount, int CombineCount, int Sum, int TotalSingleCount , int TotalCombineCount, int TotalSum, bool DevJerk,bool HasPart, bool PowerOn , bool JOG, bool AutoSingleRun, bool AutoCombineRun, bool AutoSingleMode, bool AutoCombineMode, bool UnloadRequire, bool UnloadComplete, bool LoadRequire, bool LoadComplete, bool FirstCoolingWarn, bool SecondCoolingWarn, bool ThirdCoolingWar n, bool FouthCoolingWarn, bool FifthCoolingWarn,bool SixCoolingWarn, bool Sevent hCoolingWarn, bool EightCoolingWarn, bool CoolingTempWarn, bool CuiHuoTempWarn,bo ol PressWarn, bool SmoothWarn, bool FirstDianYuanCoolingWarn, bool SecondDianYua nCoolingWarn, bool ThirdDianYuanCoolingWarn, bool EnergyWarn)
该方法用于设备参数数据录入数据库，返回值为int型，为0时表示传输正常，为-1时表示传输错误。
三、使用dll中的方法
Private Sub WriteInDB_Click()
Dim rev1 As Integer
Dim rev2 As Integer
Dim str As String
’打开txt文本，录入连接字符串
Open
"C:\Users\LiTong\Desktop\cuihuotest\DevDataAdd\ConnectionString.txt" For Input As #1
Line Input #1, str
’声明类
Dim oDevDataAdd
Set oDevDataAdd = CreateObject("DevDataAdd.AddDevData")
’Text1.Text = str
’调用连接数据库的方法
oDevDataAdd.SetDataBaseConnectString (str)
’将工艺参数插入数据库
rev1 = oDevDataAdd.AddCuiHuoData(1, 2, 3, 4, 5, "7", "6", "5", "4", "3", "2", "1")
’将设备状态插入数据库
rev2= oDevDataAdd.AddCuiHuoDevPara(1.1, 2.1, 3, 4, 5, 6, 7, 8, 9, 10, True, True, True, True, True, True, True, True, True, True, True, True, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False)
MsgBox rev1 + rev2
End Sub