Access會員信息系統(tǒng)設(shè)計報告(含源文件)

1、計算機(jī)信息處理綜合作業(yè)系統(tǒng)開發(fā)說明書題目：會員管理系統(tǒng)姓名： 準(zhǔn)考證號：專業(yè)： 年級：摘要會員管理系統(tǒng)是為實現(xiàn)會員管理系統(tǒng)化、規(guī)范化、自動化，用 access 數(shù)據(jù)庫管理系統(tǒng)開發(fā)的應(yīng)用軟件。會員管理系統(tǒng)的目的是用最小的代價在盡可能短的時間內(nèi)確定問題是否能夠解決，運(yùn)行可以代替人工進(jìn)行許多繁雜的勞動；運(yùn)行可以節(jié)省許多資源；運(yùn)行可以大大的提高學(xué)校的工作效率；可以使敏感文檔更加安全，等等。關(guān)鍵詞：ACCESS 資源效率 安全緒論系統(tǒng)開發(fā)的背景和意義隨著科技的發(fā)展，基本上所有的具有一定數(shù)量數(shù)據(jù)的機(jī)構(gòu)都開始使用計算機(jī)數(shù)據(jù)庫 來做管理。幾乎都已經(jīng)在使用計算機(jī)管理數(shù)據(jù)的機(jī)制，大大減少了管理的工作量。該設(shè) 計是

2、設(shè)計一個學(xué)校工會的數(shù)據(jù)庫管理系統(tǒng)，數(shù)據(jù)庫中要求包含會員信息、個人簡歷信息、會員繳納信息、獎懲信息、家庭信息、社會關(guān)系信息，以及用戶信息。方便進(jìn)行查詢， 通過系統(tǒng)設(shè)計，達(dá)到把數(shù)據(jù)庫理論知識更加的鞏固加深。系統(tǒng)開發(fā)的基本目標(biāo)通過應(yīng)用會員管理系統(tǒng)，不但減少大量紙質(zhì)文件的處理時間，更重要的是：通過將 會員資料相關(guān)數(shù)據(jù)的記錄工作自動化，能大大提高會員管理工作的效率能有效的幫助工 會，為工會提供會員方面的查詢。在傳統(tǒng)模式下利用人工進(jìn)行工會會員管理現(xiàn)在較為成熟，使得它們能在工會管理系統(tǒng)中得到廣泛的使用，對此，我開發(fā)了這個小型學(xué)生工會會員管理系統(tǒng)。不斷了解，達(dá)到把數(shù)據(jù)庫理論知識更加的鞏固加深，以加強(qiáng)動手能力與

3、實踐能力。開發(fā)環(huán)境和開發(fā)工具介紹方便學(xué)生進(jìn)行成績查詢，通過該課程設(shè)計，達(dá)到把數(shù)據(jù)庫理論知識更加的鞏固加深，加強(qiáng)動手能力與實踐能力。用 WindowsXP 操作系統(tǒng)的微機(jī)系統(tǒng)，選用 Microsoft Access2003 操作。Access 2003 是目前最流行且功能強(qiáng)大的桌面數(shù)據(jù)庫管理系統(tǒng)之一，它以其強(qiáng)大的功能和直觀的操作界面，給大多數(shù)沒有任何編程經(jīng)驗的人在管理數(shù)據(jù)庫方面提供了強(qiáng)在的支持， 而對于數(shù)據(jù)庫的開發(fā)人員， Access 提供了 VBA(Visual Basic for Application)編程語言，可用于開發(fā)高性能、高質(zhì)量的桌面數(shù)據(jù)庫系統(tǒng)。需求分析系統(tǒng)應(yīng)用接口圖系統(tǒng)管理員會員

4、管理系統(tǒng)計算機(jī)數(shù)據(jù)庫用戶系統(tǒng)基本信息打印會員資料會員管理系統(tǒng)業(yè)務(wù)流程圖輸入會飛費(fèi)激納信息會費(fèi)激納數(shù)據(jù)輸入獎信息懲獎懲數(shù)據(jù)查詢與瀏覽系統(tǒng)管理員輸入家庭成員基本信息家庭成員數(shù)據(jù)輸入會員信息會員數(shù)據(jù)是否為會員用戶用戶輸入用戶信息信息用戶數(shù)據(jù)查詢與濟(jì)瀏覽系統(tǒng)設(shè)計模塊劃分系統(tǒng)功能結(jié)構(gòu)圖主頁面會政員 高治化 級面名 查貌冊 詢統(tǒng)計簡單查詢用戶管理用簡檔戶單案管查編理詢輯編增刪搞保緝加除消存用用用修修戶戶戶改改按按按按按按按編姓部職年性交號名門稱齡別費(fèi)查查查查查查查詢詢詢詢詢詢詢會個交獎家社政員人費(fèi)懲庭會部職性年治信簡信信成關(guān)門稱別齡面息歷息息員系貌檔案編輯高級查詢數(shù)據(jù)庫設(shè)計會員編號姓名編號編號 會員編號姓

