數(shù)據(jù)庫(kù)sql課程設(shè)計(jì)---企業(yè)員工信息管理系統(tǒng)

1、<p>　　數(shù)據(jù)庫(kù)應(yīng)用技術(shù)課 程 設(shè) 計(jì) 說(shuō) 明 書</p><p>　　題目： 企業(yè)員工信息管理系統(tǒng) </p><p>　　課程設(shè)計(jì)（論文）任務(wù)書</p><p>　　說(shuō)明：此表一式四份，學(xué)生、指導(dǎo)教師、教研室、系部各一份。可加附頁(yè)。</p><p>　　2011年 12 月 31日</p><p>　

2、學(xué) 號(hào)學(xué)生姓名專業(yè)班級(jí)軟件工程112班</p><p>　設(shè)計(jì)題目企業(yè)員工信息管理系統(tǒng)</p><p>　設(shè)計(jì)技術(shù)參數(shù)題目要達(dá)到的目標(biāo)：完成系統(tǒng)的登陸、數(shù)據(jù)的插入刪除修改統(tǒng)計(jì)等基本操作。數(shù)據(jù)庫(kù)：SQLSERVER2000。所使用的語(yǔ)言、工具:VB6.0+ SQLSERVER2000+WINDOWSXP。所采用的技術(shù)、系統(tǒng)結(jié)構(gòu):ADO數(shù)據(jù)庫(kù)聯(lián)接技術(shù)。</p><p>

3、　設(shè)計(jì)要求教師布置實(shí)習(xí)任務(wù)和要求時(shí)，不得缺席，并做好記錄。上機(jī)前預(yù)先把所有的源程序編寫好。上機(jī)時(shí)不得遲到，不得缺席，愛(ài)護(hù)設(shè)備，認(rèn)真調(diào)試程序。仔細(xì)查閱相關(guān)資料，認(rèn)真完成思考題。按要求書寫設(shè)計(jì)任務(wù)書，并按要求按版打印，不得雷同。</p><p>　工作量二周</p><p>　工作計(jì)劃周一聽(tīng)取教師布置設(shè)計(jì)的任務(wù)及要求。周二學(xué)生查閱相關(guān)資料，進(jìn)行數(shù)據(jù)庫(kù)設(shè)計(jì)。周三至周五：詳細(xì)設(shè)計(jì)與界面設(shè)計(jì)。周一至

4、周四程序設(shè)計(jì)與上機(jī)，調(diào)試源程序。周五書寫課程設(shè)計(jì)任務(wù)書。</p><p>　參考資料《數(shù)據(jù)庫(kù)應(yīng)用技術(shù)》《數(shù)據(jù)庫(kù)應(yīng)用技術(shù)實(shí)驗(yàn)指導(dǎo)書》自編《數(shù)據(jù)庫(kù)應(yīng)用技術(shù)課程設(shè)計(jì)大綱》自編等</p><p>　指導(dǎo)教師評(píng)語(yǔ)教師：學(xué)生：</p><p><b>　　目錄</b></p><p><b>　　第一章 概述4</

5、b></p><p>　　第二章 問(wèn)題定義5</p><p>　　第三章 需求分析6</p><p>　　第四章 數(shù)據(jù)庫(kù)設(shè)計(jì)9</p><p>　　第五章 界面設(shè)計(jì)12</p><p>　　第六章 代碼與注釋15</p><p><b>　　設(shè)計(jì)總結(jié)24</b&

6、gt;</p><p><b>　　參考文獻(xiàn)25</b></p><p><b>　　第一章 概述</b></p><p>　　企業(yè)人事檔案是企業(yè)在人事管理活動(dòng)中形成的重要人事記錄。人事檔案在發(fā)展中國(guó)特色社會(huì)主義過(guò)程中,是人力資源儲(chǔ)備、促進(jìn)人才合理流動(dòng)、科學(xué)配置和合理使用人才,全面考察了解、正確評(píng)價(jià)和使用人才的重要依據(jù)。

