課程設(shè)計論文燃氣管理系統(tǒng)-在線瀏覽
2024-08-08 23:40本頁面
【正文】 Private Sub 用戶維修查詢_Click()End SubPrivate Sub 用戶維修信息打印_Click()End SubPrivate Sub 用戶信息查詢_Click()End SubPrivate Sub 用戶用氣量查詢_Click()End SubPrivate Sub 遠程開關(guān)閥_Click()End Sub(3)單戶讀表Private Sub Command1_Click()Dim conn As New Dim rs As New Dim strSql As StringSet conn = New = Provider=SQLOLEDB。Persist Security Info=False。 amp。 39。 amp。 39。 amp。 39。Integrated Security=SSPI。Initial Catalog=燃氣管理系統(tǒng) = 0strSql = update 用戶用氣量信息表 set 已用燃氣量=已用燃氣量+當日用氣量 where 住址=39。 amp。 strSql = select * from 用戶用氣量信息表 MsgBox (集中讀表完成) = :End SubPrivate Sub Command2_Click()Dim cc = MsgBox(確定要退出燃氣管理系統(tǒng)嗎?, 33, 燃氣管理系統(tǒng))If c = vbOK Then Unload Me(5)下發(fā)表代碼Dim cc = MsgBox(確定要退出燃氣管理系統(tǒng)嗎?, 33, 燃氣管理系統(tǒng))If c = vbOK Then Unload Me Else End If(6)遠程開關(guān)閥Dim i As IntegerFor i = 1 To 2If i = 1 Then 開Else 關(guān)End IfNext = 開(7)用戶信息查詢Private Sub Command1_Click() = select * from 用戶信息表 where 用戶姓名=39。 amp。 and 住址=39。 amp。 and 表 ID=39。 Val() amp。 = : = : = :End SubPrivate Sub Command2_Click()Dim cc = MsgBox(確定要退出燃氣管理系統(tǒng)嗎?, 33, 燃氣管理系統(tǒng))If c = vbOK Then Unload Me Else End IfEnd SubPrivate Sub Command3_Click()Dim xlapp As Dim xlbook As Dim xlsheet As = select * from 用戶信息表Dim i, j, m, n As IntegerSet xlapp = CreateObject()Set xlbook = (1).ColumnWidth = 10 = TrueSet xlsheet = (1)m = + 1n = (1, 1) = 用戶姓名(1, 2) = 住址(1, 3) = 表 ID(1, 4) = 表型號(1, 5) = 開戶時間(1, 6) = 開戶始用氣量(1, 7) = 已用總氣量(1, 8) = 剩余燃氣量(1, 9) = 郵箱For i = 2 To m For j = 1 To n (i, j) = (j 1) Next NextSet xlapp = NothingEnd Sub(8)用戶用氣量查詢Private Sub Command1_Click() = select * from 用戶信息表 where 用戶姓名= 39。 amp。 and 住址=39。 amp。 and 表 ID=39。 Val() amp。 = : = : = :End SubPrivate Sub Command2_Click()Dim cc = MsgBox(確定要退出燃氣管理系統(tǒng)嗎?, 33, 燃氣管理系統(tǒng))If c = vbOK Then Unload Me Else End IfEnd SubPrivate Sub Command3_Click()Dim xlapp As Dim xlbook As Dim xlsheet As = select * from 用戶用氣量信息表Dim i, j, m, n As IntegerSet xlapp = CreateObject()Set xlbook = (1).ColumnWidth = 10 = TrueSet xlsheet = (1)m = + 1 39。獲取數(shù)據(jù)庫中二維表有多少列(1, 1) = 用戶姓名(1, 2) = 住址(1, 3) = 表 ID(1, 4) = 已用燃氣量(1, 5) = 當日用氣量For i = 2 To mFor j = 1 To n(i, j) = (j 1)NextNextSet xlapp = NothingEnd Sub (9)用戶換表查詢Private Sub Command1_Click() = select * from 用戶換表信息表 where 用戶姓名=39。 amp。 and 住址=39。 amp。 and 表 ID=39。 Val() amp。 = : = : = End SubPrivate Sub Command2_Click()Dim cc = MsgBox(確定要退出燃氣管理系統(tǒng)嗎?, 33, 燃氣管理系統(tǒng))If c
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1