vb課程設計實習報告

實習階段是我們踏入社會前的適應期，能讓我們了解社會運作的方式與邏輯，在實習結束后，有必要對于這一階段進行總結。以下是小編整理的《vb課程設計實習報告》相關資料，歡迎閱讀！

第一篇：vb課程設計實習報告

《龜兔賽跑》VB課程設計報告

姓名：楊鵬班級：9131038602 學號：913103860240

1. 程序功能簡要說明

本程序是一個小游戲，單擊游戲窗口中的圖形命令按鈕，游戲進入預備狀態，連續閃爍三次“預備”字樣，然后發出“開始”命令，開始比賽。若“開始”命令未下達前就跑，要作為搶跑處理，重新開始游戲。 游戲速度可以選擇。賽跑開始后，游戲者1輪流按“a”和“s”鍵，游戲者2輪流按“;”和“‘”鍵，分別使控制對象前進。誰按的快，誰就跑得快。記時牌顯示各自所用時間。游戲者跑到終點時，游戲結束，誰用的時間少，誰就獲得勝利。

2.程序界面說明

該程序中設置了三個timer控件，其中timer1用于控制字體閃爍三次，其余兩個timer2,timer3分別用于控制烏龜和兔子到達終點的時間，一到達終點便停止計時并且使得按鈕無效，達到計時的效果;水平滾動條按鈕用于比賽過程中調節速度——即每一步運動的步長;picture圖片框充當跑道;在窗口的左上角有使用菜單編輯器編輯的菜單選項，“幫助”菜單中“關于賽跑”顯示版本信息，“自述文件”是使用shell函數打開一個文本文檔，介紹了游戲規則及使用方法;“游戲”菜單中開局菜單用于開始游戲并且包含f2快捷鍵，退出菜單可以退出游戲

3.程序設計過程中遇到的問題及解決方法

一開始的設計字體閃爍就想了好長時間，測試的時候發現單純的使用timer控件用于控制時間并不能讓字體停止閃爍，后來添加了一個靜態級變量i用于控制閃爍的次數。最讓我感到困難的還是如何讓烏龜和兔子運動起來，并且是輪流按兩個按鈕才能運動，課本上知道我們用setfocus事件來控制按鈕的有效性，但是當時自己使用的是vb精簡版并沒有這個事件，于是就想到了用每一個對象用兩個靜態級邏輯變量來控制，于是得到了解決。另外在調用shell函數時發現文件找不到，找到了也是亂碼，發現文本文檔并沒有保存為txt文件類型導致出錯。

4.心得感悟

游戲設計的思維量還是挺大的，很多方法都是平時不常用的，但在不斷地摸索當中從課本當中自學了很多方法和事件，提高了自己的自學能力和對VB這一門課程的理解。雖然自己獨立完成這個小游戲花了較長時間但是對于自己解決每一個問題并取得成功感到高興，每次解決一個問題之后都會有成就感。我也明白了凡事只要自己努力了，付出了就一定會取得成功!

5.部分程序代碼說明

Public t3 As Date, t4 As String

Public t1 As Date, t2 As String

Public i As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Static x As Boolean, y As Boolean

Static p As Boolean, q As Boolean’邏輯

Dim j As Single

j = speed.Value

If KeyCode = 65 Or KeyCode = 83 Then

If i < 4 Then

MsgBox "兔子搶跑", 48, "犯規"

t1 = 0

t2 = t1

rtime.Caption = t2

t3 = 0

t4 = t3

ttime.Caption = t4

i = 0

Exit Sub

End If

End If

If x = False And i = 4 Then

If KeyCode = 65 Then

rabbit.Left = rabbit.Left + j

x = Not x

y = Not y

End If

End If

If y = True And i = 4 Then

If KeyCode = 83 Then

rabbit.Left = rabbit.Left + j

y = Not y

x = Not x

End If

End If

If rabbit.Left >= runway.Widthrabbit.Width

End If

If KeyCode = 186 Or KeyCode = 222 Then

If i < 4 Then

MsgBox "烏龜搶跑", 48, "犯規"

t1 = 0

t2 = t1

rtime.Caption = t2

t3 = 0

t4 = t3

ttime.Caption = t4

i = 0

End If

End If

If p = False And i = 4 Then

If KeyCode = 186 Then

turtle.Left = turtle.Left + j

p = Not p

q = Not q

End If

End If

If q = True And i = 4 Then

If KeyCode = 222 Then

turtle.Left = turtle.Left + j

q = Not q

p = Not p

End If

End If

If turtle.Left >= runway.Widthturtle.Width

End If

If rTimer.Enabled = False And tTimer.Enabled = False Then

If t1 > t3 Then

