【文章內(nèi)容簡介】 n As Integer, Shift As Integer, x As Single, Y As Single) = amp。HE0E0E0 = amp。HE0E0E0 = amp。H808080 = amp。H808080 = True = True = True 25 = True End Sub (2) 用戶類型判斷 在數(shù)據(jù)庫中建了一人 yonghu表。在添加管理人員時有兩種默認(rèn)級別。管理員、普通用戶。管理員擁有對數(shù)據(jù)庫操作的一切權(quán)限。普通用戶只有普通的查看，數(shù)據(jù)轉(zhuǎn)換等。沒有刪除等操作功能。前用戶成功登錄后，會在主窗體的狀態(tài)欄中顯示出當(dāng)前用戶及其用戶類型。 主要代碼如下： 設(shè)置當(dāng)前控件連 接的數(shù)據(jù)庫 Dim provider As String Dim datasource As String provider = provider= datasource = data source= amp。 amp。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdTable .RecordSource = yonghu .Refresh . End With 對用戶進(jìn)行判斷 If = Then MsgBox 請輸入用戶名 !, 48, 提示 Exit Sub End If 用戶 =39。 amp。 amp。 39。 If = False And = Trim((pass)) Then = (級別 ) 26 = (用戶 ) Unload Me Else = = MsgBox 登錄不成功 ,請重新登錄 !, 48, 提示 End If 程序主界面 程序主界面為本軟件的顯示的核心部分。一切主要操作及 顯示都通過這里完成。整個界面主要由五部分組成。菜單部分、工具欄、左側(cè)操作欄、右側(cè)顯示欄以及狀態(tài)欄。 ① 界面效果圖如下： 圖 27 菜單欄的詳見附錄內(nèi)容，這里就不提了。左側(cè)操作欄和右側(cè)顯示欄會在下面的內(nèi)容中做介紹，現(xiàn)在只簡單介紹一下工具欄和狀態(tài)欄，以及主窗體的各個事件。 工具欄主要是由 coolbar制作而成。由它制做的工具欄的顯示效果會更有立體感一些。這里只列出了幾個常用的按鈕。其中的添加按鈕是用來對公寓住宿人員進(jìn)行添加，修改也是對所住宿人員進(jìn)行修改，想要進(jìn)行 修改時必須顯示所有記錄時才可以進(jìn)行。在這里值得一提的是刪除 DataGrid的操作，由于不知道它的當(dāng)前數(shù)據(jù)源是哪個，所以在刪除前要確定它的數(shù)據(jù)源，也就是它所鏈接的 adodc1的數(shù)據(jù)源，或者是其它 ado控件對它的數(shù)據(jù)源進(jìn)行重新綁定后的數(shù)據(jù)庫表，也有可能是經(jīng)過一個查詢后得到的記錄。 ②它的實(shí)現(xiàn)方法如下所示： Dim o As Adodc Set o = 這里主要是用到了 ado對像的 方法。用這個方法得到數(shù)據(jù)源。 下面是整個工具欄運(yùn)行時代碼： Select Case Case 1 1 Case 3 1 Case 5 On Error GoTo next2 Dim s As Adodc Set s = If = users Then 1 End If next2: 28 Case 7 On Error Resume Next Dim o As Adodc Set o = Case 9 1 Case 11 With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdTable .RecordSource = users 39。 .Refresh End With Set = Adodc1 Call dx Case 13 Unload Me End Select 狀態(tài)欄分四個部分。第一個為固定顯示當(dāng)前所用軟件名稱及作者。其中第二個和第三部分為動態(tài)顯示的，它會顯示出每次用戶登錄名稱及其管理模式。由上圖可以看出， lf為本軟件管理員。第四部分為日期與時間的顯示。其中第三部分的代碼實(shí)現(xiàn)如下： = (級別 ) = (用戶 ) (2).Text = 當(dāng)前用戶： amp。 (3).Text = 用戶模式： amp。 29 (4).Text = Date amp。 amp。 Time 39。設(shè)置普通用戶模式 If = 普通用戶 Then = False = False = False = False (5).Visible = False (6).Visible = False (7).Visible = False (8).Visible = False End If 主窗體在程序運(yùn)行中會遇到不斷改變其大小，最小化，最大化，以及用鼠標(biāo)來改變，這里需要在窗體的 Resize事件中添加代碼，讓程序中用到的各個控件隨時可以適應(yīng)窗體改變后的大小，在這里改變的控件主要有DataGrid、 TreeView 系列及 Frame 控件、 StatusBar。下面就是設(shè)置它 們大小的程序代碼： = = 750 = 750 = 1200 = 1200 = 1200 = 1500 30 = 1500 = 1500 Y = x = (Y z) / 4 (1).Width = u + x (2).Width = v + x (3).Width = w + x (4).Width = m + x 這個軟件的主要部分都在這里運(yùn)行、查看，所以在主窗體的 load事件里要把所用的到的東西都要加載進(jìn)來，例如所在程序運(yùn)行時所用到的表，左側(cè) treeview部分樹形顯示的初始化。在這里幾乎用到了所有的表，如下所示： provider = provider= datasource = data source= amp。 amp。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdTable .RecordSource = users 39。 .Refresh End With With Adodc2 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdTable .RecordSource = gongyu .Refresh 31 End With With Adodc3 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdTable .RecordSource = class .Refresh End With With Adodc4 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdTable .RecordSource = weisheng .Refresh End With With Adodc5 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource End With With Adodc6 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdTable .RecordSource = dengji .Refresh End With 32 With Adodc7 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdTable .RecordSource = qinshi .Refresh End With With Adodc9 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdTable .RecordSource = zichan .Refresh End With treeview部分樹形顯示的初始化在這里已經(jīng)做了幾個過程，調(diào)用即可。 系統(tǒng)設(shè)置 用戶管理 ①界面效果圖 33 圖 ② 界面制作與實(shí)現(xiàn)方法 這個界面總體來說各個控件比較簡單，但是作為一個添加刪除管理員的 操作，它已經(jīng)連接到了數(shù)據(jù)庫，與數(shù)據(jù)庫的 yonghu表相聯(lián)。各個控件也與數(shù)據(jù)庫中表的字段綁定。 在窗體初始化的時候要判斷當(dāng)前數(shù)據(jù)庫表中是否有記錄，如果沒有記錄那么有些按鈕將會被設(shè)置成為失效狀態(tài)，否則會出現(xiàn)錯誤。設(shè)置代碼如下： Dim provider As String Dim datasource As String provider = provider= datasource = data source= amp。 amp。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdTable .RecordSource = yonghu .Refresh 34 End With = False = False If = 0 Then = False = False = False = False End If = 上一條與下一條的功能一目了然，它們可以對當(dāng)前表進(jìn)行上一條記錄或下一條記錄依次查看。當(dāng)找到記錄后，可以對其進(jìn)行相對的刪除、修改等操作。上一條記錄與下一條的記錄在查看時有一個判斷。當(dāng)表中記錄移到最前面（ BOF）或最后面（ EOF）時，會把上一條或下一條其中的一個按鈕的 enable屬性設(shè)置為 true。即不可以前查看或向后查看。 上一條與下一條主要代碼如下： 39。移動記錄 = True If Then = False End If 39。移動記錄 = True If Then = False End If 添加用戶可以添加使用該管理軟件的用戶。添加的時候可以選擇所添加人物的 級別。軟件默認(rèn)為兩個級別：管理員、普通用戶。管理員擁有對 35 此軟件管理操作等一切的權(quán)力。普通用戶，只有普通的查看、查詢、備份、添加等權(quán)力。沒有對記錄刪除等權(quán)力。在添加用戶時你可以選擇一個且必須選擇一個。然后輸入此用戶的用戶名和密碼即可！ 添加用戶主要代碼： If = 添加 Then = False = False = False = 確定 = 取消 = True = True = True = True = True = ElseIf = Then MsgBox 用戶名不能為空！ , 48, 提示 ElseIf = Then MsgBox 密碼不能為空！ , 48, 提示 ElseIf Then MsgBox 密碼兩次需一致！ , 48, 提示 ElseIf = Then MsgBox 請選擇所建用戶類型！ , 48, 提示 Else = True = True = True = True 36 = 編輯 = 添加 = False = False = False = False = False = False = False = False End If 刪除操作可以把當(dāng)前記錄刪除掉。一經(jīng)刪除即不可以在恢復(fù)。所以在操作前要想好。 刪除操作部分