7、但是,有的企業(yè)卻片面地認(rèn)為,人事檔案不過(guò)是人的經(jīng)歷記錄，其本身不能直接帶來(lái)經(jīng)濟(jì)效益，管好管壞無(wú)所謂，所以對(duì)人事檔案工作在管理制度、管理手段、管理模式、管理人員等方面不夠重視，存在著這樣和那樣的問(wèn)題，影響了企業(yè)的改革和發(fā)展。因此，研究開(kāi)發(fā)出一套比較通用、功能比較完善的企業(yè)員工培訓(xùn)管理軟件，力求在這一領(lǐng)域取得一些新的成果。</p><p>　　員工管理系統(tǒng)是一個(gè)企事業(yè)單位不可缺少的部分,它的內(nèi)容對(duì)于企事業(yè)單位的決策者

8、和管理者來(lái)說(shuō)都至關(guān)重要,所以員工管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄巍５恢币詠?lái)人們使用傳統(tǒng)人工的方式管理文件信息，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長(zhǎng),將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。</p><p>　　隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。<

9、;/p><p><b>　　第二章 問(wèn)題定義</b></p><p>　　用戶管理：系統(tǒng)的登錄人員，需要通過(guò)密碼才能進(jìn)入。他們擁有對(duì)系統(tǒng)數(shù)據(jù)的登錄界面，信息查詢，部門/職務(wù)管理，密碼修改等操作權(quán)限。</p><p>　　管理員管理：?jiǎn)T工信息管理，員工工資管理，員工部門/職務(wù)的管理，用戶管理，退出的詳細(xì)信息的管理?？梢詫?duì)系統(tǒng)密碼進(jìn)行更改，可以管理用戶

10、信息、權(quán)限。</p><p>　　員工信息管理：指管理系統(tǒng)的管理人員，可以查詢到員工信息編號(hào)，姓名，出生年月，現(xiàn)任職務(wù)，所屬部門，開(kāi)始工作時(shí)間，進(jìn)單位時(shí)間，身份證號(hào)，聯(lián)系電話，家庭住址，填表時(shí)間等。</p><p><b>　　第三章 需求分析</b></p><p><b>　　一、數(shù)據(jù)庫(kù)需求分析</b></p&g

11、t;<p>　　企業(yè)員工信息管理系統(tǒng)的開(kāi)發(fā)任務(wù)是為了減輕工作人員的工作負(fù)擔(dān)，為了管理工作能夠系統(tǒng)化、規(guī)范化和自動(dòng)化而開(kāi)發(fā)的。作為企業(yè)發(fā)展戰(zhàn)略的重要組成部分，人員工作是其中的重中之重，是企業(yè)賴以生存的命脈，市場(chǎng)經(jīng)濟(jì)條件下，在企業(yè)中起決定作用的除企業(yè)產(chǎn)品、服務(wù)之外，人員的作用越來(lái)越為明顯。作為企業(yè)“選、育、用、留、汰”的重要部門——人力資源部，對(duì)員工信息管理工作的支持將發(fā)揮越來(lái)越大的作用。培訓(xùn)部作為人力資源工作中“育”的主要執(zhí)

12、行部門就處于“承上啟下”的重要地位，所謂“承上”即承接“選才”后的培訓(xùn)工作，所謂“啟下”即通過(guò)培訓(xùn)，更好的“用人”和更好的“留人”。</p><p>　　企業(yè)員工管理系統(tǒng)是將企業(yè)的人事管理、工資管理、考勤管理有機(jī)相合，綜合運(yùn)用的一個(gè)企業(yè)管理軟件，它使企業(yè)的人事管理由以往的手工作業(yè)，向自動(dòng)化、網(wǎng)絡(luò)化、現(xiàn)代化邁進(jìn)了一大步。從而使企業(yè)的人事管理人員從繁重的人事管理中解放出來(lái)，大大提高了工作效率，減輕了管理人員的工作量。

13、</p><p>　　企業(yè)員工管理系統(tǒng)的數(shù)據(jù)需求包括如下幾點(diǎn)：</p><p>　　數(shù)據(jù)的一致性與完整性</p><p>　　由于系統(tǒng)的數(shù)據(jù)是共享的，在不同的公司中，員工信息是共享數(shù)據(jù)，所以如何保證這些數(shù)據(jù)的一致性，是系統(tǒng)必須解決的問(wèn)題。要解決這一問(wèn)題，要有一定的人員維護(hù)數(shù)據(jù)的一致性，在數(shù)據(jù)錄入處控制數(shù)據(jù)的去向，并且要求對(duì)數(shù)據(jù)庫(kù)的數(shù)據(jù)完整性進(jìn)行嚴(yán)格的約束。</