5、名工作單位證明人部門個人簡歷社會關(guān)系職務(wù)具有nn編號 會員編號 姓名會員編號部門姓名屬于關(guān)系姓名性別與本人關(guān)系11備注會費(fèi)激納信息交費(fèi)會員n編號會員編號姓名11部門 交費(fèi)日期會費(fèi)獎懲性別民族出生年月有編號會員編號姓名n家庭成員獎懲信息n性別稱謂出生年月獎懲日期獎懲級別獎懲名稱ER 圖3.3基本表設(shè)計高級查詢字段名稱數(shù)據(jù)類型主鍵（是/否）會員編號數(shù)字是姓名文本否部門文本否性別文本否年齡文本否職稱文本否政治面貌文本否個人簡歷字段名稱數(shù)據(jù)類型主鍵（是/否）編號自動編號是會員編號數(shù)字否姓名文本否工作單位文本否部門文本否職務(wù)文本否起始年月日期/時間否結(jié)束年月日期/時間否離開原因文本否證明人文本否會員信息

6、表字段名稱數(shù)據(jù)類型主鍵（是/否）會員編號數(shù)字是部門文本否姓名文本否性別是/否否民族文本否出生年月日期/時間否籍貫文本否政治面貌文本否現(xiàn)任職務(wù)文本否職稱文本否文化程度文本否外語水平文本否畢業(yè)院校文本否健康狀況文本否婚姻狀況文本否入會時間日期/時間否工資貨幣否家庭住址文本否相片OLE 對象否備注文本否性別副文本否會費(fèi)激納信息表字段名稱數(shù)據(jù)類型主鍵（是/否）編號自動編號是會員編號數(shù)字否姓名文本否部門文本否交費(fèi)日期日期/時間否會費(fèi)貨幣否備注文本否家庭成員表字段名稱數(shù)據(jù)類型主鍵（是/否）編號自動編號是會員編號數(shù)字否姓名文本否成員姓名文本否性別是/否否稱謂文本否出生年月日期/時間否婚姻狀況文本否文化程度文

7、本否政治面貌文本否工作單位文本否聯(lián)系電話數(shù)字否獎懲信息表字段名稱數(shù)據(jù)類型主鍵（是/否）編號自動編號是會員編號數(shù)字否姓名文本否獎懲日期日期/時間否獎懲名稱文本否獎懲級別文本否授予單位文本否授予原因文本否備注文本否社會關(guān)系表字段名稱數(shù)據(jù)類型主鍵（是/否）編號自動編號是會員編號數(shù)字否姓名文本否關(guān)系姓名文本否性別文本否與本人關(guān)系文本否政治面貌文本否工作單位文本否備注文本否用戶表字段名稱數(shù)據(jù)類型主鍵（是/否）用戶名文本否密碼文本否備注文本否系統(tǒng)實現(xiàn)此模塊是用來判斷登錄人員的身份是否為合法權(quán)限，如果用戶的密碼輸入錯誤， 則不能登錄到系統(tǒng)；如果用戶密碼正確則進(jìn)入系統(tǒng)，并可以對主窗體相應(yīng)的功能進(jìn)行操作。登錄模

8、塊代碼設(shè)計Private Sub cmdenter_click()Dim strpassword, strusername As String Dim flag As IntegerDim record As ADODB.Recordsetflag = 0從“用戶”表里讀取用戶名和密碼openrecord select * from 用戶, record循環(huán)判斷用戶名是否存在，密碼是否正確Do Until record.EOFstrusername = record(用戶名) strpassword = record(密碼)If UCase(Me.txtusername.Value) UCas

9、e(strusername) Then record.MoveNext若相等，說明用戶名存在，可以跳出循環(huán)Elseflag = 1 Exit DoEnd If Loopflag=0 說明用戶名不存在，進(jìn)行處理設(shè)置文本框的內(nèi)容為空，“確定”鍵不可用，焦點(diǎn)設(shè)在 txtusername If flag = 0 ThenMsgBox 沒有這個用戶名，請重新輸入 Me.txtpassword.Value = Me.txtusername.Value = Me.txtusername.SetFocus cmdenter.Enabled = FalseExit Sub若 flag=1 說明所輸入的用戶名存在

