本系統主要用於旅館或賓館出租的房間管理。
1. 使用者身份的登記
2. 房屋出租管理
3. 年收、支情況
本系統包括:標準模組、系統登入模組、主介面模組、系統管理模組、學生基本資訊管理模組、選課模組、成績管理模組。
1. 標準模組
定義公共變數和過程。
2. 系統登入模組
進行使用者身份的驗證。
3. 主介面模組
作為系統總介面,供使用者進行各項選擇。
4. 系統管理模組
使用者管理及系統退出。
5. 學生基本資訊管理模組
學生基本資訊的錄入和查詢。
6. 選課模組
為班級選課。
7. 成績管理模組
進行學生成績的錄入及查詢。
該資料庫由以下幾個表組成:
使用者表、學生基本資訊表、班級課程表、學生成績表。
包括使用者名稱、密碼、是否是超級使用者。
包括學號、姓名、**、位址、班級名稱、性別。
包括班級名稱、課程名稱。
包括學號、課程名稱、成績。
學生基本資訊表與班級課程表通過班級名稱字段相關聯,學生基本資訊表與學生成績表通過學號字段相關聯,班級課程表與學生成績表通過課程名稱字段相關聯。
用於定義全域性變數及過程。本系統定義了當前使用者名稱及使用者型別。
option explicit
public username as string
public usertype as boolean
進行使用者身份的驗證。特定的使用者才能登入到系統。
系統登入窗體的窗體型別為form,介面如下圖所示:
主要控制項屬性如下表所示:
● 公共定義
option explicit
dim count1 as integer
● 窗體裝載處理程式(load)
private sub form_load()
count1 = 0錯誤次數清零
end sub
● 取消按鈕(cmdcancel)處理程式(click)
private sub cmdcancel_click()
unload me系統退出
end sub
● 確定按鈕(cmdok)處理程式(click)
private sub cmdok_click()
dim s1 as string
dim password as string
on error resume next
if text1.text = "" then使用者名為空,則退出
msgbox ("使用者名稱不能為空,請重新輸入")
text1.setfocus
exit sub
end if
按輸入的使用者名稱進行查詢
s1 = "select * from 使用者表 where 使用者名稱='" & text1.text
adodc1.recordsource = s1
adodc1.refresh
if adodc1.recordset.eof = false then判斷查詢結果
username = adodc1.recordset.fields(0有該使用者名稱,即使用者名稱正確
password = adodc1.recordset.fields(1)
usertype = adodc1.recordset.fields(2)
if password = text2.text then判斷密碼是否正確
unload me密碼正確,關閉當前窗體
frmmain.show顯示主介面窗體
exit sub
else
msgbox ("密碼錯誤,請重新輸入密碼錯誤,提示
text2.setfocus
text2.text = ""
end if
else沒有該使用者名稱,即使用者名稱錯誤
msgbox "使用者名稱錯誤,請重新輸入"
text1.setfocus
text1.text = ""
text2.text = ""
end if
count1 = count1 + 1錯誤次數累計
if count1 >= 3 then
msgbox "錯誤超過3次,系統退出"
unload me
end if
end sub
作為系統總介面,供使用者進行各項選擇。
主介面模組窗體型別為mdiform,介面如下圖所示。
● 窗體變為活動窗體處理程式(mdiform-activate)
private sub mdiform_activate()
windowstate = 2窗體最大化狀態
statusbar1.panels(1).text = "使用者名稱: " & username 『在狀態列顯示使用者名稱、使用者型別
if usertype = true then
statusbar1.panels(2).text = "使用者型別: 管理員"
else
statusbar1.panels(2).text = "使用者型別: 普通使用者"
end if
if usertype = false then對普通使用者設某些選單項不可用
aa1.enabled = false
bb1.enabled = false
cc.enabled = false
dd1.enabled = false
*******1.buttons(1).enabled = false 『對普通使用者設工具欄的某些按鈕不可用
*******1.buttons(3).enabled = false
*******1.buttons(6).enabled = false
*******1.buttons(7).enabled = false
*******1.buttons(9).enabled = false
end if
end sub
● 定時器(timer1)處理程式(timer)
private sub timer1_timer()
statusbar1.panels(3).text = now在狀態列中顯示當前時間
end sub
● 工具欄(*******1)處理程式(buttonclick)
private sub *******1_buttonclick(byval button as mscomctllib.button)
select case button.index
case 1
form11.show (1使用者管理
case 3
form21.show (1學生基本資訊維護
case 4
form22.show (1學生基本資訊查詢
case 6
form31.show (1課程新增
case 7
form32.show (1課程刪除
case 9
form41.show (1學生成績維護
case 10
form42.show (1學生成績查詢
case 12
unload me系統退出
end select
end sub
● 「使用者管理」選單項處理程式(aa1-click)
private sub aa1_click()
form11.show (1)
end sub
● 「退出」選單項處理程式(aa3-click)
private sub aa3_click()
unload me
end sub
● 「學生基本資訊維護」選單項處理程式(bb1-click)
private sub bb1_click()
form21.show (1)
end sub
● 「學生基本資訊查詢」選單項處理程式(bb2-click)
private sub bb2_click()
form22.show (1)
end sub
● 「課程新增」選單項處理程式(cc1-click)
private sub cc1_click()
form31.show (1)
end sub
● 「課程刪除」選單項處理程式(cc2-click)
資料庫設計報告
河南經貿職業學院 資訊管理系 資料庫設計報告 班級學號 姓名目錄 1文件介紹 3 1.1 文件目的 3 1.2 文件範圍 3 1.3 讀者物件 3 1.4 參考文獻 3 1.5 術語與縮寫解釋 3 2 資料庫環境說明 4 3 概念結構設計 4 4 邏輯結構設計 4 4.1 表彙總 4 4.2 中文表...
資料庫應用設計報告
院系 數學與計算機學院 姓名 楊森 學號 110502112 專業 資訊管理與資訊系統 班級 信管1101班 指導老師 林菁 其他成員 陳建,姜磊,馬銳 目錄1 引言 1.1編寫的目的 1.2背景 2 任務概述 2.1目標 2.2使用者的特點 3 需求規定 3.1功能概述 3.2使用者許可權分配 3...
資料庫設計
一 實驗目的 1 熟悉資料庫及表物件的建立過程 2 熟悉表字段型別及屬性的設定 3 熟悉資料表資料的編輯 4 熟悉建立多表間關係的操作。二 實驗裝置及軟體環境 一 實驗裝置 伺服器 交換機和pc機組成nt網路。二 軟體環境 1 伺服器採用microsoft windows 2003 server 作...