14、p><p>　　二、數(shù)據(jù)庫(kù)概念的結(jié)構(gòu)設(shè)計(jì)</p><p>　　數(shù)據(jù)庫(kù)是數(shù)據(jù)庫(kù)應(yīng)用程序的重要組成部分。一個(gè)設(shè)計(jì)結(jié)構(gòu)合理的數(shù)據(jù)庫(kù)對(duì)于應(yīng)用程序的開(kāi)發(fā)效率和程序的性能都是非常重要的。數(shù)據(jù)庫(kù)的設(shè)計(jì)過(guò)程大致如下：</p><p>　　根據(jù)用戶需求，確定數(shù)據(jù)庫(kù)中要保存的數(shù)據(jù)信息</p><p>　　對(duì)用戶需求進(jìn)行分析是數(shù)據(jù)庫(kù)設(shè)計(jì)的第一個(gè)階段。不斷地調(diào)查與研究用

15、戶需求，了解企業(yè)運(yùn)作流程等系統(tǒng)需求，是設(shè)計(jì)概念模型的基礎(chǔ)。</p><p><b>　　設(shè)計(jì)數(shù)據(jù)的概念模型</b></p><p>　　概念模型是按用戶的觀點(diǎn)來(lái)對(duì)數(shù)據(jù)建模，是用于進(jìn)行信息世界建模的工具。它對(duì)整個(gè)數(shù)據(jù)庫(kù)的設(shè)計(jì)具有深刻的影響。</p><p>　　三、數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)設(shè)計(jì)：</p><p>　　此企業(yè)員工信息

16、管理系統(tǒng)由用戶登錄，管理員登錄，信息查詢，部門職務(wù)管理，密碼修改，營(yíng)銷資源管理，員工信息管理，員工工資管理等部分組成。員工登陸屬性表，用員工姓名做為主鍵，員工信息屬性表主鍵是EID員工登陸屬性表的主鍵作為員工登陸屬性表的外鍵；公司信息屬性表，主鍵是YID，員工信息的主鍵作為其外鍵；員工工資表，主鍵為PID。員工信息查詢屬性表，主鍵為ENAME。管理員登陸屬性表，主鍵為CHANGETYPE。</p><p>　　四

17、、數(shù)據(jù)字典（DD）:</p><p>　　企業(yè)員工信息管理基本信息表=用戶登錄+管理員登錄</p><p>　　用戶登錄表=員工信息+員工工資登記+員工部門職務(wù)登記</p><p>　　管理員登錄表=員工信息管理+員工工作管理+員工部門職務(wù)管理+用戶管理</p><p><b>　　五、程序流程圖：</b></p&

18、gt;<p>　　圖3.1企業(yè)員工信息管理營(yíng)銷管理系統(tǒng)功能模塊</p><p><b>　　六、功能結(jié)構(gòu)圖：</b></p><p>　　圖3.2企業(yè)員工信息管理營(yíng)銷管理系統(tǒng)功能模塊</p><p><b>　　第四章 數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p>　　一、概念設(shè)計(jì)：系統(tǒng)ER圖&

19、lt;/p><p>　　公司利用管理員管理員工</p><p>　　公司屬性是：工資管理信息，獎(jiǎng)懲管理信息，考勤管理信息。</p><p>　　管理員負(fù)責(zé)對(duì)各種信息的輸入與輸出</p><p>　　員工屬性是：姓名，性別，年齡，部門，聯(lián)系方式，身份證號(hào)碼</p><p><b>　　圖4.1 E-R圖</b

20、></p><p><b>　　二、邏輯設(shè)計(jì)：</b></p><p>　　下面列出幾個(gè)主要的數(shù)據(jù)庫(kù)表設(shè)計(jì)：</p><p>　　在開(kāi)發(fā)企業(yè)員工信息管理系統(tǒng)的過(guò)程中，因?yàn)橐嗵幱玫綄?duì)數(shù)據(jù)庫(kù)的操作，所以這些操作在每次用到時(shí)在每個(gè)VB程序中去實(shí)現(xiàn)。根據(jù)企業(yè)員工信息系統(tǒng)數(shù)據(jù)庫(kù)模塊圖分析可知道，各表所包含的字段的列名，數(shù)據(jù)類型，長(zhǎng)度，是否允許為空

