【正文】 mp。 e amp。 39。 = select*from 床位查詢表 where 剩余床位 =39。 amp。 f amp。 39。If Then MsgBox 無此項記錄 = select*from If Then MsgBox 無此項記錄 = select*from 物品維修表 End IfEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load() 男 女 公寓樓一 公寓樓二 公寓樓三 公寓樓四If = 普通用戶 Then = FalseElseIf = 管理員 Then = TrueEnd IfDim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。 amp。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = 床位查詢表.RefreshEnd WithEnd SubForm1事務查詢 作用：用于事務的查詢 所用控件：14個標簽，7個文本框，1個bo控件， 1個Ado控件，3個命令按鈕設計思路：3個命令按鈕分別用于查詢、添加、退出 代碼如下：Private Sub Command1_Click()On Error Resume NextIf = 添加 Then = 確定 = 取消 = True = True = True = True = True = True = True = TrueElseIf = ThenMsgBox 寢室不能為空！ElseIf = ThenMsgBox 用水量不能為空！ElseIf = ThenMsgBox 水單價不能為空！ElseIf = ThenMsgBox 水費不能為空！ElseIf = ThenMsgBox 用電量不能為空！ElseIf = ThenMsgBox 電單價不能為空！ElseIf = ThenMsgBox 電費不能為空！ElseIf Combo1 = ThenMsgBox 公寓不能為空！Else = 添加 = 查詢 = False = False = False = False = False = False = False = FalseEnd IfEnd SubPrivate Sub Command2_Click()On Error Resume NextIf = 查詢 Then = 確定 = 取消 = True = True = True = True = True = True = True = TrueElseIf = 取消 Then = True = True = True = True = True = True = True = True = 查詢 = 添加 = 添加ElseIf = 確定 Then = True = True = True = True = True = True = True = True = 查詢 = 添加 = 退出ElseIf = ThenMsgBox 寢室不能為空！ElseIf Combo1 = ThenMsgBox 公寓不能為空！Else = True = True = True = 添加 = 查詢 = 退出End IfDim a As String, b As String, c As String, d As String, e As String, f As String, g As String, h As String = select*from 事務查詢表 where 公寓 =39。 amp。 a amp。 39。 = select*from 事務查詢表 where 寢室 =39。 amp。 b amp。 39。 = select*from 事務查詢表 where 用水量 =39。 amp。 c amp。 39。 = select*from 事務查詢表 where 水單價 =39。 amp。 d amp。 39。 = select*from 事務查詢表 where 水費 =39。 amp。 e amp。 39。 = select*from 事務查詢表 where 用電量 =39。 amp。 f amp。 39。 = select*from 事務查詢表 where 電單價 =39。 amp。 g amp。 39。 = select*from 事務查詢表 where 電費 =39。 amp。 h amp。 39。If Then MsgBox 無此項記錄 = select*from If Then MsgBox 無此項記錄 = select*from 事務查詢表 End IfEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load() 公寓樓一 公寓樓二 公寓樓三 公寓樓四If = 普通用戶 Then = FalseElseIf = 管理員 Then = TrueEnd IfDim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。 amp。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = 事務查詢表.RefreshEnd WithEnd SubForm1關于 作用：查看設計人 所用控件：1個圖片框 Form1添加用戶 作用：用于添加、刪除、編輯公寓及其內容 所用控件： 4個標簽，3個文本框，1個bo控件，1個Ado控件，6個命令按鈕設計思路：6個命令按鈕分別用于查詢、添加、刪除、編輯、退出 代碼如下：Private Sub Command1_Click() 39。移動記錄 = TrueIf Then = FalseEnd IfEnd SubPrivate Sub Command2_Click() 39。移動記錄 = TrueIf Then = FalseEnd IfEnd SubPrivate Sub Command3_Click()On Error Resume NextIf = 添加 Then = False = False = False = 確定 = 取消 = True = True = True = ElseIf = ThenMsgBox 用戶名不能為空！, 48, 提示ElseIf = ThenMsgBox 密碼不能為空！, 48, 提示ElseIf ThenMsgBox 密碼兩次需一致！, 48, 提示ElseIf Combo1 = ThenMsgBox 請選擇所建用戶類型！, 48, 提示Else = True = True = True = True = 編輯 = 添加 = False = False = False = FalseEnd IfEnd SubPrivate Sub Command4_Click()On Error Resume NextIf = 1 Then = FalseEnd IfIf (MsgBox(你真的想刪除當前記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK ThenEnd IfEnd SubPrivate Sub Command5_Click()On Error Resume NextIf = 編輯 Then = False = True = True = True = True = 確定 = 取消ElseIf = 取消 Then = 編輯 = 添加 = True = True = True = = False = False = False = FalseEnd IfEnd SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub Form_Load() 管理員 普通用戶If = 普通用戶 Then = False = False = FalseElseIf = 管理員 Then = True = True = TrueEnd IfDim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。 amp。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = 用戶信息.Refresh.End WithEnd Sub4．課程設計成果運行結果（可用屏幕抓圖的方法說明）（五號，宋體）(多頁)系統(tǒng)設置——用戶設置——登錄用戶設置——公寓設置學生管理——入住事務管理——請假管理資產管理——購買新物品情況查詢——床位查詢普通用戶登錄不上去，出現：經調試，仍找不到原因，望老師多多指教。設計問題的不足：基本要求中不能做到同時處理多個提醒事件，盡管調試了多次，但仍不成功，最終仍無法同時處理多個提醒事件。改進方案：由于所學有限，知識面也不夠廣，無法完成改進方案。還請老師多多幫助，理解。到目前為止，軟件界面美觀，運行時間短，執(zhí)行功能強，其功能基本符合用戶需求。能夠完成對學生公寓中學生基本資料的存儲和查詢，并提供數據轉換、數據備份等系統(tǒng)維護功能，可以使用查找、修改、添加和刪除對學生公寓管理軟件的操作等。由于本人知識有限，又是剛初學軟件，時間比較倉促，又缺乏經驗，必定有不足和不周之處，希望各位老師給予指導，本人將繼續(xù)完善修改，使此系統(tǒng)能更好地發(fā)揮性能。1 靜心把課本看一遍.當我開始設計時在書上查找資料發(fā)現有很多概念不清，翻開一本程序設計學習的書籍,看到的無非就是變量,函數,條件語句,循環(huán)語句等概念， 要真正能進行程序設計,需要深入理解這些概念但是靜下心來研讀它們并不是那么難懂，再配上書上的例題就懂了很多。因此,在程序入門階段還是應該重視概念的學習.2 設計窗體，編寫程序雖然是模仿階段，但對我的程序有創(chuàng)造性性的啟發(fā)幫助,而且要從小程序開發(fā)開始,逐漸提高寫程序的能力.3 查看別人設計的好程序還有我就上網尋找資料代碼，多看別人設計好的程序代碼,對我的設計程序修改完成更多的功能 也可以學到別人優(yōu)秀的東西,幫助自己提高自身水平.經過了近兩個個星期的設計，我終于完成了自己的公寓物業(yè)管理系統(tǒng)。從看到任務書，到簡單的構思，建立窗體，編寫代碼，調試程序，查找錯誤，創(chuàng)新技術的研究，整體窗體的美觀設計等等，都包含了我努力的汗水，融入了我想法。但是還有很多不足，仍需改進。這次程序設計為我的VB學習道路上奠定了基石，學習到了很多東西，開闊了眼界。有些需要說明的部分。如添加ActiveX等非不標準部件，或使用文件操作時對路徑有特殊要求等。若沒有特殊要求，此處為“無”。 :高等教育出版社Visu