【正文】
, vbOKOnly, 提示信息 Resume Next Exit Sub End If If = 2147217904 Then MsgBox 職位輸入錯誤,請輸入長整型 , vbOKOnly, 提示信息 39。 , vbOKOnly, 提示信息 39。 If = Or = Or = Then MsgBox 信息輸入不完整! , vbOKOnly, 提示信息 Exit Sub End If (員工號 ) = (員工姓名 ) = (職位 ) = MsgBox 修改成功! , vbOKOnly, 提示信息 16 Exit Sub errorhandler: 39。允許錯誤發(fā)生 = select * from 員工表 If = 0 Then MsgBox 無修改目標(biāo) , vbOKOnly, 提示信息 Exit Sub End If = select * from 員工 表 where 員工 號 = amp。 39。 amp。 39。 amp。 39。 amp。Initial Catalog=學(xué)生宿舍 。Integrated Security=SSPI。 + 14 + 39。Initial Catalog=學(xué)生宿舍 。Integrated Security=SSPI。 If = Or = Or = Or = Then MsgBox 輸入不完整。Data Source=XS07 = select * from 學(xué)生住宿表 where 學(xué)號 =39。Persist Security Info=False。 Set = Adodc1 End Sub 12 Private Sub Command2_Click() Unload Me End Sub 添加學(xué)生信 息界面 圖 學(xué)生宿舍添加界面 圖 學(xué)生宿舍刪除界面 其主要代碼如下: 13 Private Sub Command1_Click() = Provider=。 amp。Data Source=XS07 = select * from 設(shè) 備租 賃 where 學(xué)號 =39。Persist Security Info=False。 If 0 Then Unload Me Else: MsgBox 用戶名不存在或密碼錯誤??! , vbOKOnly + vbExclamation, 提示 = = End If Else MsgBox 用戶名和密碼不能為空??! , vbOKOnly + vbExclamation, 提示 = = 11 End If End Sub Private Sub Label2_Click() Unload Me End Sub 用戶管理界面 查詢信息主界面 圖 學(xué)生宿舍查詢界面 其主要代碼如下: Private Sub Command1_Click() = Provider=。 password amp。and 密碼 =39。 user amp。Data Source=XS07 = select 名稱 ,密碼 from 系統(tǒng)表 where 名稱=39。Persist Security Info=False。系統(tǒng)的主界面如下 : 圖 學(xué)生宿舍管理系統(tǒng)主界面 用戶登錄界面 圖 學(xué)生宿舍管理系統(tǒng)登錄界面 10 其代碼如下: Private Sub Label1_Click() Dim user As String Dim password As String user = password = If And Then = Provider=。 9 第四章 應(yīng)用程序開發(fā) 系統(tǒng)主界面 在此系統(tǒng)中,考慮到人們的使用習(xí)慣,利用了菜單對系統(tǒng)中功能進(jìn)行分類列舉 ,通過菜單即能完成,這樣使得主界面簡潔,易于使用。 E— R 圖由實體、屬性、聯(lián)系三部分組成。根據(jù)以上的業(yè)務(wù)流程的分析,以及學(xué)生宿舍的特點,我們給出了以下學(xué)生宿舍管理信息系統(tǒng)的數(shù)據(jù)流程圖。 員工信息管理:記錄在宿舍、樓管處工作的員工信息,及時增、刪、改,便于有個統(tǒng)一的收集、管理、宿舍更好的運作。 宿舍信息管理:主要是記錄宿舍的基本狀況,可住人數(shù),已住人數(shù),電話號碼,便于工作人員分配寢室以及聯(lián)系?;拘畔⒐芾戆▽W(xué)生信息、宿舍信息、工作人員信息; 數(shù)據(jù)庫操作功能:查詢、刪除、修改、插入; 業(yè)務(wù)流程概述 系統(tǒng)的業(yè)務(wù)是系統(tǒng)要達(dá)到的業(yè)務(wù)目標(biāo),業(yè)務(wù)流程分析是系統(tǒng)分析中的 基礎(chǔ)環(huán)節(jié)。 工作人員基本信息:每幢宿舍都有駐樓阿姨和保潔阿姨的編號。 學(xué)生的基本信息:入校時,每位同學(xué)都有唯一的學(xué)號,并被分配到指 定的宿舍樓和指定的宿舍,也會有一個宿舍號,其入校時間就是他的入住時間。 4 第二章 系統(tǒng)需求分析 系統(tǒng)的初步調(diào)查 經(jīng)過實際分析調(diào)查,一個學(xué)生宿舍管理系統(tǒng)主要是要方便宿舍管理人員的工作,提高其工作效率,不僅可以方便廣大學(xué)生,而且還可以方便于教師和相關(guān)人員。 VB 中的數(shù)據(jù)庫操作對象都提供