DIAView XY曲线 SQLServer交互

版权声明：如有雷同请告知我，我会第一时间下架。如有转载请标明出处。 https://blog.csdn.net/qq_40191093/article/details/82344100

源码下载：https://download.csdn.net/download/qq_40191093/10642012

                                                  图 1-1 源码目录结构

步骤一：数据库建立

                                   图 1-2 打开数据库管理界面

                                                       图 1-3 选择windows 身份验证 点击“连接”

                             图 1-4 右击==>数据库==>选择“新建数据库”

图 1-5 数据库命名为“XYSQLserver”

步骤二：使用“SQLServer执行脚本”

 

图 1-6 选中右边数据库“XYSQLServer”==>将文件“XYSQLServer.sql”拖拽到右边区域中如图所示即可再点击==》“执行”按钮

第三步：双击打开项目文件如下图

图 1-7 组态源码目录

第四步：DIAView 数据库访问与SQL Server数据库连接配置

图 1-8 数据库访问 配置 点击“连接测试”提示成功即可

第五步：新建项目==》新建窗口==》拖拽“XY曲线”

第六步： 设置 XY曲线 属性值

第七步：给“描点”按钮添加事件

 按钮“描点”事件脚本如下：

'获取X值并转换成double类型数据
xValue=CDbl(文本框0.Text)
'获取y值并转换成double类型数据
yValue=CDbl(文本框1.Text)
'开始描点
Call XY曲线0.AddPoint("Series0",xValue,yValue)
'是否插入数据库历史记录 值改变
Var.VarIsInsertSQL= Not  Var.VarIsInsertSQL 

MsgBox "描点成功"

按钮“查询”事件脚本如下：

Dim sDate,eDate,sqlStr,dt,dtRowCount
sDate=Left( 时间日历0.Value,10)
eDate=Left( 时间日历1.Value,10)
sqlStr=" SELECT * FROM XYHistoryData WHERE CreateDateTime>='"&sDate&"' AND CreateDateTime<='"&eDate&"' ORDER BY CreateDateTime ASC "
dt=DbAccess.数据库访问表.ExecuteDataTable(sqlStr)
dtRowCount=dt.Rows.Count
If CInt(dtRowCount)<=0 then
	MsgBox "没有数据"
	Exit Sub
End If
XY曲线0.DeletevalueAll()
For i=0 To  dtRowCount-1
	xValue=CDbl( dt(i)("xValue"))
	yValue=CDbl( dt(i)("yValue"))
	Call XY曲线0.AddPoint("Series0",xValue,yValue)
Next
MsgBox "查询成功"