21、等具體情況如下：</p><p>　　表4.1 數(shù)據(jù)庫(kù)用戶登陸表</p><p>　　表4.2 數(shù)據(jù)庫(kù)員工信息查詢表</p><p>　　表4.3數(shù)據(jù)庫(kù)員工工資表</p><p><b>　　三、物理設(shè)計(jì)</b></p><p><b>　　查詢模塊</b></p>

22、;<p><b>　　對(duì)在職員工進(jìn)行查詢</b></p><p>　　查詢包括按編號(hào)或者姓名或者身份證號(hào)等位關(guān)鍵字查詢</p><p><b>　　對(duì)離職員工進(jìn)行查詢</b></p><p><b>　　同上</b></p><p><b>　　操作模塊

23、</b></p><p>　　對(duì)員工的基本信息進(jìn)行錄入，修改。</p><p>　　員工信息應(yīng)該包括：學(xué)號(hào)、姓名、年齡、學(xué)歷（不多于3個(gè)）、地址、身份證號(hào)碼（不多于19個(gè)）、部分、職務(wù)、籍貫、名族、政治身份。</p><p><b>　　照片錄入。</b></p><p>　　員工的調(diào)動(dòng)和升降職位</p

24、><p><b>　　對(duì)員工進(jìn)行離職操作</b></p><p><b>　　維護(hù)模塊</b></p><p>　　員工信息的修改，員工信息的刪除。</p><p>　　查看數(shù)據(jù)庫(kù)看是否有此員工編號(hào)存在</p><p>　　Adodc1.CommandType = adCmdTe

25、xt</p><p>　　Adodc1.RecordSource = "select * from employermessege where eid='" & Trim(Textid.Text) & "'"</p><p>　　Adodc1.Refresh</p><p>　　If Adodc

26、1.Recordset.EOF = False Then</p><p>　　MsgBox "此員工編號(hào)已經(jīng)存在，不能進(jìn)行登記！", vbOKOnly + vbExclamation, "警告"</p><p>　　Textid.Text = ""</p><p>　　Textid.SetFocus<

27、/p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　第五章 界面設(shè)計(jì)</b></p><p>　　一、登陸窗口如下所示：</p><p>　　在企業(yè)員工管理系統(tǒng)中主窗臺(tái)界面中包括用

28、戶登錄管理，管理員登錄.。圖5.1主窗體截圖。</p><p><b>　　圖5.1主窗體截圖</b></p><p>　　在企業(yè)員工信息管理系統(tǒng)中單擊用戶登錄模塊可以進(jìn)行、新用戶注冊(cè).登錄.退出。用戶登錄表窗體截圖如圖5.2所示。</p><p>　　圖5.2用戶登錄截圖</p><p>　　在企業(yè)員工信息管理系統(tǒng)中登

29、錄用戶管理進(jìn)入此模塊，此模塊主要完成對(duì)產(chǎn)品登錄界面，信息查詢，部門/職務(wù)的管理，密碼修改，退出的詳細(xì)信息的管理。用戶管理表窗體截圖如圖5.3所示。</p><p>　　圖5.3產(chǎn)品信息表截圖</p><p>　　圖5.3用戶登錄表截圖</p><p>　　在企業(yè)員工信息管理系統(tǒng)中登錄管理員管理進(jìn)入此模塊，此模塊主要完成員工信息管理，員工工資管理，員工部門/職務(wù)的管理

30、，用戶管理，退出的詳細(xì)信息的管理。管理員管理表窗體截圖如圖5.4所示。</p><p>　　圖5.4管理員登錄管理表截圖</p><p>　　在企業(yè)員工信息管理系統(tǒng)中登錄管理員管理進(jìn)入員工信息管理模塊，此模塊主要完成員工信息編號(hào)，姓名，出生年月，現(xiàn)任職務(wù)，所屬部門，開(kāi)始工作時(shí)間，進(jìn)單位時(shí)間，身份證號(hào)，聯(lián)系電話，家庭住址，填表時(shí)間等。員工信息管理表窗體截圖如圖5.5所示。</p>

31、<p>　　圖5.5員工信息管理表截圖</p><p><b>　　第六章 代碼與注釋</b></p><p><b>　　一、登錄代碼</b></p><p>　　Option Explicit</p><p>　　Public OK As Boolean</p>&l