MsgBox "烏龜贏了!", 48, "結果"

rTimer.Enabled = False

tTimer.Enabled = False

t3 = 0: t1 = 0

rabbit.Left = 0

turtle.Left = 0

rtime.Caption = "0:00:00"

ttime.Caption = "0:00:00"

i = 0

Exit Sub

ElseIf t1 < t3 Then

MsgBox "兔子贏了!", 48, "結果"

rTimer.Enabled = False

tTimer.Enabled = False

t3 = 0: t1 = 0

rabbit.Left = 0

turtle.Left = 0

rtime.Caption = "0:00:00"

ttime.Caption = "0:00:00"

i = 0

Exit Sub

ElseIf t1 = t3 And t1 > 0 And t3 > 0 Then

MsgBox "平局!", 48, "結果"

rTimer.Enabled = False

tTimer.Enabled = False

t3 = 0: t1 = 0

rabbit.Left = 0

turtle.Left = 0

rtime.Caption = "0:00:00"

ttime.Caption = "0:00:00"

i = 0

Exit Sub

End If

End If

End Sub

Private Sub Form_Load()

rabbit.Left = 0

turtle.Left = 0

rabbit.Width = turtle.Width

rtime.Caption = "0:00:00"

ttime.Caption = "0:00:00"

End Sub

Private Sub fox_Click()

Timer1.Enabled = True

ttime.Caption = "0:00:00"

rtime.Caption = "0:00:00"

t1 = 0

t3 = 0

End Sub

Private Sub gamemenu1_Click()

fox_Click

End Sub

Private Sub gamemenu2_Click()

End

End Sub

Private Sub helpmenu1_Click()

Shell "c:windows otepad.exe H:龜兔賽跑 eadme.txt", 1

End Sub

Private Sub helpmenu2_Click()

MsgBox "版本:1.01" & Chr(13) & "初次嘗試敬請不吝賜教!", 48, "關于龜兔賽跑"

End Sub

Private Sub rTimer_Timer()

t1 = t1 + "00:00:01"

t2 = t

rtime.Caption = t2

End Sub

Private Sub Timer1_Timer()

If Label3.Visible = True Then

Label3.Visible = False

If i = 4 Then

Timer1.Enabled = False

rTimer.Enabled = True

tTimer.Enabled = True

End If

Else

i = i + 1

If i = 4 Then

Label3.Caption = "開始!"

End If

Label3.Visible = True

End If

End Sub

Private Sub tTimer_Timer()

t3 = t3 + "00:00:01"

t4 = t3

ttime.Caption = t4

End Sub

第二篇：VB課程設計總結

通過幾周對VB的學習，使我增加了對VB課程的了解.

首先了解到VB的特點，VB是在原來的Basic語言基礎上發展而來的.Visual指的是可視的圖形用戶界面開發方法.不需編寫大量代碼去描述界面元素的外觀和位置,只要把預先建立的對象添加到屏幕上的某點即可.如果使用者諸多PAINT之類的繪圖程序,則實際上已經掌握了創建用戶界面的必要技巧.BASIC指的是B語言,一種在計算機技術發展歷史上應用得最為廣泛的語言之一.VB在原來BASIC語言的基礎上進一步發展至今包含了數百條語句,函數及關鍵詞,其中很多和WINDOWS GUI有直接關系,VB不僅是可視語言,而且是面向對象的編程語言.其特點是概念多,實踐性強,涉及面廣. 之后,了解到一些基本的概念,含義.例如類,就是創建對象實例的模板包含了創建的屬性描述和行為特征的定義.而此中的對象又是類的一個實例,繼承了類的屬性,方法,而VB中長用的對象有窗體,控件等.但我們在建立之前必須清楚對象的三要素:屬性,方法和事件.而建立程序的步驟大致可分為:(1)啟動程序,裝載和顯示窗體.(2)窗體等待事件的發生.(3)事件發生時,執行對應的事件發生過程.(4)再重復(2)(3)的過程(5)最后直接遇到"END"結束語句結束程序的運行或按"結束"強行停止程序的運行. 再用VB創建一個應用程序,第一步驟是創建窗體,它是用戶與應用程序進行交互操作的可視部分,窗體是創建界面的基本構造模塊,也是創建應用程序所使用的對象.而后必要設置窗體的屬性,從而構出窗體的外觀,設置好的窗體,窗體就作為對象,能夠對其定義的事件作出響應,這也是所謂的窗體事件,而窗體事件又包括窗體本身事件,鍵盤事件和鼠標事件.在了解窗體基本知識就還應了解VB的語言基礎,其中包括了代碼模塊(窗體模塊,標準模塊,類模塊),注釋,分行和續行,數據類節(字節型,邏輯型,數值型,日期型),變量與常數,運算符與表達式,數組,控制結構,子過程和函數.同時,為了編程,我們還應培養良好的編程習慣,首先是對象,變量及過程的命名約定,然結構化編碼約定. 在VB中創建應用程序之際也就是和對象打交道之時,對象是代碼和數據的組合,可以作為一個單位來處理,對象可以是應用程序的一部分,比如可以是控件,窗體,或數據訪問對象.控件也是對象中的一種,主要用來獲取用戶的輸入信息和顯示輸出信息.應用程序中可用的控件包括文本框,命令按扭和列表框.而通過另外一些控件可以訪問其他應用程序并處理數據. VB程序設計同時可設計出一個更好的菜單系統,這樣就可以使用戶了解到更大量有關應用程序設計和結構的信息,精心規劃菜單與工具欄有助于提高應用程序的可用性.同時在基于WINDOWS的應用程序中,對話框被用來提示應用程序繼續運行所需的數據或者用戶顯示信息.對話框是一種特殊類型的窗體對象,在VB中按對話框的創建有三種類型的對話框,他們是預定義對話框,自定義對話框和標準對話框.對于自定義對話框和標準對話框,使可以完成與用戶之間的交互. 學習VB程序設計后,增加對此的認識,深入學習VB程序就可掌握新的軟件,新的編程環境,學習此課程,也可學會使用開發環境,開發工具的方法.才能更好地跟上計算機學科的發展.

