宿舍管理系統(tǒng)代碼實(shí)現(xiàn)-全文預(yù)覽
【正文】 改，才能輸入正確的記錄。編輯操作主要代碼如下： = False = True = True = True = True = True = True = 確定ElseIf = 取消 Then = 編輯 = 添加 = True = True = True = = False = False = False = False = False = False = False = FalseEnd If 公寓設(shè)置公寓設(shè)置可以說是本程序中一關(guān)鍵部分。所以在操作前要想好。沒有對記錄刪除等權(quán)力。添加的時候可以選擇所添加人物的級別。即不可以前查看或向后查看。 datasource.CommandType = adCmdTable.RecordSource = yonghu.RefreshEnd With = False = FalseIf = 0 Then = False = False = False = FalseEnd If = 上一條與下一條的功能一目了然，它們可以對當(dāng)前表進(jìn)行上一條記錄或下一條記錄依次查看。 amp。三、 系統(tǒng)管理 用戶管理①界面效果圖② 界面制作與實(shí)現(xiàn)方法 這個界面總體來說各個控件比較簡單，但是作為一個添加刪除管理員的操作，它已經(jīng)連接到了數(shù)據(jù)庫，與數(shù)據(jù)庫的yonghu表相聯(lián)。 datasource.CommandType = adCmdTable.RecordSource = qinshi.RefreshEnd WithWith Adodc9.Mode = adModeReadWrite.ConnectionString = provider amp。 amp。 。 datasource.CommandType = adCmdTable.RecordSource = class.RefreshEnd WithWith Adodc4.Mode = adModeReadWrite.ConnectionString = provider amp。 amp。 amp。設(shè)置普通用戶模式If = 普通用戶 Then = False = False = False = False(5).Visible = False(6).Visible = False(7).Visible = False(8).Visible = FalseEnd If = = 750 = 750 = 1200 = 1200 = 1200= 1500= 1500= 1500Y = x = (Y z) / 4(1).Width = u + x(2).Width = v + x(3).Width = w + x(4).Width = m + xprovider = provider=datasource = data source= amp。 (3).Text = 用戶模式： amp。 。①界面效果圖如下：左側(cè)操作欄和右側(cè)顯示欄會在下面的內(nèi)容中做介紹，現(xiàn)在只簡單介紹一下工具欄和狀態(tài)欄，以及主窗體的各個事件。If = False And = Trim((pass)) Then = (級別) = (用戶)Unload MeElse = = MsgBox 登錄不成功,請重新登錄!, 48, 提示End If二、 程序主界面程序主界面為本軟件的顯示的核心部分。 datasource.CommandType = adCmdTable.RecordSource = yonghu.Refresh.End With對用戶進(jìn)行判斷If = ThenMsgBox 請輸入用戶名!, 48, 提示Exit SubEnd If 用戶=39。 amp。普通用戶只有普通的查看，數(shù)據(jù)轉(zhuǎn)換等。H808080 = True = True = True = TrueEnd Sub(2) 用戶類型判斷 在數(shù)據(jù)庫中建了一人yonghu表。HE0E0E0End Sub 鼠標(biāo)移動到標(biāo)簽的時候設(shè)置線條的顏色如下：Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) = amp。Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) = False = False = False = False = False = False = False = FalseEnd Sub 鼠標(biāo)按下的時候設(shè)置線條的顏色如下：Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) = amp。因?yàn)榇斯芾碥浖诘卿浐蟛煌愋偷挠脩麸@示的窗體與實(shí)現(xiàn)的功能都不是一樣的，它們會有所差別！(1) 浮動按鈕的實(shí)現(xiàn) 確定和取消兩個按鈕在鼠標(biāo)沒有放上去之前看上去只是一個普通的平面字效果，但是當(dāng)你把鼠標(biāo)放在這幾個字上面后，它會顯示凸出的效果，按下后呈現(xiàn)凹陷的效果。又不失其莊雅。在做這個登錄面的時候想了很多，最后選擇了這種，感覺它看起來干凈，整齊。如果正確，那么它屬于哪種類型用戶。主要代碼如下： 在窗體中的鼠標(biāo)移動過程中，以及在窗體初始化的時候， 屬性設(shè)置為 False，只有在鼠標(biāo)按下的時候在改變其顏色即可。HE0E0E0 = amp。H808080 = amp。管理員擁有對數(shù)據(jù)庫操作的一切權(quán)限。主要代碼如下：設(shè)置當(dāng)前控件連接的數(shù)據(jù)庫Dim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。 amp。 39。菜單部分、工具欄、左側(cè)操作欄、右側(cè)顯示欄以及狀態(tài)欄。 下面是整個工具欄運(yùn)行時代碼：Select Case Case 1 1Case 3 1Case 5On Error GoTo next2Dim s As AdodcSet s = If = users Then 1End Ifnext2:Case 7On Error Resume NextDim o As AdodcSet o = Case 9 1Case 11With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。.RefreshEnd WithSet = Adodc1Call dxCase 13Unload MeEnd Select = (級別) = (用戶)(2).Text = 當(dāng)前用戶： amp。 Time39。 。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = weisheng.RefreshEnd WithWith Adodc5.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = zichan.RefreshEnd Withtreeview部分樹形顯示的初始化在這里已經(jīng)做了幾個過程，調(diào)用即可。設(shè)置代碼如下：Dim provider As StringDim datasource As String
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1