【正文】 代碼實現(xiàn)代碼實現(xiàn)一、 登錄界面此界面是由Photoshop制作而成。在做這個登錄面的時候想了很多，最后選擇了這種，感覺它看起來干凈，整齊。又不失其莊雅。加上本單位最有特色的建筑，會讓人一目了然。 登錄圖片顯示 界面制作與實現(xiàn) 在這個界面中，主要處理的是判斷當前用戶輸入的信息是否正確。如果正確，那么它屬于哪種類型用戶。因為此管理軟件在登錄后不同類型的用戶顯示的窗體與實現(xiàn)的功能都不是一樣的，它們會有所差別！(1) 浮動按鈕的實現(xiàn) 確定和取消兩個按鈕在鼠標沒有放上去之前看上去只是一個普通的平面字效果，但是當你把鼠標放在這幾個字上面后，它會顯示凸出的效果，按下后呈現(xiàn)凹陷的效果?？傮w實現(xiàn)立體的感覺。原理主要是在鼠標mousemove事件與線的顏色變化組合來實現(xiàn)。主要代碼如下： 在窗體中的鼠標移動過程中，以及在窗體初始化的時候， 屬性設置為 False，只有在鼠標按下的時候在改變其顏色即可。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 鼠標按下的時候設置線條的顏色如下：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 鼠標移動到標簽的時候設置線條的顏色如下：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) 用戶類型判斷 在數(shù)據(jù)庫中建了一人yonghu表。在添加管理人員時有兩種默認級別。管理員、普通用戶。管理員擁有對數(shù)據(jù)庫操作的一切權(quán)限。普通用戶只有普通的查看，數(shù)據(jù)轉(zhuǎn)換等。沒有刪除等操作功能。前用戶成功登錄后，會在主窗體的狀態(tài)欄中顯示出當前用戶及其用戶類型。主要代碼如下：設置當前控件連接的數(shù)據(jù)庫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對用戶進行判斷If = ThenMsgBox 請輸入用戶名!, 48, 提示Exit SubEnd If 用戶=39。 amp。 amp。 39。If = False And = Trim((pass)) Then = (級別) = (用戶)Unload MeElse = = MsgBox 登錄不成功,請重新登錄!, 48, 提示End If二、 程序主界面程序主界面為本軟件的顯示的核心部分。一切主要操作及顯示都通過這里完成。整個界面主要由五部分組成。菜單部分、工具欄、左側(cè)操作欄、右側(cè)顯示欄以及狀態(tài)欄。①界面效果圖如下：左側(cè)操作欄和右側(cè)顯示欄會在下面的內(nèi)容中做介紹，現(xiàn)在只簡單介紹一下工具欄和狀態(tài)欄，以及主窗體的各個事件。②它的實現(xiàn)方法如下所示：Dim o As AdodcSet o = 這里主要是用到了ado對像的方法。用這個方法得到數(shù)據(jù)源。 下面是整個工具欄運行時代碼：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 = (級別) = (用戶)(2).Text = 當前用戶： amp。 (3).Text = 用戶模式： amp。 (4).Text = Date amp。 amp。 Time39。設置普通用戶模式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