第三篇：VB課程設計于心得

Visual Basic

---課程設計與心得

班級：計科107

姓名：張麟樹

學號：1004681324

一、實驗課題：設計一個能計算2階、3階、4階行列式的小軟件，運行時先由用戶輸入行列式的階數，然后軟件自動生成行列式的輸入模板，如用戶輸入的階數是3，則產生9個輸入框并排成3行3列且用兩條豎線界定。這里需用控件的動太加載技術。

二、實驗代碼：

Dim N As Integer Public Function choose(ByVal X As Integer) Do If X = 2 Then With Form1 .Line1.Visible = True .Line2.Visible = True .Line3.Visible = False .Line4.Visible = False .Line5.Visible = False .Line6.Visible = False End With For I = 0 To 3 Form1.Text1(I).Visible = True Next I Exit Do ElseIf X = 3 Then With Form1 .Line1.Visible = False .Line2.Visible = False .Line5.Visible = False .Line6.Visible = False .Line3.Visible = True .Line4.Visible = True End With For I = 0 To 8 Form1.Text1(I).Visible = True Next I Exit Do ElseIf X = 4 Then With Form1 .Line3.Visible = False .Line4.Visible = False .Line1.Visible = False .Line2.Visible = False .Line5.Visible = True .Line6.Visible = True End With For I = 0 To 15 Form1.Text1(I).Visible = True Next I Exit Do Else Call Command1_Click End If Loop End Function Public Function Huanyuan() Dim I As Integer For I = 0 To 15 Form1.Text1(I).Visible = False Next I With Form1 .Line1.Visible = False .Line2.Visible = False .Line3.Visible = False .Line4.Visible = False .Line5.Visible = False .Line6.Visible = False End With End Function

Private Sub Command1_Click() Dim I As Integer Call Huanyuan N = InputBox("請輸入階數(

2、3或4)：") For I = 0 To 15 Form1.Text1(I).Text = "" Next I Call choose(N) End Sub

Private Sub Command2_Click() Dim val As Integer If N = 2 Then val = Form1.Text1(0) * Form1.Text1(3)Form1.Text1(0) * Form1.Text1(5) * Form1.Text1(7)Form1.Text1(3) * Form1.Text1(4) * Form1.Text1(6) Else val = Form1.Text1(0) * Form1.Text1(3) * Form1.Text1(8) * Form1.Text1(15) + Form1.Text1(2) * Form1.Text1(7) * Form1.Text1(14) * Form1.Text1(9) + Form1.Text1(1) * Form1.Text1(5) * Form1.Text1(11) * Form1.Text1(12)

+

Form1.Text1(4)

*

Form1.Text1(10)

* Form1.Text1(6) * Form1.Text1(13) - Form1.Text1(0) * Form1.Text1(10) * Form1.Text1(8) * Form1.Text1(13) + Form1.Text1(1) * Form1.Text1(2) * Form1.Text1(11)

*

Form1.Text1(14)

+

Form1.Text1(3)

* Form1.Text1(4) * Form1.Text1(6) * Form1.Text1(15) + Form1.Text1(5) * Form1.Text1(7) * Form1.Text1(9) * Form1.Text1(12) End If MsgBox ("結果為： " & val) End Sub

Private Sub Command3_Click() End End Sub

三、實驗結果:

