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