10、，進(jìn)一步比較密碼是否正確若密碼出錯，設(shè)置txtusername 的內(nèi)容不變，txtpassword 的內(nèi)容為空， 若密碼出錯,“確定”鍵不可用，并把焦點(diǎn)設(shè)在txtpasswordElseIf UCase(Me.txtpassword.Value) UCase(strpassword) Then MsgBox (密碼錯誤，請重新輸入) Me.txtpassword.Value = Me.txtpassword.SetFocus cmdenter.Enabled = False Exit SubEnd If End If用戶名和密碼都正確，打開“主界面”窗體DoCmd.Close DoCmd.Op

11、enForm 主界面End Sub主窗體ngDim flag As IntegerDim record As ADODB.Recordset flag = 0從“用戶”表里讀取用戶名和密碼openrecord select * from 用戶, record循環(huán)判斷用戶名是否存在，密碼是否正確Do Until record.EOFstrusername = record(用戶名) strpassword = record(密碼)If UCase(Me.txtusername.Value) UCase(strusername) Then record.MoveNext若相等，說明用戶名存在，可以

12、跳出循環(huán)Else flag = 1Exit Do End IfLoopflag=0 說明用戶名不存在，進(jìn)行處理設(shè)置文本框的內(nèi)容為空，“確定”鍵不可用，焦點(diǎn)設(shè)在 txtusername If flag = 0 ThenMsgBox 沒有這個用戶名，請重新輸入 Me.txtpassword.Value = Me.txtusername.Value = Me.txtusername.SetFocus cmdenter.Enabled = False Exit Sub若 flag=1 說明所輸入的用戶名存在，進(jìn)一步比較密碼是否正確若密碼出錯，設(shè)置txtusername 的內(nèi)容不變，txtpasswor

13、d 的內(nèi)容為空， 若密碼出錯,“確定”鍵不可用，并把焦點(diǎn)設(shè)在txtpasswordElseIf UCase(Me.txtpassword.Value) UCase(strpassword) Then MsgBox (密碼錯誤，請重新輸入)Me.txtpassword.Value = Me.txtpassword.SetFocus cmdenter.Enabled = False Exit SubEnd If End If用戶名和密碼都正確，打開“主界面”窗體DoCmd.Close DoCmd.OpenForm 主界面 End SubPrivate Sub cmdcancle_Click() 設(shè)

14、置“取消”鍵的事件過程點(diǎn)擊取消后，文本框的內(nèi)容為空，“確定”鍵不能用On Error GoTo Err_login_cancel_Click DoCmd.Close Exit_login_cancel_Click:Exit Sub Err_login_cancel_Click: MsgBox Err.DescriptionResume Exit_login_cancel_Click End Sub用戶管理On Error GoTo Err_cmdsave_Click 設(shè)置記錄導(dǎo)航按鈕可用cmdfirst.Enabled = Truecmdbefore.Enabled = True cmdnex

15、t.Enabled = True cmdlast.Enabled = TrueIf flag = 1 ThenIf txtpassword.Value 密碼 ThenMsgBox 兩個密碼不一樣，無法保存,請再次輸入密碼 txtpassword.Value = txtpassword.SetFocus Exit SubEnd If End IfIf flag = 2 ThenIf txtpassword.Value 密碼 ThenMsgBox 密碼已改，請輸入正確的確認(rèn)密碼或重置密碼 txtpassword.Value = txtpassword.SetFocus Exit SubEnd If

16、End IfDoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 設(shè)置按鈕的可用性和窗體的屬性Form.AllowEdits = TrueForm.AllowDeletions = False Form.AllowAdditions = False Form.RecordLocks = 0用戶名.Locked = True密碼.Locked = True備注.Locked = True cmdedit.Enabled = True cmdadd.Enabled = True cmddel.Enabled = False cmdcancle.Enabled = False txtpassword.Value = cmdedit.SetFocus cmdsave.Enabled = False標(biāo)記變?yōu)?0flag = 0 Exit_cmdsave_Click:Exit SubErr_cmdsave_Click: MsgBox Err.DescriptionResume Exit_cmdsave_Click End Sub結(jié)束語.經(jīng)過幾個多月的調(diào)查和研究，本會員管理系統(tǒng)基本完成。其使用功能基本符合在實際工作