選擇菜單：

二階行列式：

三階行列式：

四階行列式：

四、心得與體會：

作為一名計算機專業的學生，在接觸了C語言、數據結構與C++課程后，對計算機語言有了一定的興趣，于是在這個學期我毫不猶豫的選擇了VB課程(算法與程序設計)。

VB程序設計的入門學習并不難,但卻是一個十分重要的過程,因為程序設計思想的形成,以及之前學習積累的經驗，很快就對VB有了一定的了解。下面就是我這段時間學習的新的與體會。 我認為作為學習程序設計最重要的一點是要注重理解一些重要的概念.VB程序設計本身并不復雜,翻開一本程序設計學習的書籍,看到的無非就是變量,函數,條件語句,循環語句等概念.但要真正能進行程序設計,需要深入理解這些概念.因此,在 程序入門階段還是應該重視概念的學習.我們學習VB并沒有從正常的途徑，而是通過老師的演示與講解，了解并學習了這門課程，可以說VB語言相對來說比其他語言簡單，從他的語法就可以看出 其次，自己動手編寫程序。程序設計入門階段要經常自己動手抄寫或編寫一些小程序,親自動手進行程序設計是創造性思維應用的體現,是培養邏輯思維的好方法.因此一定要多動手編寫程序,而且要從小程序開發開始,逐漸提高寫程序的能力.只有不斷的從自己的程序中積累經驗，從中進步，才能寫出好的程序。程序設計課是高強度的腦力勞動,不是聽會的,也不是看會的,而是練會的.只有自己動手,編寫一些程序,才會有成就感,進而對課程產生興趣,學起來才比較從容.動手能力的培養是這門課和以往課程最大的不同之處.重點放在思路,算法,編程構思和程序實現上.語句只是表達工具,要求堂上積極思考,盡量當堂學懂,并做到靈活應用. 編程序不像做其它的事情，寫程序之前一定要計劃周詳，把所有的可能性都想到，并想好相應的解決方法，不然思想會很混亂，很容易出現錯誤。還有就是編程序最重要的其實是思想，思想確定之后用什么語言或什么方法就簡單了，接下來就是設計并寫成代碼的事情了

好的程序員就是這樣一步一步煉成的。

在者，閱讀,借簽別人設計的好程序。多看別人設計好的程序代碼,包括教材上的例題程序.在讀懂別人程序后,要想他為什么這么設計能不能將程序修改完成更多的功能 則可以學到別人優秀的東西,幫助自己 提高自身水平. 通過這次學習，我越來越喜歡上計算機語言，感謝方老師，我相信在計算機語言上回走的更遠。

第四篇：VB課程設計-文本編輯器

學院名稱學生姓名專業名稱班

級VB課程設計報告

——文本編輯器

： ： ： ：

一、課程設計題目

用Visual Basic程序設計語言編寫一個簡易的文本編輯器

要求：有最基本的文本編輯功能，包括復制、剪切、粘貼、字體設置、背景顏色設置、字體顏色設置;同時擁有文本管理功能，包括打開文件、保存文件;以及完整的系統運行退出等功能，所有的操作可選擇設定的快捷鍵。

二、課程設計目的

雖然本學期的Visual Basic課程是自學的，相對于課堂學習有些不足，但通過平時的上機實驗，初步掌握了VB程序設計的各種方法，學會了編寫最基本的VB程序;對于完整的VB程序設計來講是很不足的，平時掌握的只是單獨的窗體(Form)程序編寫，以及各種簡單控件的使用，沒有做到很好連貫性，所以有必要做一次完整的VB程序設計，結合所學的基本知識，使用多個窗體自成一套系統，加上各種控件的綜合運用，初步設計一個合格的VB應用程序;這樣在鞏固VB所學的同時，更好地學會程序設計的一些思想和方法，對于以后的編程學習或是工作有重要的實踐意義。

三、課程設計說明

題目為文本編輯器，即是最基本的文本編輯程序，首先必須做好文本編輯器本身的功能，然后對其完善，做成一個完整的小程序

功能設計說明：功能是這個文本編輯器的核心內容，也就是程序的作用，它是用來做什么的;本程序就是用來編寫文本的，編寫過程中要利用到窗體(Form)一個，控件包括：RichTextBox1(超文本框)、CommonDialog(通用對話框)，以及InputBox(消息框)、菜單編輯器等，。要做的工作就是編寫代碼把這些控件和窗體等結合為一體，使得程序能夠成為一體，順暢運行。

本次設計在按照題目要求的前提下，為了完整地展示一個應用程序，在最初就設計為最基本的文本的編輯器，所以取名為“易記本”，就是簡易記事本的簡稱，然后加入圖標，在程序完成之后還進行了大包操作，得到應用程序的安裝文件，最后安裝在電腦上運行使用。 四.源代碼