32、t;p>　　Dim miCount As Integer</p><p>　　Private Sub Form_Load()</p><p>　　OK = False</p><p>　　miCount = 0</p><p><b>　　End Sub</b></p><p>　　Priv

33、ate Sub cmdOK_Click()</p><p>　　Dim txtsql As String</p><p>　　Dim mrc As ADODB.Recordset</p><p>　　Dim MsgText As String</p><p>　　UserName = ""</p><p

34、>　　If Trim(txtUserName.Text = "") Then</p><p>　　MsgBox "沒(méi)有這個(gè)用戶，請(qǐng)重新輸入用戶名！", vbOKOnly + vbExclamation, "警告"</p><p>　　txtUserName.SetFocus</p><p><b

35、>　　Else</b></p><p>　　txtsql = "select * from user_Info where user_ID='''& txtUserName.Text &'''"</p><p>　　Set mrc = ExecuteSQL(txtsql, MsgText)

36、</p><p>　　If mrc.EOF = True Then</p><p>　　MsgBox "沒(méi)有這個(gè)用戶，請(qǐng)重新輸入用戶名！", vbOKOnly + vbExclamation, "警告"</p><p>　　txtUserName.SetFocus</p><p><b>　　

37、Else</b></p><p>　　If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then</p><p><b>　　OK = True</b></p><p><b>　　mrc.Close</b></p><p><b>

38、;　　Me.Hide</b></p><p>　　UserName = Trim(txtUserName.Text)</p><p><b>　　Else</b></p><p>　　MsgBox "輸入密碼不正確，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"

39、</p><p>　　txtPassword.SetFocus</p><p>　　txtPassword.Text = ""</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b&

40、gt;　　End If</b></p><p>　　miCount = miCount + 1</p><p>　　If miCount = 3 Then</p><p><b>　　Me.Hide</b></p><p><b>　　End If</b></p><

41、p><b>　　Exit Sub</b></p><p>　　二、員工部門/職務(wù)代碼</p><p>　　Private Sub Command1_Click()</p><p>　　'判斷員工編號(hào)是否為空</p><p>　　If Textid.Text = "" Then</p

42、><p>　　MsgBox "員工編號(hào)不能為空！", vbOKOnly + vbExclamation, "警告"</p><p>　　Textid.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b&

43、gt;</p><p>　　'查看數(shù)據(jù)庫(kù)看是否有此編號(hào)的員工存在</p><p>　　Adodc2.CommandType = adCmdText</p><p>　　Adodc2.RecordSource = "select * from employermessege where eid='" & Trim(Texti

44、d.Text) & "'"</p><p>　　Adodc2.Refresh</p><p>　　If Adodc2.Recordset.EOF = True Then</p><p>　　MsgBox "此員工不存在，不能進(jìn)行登記，請(qǐng)先填寫正確員工編號(hào)！", vbOKOnly + vbExclamation,

45、 "警告"</p><p>　　Textid.Text = ""</p><p>　　Textid.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>

46、;　　'查看數(shù)據(jù)庫(kù)看此編號(hào)是否已登記</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = "select * from bd where yid='" & Trim(Textid.Text) & "'"</p&g

47、t;<p>　　Adodc1.Refresh</p><p>　　If Adodc1.Recordset.EOF = False Then</p><p>　　MsgBox "此員工已經(jīng)登記！", vbOKOnly + vbExclamation, "警告"</p><p>　　Textid.Text = &qu

48、ot;"</p><p>　　Textid.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　'查看姓名是否為空</b></p><p>

49、;　　If Textname.Text = "" Then</p><p>　　MsgBox "姓名不能為空！", vbOKOnly + vbExclamation, "警告"</p><p>　　Textname.SetFocus</p><p><b>　　Exit Sub</b>

50、</p><p><b>　　End If</b></p><p>　　'查看曾任職務(wù)是否為空</p><p>　　If Textbeforeduty.Text = "" Then</p><p>　　MsgBox "曾任職務(wù)不能為空！", vbOKOnly + vbExc

51、lamation, "警告"</p><p>　　Textbeforeduty.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　'查看現(xiàn)任職務(wù)是否為空</p>&l

52、t;p>　　If Textnowduty.Text = "" Then</p><p>　　MsgBox "現(xiàn)任職務(wù)不能為空！", vbOKOnly + vbExclamation, "警告"</p><p>　　Textnowduty.SetFocus</p><p><b>　　Exit

