233026_VB課設(shè)

1、交通運(yùn)輸學(xué)院課程設(shè)計PAGE PAGE 23TOC o 1-4 h u HYPERLINK l _Toc11726 前言 PAGEREF _Toc11726 1 HYPERLINK l _Toc25241 一.設(shè)計目的 PAGEREF _Toc25241 1 HYPERLINK l _Toc1068 二.設(shè)計內(nèi)容 PAGEREF _Toc1068 1 HYPERLINK l _Toc1480 三.設(shè)計要求 PAGEREF _Toc1480 1 HYPERLINK l _Toc7015 正文 PAGEREF _Toc7015 2 HYPERLINK l _Toc25316 一總體需求分析 PAG

2、EREF _Toc25316 2 HYPERLINK l _Toc11345 1基本信息包括： PAGEREF _Toc11345 2 HYPERLINK l _Toc1422 3. 系統(tǒng)需求分析： PAGEREF _Toc1422 2 HYPERLINK l _Toc22968 4. 分析 PAGEREF _Toc22968 2 HYPERLINK l _Toc31819 5.系統(tǒng)流程圖 PAGEREF _Toc31819 3 HYPERLINK l _Toc15185 二數(shù)據(jù)庫設(shè)計 PAGEREF _Toc15185 4 HYPERLINK l _Toc15922 1.數(shù)據(jù)庫的選擇 PAG

3、EREF _Toc15922 4 HYPERLINK l _Toc6441 2.數(shù)據(jù)庫基本信息分析 PAGEREF _Toc6441 4 HYPERLINK l _Toc13094 3.邏輯設(shè)計 PAGEREF _Toc13094 6 HYPERLINK l _Toc9076 4.具體設(shè)計 PAGEREF _Toc9076 6 HYPERLINK l _Toc6887 5. 基本信息錄入 PAGEREF _Toc6887 9 HYPERLINK l _Toc4589 進(jìn)行基本的信息錄入即可建立完整的數(shù)據(jù)庫。 PAGEREF _Toc4589 9 HYPERLINK l _Toc12652 三前

4、臺VB操作設(shè)計 PAGEREF _Toc12652 10 HYPERLINK l _Toc12073 1.登錄界面 PAGEREF _Toc12073 10 HYPERLINK l _Toc9074 2. 主菜單頁面 PAGEREF _Toc9074 11 HYPERLINK l _Toc14216 3. 學(xué)生基本信息管理登陸界面 PAGEREF _Toc14216 13 HYPERLINK l _Toc15396 4. 學(xué)生信息界面 PAGEREF _Toc15396 14 HYPERLINK l _Toc28840 5. 學(xué)生信息查詢界面 PAGEREF _Toc28840 17 HYPE

5、RLINK l _Toc15677 6. 幫助界面 PAGEREF _Toc15677 21 HYPERLINK l _Toc17806 體會心得 PAGEREF _Toc17806 22 HYPERLINK l _Toc7453 附錄 PAGEREF _Toc7453 23 HYPERLINK l _Toc21719 一、主要參考文獻(xiàn) PAGEREF _Toc21719 23前言一.設(shè)計目的VB課程設(shè)計是這門課程的實踐性教學(xué)環(huán)節(jié)之一，本次設(shè)計結(jié)合實際應(yīng)用的要求，使課程設(shè)計既覆蓋VB的知識點(diǎn)，又接近工程實際需要。目的是通過課程設(shè)計的綜合訓(xùn)練，培養(yǎng)實際分析問題、解決問題的能力，以及編程和動手能力

6、，最終目標(biāo)是通過課程設(shè)計這種形式，幫助學(xué)生系統(tǒng)掌握VB這門課程的主要內(nèi)容，養(yǎng)成良好的編程習(xí)慣，更好的完成教學(xué)任務(wù)。二.設(shè)計內(nèi)容 該次課程設(shè)計是運(yùn)用VB系統(tǒng)建立學(xué)生成績管理系統(tǒng)，為師生提供一個建立在成績的基礎(chǔ)上的交流平臺，方便教師提交、修改成績，師生查詢成績。該學(xué)生成績管理系統(tǒng)主要由三個模塊組成，分別為教師管理模塊、班級管理模塊、學(xué)生成績管理模塊。只有通過了密碼驗證才可進(jìn)入此系統(tǒng)進(jìn)行操作與查詢等功能。本實踐前臺開開發(fā)工具是Visual Basic6.0,后臺是Access 2003.三.設(shè)計要求1、對系統(tǒng)進(jìn)行功能需求分析2、設(shè)計合理的數(shù)據(jù)結(jié)構(gòu)和系統(tǒng)框架3、界面設(shè)計美觀、清楚、合理4、編程簡練，程