Private Sub Command1_Click() Dim i As Integer If Text2.Text <> "123456" Then i = MsgBox("密碼錯誤", 5 + vbExclamation, "警告") If i <> 6 Then End Else Text2.Text = "" Text2.SetFocus End If End If Form1.Hide Form2.Show End Sub

Private Sub Form_Load() Text1.Text = "" Text1.MaxLength = 6

Text2.Text = "" Text2.MaxLength = 6 Text2.PasswordChar = "*" End Sub

Private Sub Text1_LostFocus() If Not IsNumeric(Text1.Text) Then MsgBox "帳號必須為數字", , "警告" Text1.Text = "" Text1.SetFocus End If End Sub

Private Sub Command1_Click() Form2.Hide Form3.Show End Sub

Private Sub Command2_Click() Form2.Hide Form4.Show End Sub

Private Sub Command3_Click() Form2.Hide Form5.Show End Sub

Private Sub Color_Click() CommonDialog1.Action = 3 Text1.ForeColor = CommonDialog1.Color End Sub

Private Sub Command1_Click() Form3.Hide Form2.Show End Sub

Private Sub Copy_Click() Dim st As String st = Text1.SelText End Sub

Private Sub Cut_Click()

Dim st As String st = Text1.SelText Text1.SelText = "" End Sub

Private Sub Exit_Click() End End Sub

Private Sub Font_Click() CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Action = 4 Text1.FontName = CommonDialog1.FileName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline Text1.ForeColor = CommonDialog1.Color End Sub

Sub New_Click() Text1.Text = "" Me.Caption = File End Sub

Sub Open_Click() CommonDialog1.Action = 1 Text1.Text = "" Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) Line Input #1, inputdata Text1.Text = Text1.Text + inputdata + vbCrLf Loop Close #1 End Sub

Private Sub Paste_Click() Text1.SelText = st End Sub

Private Sub Print_Click() CommonDialog1.Action = 5 For i = 1 To CommonDialog1.Copies

Printer.Print Text1.Text Next i Printer.EndDoc End Sub

Private Sub SaveAs_Click() CommonDialog1.FileName = "vb課設用.txt" CommonDialog1.DefaultExt = "txt" CommonDialog1.Action = 2 Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text End Sub

Dim arr As Long, sum As Long, a As Integer Private Sub Command1_Click() a = HScroll1.Value Text1.Text = plus(a) Call isprime(a) End Sub

Private Sub Command2_Click() End End Sub

Private Sub HScroll1_Change() Label2.Caption = HScroll1.Value End Sub Sub isprime(max As Integer) Dim x As Integer, i As Integer, j As Integer For i = 2 To max x = 0 For j = 2 To ictP * 2 Show1 ctDu(I), &HFFFFFF / (ctDuS + 1) * I * 0.6 Next Dim x As Single, y As Single Static J As Single Picture1.DrawWidth = 15 x0 = Picture1.ScaleWidth * 0.5: y0 = Picture1.ScaleHeight * 0.5 Picture1.PSet (x0, y0), 255 x = 1200: y = 0: J = JJ x = S * Cos(J + ToJ): y = S * Sin(J + ToJ) End Sub Private Sub Command1_Click() End End Sub

五、運行結果

六. 心得體會

通過本次課程設計，使我對VB的認識更加深入了一層，VB主要由兩部分組成，一個是Visual可視化界面設計，另一個是Basic程序設計。對于第一部分，我覺得還是比較容易的，因為它比較直觀。就目前我所學的，對于第二部分還是比較困難。在做設計的過程中發現自己存在不少問題，由于word知識欠缺，我沒有辦法為我的課程設計創建目錄，這讓我覺得很遺憾，尤其是對VB編程語句的不熟悉而造成在運行過程的很多次出錯。具體說文本編輯器的設計，首先是控件的使用要注意，例如不能使用平時一般的Text文本框，因為其只適用于一般的文本顯示，使用RichTextBox，可擁有文本的完整功能，不用再添加滾動條等控件，而是使用其自帶的滾動條;其實是菜單的設計，應注意菜單的名稱書寫，不能出現重復現象，否則要使用索引，不僅增加麻煩更不利于程序編寫，然后編寫代碼的時候應注意必須與菜單中的名字一一對應，否則會出現錯誤;最后要注意程序的完整性以及實用性、便捷性，能夠有友好的UI設計，給用戶最好的體驗。

第五篇：VB課程設計--學生信息管理系統

11111111111111111111111111111111111111111111

目

錄

摘

要………………………………………………………………………5 前

