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

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

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

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

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

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

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

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

8、和管理者來說都至關(guān)重要,所以員工管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件信息，這種管理方式存在著許多缺點,如:效率低、保密性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護都帶來了不少的困難。</p><p>　　隨著科學技術(shù)的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。<

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

24、><p><b>　　對員工進行離職操作</b></p><p><b>　　維護模塊</b></p><p>　　員工信息的修改，員工信息的刪除。</p><p>　　查看數(shù)據(jù)庫看是否有此員工編號存在</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 "此員工編號已經(jīng)存在，不能進行登記！", 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>　　第五章 界面設計</b></p><p>　　一、登陸窗口如下所示：</p><p>　　在企業(yè)員工管理系統(tǒng)中主窗臺界面中包括用

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

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

30、，用戶管理，退出的詳細信息的管理。管理員管理表窗體截圖如圖5.4所示。</p><p>　　圖5.4管理員登錄管理表截圖</p><p>　　在企業(yè)員工信息管理系統(tǒng)中登錄管理員管理進入員工信息管理模塊，此模塊主要完成員工信息編號，姓名，出生年月，現(xiàn)任職務，所屬部門，開始工作時間，進單位時間，身份證號，聯(lián)系電話，家庭住址，填表時間等。員工信息管理表窗體截圖如圖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 "沒有這個用戶，請重新輸入用戶名！", 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 "沒有這個用戶，請重新輸入用戶名！", 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 "輸入密碼不正確，請重新輸入！", 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>　　二、員工部門/職務代碼</p><p>　　Private Sub Command1_Click()</p><p>　　'判斷員工編號是否為空</p><p>　　If Textid.Text = "" Then</p

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

43、gt;</p><p>　　'查看數(shù)據(jù)庫看是否有此編號的員工存在</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 "此員工不存在，不能進行登記，請先填寫正確員工編號！", 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ù)庫看此編號是否已登記</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>　　'查看曾任職務是否為空</p><p>　　If Textbeforeduty.Text = "" Then</p><p>　　MsgBox "曾任職務不能為空！", vbOKOnly + vbExc

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

52、t;p>　　If Textnowduty.Text = "" Then</p><p>　　MsgBox "現(xiàn)任職務不能為空！", 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("你確定要刪除此信息嗎？", 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)存在，請另外選擇用戶名！", 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>　　'限制密碼長度</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>　　'判斷災次輸入的密碼是否為空</p><p>　　If Len(Trim(Text3.Text)) = 0 Then</p><p>　　MsgBox "請再次輸入密碼！"

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 "輸入密碼不一致，請重新輸入", 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 "恭喜你，修改密碼成功！請記住你的新密碼！", 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>　　設計總結(jié)</b></p><p>　　一個完整的學生信息管理系統(tǒng)就創(chuàng)建完畢了。在本例中我們詳細地講述了該學生信息管理系統(tǒng)的系統(tǒng)設計部分，包括功能模塊設計、數(shù)據(jù)庫結(jié)構(gòu)設計等。系統(tǒng)設計為整個程序構(gòu)建了骨架，各個功能模塊實現(xiàn)各個細節(jié)部分。</p><p

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

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

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

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

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

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