7、序功能齊全，能正確運(yùn)行5、具有一定的創(chuàng)新性6、說明書、流程圖要清楚7、課題完成后必須按要求提交課程設(shè)計報告 正文一總體需求分析1基本信息包括：學(xué)生信息表基本信息：學(xué)號、姓名、性別、出生年月、政治面貌、年級、專業(yè)、班級、電話號碼、家庭住址；用戶基本信息：用戶名、密碼；2基本功能包括：（1）教師提交、修改信息；（2）學(xué)生查詢信息；（3）信息錄入時間；3. 系統(tǒng)需求分析：（1）登錄對角色的判斷；（2）教師對信息的管理；（3）學(xué)生對信息的查詢；（4）班級信息管理：（5）后端數(shù)據(jù)庫設(shè)計，前端應(yīng)用程序的選擇；4. 分析（1）登錄；（2）針對教師的操作功能：登陸后，進(jìn)行錄入、查詢、修改等。（3）針對學(xué)生的操

8、作功能：登錄后，查詢本人信息等。（4）針對班級的管理功能：班級信息的瀏覽、修改、添加、查詢；5.系統(tǒng)流程圖 登錄驗證學(xué)生教師管理學(xué)生信息查詢學(xué)生信息查詢學(xué)生信息 二數(shù)據(jù)庫設(shè)計1.數(shù)據(jù)庫的選擇考慮了系統(tǒng)的通用性、實用性和安全性，本學(xué)生成績管理系統(tǒng)沒有選擇已有的數(shù)據(jù)庫管理系統(tǒng)作為后臺數(shù)據(jù)庫而是選擇了以系統(tǒng)自己建立的Access文件系統(tǒng)作為數(shù)據(jù)庫后臺，這主要是，在使用系統(tǒng)時,利用數(shù)據(jù)庫能匯集各種信息和Access的優(yōu)點(diǎn)，將使用數(shù)據(jù)表示圖或自定義窗體收集信息。分享給你的朋友吧：HYPERLINK /question/241163996.html?an=0&si=4 l # t _blank o 分享到

9、itiebai貼吧 HYPERLINK /question/241163996.html?an=0&si=4 l # t _blank o 分享到新浪微博新浪微博HYPERLINK /question/241163996.html?an=0&si=4 l # t _blank o 分享到騰訊微博騰訊微博HYPERLINK /question/241163996.html?an=0&si=4 l # t _blank o 分享到QQ空間QQ空間HYPERLINK /question/241163996.html?an=0&si=4 l # t _blank o 分享到人人網(wǎng)人人網(wǎng)HYPERLIN

10、K /question/241163996.html?an=0&si=4 l # t _blank o 分享到豆瓣豆瓣HYPERLINK /question/241163996.html?an=0&si=4 l # t _blank o 分享到MSNMSN對我有幫助數(shù)據(jù)表示圖提供了一種類似于Excel的電子表格，可以使數(shù)據(jù)庫一目了然。它也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他用戶共享數(shù)據(jù)庫。它是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，參考Access的優(yōu)點(diǎn)作為關(guān)系數(shù)據(jù)庫開發(fā)，的確具備了許多優(yōu)點(diǎn)，可以在一個數(shù)據(jù)包同時擁有桌面數(shù)

11、據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。另外，較之其他數(shù)據(jù)庫，Access擁有更高的安全性和易操作性。更適合用于大型的企業(yè)或?qū)W校管理系統(tǒng)。綜上，我組采用Access作為后臺數(shù)據(jù)庫系統(tǒng)。2.數(shù)據(jù)庫基本信息分析建立E-R圖如下（1）表1基本信息E-R圖學(xué)生出生年月性別姓名學(xué)號表2基本信息E-R圖學(xué)生班級專業(yè)年級政治面貌姓名學(xué)號（3）表3基本信息E-R圖學(xué)生電話號碼姓名學(xué)號（4）表4基本信息E-R圖學(xué)生姓名學(xué)號家庭住址（5）用戶基本信息E-R圖用戶名密碼用戶名3.邏輯設(shè)計將E-R圖進(jìn)行總結(jié)、歸納，建立如下關(guān)系圖:學(xué)生（學(xué)號 姓名 性別 出生年月）學(xué)生（學(xué)號 姓名 政治面貌 年級 專業(yè) 班級）學(xué)生（學(xué)號 姓