言………………………………………………………………………6 第一章 為什么要開發一個學生檔案管理系統……………………………7 1.1 在教育中用計算機管理學生檔案的意義.………………………7 1.2為將來學校上網做好準備……………………..…………………7 1.3 學生檔案的設計分析……………………………………………7 第二章 編程環境的選擇.…………………………………………………9 2.1開發工具的介紹.…………………………………………………9 2.3關系型數據庫……………………………………………………11 2.4 數據庫的概念……………………………………………………12 2.5新建一個數據庫.…………………………………………………12 第三章 需求分析………….………………………………………………14 3.1 可行性研究………………………………………………………14 3.2 需求分析…………………………………………………………15 第四章 系統總體規劃..……………………………………………………17 4.1軟件模塊結構設計………………………………………………17 4.2數據庫設計...……………………………………………………18 第五章 系統具體實………………………………………………………19 5.1 主界面………………………………………………………………19 5.2數據庫的實現…………………………………………………………21 5.3 ACCESS與VB的連接………………………………………………22 第六章 測試 …………………………………………………………………24 6.1程序運行界面 如下圖………………………………………………24 6.2輸入用戶名和密碼界面………………………………………………26

1 11111111111111111111111111111111111111111111 6.3系統所具備的功能顯示界面…………………………………………26 6.4系統管理功能…………………………………………………………27 6.5班級系統………………………………………………………………30 6.6 檔案管理……………………………..………………………………32 6.7課程管理………………………………………………………………33 6.8成績管理………………………………………………………………34 結束語…………………………………………………………………………36 致

謝……………………………………………………………………….37 參考文獻………………………………………………………………………38

摘 要

學生檔案管理系統是典型的信息管理系統(MIS),其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。對于前者要求建立起數據一致性和完整性強、數據安全性好的庫。而對于后者則要求應用程序功能完備,易使用等特點。

經過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發工具,利用其提供的各種面向對象的開發工具,尤其是數據窗口這一能方便而簡潔操縱數據庫的智能化對象,首先在短時間內建立系統應用原型,然后,對初始原型系統進行需求迭代,不斷修正和改進,直到形成用戶滿意的可行系統。

關鍵字：控件、窗體、域。

摘要:隨著中國教育事業的迅速發展，學生的數量日益增加，學生的信息管理也變得日益繁重和復雜。如果想要提高學生信息管理的效率和質量，以適應教育事業的發展，我們就必須對學校內部進行改革和加強學校管理。借助現代信息技術的管理方法，建立學生信息管理系統勢在必行。本文通過對一個學生信息管理系統的開發實例，對基于Visual Basic 6.0和SQL 2000的學生信息管理系統進行了分析和研究。

文章首先分析了管理信息系統的概念和特點，介紹了開發工具Visual Basic 6.0和SQL

2 11111111111111111111111111111111111111111111 2000，然后對學生信息管理信息系統進行了需求分析、概要設計和詳細設計，在概要設計中進行了數據庫的設計，在詳細設計中討論了系統的實現方法和編碼。之后對系統測試進行了分析和討論，功能模塊的測試中把登錄服務器模塊的測試和其他功能模塊的測試分開進行，介紹了一種實用的測試方法。最后是介紹系統的總體測試和系統發布。 本文所論述的學生信息管理系統對實現初中、高中和大中專院校的學生信息管理的現代化、

科學化具有重要意義。

關鍵詞:學生信息管理系統;Visual Basic 6.0;SQL 2000 ;C/S模式

Information Management system of student

Based on C/S model

Abstrac: With the quick development of Chinese education, the student’s quantity increasingly increaseses, the student’s status management also becomes increasingly heavy and complicated. If want to improve the efficiency and quality of the student’s status management and adapt the development of the education business, we must to reform the inner school and enhance the school management. So ask for the management method of the modern information technique and eatablish the student’s status management system is imperative. This text analysis and study the student’s status management information system which based on Visual Basic 6.0 and SQL 2000 across an example of student’s status management imformation system.Firstly, the article analyzed the management information system’s concept and characteristics and introduced the development tools Visual Basic 6.0 and SQL 2000 .Then it carried through the need analysis, general design and detailed design for the student’s student status information system.It designed the database in the general design and discussed the realize methord and coding of the system in the detailed design. Then it analysised and dicussed to the system test.It classified the test of registering server mold and the test of other founction mold in the function mold test and introduced a practical test method.Finally it introduced the total test and release of the system. The student’s student status management this text discussing have important meaning to realize the student’s student status manage of junior and senior high school. Keywords: Students status management system;Visual Basic 6.0;SQL 2000;C/S model

目 錄 前言 1 1 系統開發環境及其工具介紹 2

3 11111111111111111111111111111111111111111111

