學(xué)生宿舍管理系統(tǒng)(編輯修改稿)
2025-09-14 16:32 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 = ElseIf = Then MsgBox 用戶名不能為空！, 48, 提示 ElseIf = Then MsgBox 密碼不能為空！, 48, 提示 ElseIf Then MsgBox 密碼兩次需一致！, 48, 提示 Else = True = True = True = True = 編輯 = 添加 = False = False = False = False = False = False = False = False End If刪除操作可以把當(dāng)前記錄刪除掉。一經(jīng)刪除即不可以在恢復(fù)。所以在操作前要想好。 刪除操作部分代碼： If = 1 Then = FalseEnd If If (MsgBox(你真的想刪除當(dāng)前記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then End If公寓設(shè)置可以說(shuō)是本程序中一關(guān)鍵部分。因?yàn)樗械脑O(shè)置都在此進(jìn)行。包括公寓添加、修改、刪除。寢室的添加、修改、刪除以及班級(jí)的添加、修改和刪除操作。只有正確的對(duì)這些設(shè)置進(jìn)行添加修改，才能輸入正確的記錄。這里主要涉及到的問(wèn)題是datagrid的顯示，以及treeview及時(shí)形成新的結(jié)構(gòu)。還有一些就是對(duì)表記錄的復(fù)雜操作。在點(diǎn)擊sstab各版的時(shí)候，要在這時(shí)重新生成寢室設(shè)置中的樹型結(jié)構(gòu)，Select Case PreviousTab Case 0 Call startree1 Case 1 Dim I As Integer I = 1 If 0 Then Do While I ((公寓名稱)) I = I + 1 Loop End If Call startree1 Case 2 Call startree1End SelectEnd Sub：Public n As New 39。新建一個(gè)數(shù)據(jù)源Public qy1 As New 39。數(shù)據(jù)一個(gè)記錄集Public qy2 As New 39。數(shù)據(jù)一個(gè)記錄集Sub Main()tkOpenAccessDB amp。 \ 39。連接數(shù)據(jù)庫(kù)If = adStateOpen Then 39。表狀態(tài)End If select * from 登陸, n, adOpenStatic, adLockReadOnly, adCmdText 39。查詢表內(nèi)是否有數(shù)據(jù)If = 0 ThenSet qy1 = (insert into 登陸 values(39。admin39。,39。admin39。,39。超級(jí)管理員39。)) 39。表內(nèi)無(wú)數(shù)據(jù)執(zhí)行此語(yǔ)句新建用戶End IfEnd SubPrivate Sub tkOpenAccessDB( _ tkFileName As String, _ Optional tkUserID As String, _ Optional tkPassword As String _ ) 39。連接數(shù)據(jù)庫(kù)參數(shù) On Error GoTo tkFinish Provider=。 amp。 _ Data Source= amp。 tkFileName amp。 。 amp。 _ Mode=Share Deny None。 amp。 _ Extend
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1