12、名 電話號碼 ）學(xué)生（學(xué)號 姓名 家庭住址）用戶（用戶名 密碼） 4.具體設(shè)計總體結(jié)構(gòu)整個學(xué)生信息管理系統(tǒng)包括五個表：表1表2 表3 表4用戶表表1表2表3 表4用戶表基本信息錄入進(jìn)行基本的信息錄入即可建立完整的數(shù)據(jù)庫。三前臺VB操作設(shè)計1.登錄界面登錄程序：Private Sub Command1_Click()a = MsgBox(確定退出？, vbOKCancel + vbInformation, 友情提示)If a = 1 ThenEndEnd IfEnd SubPrivate Sub Command2_Click()main.Showuser.HideEnd SubPrivate S

13、ub Timer1_Timer()Label1.Left = Label1.Left + 20Label2.Left = Label2.Left - 20If Label1.Left = 4000 ThenTimer1.Interval = 0End IfEnd SubPrivate Sub Form_Load()Label1.BackStyle = transparentLabel2.BackStyle = transparentEnd Sub 主菜單頁面主菜單程序Private Sub m31_Click()Unload MeForm6.ShowEnd SubPrivate Sub m32

14、_Click()Unload MeForm7.ShowEnd SubPrivate Sub m01_Click()Unload MeForm3.ShowEnd SubPrivate Sub mnup_Click()DataReport1.ShowEnd SubPrivate Sub Timer1_Timer()a = Year(Date)b = Month(Date)c = Day(Date)Label2.Caption = a & 年 & b & 月 & c & 日 & & Time()End SubPrivate Sub Form_Load()Label1.BackStyle = tran

15、sparentEnd SubPrivate Sub m12_Click()a = MsgBox(確定退出？, vbOKCancel + vbInformation, 友情提示)If a = 1 ThenEndEnd IfEnd SubPrivate Sub m211_Click()Form1.Showmain.HideEnd SubPrivate Sub m212_Click()Form5.Showmain.HideEnd SubPrivate Sub m22_Click()Form8.Showmain.HideEnd Sub學(xué)生基本信息管理登陸界面學(xué)生信息管理登陸界面代碼Private Su

16、b Command1_Click()If Text1 = 張薩博 And Text2 = 111 Then Form2.ShowIf Text1 = ThenMsgBox 用戶名不為空, , 提示Text1 = Text2 = End IfIf Text1 = And Text2 = ThenMsgBox 請輸入用戶名和密碼！, , 提示End IfIf Text1 = 張薩博 And Text2 111 ThenMsgBox 密碼錯誤，請重新登錄！, , 提示Text1 = Text2 = End IfForm8.HideForm2.ShowEnd Sub學(xué)生信息界面 （1）圖圖部分代碼Pr

17、ivate Sub Command1_Click()Static Ts As IntegerTs = Ts + 1x = InputBox(請輸入柱狀圖高度(1-19)：)If Val(x) 20 Or Val(x) = 0 ThenTs = Ts - 1MsgBox 請輸入0-19范圍的數(shù)Exit SubEnd If Set newobj = Me.Controls.Add(vb.shape, shape & Ts) With newobj .Shape = 0 .FillStyle = 5 .Left = 1 + 2 * Ts .Top = 42 - x * 2 .Height = x *