1.1 系統簡介 2 1.1.1 管理信息系統的概述 2 1.1.4 學生學籍管理信息系統概述 2 1.2 系統開發工具及開發環境概述 3 1.2.1 Visual Basic 6.0 的介紹 3 1.2.2 ADO數據訪問技術 3 1.2.3 Microsoft SQL Server簡介 8

2 需求分析 11 2.1 系統需求 11 2.1.1 編寫目的 11 2.1.2 背景及范圍 11 2.2 任務概要 11 2.2.1 目標 11 2.2.2 運行環境 11 2.2.3 條件與限制 11 3 系統總體分析與設計 12

3.1 系統分析 12 3.1.1 系統功能的分析 12 3.1.2 系統功能模塊設計 12

3.2 數據庫設計 13 3.2.1 數據庫需求分析 13 3.2.2 數據庫概念結構設計 13 3.2.3 數據庫邏輯結構設計 15

4 詳細設計 18 4.1 學生管理系統主窗體的創建 18 4.1.1 創建工程項目——Student_MIS 18 4.1.2 創建學生信息管理系統的主窗體 18

4.1.3 創建主窗體的菜單 20 4.1.4 創建公用模塊 20 4.2 系統用戶管理模塊的創建 21 4.2.1 用戶登錄窗體的創建 21 4.2.2 添加用戶窗體的創建 23 4.2.3 修改用戶密碼窗體的創建 24 4.3 學籍管理模塊的創建 25

4 11111111111111111111111111111111111111111111 4.3.1 添加學籍信息窗體的創建 25 4.3.2 修改學籍信息窗體的創建 27 4.3.3 查詢學籍信息窗體的創建 29 4.4 班級管理模塊的創建 30 4.4.1 添加班級信息窗體的創建 30 4.4.2 修改班級信息窗體的創建 32 4.5 課程設置模塊的創建 32 4.5.1 添加課程信息窗體的創建 32 4.5.2 修改課程信息窗體的創建 33 4.5.3 設置年級課程窗體的創建 34 4.6 成績管理模塊的創建 35 4.6.1 添加成績信息窗體的創建 36 4.6.2 修改成績信息窗體的創建 37 4.6.3 查詢成績信息窗體的創建 37

5 運行與測試 39 5.1 登錄服務器模塊測試 39 5.2 其他模塊的測試 39 5.3 幫助文檔的設計 39 5.4 系統測試和打包發行 40

結束語 41 參考文獻 42 致謝 43 附錄 44

前言

管理信息系統就是我們常說的MIS(Management Information System)，在強調管理，強調信息的現代社會中它變得越來越普及。MIS是一門新的學科，它跨越了若干個領域，比如管理科學、系統科學，運籌學、統計學以及計算機科學。[1]在這些學科的基礎上，形成信息收集和加工的方法，從而形成一個縱橫交織的系統。

管理信息系統起初應用于最基礎的工作，如打印報表、計算工資、人事管理等，進而發展到企業財務管理、庫存管理等單項業務管理，這屬于電子數據處理(EDP，Electronic Data Processing)系統。當建立了企業數據庫，有了計算機網絡從而達到數據共享后，從系統觀點出發，實施全局規劃和設計信息系統時，就達到管理信息系統的階段。隨著計算機技術的進步和人們對系統的需求進一步提高，人們更加強調管理信息系統能否支持企業高層

5 11111111111111111111111111111111111111111111 領導的決策這一功能，更側重于企業外部信息的收集、綜合數據庫、模型庫、方法庫和其他人工智能工具能否直接面向決策者，這是決策支持系統(DSS，Decision Support System)

的任務。

我國20世紀70年代末有少數企業開始MIS的局部應用。“六五”期間，選擇一些大型企業進行MIS的開發試點，其中首都鋼鐵公司、北京第一棉紡廠、湖北第二汽車制造廠、寧江機床廠等取得了經驗。20世紀80年代中后期，在全國性的計算機應用熱潮中，許多企業紛紛從財務管理、人事管理等單項應用入手，嘗試建立MIS。許多企業，如北京內燃機廠、北京電視機廠、沈陽鼓風機廠、天津渤海無線電廠的MIS初具規模，建立了覆蓋全廠的計算機網絡。“八五”期間，企業逐步走向市場，MIS建設的目標和需求日益明確。一些企業的系統，如北京第一機床廠、山西經緯紡織機械廠、成都飛機制造公司等都達到了很高的水平，與企業中其他系統集成，形成了CIMS。目前，我國MIS已經有了相當的普及率，幾乎覆蓋了各個行業及各個部門。

