宿舍管理系統(tǒng)代碼實(shí)現(xiàn)(已修改)
2025-08-05 18:39 本頁(yè)面
【正文】 代碼實(shí)現(xiàn)代碼實(shí)現(xiàn)一、 登錄界面此界面是由Photoshop制作而成。在做這個(gè)登錄面的時(shí)候想了很多，最后選擇了這種，感覺(jué)它看起來(lái)干凈，整齊。又不失其莊雅。加上本單位最有特色的建筑，會(huì)讓人一目了然。 登錄圖片顯示 界面制作與實(shí)現(xiàn) 在這個(gè)界面中，主要處理的是判斷當(dāng)前用戶輸入的信息是否正確。如果正確，那么它屬于哪種類(lèi)型用戶。因?yàn)榇斯芾碥浖诘卿浐蟛煌?lèi)型的用戶顯示的窗體與實(shí)現(xiàn)的功能都不是一樣的，它們會(huì)有所差別！(1) 浮動(dòng)按鈕的實(shí)現(xiàn) 確定和取消兩個(gè)按鈕在鼠標(biāo)沒(méi)有放上去之前看上去只是一個(gè)普通的平面字效果，但是當(dāng)你把鼠標(biāo)放在這幾個(gè)字上面后，它會(huì)顯示凸出的效果，按下后呈現(xiàn)凹陷的效果。總體實(shí)現(xiàn)立體的感覺(jué)。原理主要是在鼠標(biāo)mousemove事件與線的顏色變化組合來(lái)實(shí)現(xiàn)。主要代碼如下： 在窗體中的鼠標(biāo)移動(dòng)過(guò)程中，以及在窗體初始化的時(shí)候， 屬性設(shè)置為 False，只有在鼠標(biāo)按下的時(shí)候在改變其顏色即可。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í)候設(shè)置線條的顏色如下：Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) = amp。H808080 = amp。H808080 = amp。HE0E0E0 = amp。HE0E0E0End Sub 鼠標(biāo)移動(dòng)到標(biāo)簽的時(shí)候設(shè)置線條的顏色如下：Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) = amp。HE0E0E0 = amp。HE0E0E0 = amp。H808080 = amp。H808080 = True = True = True = TrueEnd Sub(2) 用戶類(lèi)型判斷 在數(shù)據(jù)庫(kù)中建了一人yonghu表。在添加管理人員時(shí)有兩種默認(rèn)級(jí)別。管理員、普通用戶。管理員擁有對(duì)數(shù)據(jù)庫(kù)操作的一切權(quán)限。普通用戶只有普通的查看，數(shù)據(jù)轉(zhuǎn)換等。沒(méi)有刪除等操作功能。前用戶成功登錄后，會(huì)在主窗體的狀態(tài)欄中顯示出當(dāng)前用戶及其用戶類(lèi)型。主要代碼如下：設(shè)置當(dāng)前控件連接的數(shù)據(jù)庫(kù)Dim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。 amp。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = yonghu.Refresh.End With對(duì)用戶進(jìn)行判斷If = ThenMsgBox 請(qǐng)輸入用戶名!, 48, 提示Exit SubEnd If 用戶=39。 amp。 amp。 39。If = False And = Trim((pass)) Then = (級(jí)別) = (用戶)Unload MeElse = = MsgBox 登錄不成功,請(qǐng)重新登錄!, 48, 提示End If二、 程序主界面程序主界面為本軟件的顯示的核心部分。一切主要操作及顯示都通過(guò)這里完成。整個(gè)界面主要由五部分組成。菜單部分、工具欄、左側(cè)操作欄、右側(cè)顯示欄以及狀態(tài)欄。①界面效果圖如下：左側(cè)操作欄和右側(cè)顯示欄會(huì)在下面的內(nèi)容中做介紹，現(xiàn)在只簡(jiǎn)單介紹一下工具欄和狀態(tài)欄，以及主窗體的各個(gè)事件。②它的實(shí)現(xiàn)方法如下所示：Dim o As AdodcSet o = 這里主要是用到了ado對(duì)像的方法。用這個(gè)方法得到數(shù)據(jù)源。 下面是整個(gè)工具欄運(yùn)行時(shí)代碼：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。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = users 39。.RefreshEnd WithSet = Adodc1Call dxCase 13Unload MeEnd Select = (級(jí)別) = (用戶)(2).Text = 當(dāng)前用戶： amp。 (3).Text = 用戶模式： amp。 (4).Text = Date amp。 amp。 Time39。設(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。 amp。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = users 39。.RefreshEnd WithWith Adodc2.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = gongyu.RefreshEnd WithWith Adodc3.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = class.RefreshEnd WithWith Adodc4.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = weisheng.RefreshEnd WithWith Adodc5.Mode = adModeReadWrite.ConnectionString = provider
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1