53、 Sub</b></p><p><b>　　End If</b></p><p>　　三、管理員管理用戶代碼</p><p>　　Private Sub Command1_Click()</p><p>　　Adodc1.Recordset.MoveFirst</p><p><

54、;b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Adodc1.Recordset.MovePrevious</p><p>　　If Adodc1.Recordset.BOF Then</p><p>　　Adodc1.Recordset.M

55、oveLast</p><p>　　If Adodc1.Recordset.EOF Then</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><

56、p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Adodc1.Recordset.MoveNext</p><p>　　If Adodc1.Recordset.EOF Then</p><p>　　Adodc1.Records

57、et.MoveFirst</p><p>　　If Adodc1.Recordset.BOF Then</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p>

58、<p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　Adodc1.Recordset.MoveLast</p><p><b>　　End Sub</b></p><p>　　Private Sub

59、 Command5_Click()</p><p>　　Text3.Enabled = True</p><p>　　Command1.Enabled = False</p><p>　　Command2.Enabled = False</p><p>　　Command3.Enabled = False</p><p&g

60、t;　　Command4.Enabled = False</p><p>　　Command5.Enabled = False</p><p>　　Command6.Enabled = False</p><p>　　Text1.DataField = ""</p><p>　　Text2.DataField = &quo

61、t;"</p><p>　　Text3.DataField = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub Command6_Click()</p><p>　　Dim res As String</p><p&g

62、t;　　res = MsgBox("你確定要?jiǎng)h除此信息嗎？", vbQuestion + vbYesNo, "提示")</p><p>　　If res = vbYes Then</p><p>　　Adodc1.Recordset.Delete</p><p>　　Adodc1.Recordset.MoveNext</

63、p><p>　　If Adodc1.Recordset.EOF Then</p><p>　　Adodc1.Recordset.MoveFirst</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>

64、;　　End Sub</b></p><p>　　Private Sub Command7_Click()</p><p>　　Dim res As String</p><p>　　res = MsgBox("你確定要更新此信息嗎？", vbQuestion + vbYesNo, "提示")</p>

65、<p>　　If res = vbYes Then</p><p>　　Adodc1.Recordset.Delete</p><p>　　Adodc1.RecordSource = "select * from usermessege where uname='" & Trim(Text1.Text) & "'&q

66、uot;</p><p>　　If Adodc1.Recordset.EOF = False Then</p><p>　　MsgBox "此用戶名已經(jīng)存在，請(qǐng)另外選擇用戶名！", vbOKOnly + vbExclamation, "警告"</p><p>　　Text1.SetFocus</p><p&

67、gt;<b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　Adodc1.Recordset.AddNew</p><p>　　Adodc1.Recordset.Fields("Uname") = Trim(Text1.Text)</p>

68、<p>　　Adodc1.Recordset.Fields("Upassword") = Trim(Text2.Text)</p><p>　　Adodc1.Recordset.Fields("Utype") = Trim(Text3.Text)</p><p>　　Adodc1.Recordset.Update</p>

69、<p>　　MsgBox "信息修改成功！", vbOKOnly + vbExclamation, "提示"</p><p>　　Adodc1.Recordset.MoveLast</p><p><b>　　End If</b></p><p>　　Text1.Enabled = False&

70、lt;/p><p>　　Text2.Enabled = False</p><p>　　Text3.Enabled = False</p><p>　　Command1.Enabled = True</p><p>　　Command2.Enabled = True</p><p>　　Command3.Enabled =

71、 True</p><p>　　Command4.Enabled = True</p><p>　　Command5.Enabled = True</p><p>　　Command6.Enabled = True</p><p>　　Text1.DataField = "Uname"</p><p&g

72、t;　　Text2.DataField = "Upassword"</p><p>　　Text3.DataField = "Utype"</p><p><b>　　End Sub</b></p><p>　　Private Sub Command8_Click()</p><p&g

73、t;　　Text1.Enabled = False</p><p>　　Text2.Enabled = False</p><p>　　Text3.Enabled = False</p><p>　　Command1.Enabled = True</p><p>　　Command2.Enabled = True</p><

74、;p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = True</p><p>　　Command5.Enabled = True</p><p>　　Command6.Enabled = True</p><p>　　Formglygl.Show</p>&l