在學校，尤其是在各大高校，對于學生的管理是相當重要，而且也是相當麻煩的，它是學校管理中最基本的一項常規性工作。而長期以來，學校管理都是依賴人工來進行的，面對如此眾多的學生信息，其工作量是相當相當巨大的。這樣不僅僅浪費了大量的人力物力，而且由于人工管理存在著大量的不可預知性，造成學生信息管理的一些不規范，使得信息

管理陷入“事倍功半”的地步。

開發本系統就是為了解決學校在管理中的一些不規范，使學生信息的管理向著規范化、簡

單化、有效化的方向發展。[2] 根據學生信息管理系統的基本流程和高校學生信息管理的實際要求，本系統需要實現以下

功能：

(1) 學生基本信息的錄入，基本信息包括學生的基本情況、所在班級、所學課程和成績等;

(2) 要求在系統中能夠對學生信息精心靈活的瀏覽和查詢; (3) 要求在系統中能夠對班級信息進行輸入、查詢和修改等; (4) 要求能夠對學?；菊n程信息錄入、修改和設置等; (5) 要求能夠對學生成績信息進行輸入、修改和查詢等; (6) 本系統可以提供給管理員或者學生本人使用。對學生類用

6 11111111111111111111111111111111111111111111

6.3系統所具備的功能顯示界面

如圖

7 11111111111111111111111111111111111111111111

6.4系統管理功能

如圖

8 11111111111111111111111111111111111111111111

6.5班級系統

.

6.5.1 班級添加

9 11111111111111111111111111111111111111111111

6.6 檔案管理

10 11111111111111111111111111111111111111111111

6.6.1 檔案添加

6.6.2 檔案查詢

11 11111111111111111111111111111111111111111111

6.7課程管理

6.7.1課程設置

12 11111111111111111111111111111111111111111111

6.7.2 課程添加

13 11111111111111111111111111111111111111111111

四、設計結果分析

(1)系統所具備的功能顯示界面

14 11111111111111111111111111111111111111111111

15 11111111111111111111111111111111111111111111

16 11111111111111111111111111111111111111111111 (2)結果分析

1、第一步能很好的運行，初始密碼就是用戶名，只有密碼正確才會進入系統。

2、點擊在用戶界面可以加入新的用戶和刪除以前的用戶，也可以對密碼進行修改。

3、在班級管理系統中各個功能都可以實現，可以顯示當前系統中所有的班級信息。

4、課程設計一欄中可以添加系統中已經存儲的課程和手動的輸入課程，可以對課程的信息進行相應的操作。

5、成績管理功能可以正常的運行，每一個功能都是單獨的實現，不會產生混淆。

6、學籍管理是比較難的一部分，在運行了幾次才讓各個功能更能很好的實現，能夠很好的將學生的信息存到數據庫中。而且可以對其中的數據鏡像相應的操作

17 11111111111111111111111111111111111111111111

五、個人小結

雖然Vb課結束了，但是自己感覺好像沒有學到太多的東西，可能是上機的時間比較少吧，還有就是對待這么課的心態不同和老師要求的不嚴的緣故。

通過寫完這個學生管理系統，感到收獲很多，不動手就不知道自己的在哪里不懂，在這次作業的完成中遇到了許多自己無法調試的錯誤，只能請教已經學過了的同學，感覺到自己的知識的缺乏。雖然最后自己把所有的功能都按照預期的編好了，也可以很好的運行，但是其中也有許多的不足，對圖像的不理解和不會很好的使用是自己的程序讓人感到很呆板，這是需要改進的一大部分。

跟著老師學習了一個學期，自己感覺到學會一些簡單的程序編寫，至少認識了vb的作用性，這次的大作業，我只能把每一功能當做一個小的程序來編寫，不會很好的聯系所用的功能，在編寫較長的運算時，不能夠寫好，只能對著書本一個的一個算法嘗試，不能脫離課本，有時看著課本也不知道怎么寫。

當自己寫到難的時候，有點想放棄，感覺太難了，就把自己的程序給別人修改，加工。對其中的控件和文件的概念不是很熟

18 11111111111111111111111111111111111111111111 悉，還有就是數據庫，以前沒有接觸，雖然老師在最后一節課的時候是一步一步的在課堂上講解的，但是自己操作時，有時不知道在哪個地方編輯。

編完這個程序最大的收獲就是將自己不同的和學到的知識重新的聯系起來了，又重新的復習了所學的內容，對不同的算法有了新的了解。常用控件和系統對象有了初步的認識，學會利用數據庫來存儲信息，對上課不知道的多文檔界面，在試著編寫的過程中有了較大的認識。

總的來說，這一個學期并沒有浪費，可以在別人的幫助下做完這個學生管理系統，感到有種成就感，雖然不是很完美，至少自己能夠讓這個系統完整的運行，其中不足之處，就只好留在自

19