【正文】 15 ⑸ 資產(chǎn)表主要存放寢室新增資產(chǎn)情況，字段包括： 日期、公寓、名稱、數(shù)量、單價、總價、用途、備注。無用戶設(shè)置、公寓設(shè)置及記錄刪除等權(quán)力。利用它可以把學(xué)生的基本的請假資料保存起來。運(yùn)行圖如下 : 圖 20 公寓資產(chǎn) 主要完成：添加新增物品的功能。在做這個登錄面的時候想了很多，最后選擇了這種，感覺它看起來干凈，整齊。主要代碼如下： 在窗體中的鼠標(biāo)移動過程中，以及在窗體初始化的時候，要把添加的線的 .Visible 屬性設(shè)置為 False，只有在鼠標(biāo)按下的時候在改變其顏色即 24 可。H808080 = amp。 主要代碼如下： 設(shè)置當(dāng)前控件連 接的數(shù)據(jù)庫 Dim provider As String Dim datasource As String provider = provider= datasource = data source= amp。 39。由它制做的工具欄的顯示效果會更有立體感一些。 amp。 (3).Text = 用戶模式： amp。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 datasource End With With Adodc6 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 。移動記錄 = True If Then = False End If 39。然后輸入此用戶的用戶名和密碼即可！ 添加用戶主要代碼： 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)前記錄刪除掉。包括公寓添加、修改、刪除。然后點(diǎn)擊添加即可完成添加操作。 在進(jìn)行所有操作前，先要確定數(shù)據(jù)庫已連接。 amp。 的記錄嗎？ , vbOKCancel, 系統(tǒng)提示 )) = vbOK Then End If = Set = Adodc1 (2) 寢室設(shè)置 42 ①寢室設(shè)置效果圖 圖 ②界面制作與實現(xiàn)方法 此界面實現(xiàn)相對比公寓設(shè)置來說相對復(fù) 雜一些。以顯示更新后的記錄。點(diǎn)擊修改后完成此操作。 amp。 amp。 amp。實現(xiàn)的方法主要是對 qinshi 表操作，先對其進(jìn)行查詢，查詢當(dāng)前想要被刪除的表是否存在，如果不存在，則給出提示，如果存在這條記錄，則在表中把它刪除掉，刪除后調(diào)用生成樹過程，把當(dāng)前寢室設(shè)置中的樹型結(jié)構(gòu)重新生成，更新記錄。 Trim() amp。以及起到美觀作用的 Frame控件。 添加班級源碼： class=39。 ①數(shù)據(jù)備份效果 圖 圖 ② 功能實現(xiàn) 界面制作相對程序來說比較簡單，用到的是 coolbar 控件，點(diǎn)擊按鈕可以選擇備份路徑。點(diǎn)擊備份按鈕后開始備份，代碼如下： If txtDestination Then DoBackup PathName, txtDestination MsgBox 備份成功！ , , 提示 ElseIf txtDestination = Then MsgBox You must specify a distination for the backup, vbCritical 其中 DoBackup 為模塊中已 定義的方法，在這里進(jìn)行調(diào)用。 \) lblSelectedDba = Selected Backup Database is : amp。Persist Security Info=False。 vbNullChar .fFlags = lFlags End With lresult = SHFileOperation(SHFileOp) Set Db = New DEFSOURCE amp。以便進(jìn)行選擇轉(zhuǎn)換。 \ dbasize = FileLen(PathName) 數(shù)據(jù)轉(zhuǎn)換成 excel 用到了一個部件，在引用中用到了 Microsoft Object library。 39。 datasource .CommandType = adCmdTable .RecordSource = .Refresh End With = = 0 39。 amp。選擇左面 list 中的一個表后，點(diǎn)擊導(dǎo)出后即可完成，進(jìn)度條中 顯示當(dāng)前轉(zhuǎn)換進(jìn)度程度。 \ amp。 txtSource amp。 Format(Date, ) amp。 \ strn Set rstschema = (adSchemaTables) Do Until temp = rstschema!Table_Name If Left(temp, 1) M Then End If 49 Loop On Error GoTo err PathName = amp。 的記錄嗎？ , vbOKCancel, 系統(tǒng)提示 )) = vbOK Then End If = Set = Adodc3 End Sub 數(shù)據(jù)備份： 數(shù)據(jù)備份是一個數(shù)據(jù)庫軟件必不可少的一部分，利用它可以把當(dāng)前數(shù)據(jù)庫表進(jìn)行全面的備份，以備以后使用。 Datagrid 也會即時更新其內(nèi)容。 End If = = Call startree1 在 treeview 點(diǎn)擊的時候，上面的文本框中會顯示相應(yīng)的記錄，這主要是對treeview 進(jìn)行了設(shè)置，代碼如下： Private Sub TreeView1_NodeClick(ByVal Node As ) On Error Resume Next = = = = End Sub (3)班級設(shè)置 ①班級設(shè)置效果圖 圖 ②界面制作與實現(xiàn)方法 46 此界面制作與公寓設(shè)置基本一致。 的記錄嗎？ , vbOKCancel, 系統(tǒng)提示 )) = vbOK Then 45 delete from qinshi where 公寓名稱 =39。 39。 39。 39。 If = True Then MsgBox 此公寓不存在 , , 提示 Exit Sub End If Dim sql As String 44 On Error Resume Next If = Or = Then MsgBox 請在下面選擇所要修改的寢室 , , 提示 Exit Sub End If 39。當(dāng)要對名稱進(jìn)行修改時，先要選擇所要修改的寢室名，選擇后會在寢室名稱里顯示出來，把當(dāng)前寢室名稱改成要修改的寢室名稱，然后點(diǎn)擊修改即完成名稱修改操作。你也可以自己進(jìn)行添寫，確認(rèn)公寓后即可添加完成了。 = 修改 End If Set = Adodc1 Set = Adodc5 刪除公寓名稱 If = Then MsgBox 選擇所要刪除公寓的名稱 , , 提示 Exit Sub End If If (MsgBox(你真的想刪除公寓名稱為 amp。 If = False Then 40 MsgBox 此公寓已存在 , , 提示 Exit Sub End If = If = Then MsgBox 輸入所要添加公寓的名稱 , , 提示 Exit Sub End If 添加： (公寓名稱 ) = = gongyu = Set = Adodc1 修改公寓名稱： If = Then MsgBox 選擇要修改的公寓 , , 提示 Exit Sub End If If = 修改 Then = = 輸入想要修改的公寓名稱 = 更新 = False = False ElseIf = 更新 Then 41 = True = True = 輸入想 要添加的公寓名稱 (公寓名稱 ) = update qinshi set 公寓名稱 =39。但是刪除后不會影響其它表中的數(shù)據(jù)。以及起到美觀作用的 Frame 控件。 編輯操作主要代碼如下： = False = True 37 = True = True = True = True = True = 確定 ElseIf = 取消 Then = 編輯 = 添加 = True = True = True = = False = False = False = False = False = False = False = False End If 公寓設(shè)置 公寓設(shè)置可以說是本程序中一關(guān)鍵部分。沒有對記錄刪除等權(quán)力。即不可以前查看或向后查看。 amp。 datasource .CommandType = adCmdTable .RecordSource = qinshi .Refresh End With With Adodc9 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。在這里幾乎用到了所有的表，如下所示： provider = provider= datasource = data source= amp。第四部分為日期與時間的顯示。 下面是整個工具欄運(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。左側(cè)操作欄和右側(cè)顯示欄會在下面的內(nèi)容中做介紹，現(xiàn)在只簡單介紹一下工具欄和狀態(tài)欄，以及主窗體的各個事件。 amp。沒有刪除等操作功能。HE0E0E0 = amp。總體實現(xiàn)立體的感覺。以便對本軟件進(jìn)行快速操作。衛(wèi)生檢查可以對衛(wèi)生檢查的結(jié)果進(jìn)行記 錄。 公寓管理 主要完成：學(xué)生請假、學(xué)生違規(guī)、床位設(shè)置的功能 。管理員擁有所有權(quán)力，對整個系統(tǒng)的操作。 數(shù)據(jù)結(jié)構(gòu)如下表： 14 字段名 數(shù)據(jù)類型 數(shù)據(jù)長度 日期 文本 14 姓名 文本 8 班級 文本 10 公寓 文本 20 寢室 文本 10 原因 備注 程度 備注 處罰 備注 備注 備注 ⑷ 衛(wèi)生情況表主要存放寢室衛(wèi) 生情況，字段包括：日期、公寓、寢室、檢查 1 到 得分、減分、等級、備注。本軟件的參考資料主要有兩種來源： 一是參考本學(xué)校公寓的管理結(jié)構(gòu)，管理方法，這些資料是本軟件的主要依據(jù)，也可以說這些資料來源于普通的生活，比較真實一些。學(xué)生公寓管理軟件主要是對公寓、寢室的配置、住宿人員登記、衛(wèi)生檢查、公寓資產(chǎn)、學(xué)生違紀(jì)、值班老師記錄以及對學(xué)生住宿情況查詢， 修改，更新等。 開發(fā)的必要性 信息資源已成為各個部門的重要財富和資源，建立一個滿足各級部門信息處理需要的信息系統(tǒng)，也一個企業(yè)或組織生存越來越重要的信息資源。不同的對象，在程序中所賦給它的功能是不同的，比如，在圖形界面上有兩個命令按鈕，一個用來實現(xiàn)數(shù)據(jù)的統(tǒng)計計算，另一個用來實現(xiàn)數(shù)據(jù)的打印，這兩個按鈕就可視為是兩個不同的對象，為了實現(xiàn)這兩個對 象各自不同的功