75、t;p><b>　　Me.Hide</b></p><p><b>　　End Sub</b></p><p><b>　　三、密碼修改</b></p><p>　　Private Sub Command1_Click()</p><p>　　'判斷原密碼是否為空

76、</p><p>　　If Len(Trim(Text1.Text)) = 0 Then</p><p>　　MsgBox "原密碼不允許為空！", vbOKOnly + vbExclamation, "警告"</p><p>　　Text1.SetFocus</p><p><b>　　Ex

77、it Sub</b></p><p><b>　　End If</b></p><p>　　'判斷原密碼是否正確</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = "select * from u

78、sermessege where uname='" & Label2.Caption & "'"</p><p>　　Adodc1.Refresh</p><p>　　If Trim(Text1.Text) <> Trim(Adodc1.Recordset.Fields("Upassword").

79、Value) Then</p><p>　　MsgBox "原密碼不正確！", vbOKOnly + vbExclamation, "警告"</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　

80、　Text3.Text = ""</p><p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　'判斷新密碼是否為空</p><p>　

81、　If Len(Trim(Text2.Text)) = 0 Then</p><p>　　MsgBox "新密碼不允許為空！", vbOKOnly + vbExclamation, "警告"</p><p>　　Text2.SetFocus</p><p><b>　　Exit Sub</b></p

82、><p><b>　　End If</b></p><p><b>　　'限制密碼長(zhǎng)度</b></p><p>　　If Len(Trim(Text2.Text)) < 6 Or Len(Trim(Text2.Text)) > 16 Then</p><p>　　MsgBox &qu

83、ot;密碼必須為6-16位！", vbOKOnly + vbExclamation, "警告"</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text2.SetFocus</p><p><

84、b>　　Exit Sub</b></p><p><b>　　End If </b></p><p>　　'判斷災(zāi)次輸入的密碼是否為空</p><p>　　If Len(Trim(Text3.Text)) = 0 Then</p><p>　　MsgBox "請(qǐng)?jiān)俅屋斎朊艽a！"

85、;, vbOKOnly + vbExclamation, "警告"</p><p>　　Text3.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　'判斷兩次所輸入的密碼是否一致

86、</p><p>　　If Text2.Text <> Text3.Text Then</p><p>　　MsgBox "輸入密碼不一致，請(qǐng)重新輸入", vbOKOnly + vbExclamation, "警告</p><p>　　Text2.Text = ""</p><p>

87、;　　Text3.Text = ""</p><p>　　Text2.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　'修改密碼</b></p

88、><p>　　MsgBox "恭喜你，修改密碼成功！請(qǐng)記住你的新密碼！", vbOKOnly + vbExclamation, "提示"</p><p>　　Adodc1.Recordset.Fields("Upassword") = Trim(Text2.Text)</p><p>　　Adodc1.Reco

89、rdset.Update</p><p>　　Adodc1.Refresh</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Form

90、yhgl.Show</p><p><b>　　Me.Hide</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Text1.Text = ""</p>&l

91、t;p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Formyhgl.Show&l

92、t;/p><p><b>　　Me.Hide</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Label2.Caption = Formyonghu.Adodc1.UserName</p>

93、<p><b>　　End Sub</b></p><p><b>　　設(shè)計(jì)總結(jié)</b></p><p>　　一個(gè)完整的學(xué)生信息管理系統(tǒng)就創(chuàng)建完畢了。在本例中我們?cè)敿?xì)地講述了該學(xué)生信息管理系統(tǒng)的系統(tǒng)設(shè)計(jì)部分，包括功能模塊設(shè)計(jì)、數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)等。系統(tǒng)設(shè)計(jì)為整個(gè)程序構(gòu)建了骨架，各個(gè)功能模塊實(shí)現(xiàn)各個(gè)細(xì)節(jié)部分。</p><p