18、 2 .Width = 1 End With newobj.Visible = TrueEnd SubPrivate Sub Form_Load()Me.Height = 9000Me.Width = 19000Me.AutoRedraw = TrueShowMe.ScaleHeight = 44 將窗體的高設(shè)定為44份Me.ScaleWidth = 50 將窗體的寬設(shè)定為50份Me.Line.BorderColor = &H0&Me.Line (2, 2)-(2, 42), &H0& 畫出縱坐標(biāo)Me.Line (2, 42)-(48, 42), &H0& 畫出橫坐標(biāo)Me.Line (48,

19、42)-(47.5, 41.5), &H0& 畫出橫坐標(biāo)上的箭頭Me.Line (48, 42)-(47.5, 42.5), &H0&Me.Line (2, 2)-(1.75, 3), &H0& 畫出縱坐標(biāo)上的箭頭Me.Line (2, 2)-(2.25, 3), &H0& Label1(0).Width = 20 寫出坐標(biāo)原點(diǎn) Label1(0).Height = 20 Label1(0).AutoSize = ture Label1(0).BackStyle = 0 Label1(0).FontItalic = True Label1(0).FontBold = True Label1(0

20、).FontSize = 10 Label1(0).ForeColor = &HFF& Label1(0).Caption = 0 Label1(0).Left = 1.5 Label1(0).Top = 42.5 Label1(0).Visible = TrueFor i = 1 To 45 Load Label1(i) 用數(shù)組的方法動態(tài)添加控件（橫坐標(biāo)示數(shù)） Label1(i).Width = 40 Label1(i).Height = 20 Label1(i).AutoSize = ture Label1(i).BackStyle = 0 Label1(i).FontItalic = T

21、rue Label1(i).FontBold = True Label1(i).FontSize = 10 Label1(i).ForeColor = &HFF& Label1(i).Caption = i Label1(i).Left = 1.5 + i Label1(i).Top = 42.5 Label1(i).Visible = True 動態(tài)添加控件(橫坐標(biāo)上的間隔線） Set newobj = Me.Controls.Add(vb.line, Line & i) With newobj .BorderStyle = 3 .X1 = i + 2 .X2 = i + 2 .Y1 = 4

22、1.8 .Y2 = 42.2 End With newobj.Visible = TrueNext iFor i = 46 To 70 Load Label1(i) Label1(i).Width = 40 Label1(i).Height = 20 Label1(i).AutoSize = ture Label1(i).BackStyle = 0 Label1(i).FontItalic = True Label1(i).FontBold = True Label1(i).FontSize = 10 Label1(i).ForeColor = &HFF& Label1(i).Caption

23、= i - 45 Label1(i).Left = 1 Label1(i).Top = (66 - i) * 2 If Val(Label1(i).Caption) 20 Then Label1(i).Visible = True Set newobj = Me.Controls.Add(vb.line, Line & i) With newobj .X1 = 1.9 .X2 = 2.1 .Y1 = 2 * (i - 44) .Y2 = 2 * (i - 44) .BorderStyle = 3 End With newobj.Visible = TrueNext iEnd Sub學(xué)生信息管理

24、學(xué)生信息查詢界面瀏覽界面 瀏覽界面代碼Private Sub cmdclose_Click() Form1.Hide user.ShowEnd SubPrivate Sub cmdfind_Click() Dim str As String Dim mybookmark As Variant mybookmark = Adodc1.Recordset.Bookmark str = 學(xué)號= & Text2.Text & Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find str If Adodc1.Recordset.EOF Then MsgBox

25、指定的條件沒有匹配的記錄, , 信息提示 Adodc1.Recordset.Bookmark = mybookmark End If End SubPrivate Sub cmdfirst_Click() Adodc1.Recordset.MoveFirst cmdprevious.Enabled = False cmdnext.Enabled = TrueEnd SubPrivate Sub cmdlast_Click()Adodc1.Recordset.MoveLastcmdprevious.Enabled = Truecmdnext.Enabled = FalseEnd SubPriva

26、te Sub cmdnext_Click() Adodc1.Recordset.MoveNext cmdprevious.Enabled = True If Adodc1.Recordset.AbsolutePosition = Adodc1.Recordset.RecordCount Then cmdnext.Enabled = False End If End SubPrivate Sub cmdprevious_Click() Adodc1.Recordset.MovePrevious cmdnext.Enabled = True If Adodc1.Recordset.AbsolutePosition = 1 Then cmdprevious.Enabled = False End If End SubPrivate Sub Command1_Click() Unload Me main.ShowEnd SubPrivate Sub Command2_Click()a = MsgBox(確定退出？, vbOKCancel + vbInformation, 友情提示)If a = 1 ThenEndE