小區(qū)物業(yè)管理vb-文庫吧資料
2025-04-13 23:07本頁面
【正文】 沈 陽 大 學課程設計說明書 系統(tǒng)測試是一項龐大而又需要細致用心的任務，以上為我所負責的模塊測試結果，在小組成員實現(xiàn)各個功能模塊時，都分別獨立運行進行了測試，最后將SystemLogon（系統(tǒng)登錄窗體）設置為啟動窗體，選擇“文件”——“”菜單命令，生成系統(tǒng)的可執(zhí)行文件，并運行對系統(tǒng)進行總體測試。判斷在關閉了所有子窗體之后才能退出系統(tǒng) If Not Is Nothing Then MsgBox 請關閉所有打開的子窗體再退出系統(tǒng), _ vbCritical, 紅光苑住宅小區(qū)管理系統(tǒng) Cancel = 1 39。請求用戶確認退出操作 If MsgBox(你選擇了退出紅光苑住宅小區(qū)管理系統(tǒng)，是否退出？, _ vbYesNo, 紅光苑住宅小區(qū)管理系統(tǒng)) = vbNo Then Cancel = 1 39。在窗體關閉時，首先請求用戶確認，然后檢查窗體是否關閉。隱藏樓盤數(shù)據管理菜單 = False 39。隱藏系統(tǒng)用戶管理菜單 = False 39。根據用戶身份決定是否隱藏可執(zhí)行管理操作的菜單 If CurrentUserStatus 管理員 Then = False 39。保存當前用戶身份具體操作如下：第一步，創(chuàng)建系統(tǒng)主窗體：為工程添加一個MDI窗體，將窗體Caption屬性設置為“紅光苑住宅小區(qū)管理系統(tǒng)”，窗體命名為“frmSysMain”,保存為“ ”為窗體創(chuàng)建如下圖所示的菜單系統(tǒng)： 沈 陽 大 學課程設計說明書 各個菜單項的標題和名稱如表： 表7 系統(tǒng)菜單標題和名稱標題名稱標題名稱文件Mnufile住戶信息Mnuuserinf退出Mnuexit編輯Mnuedituser系統(tǒng)Mnusys查詢Mnuuserquery用戶管理 Mnusysuser物業(yè)管理Mnutownmanage修改口令Mnupassword收費Mnucharge信息管理mnuinf報修mnumaintain樓盤信息Mnubuildinf編輯Mnueditbuild查詢Mnubuildquery投訴mnuappeal第二步，實現(xiàn)按權限啟用系統(tǒng)功能。保存當前用戶用戶名Public CurrentUserPassword As String 39。選擇“工程”——“引用”菜單命令，打開“工程引用”對話框，并選中“Microsoft activex data objects libray ”然后選擇“工程”——“不見”菜單命令打開“工程部件”對話框，并在“部件”選項卡中選中“Microsoft ado data control ”和“Microsoft datagrid control ”。 表6 投訴項目數(shù)據表結構字段名稱類型大小字段是否固定允許零長度必要字段順序位置編號Text 是0內容Text50可變否是1時間Data是2投訴人Text15可變是是3負責人Text15可變否是4 各個數(shù)
公司管理相關推薦
鄂ICP備17016276號-1