94、>　　在本項(xiàng)目的軟件開(kāi)發(fā)的過(guò)程中，我全面實(shí)踐一個(gè)面向數(shù)據(jù)庫(kù)的應(yīng)用系統(tǒng)的開(kāi)發(fā)過(guò)程，學(xué)習(xí)了很多有關(guān)的知識(shí)。這樣的項(xiàng)目對(duì)我學(xué)過(guò)的數(shù)據(jù)結(jié)構(gòu)，程序設(shè)計(jì)，數(shù)據(jù)庫(kù)，VB等課程是一個(gè)綜合性很高的實(shí)踐。一些以前沒(méi)有學(xué)得很雜實(shí)的課程的內(nèi)容，由于需要在實(shí)踐中運(yùn)用，剛開(kāi)始我也感到很頭痛。但回過(guò)頭再去看有關(guān)的教科書，經(jīng)過(guò)一段時(shí)間的鉆研，對(duì)與這些知識(shí)點(diǎn)的相關(guān)的背景，概念和解決方案理解得更透徹了。</p><p>　　另外我還充分體會(huì)了

95、從事軟件開(kāi)發(fā)工作需要特別嚴(yán)謹(jǐn)認(rèn)真的態(tài)度和作風(fēng)，一點(diǎn)都馬虎不得。每一個(gè)細(xì)微的細(xì)節(jié)都必須十分的注意，如果不認(rèn)真思考決策，就會(huì)出現(xiàn)或大或小的錯(cuò)誤，如果早期的錯(cuò)誤隱藏下來(lái)，對(duì)后面的工作影響就會(huì)很大，甚至有時(shí)要推倒很多前面做的工作重來(lái)。有時(shí)候，我自己覺(jué)得我寫的程序非常的正確，但是就是編譯通不過(guò)，在查找錯(cuò)誤的過(guò)程中，面臨著否認(rèn)自己的過(guò)程，非常的痛苦。這時(shí)候，我一般是先自己通過(guò)書本和資料找解決辦法，實(shí)在沒(méi)轍了才向老師請(qǐng)教。盡管向老師請(qǐng)教解決問(wèn)題比較快

96、，自己鉆研花的時(shí)間較多，但我強(qiáng)迫自己獨(dú)立的思考對(duì)我的學(xué)習(xí)提高幫助非常大。</p><p>　　在反反復(fù)復(fù)的學(xué)習(xí)及不恥下問(wèn)之下，我的辛勤努力有了回報(bào)，終于做出了一個(gè)簡(jiǎn)單的系統(tǒng)，雖然這個(gè)系統(tǒng)的功能非常的簡(jiǎn)單，在實(shí)際的運(yùn)用中，還有些不足。因?yàn)槲疑婕暗降膬H僅是企業(yè)營(yíng)銷管理的一部分簡(jiǎn)單內(nèi)容，離實(shí)際的客戶需求肯定還有一定的差距。由于我的知識(shí)淺薄，經(jīng)驗(yàn)不足及閱歷頗淺，因此，在該系統(tǒng)的設(shè)計(jì)方面還有很多不足，比如功能過(guò)少，界面不夠

97、醒目等問(wèn)題，我會(huì)在以后的學(xué)習(xí)工作的中，根據(jù)實(shí)際的具體要求不斷的修改，完善，爭(zhēng)取使該系統(tǒng)慢慢趨向完美。</p><p>　　在本系統(tǒng)的設(shè)計(jì)過(guò)程和論文編寫過(guò)程中，佟老師和同學(xué)們都給予了我許多無(wú)私的幫助，尤其是佟老師給我的論文提出了很多寶貴的修改意見(jiàn)，在這里，我向這些無(wú)私幫助我的人表示衷心的感謝。</p><p><b>　　參考文獻(xiàn)</b></p><

98、p>　　[1] 陳天河等.集成開(kāi)發(fā)寶典[M].北京：電子工業(yè)出版社,2007</p><p>　　[2] 李君芳,趙艷杰.電腦知識(shí)與技術(shù)[M].機(jī)械工業(yè)出版社,2007(9)</p><p>　　[3] 王珊,薩師煊.數(shù)據(jù)庫(kù)系統(tǒng)概論 [M].北京：高等教育出版社,2006</p><p>　　[4] 張白一,崔尚森.面向?qū)ο蟪绦蛟O(shè)計(jì)[M].西安：電子科技大學(xué)出

99、版社,2004</p><p>　　[5] 葉齊煉,申華. 學(xué)校教務(wù)工作實(shí)用手冊(cè)[M]. 北京：開(kāi)明出版社,2004</p><p>　　[6] 楊舒等.操作系統(tǒng)教程[M].北京：華中科技大學(xué)出版社,2004</p><p>　　[7] 朱如龍.SQL Server數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)[M].北京：機(jī)械工業(yè)出版社,2008</p><p>　　[8