DIAView XY曲線 SQLServer互動

源碼下載下傳：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 "查詢成功"