宿舍管理系統(tǒng)——課程設(shè)計-wenkub
2023-03-09 16:15:12 本頁面
【正文】 能模塊，確定每個模塊的功能，以及各個模塊之間的關(guān)系。 第十三天和第十五天：撰寫課程設(shè)計報告。 本系統(tǒng)采用 Visual Basic 作為前臺開發(fā)工具， SQL Server 作為后臺數(shù)據(jù)庫平臺的基于 C/S的兩層模式的管理系統(tǒng)。本系統(tǒng)的重點是學(xué)生信息管理和日常工作管理部分。 Visual Basic。采用 宿舍管理系統(tǒng) 來管理宿舍和學(xué)生的信息，大大提高了查詢的速度，節(jié)約了人力和物力資源，達(dá)到了預(yù)期的要求。 Visual Basic 開發(fā)環(huán)境 本軟件的開發(fā)工具為 VISUAL BASIC，作為一種開發(fā)語言， VISUAL BASIC 率先采用了可視化（ VISUAL）的程序設(shè)計方法。所謂“對象”就是現(xiàn)實生活中的每個一人，每一個可見的實體。長期以來，使用傳統(tǒng)人工的方法管理高校宿舍，這種管理方式存在著許多缺點，如：效率低。 本系統(tǒng)最大的 特點是通用性 、 簡單操作性。 可以更快地了解到每個學(xué)生的住宿情況 。 VB 中的數(shù)據(jù)庫操作對象都提供了對 SQL 語句的支持。 學(xué)生的基本信息：入校時，每位同學(xué)都有唯一的學(xué)號，并被分配到指 定的宿舍樓和指定的宿舍，也會有一個宿舍號，其入校時間就是他的入住時間。基本信息管理包括學(xué)生信息、宿舍信息、工作人員信息； 數(shù)據(jù)庫操作功能：查詢、刪除、修改、插入； 業(yè)務(wù)流程概述 系統(tǒng)的業(yè)務(wù)是系統(tǒng)要達(dá)到的業(yè)務(wù)目標(biāo)，業(yè)務(wù)流程分析是系統(tǒng)分析中的 基礎(chǔ)環(huán)節(jié)。 員工信息管理：記錄在宿舍、樓管處工作的員工信息，及時增、刪、改，便于有個統(tǒng)一的收集、管理、宿舍更好的運作。 E— R 圖由實體、屬性、聯(lián)系三部分組成。系統(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=。Data Source=XS07 = select 名稱 ,密碼 from 系統(tǒng)表 where 名稱=39。and 密碼 =39。 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=。Data Source=XS07 = select * from 設(shè) 備租 賃 where 學(xué)號 =39。 Set = Adodc1 End Sub 12 Private Sub Command2_Click() Unload Me End Sub 添加學(xué)生信 息界面 圖 學(xué)生宿舍添加界面 圖 學(xué)生宿舍刪除界面 其主要代碼如下： 13 Private Sub Command1_Click() = Provider=。Data Source=XS07 = select * from 學(xué)生住宿表 where 學(xué)號 =39。Integrated Security=SSPI。 + 14 + 39。Initial Catalog=學(xué)生宿舍 。 39。 39。 39。 If = Or = Or = Then MsgBox 信息輸入不完整！ , vbOKOnly, 提示信息 Exit Sub End If (員工號 ) = (員工姓名 ) = (職位 ) = MsgBox 修改成功！ , vbOKOnly, 提示信息 16 Exit Sub errorhandler: 39。 , vbOKOnly, 提示信息 Resume Next Exit Sub End If If = 2147217904 Then MsgBox 職位輸入錯誤，請輸入長整型 , vbOKOnly, 提示信息 39。 , vbOKOnly, 提示信息 39。允許錯誤發(fā)生 = select * from 員工表 If = 0 Then MsgBox 無修改目標(biāo) , vbOKOnly, 提示信息 Exit Sub End If = select * from 員工 表 where 員工 號 = amp。 amp。 amp。 amp。Integrated Security=SSPI。Initial Catalog=學(xué)生宿舍 。 If = Or = Or = Or = Then MsgBox 輸入不完整。Persist Se
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1