第一篇：vb課程設(shè)計檔案管理系統(tǒng)代碼

一、登陸界面

運行本系統(tǒng)需要進行用戶名和密碼驗證，沒有用戶名的可以在登陸界面注冊，詳細注冊方法在下文有介紹。登陸界面效果圖如圖1-1：

圖1-1 登陸界面設(shè)計的代碼如下：

Private Sub Command1_Click()str1 = Text1.Text str2 = Text2.Text STRSQL = “SELECT * FROM 密碼表 WHERE 用戶名='” & str1 & “'” + “ AND 密碼='” & str2 & “ '” Data1.RecordSource = STRSQL Data1.Refresh If Data1.Recordset.EOF Then

MsgBox “用戶名或密碼錯！”, 16, 提示“ Else

Form8.Show

Form1.Hide End If End Sub

Private Sub Command2_Click()

End End Sub

Private Sub Command3_Click()

Form6.Show End Sub

Private Sub Timer1_Timer()

Label1.Caption = Time End Sub

二、歡迎界面

當(dāng)用戶名和密碼驗證成功后即可進入歡迎界面如圖2-1

圖2-1 在歡迎界面的設(shè)計時用了一個時鐘控件，讓歡迎界面出現(xiàn)3秒后自動消失進入系統(tǒng)主界面，歡迎界面的代碼設(shè)計如下：

Private Sub Timer1_Timer()

If Timer1.Enabled = True Then

Form8.Hide

Form2.Show

Timer1.Enabled = False

End If End Sub

三、系統(tǒng)主界面

系統(tǒng)主界面可以進行簡單的信息瀏覽（如圖3-1），在主界面設(shè)置了一些命令按扭，其中 “修改”、“刪除”、“打印”可以在主界面直接進行，而“查詢”和“添加”需要打開另一個窗體操作。代碼設(shè)計如下：

Private Sub Command6_Click()

Data1.Recordset.MoveFirst End Sub Private Sub Command7_Click()

Data1.Recordset.MovePrevious

If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst End Sub Private Sub Command8_Click()

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End Sub Private Sub Command9_Click()

Data1.Recordset.MoveLast End Sub Private Sub Form_Load()

Timer1.Enabled = True

Label11.Left = Me.Width End Sub Private Sub Command10_Click()DataReport1.Show End Sub Private Sub Command3_Click()

ans = MsgBox(”確認修改??“, 32 + 1, 提示”)

If ans = 1 Then

mbookmark = Data1.Recordset.Bookmark

Data1.Recordset.Edit

End If End Sub

Private Sub Command4_Click()

On Error Resume Next

Data1.Recordset.Delete

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then Data1.Recordset.MoveLast

MsgBox “確認刪除?”, 32 + 1, “提示” End Sub

Private Sub Timer1_Timer()

Label11.Left = Label11.Left-200

If Label11.Left <=-Label11.Width Then

Form2.BackColor = vbRed

End If End Sub Private Sub Timer2_Timer()

Label12.Caption = Time End Sub

圖3-1

四、查詢

查詢的效果圖如圖4-1

圖4-1 代碼設(shè)計如下：

Private Sub Command1_Click()

a = “select * from學(xué)生檔案 where ”

n = 0 If Check1.Value = Checked Then

a = a + “ 姓名='” + DataCombo1 + “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If If Check2.Value = Checked Then

If n = 1 Then

a = a + “ and ”

End If

a = a + “ 學(xué)號 ='” + DataCombo2 + “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If If Check3.Value = Checked Then

If n = 1 Then

a = a + “ and ”

End If

a = a + “ 院系='” + DataCombo3 + “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If

If Check4.Value = Checked Then

If n = 1 Then

a = a + “ and ”

End If

a = a + “ 專業(yè)='” + DataCombo4 + “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If If Check5.Value = Checked Then

If n = 1 Then

a = a + “ and ”

End If

a = a + “ 班級='” + DataCombo5+ “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If If Check6.Value = Checked Then

If n = 1 Then

a = a + “ and ”

End If

a = a + “ 入學(xué)時間='” + DataCombo6 + “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If End Sub

五、添加

添加效果圖如圖5-1

圖5-1

代碼設(shè)計如下：

Private Sub Command1_Click()

If Command1.Caption = “ìí?ó” Then

Command1.Caption = “è·è?”

mbookmark = Data1.Recordset.Bookmark

Data1.Recordset.AddNew

Data1.Recordset.MoveLast

Data1.Refresh

Text1(0).SetFocus

End If

MsgBox “è·è?ìí?ó?”, 32 + 1, “ìáê?” End Sub

Private Sub Command2_Click()For i = 0 To 13

Text1(i)= “" Next i

Text1(0).SetFocus End Sub

Private Sub Command3_Click()

Unload Form4 End Sub

六、修改、刪除、打印

這部分的效果圖如圖6-

1、圖6-2

圖6-1

圖6-2

代碼設(shè)計如下：

Private Sub Command4_Click()

On Error Resume Next

Data1.Recordset.Delete

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then Data1.Recordset.MoveLast

MsgBox ”確認刪除?“, 32 + 1, ”提示“ End Sub

Private Sub Command3_Click()

ans = MsgBox(”確認修改?“, 32 + 1, ”提示“)

If ans = 1 Then

mbookmark = Data1.Recordset.Bookmark

Data1.Recordset.Edit

End If End Sub

Private Sub Command6_Click()

Data1.Recordset.MoveFirst End Sub

七、統(tǒng)計

必須添加一個MSFlexGrid控件與Data控件連接，用來保存統(tǒng)計的結(jié)果，統(tǒng)計的效果圖如圖7-1

圖7-1

代碼設(shè)計如下：

Private Sub Command2_Click(Index As Integer)

Data1.RecordSource = ”select 院系,count(*)as人數(shù) from學(xué)生檔案? group by 院系“

Data1.Refresh End Sub Private Sub Command3_Click()

Data1.RecordSource = ”select專業(yè),count(*)as人數(shù) from學(xué)生檔案? group by 專業(yè)“

Data1.Refresh End Sub Private Sub Command4_Click()

Data1.RecordSource = ”select 入學(xué)時間,count(*)as人數(shù) from學(xué)生檔案? group by入學(xué)時間“

Data1.Refresh End Sub Private Sub Command5_Click()

Data1.RecordSource = ”select 籍貫,count(*)as人數(shù) from學(xué)生檔案? group by 籍貫“

Data1.Refresh End Sub Private Sub Command6_Click()

Data1.RecordSource = ”select 民族,count(*)as人數(shù) from學(xué)生檔案? group by 民族“

Data1.Refresh End Sub Private Sub Command7_Click()

Data1.RecordSource = ”select 政治面貌,count(*)as人數(shù) from學(xué)生檔案? group by 政治面貌“

Data1.Refresh End Sub Private Sub Command8_Click()

Unload Form9 End Sub

八、帳戶管理

（一）帳號注冊

由于本系統(tǒng)登陸需要用戶名和密碼驗證，所以本系統(tǒng)設(shè)置了一個帳號注冊的功能，其效果圖如圖8-

1、圖8-2

圖8-1

圖8-2 帳號注冊代碼設(shè)計如下：

Private Sub Command1_Click()If Text1.Text = ”“ Then

MsgBox ”你沒有輸入用戶名！“, 16, ”提示“

Exit Sub End If If Text2.Text = ”“ Then

MsgBox ”你沒有輸入密碼！“, 16, ”提示“

Exit Sub End If If Text3.Text = ”“ Then

MsgBox ”你沒有再次輸入密碼！“, 16, ”提示“

Exit Sub End If

If Text2.Text <> Text3.Text Then

MsgBox ”兩次輸入的密碼不一致！“, 16, ”提示“

Exit Sub End If If Text2.Text = Text3.Text Then

If Command1.Caption = ”注冊“ Then

Command1.Caption = ”確認“

mbookmark = Data1.Recordset.Bookmark

Data1.Recordset.AddNew

Text1.SetFocus

Else

Command1.Caption = ”注冊“

Data1.Recordset.Update

Data1.Recordset.MoveLast

End If

Text3.Text = ”“

MsgBox ”恭喜你注冊成功！“, 48, ”歡迎使用“ End If End Sub

（二）密碼修改

密碼修改的效果圖如圖8-

3、圖8-4

圖8-3

圖8-4 密碼修改代碼設(shè)計如下：

Private Sub Command1_Click()If Text1.Text = ”“ Then

MsgBox ”你沒有輸入用戶名！“, 16, ”提示“

Exit Sub End If If Text2.Text = ”“ Then

MsgBox ”你沒有輸入舊密碼！“, 16, ”提示“

Exit Sub End If If Text2.Text <> Text3.Text Then

MsgBox ”舊密碼錯誤！“, 16, ”提示“

Exit Sub End If If Text3.Text = ”“ Then

MsgBox ”你沒有輸入新密碼！“, 16, ”提示“

Exit Sub End If If Text4.Text = ”“ Then

MsgBox ”你沒有再次輸入新密碼！“, 16, ”提示“

Exit Sub End If If Text3.Text <> Text4.Text Then

MsgBox ”兩次輸入的密碼不一致！“, 16, ”提示“

Exit Sub End If If Text3.Text = Text4.Text Then

prompt = ”確認修改?“

answer = MsgBox(prompt, 32 + 0, ”確認修改“)

If answer = vbYes Then

Data1.Recordset.Edit

Data1.Recordset.Fields(0)= Trim(Text1.Text)

Data1.Recordset.Fields(1)= Trim(Text3.Text)

Data1.Recordset.Update

Data1.Refresh

MsgBox ”密碼修改成功！“, vbOKOnly, ”密碼修改“

End If End If End Sub

（三）帳號注銷

效果圖如圖8-5

圖8-5 代碼設(shè)計如下：

Private Sub Command1_Click()If Text1.Text = ”“ Then

MsgBox ”你沒有輸入用戶名！“, 16, ”提示“

Exit Sub End If If Text2.Text = ”“ Then

MsgBox ”你沒有輸入舊密碼！“, 16, ”提示“

Exit Sub End If If Text2.Text <> Text3.Text Then

MsgBox ”舊密碼錯誤！“, 16, ”提示“

Exit Sub End If If Text2.Text = Text3.Text Then

On Error Resume Next

Data1.Recordset.Delete

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then Data1.Recordset.MoveLast

MsgBox ”確認注銷該用戶?“, 32 + 1, ”提示" End If End Sub

第二篇：vb課程設(shè)計 職工工資管理系統(tǒng)代碼

Form1: Dim errorCount As Integer Private Sub Command1_Click()If Text1.Text = “system” And Text2.Text = “1234” Then

Load Form2

Form2.Show

Me.Hide

MsgBox “登陸成功，歡迎您進入職工工資管理系統(tǒng)”, vbInformation, “登陸成功”

Else

errorCount = errorCount + 1

If errorCount < 3 Then

MsgBox “用戶名或密碼錯誤(第” & errorCount & “次)！”, vbOKOnly + vbExclamation, “登陸失敗”

Text1.SetFocus

End If

If errorCount >= 3 Then

Text1.Enabled = False

Text2.Enabled = False

Command1.Enabled = False

MsgBox “三次輸入用戶名或密碼錯誤,程序?qū)⒆詣油顺?！? vbOKOnly + vbExclamation, “登陸失敗”

End

End If End If

End Sub

Private Sub Command2_Click()Unload Me End Sub

Private Sub Form_Load()errorCount = 0 End Sub

Private Sub Form_Unload(Cancel As Integer)If MsgBox(“是否要退出程序?”, vbYesNo, “退出提示”)= vbNo Then

Cancel = 1 End If End Sub

For i = 1 To jlNum

ygList(i).shifagongzi =(CSng(ygList(i).jibengz)+ ygList(i).gerensui

CSng(ygList(i).jingtie)

ygList(y).shifagongzi = ygList(zuishao).shifagongzi ygList(zuishao).shifagongzi = linShi.shifagongzi End If Next loadData End Sub

Private Sub Command5_Click()Dim linShi As YuanGong

linShi.ygnamg = InputBox(“請輸入要添加的姓名”, “添加員工-姓名錄入”)If Len(Trim(linShi.ygnamg))> 0 Then

linShi.jibengz = InputBox(“請輸入添加員工的基本工資”, “添加員工-基本工資錄入”)

If Len(Trim(linShi.jibengz))> 0 Then

linShi.jingtie = InputBox(“請輸入添加員工的津貼”, “添加員工-津貼錄入”)

If Len(Trim(linShi.jingtie))> 0 Then

linShi.gerensui = InputBox(“請輸入添加員工的個人所得稅”, “添加員工-個稅錄入”)

If Len(Trim(linShi.gerensui))> 0 Then

linShi.suidianfei = InputBox(“請輸入添加員工的水電費”, “添加員工-水電費錄入”)

If Len(Trim(linShi.suidianfei))> 0 Then

Open filedir For Append As #1

Write #1, linShi.ygnamg;linShi.jibengz;linShi.jingtie;linShi.gerensui;linShi.suidianfei

Close #1

MsgBox “添加員工成功！”, vbOKOnly + vbInformation, “成功”

jlNum = 0 If Len(Trim(filedir))> 0 Then

Open filedir For Input As #1

Do While Not EOF(1)

Line Input #1, a

If Len(Trim(a))> 0 Then

jlNum = jlNum + 1

End If

Loop

Close #1

ReDim Preserve ygList(jlNum)As YuanGong

jlNum = 0

Open filedir For Input As #1

Do While Not EOF(1)

jlNum = jlNum + 1

Input #1, ygList(jlNum).ygnamg

Input #1, ygList(jlNum).jibengz

Input #1, ygList(jlNum).jingtie

Next

Close #1

MsgBox “刪除員工成功！”, vbOKOnly + vbInformation, “成功”

jlNum = 0 If Len(Trim(filedir))> 0 Then

Open filedir For Input As #1

Do While Not EOF(1)

Line Input #1, a

If Len(Trim(a))> 0 Then

jlNum = jlNum + 1

End If

Loop

Close #1

ReDim ygList(jlNum)As YuanGong

jlNum = 0

Open filedir For Input As #1

Do While Not EOF(1)

jlNum = jlNum + 1

Input #1, ygList(jlNum).ygnamg

Input #1, ygList(jlNum).jibengz

Input #1, ygList(jlNum).jingtie

Input #1, ygList(jlNum).gerensui

Input #1, ygList(jlNum).suidianfei

Loop

Close #1

loadData

Command2.Enabled = True

Command3.Enabled = False

Command4.Enabled = False

Command5.Enabled = True

Command6.Enabled = True End If

Text1.Text = “姓名” & vbTab & “工資” & vbTab & “津貼” & vbTab & “所得稅” & vbTab & “水電費” & vbCrLf

For i = 1 To jlNum

Text1.Text = Text1.Text & ygList(i).ygnamg & vbTab & ygList(i).jibengz & vbTab & ygList(i).jingtie & vbTab & ygList(i).gerensui & vbTab & ygList(i).suidianfei & vbCrLf

Next Else

MsgBox “刪除員工失??！”, vbOKOnly + vbExclamation, “失敗” End If End Sub

Private Sub Command7_Click()

第三篇：學(xué)生檔案管理系統(tǒng)(vb)

萊 蕪 職 業(yè) 技 術(shù) 學(xué)

院

畢業(yè)設(shè)計（論文）

所 在 系：計算機系 姓 名： 韓坤 論文題目：學(xué)生檔案管理系統(tǒng)

專 業(yè)：軟件應(yīng)用技術(shù) 班 級：07級軟件一班 指導(dǎo)老師：宋文敏

二零一零 年 四月 月 三十 日

摘 要

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

經(jīng)過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象,首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對初始原型系統(tǒng)進行需求迭代,不斷修正和改進,直到形成用戶滿意的可行系統(tǒng)。

關(guān)鍵字：控件、窗體、域。

ABSTRACT The system of managing student file is a typical application of managing information system（know as MIS）,which mainly includes building up data-base of back-end and developing the application interface of front-end.The former required consistency and integrality and security of data.The later should make the application powerful and easily used.By looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools in Win32.VB offered a series of ActiveX operating a data-base.It can give you a short-cut to build up a prototype of system application.The prototype could be modified and developed till users are satisfied with it.Keywords: ActiveX , Form , Field.目 錄

--------8-9--------

--------10-31--------

--------31-32--------

----------33----------

言學(xué)生檔案管理系統(tǒng)是一個教育單位不可缺少的部分,它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要,所以學(xué)生檔案管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點,如:效率低、保密性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計算機科學(xué)日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計算機應(yīng)用的一部分,使用計算機對學(xué)生檔案信息進行管理,具有著手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學(xué)生檔案管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。

因此，開發(fā)這樣一套管理軟件成為很有必要的事情,在下面的各章中我們將以開發(fā)一套學(xué)生檔案管理系統(tǒng)為例,談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。

需求分析

計算機已經(jīng)成為我們學(xué)習(xí)和工作的得力助手：

今天，計算機的價格已經(jīng)十分低廉，性能卻有了長足的進步。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計算機之所以如此流行的原因主要有以下幾個方面： 首先，計算機可以代替人工進行許多繁雜的勞動； 其次，計算機可以節(jié)省許多資源；

技術(shù)上可行性：

軟件界面清晰，整潔。功能一目了然，操作簡單，容易上手，對于一般網(wǎng)絡(luò)操作者都能勝任。

綜上所述，本系統(tǒng)的設(shè)計與開發(fā)在技術(shù)上和硬件設(shè)備上的條件都是滿足的，因此，它在技術(shù)上是可行的。運行上可行性：

本系統(tǒng)為一個小型的編輯系統(tǒng)，所耗費的資源非常的小，具體的系統(tǒng)需求如下：

CPU:至少200MHz Intel Pentinm 處理器

操作系統(tǒng)：Windows 98 拉按鈕和平滑按鈕等。

選擇“工程”下拉菜單中的“部件”選項，顯示“部件”對話框。在“控件”選項卡列表中選擇“Microsoft Windows Common Controls 6.0”后工具相中增加改控件。其屬性及對象如下：

1． Align屬性定義工具條在窗體中的位置

2． ToolTipText屬性是字符串類型，定義控件的提示字符 3． Style屬性定義按鈕外觀。

4． ImageList屬性定義與數(shù)據(jù)條對應(yīng)的ImageList控件名，該控件定義工具條按鈕顯示的圖像。

5． HotImangeList屬性設(shè)置一個ImageList控件名，該控件定義按鈕獲得熱點時顯示的圖像。

6． DisabledImageList屬性定義工具條按鈕無效時顯示的圖像。創(chuàng)建工具條包括ImageList和Toolbar控件

ImageList用于為其他控件提供圖像庫，將ImageList控件加入到工具箱的操作于前述Toolbar控件相同。

3.3幫助

專業(yè)水平的軟件通常都帶有聯(lián)機幫助功能。無論寫出來的程序是要給大量的用戶使用，還是僅僅局限于公司內(nèi)部有限的使用者，我們都應(yīng)該為用戶提供詳細的、易于理解的聯(lián)機幫助文檔。微軟的Help Workshop4.0 是一套獨立于Visual Basic 的用來協(xié)助我們創(chuàng)建、運行于32位Windows 操作系統(tǒng)下的幫助文件的工具。使用它我們可以為我們編寫的應(yīng)用程序生成一組幫助文件。

3.4關(guān)于版本

為了是程序顯得更具有專業(yè)風(fēng)格，首先可以在其中加入通常的應(yīng)用程序信息。這些信息包括公司名稱、版本號、修訂號以及其他類似信息。Visual Basic允許你使用APP對象來保存這些信息，APP對象是一個預(yù)定義對象，不需要在程序中創(chuàng)建它。APP對象的大多數(shù)屬性被應(yīng)用程序用來提供常規(guī)的信息，通過使用這些APP提供的屬性，可以在應(yīng)用程序和用戶之間交流重要信息，在項目屬性框中可以設(shè)置它的屬性。

使用Access2000 實現(xiàn)關(guān)系型數(shù)據(jù)庫

3.5數(shù)據(jù)庫的概念

數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。數(shù)據(jù)庫的作用在于組織和表達信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計算機的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（flat-file）和關(guān)系數(shù)據(jù)庫（relational）。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術(shù)語，象記錄、域等。

新建一個數(shù)據(jù)庫

創(chuàng)建任何一個數(shù)據(jù)庫的 6． 標識指定字段的信息； 7． 創(chuàng)建物理表。

修改已建的數(shù)據(jù)庫

數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細描述實現(xiàn)的具體方法。

實現(xiàn)數(shù)據(jù)庫之間的聯(lián)系

數(shù)據(jù)庫之間的關(guān)系指明兩個庫之間共享一個共同的關(guān)鍵字值。一個連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個不同的表中獲取信息時建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個更高級的連接形式稱為自連接。這種連接是指一個表被連接到它自己的一個字段，或在不同的紀錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。系統(tǒng)總體規(guī)劃

3.6系統(tǒng)功能

1． 可以進行文本操作； 2． 添加一個數(shù)據(jù)庫項目； 3． 刪除一個數(shù)據(jù)庫項目； 4． 修改一個數(shù)據(jù)庫項目； 5． 查詢信息； 6． 察看課程表。

學(xué)號CodeInteger6No性別SexDate2No年齡AgeDate6No民族NationDate6No政治面貌Visage...Date2...Yes...家庭住址AddressDate10No備注RecordDate15No 學(xué)籍模塊：

該模塊主要完成學(xué)生基本信息的錄入、刪除、更新等功能。在此模塊中定義了八個域名來進行學(xué)生的信息存儲。如果用戶修改某一紀錄中的某一項，可單添加按鈕進行學(xué)生記錄的編輯，此窗口使用數(shù)據(jù)窗口的FREEDOM風(fēng)格（典型的錄入界面）。該種風(fēng)格特點是列標題緊挨著數(shù)據(jù)列在此窗口還可以增加新學(xué)生紀錄。

4.4．2成績數(shù)據(jù)庫

成績數(shù)據(jù)庫里存儲了學(xué)生的成績包括：學(xué)號、成績、等

列名（中文）列名（英文）數(shù)據(jù)類型寬度小數(shù)點位數(shù)是否為空姓名Name Date8No學(xué)號CodeInteger6No成績ScoreDate10No備注RecordDate15No 成績模塊：

該模塊主要完成學(xué)生成績的基本信息的錄入、刪除、更新等功能。在此模塊中定義了四個域名來進行學(xué)生的信息存儲。

4.4.3課程數(shù)據(jù)庫

課程數(shù)據(jù)庫利存儲了課程的信息：課程名、作者、出版社等 列名（中文）列名（英文）數(shù)據(jù)類型寬度小數(shù)點位數(shù)是否為空課程IDCourseDate8No課程名NameDate15No出版社PublisherDate20No作者ScoreDate18No備注RecordDate15No

課程模塊：

該模塊主要完成存儲課程的所有信息及錄入、刪除、更新等功能

與VB的連接

Visual Basic提供了與底層數(shù)據(jù)庫系統(tǒng)緊密的連接。Visual Basic 支持不同的關(guān)系數(shù)據(jù)庫管理系統(tǒng)并充分發(fā)揮每一個數(shù)據(jù)庫的特長。生成獨立應(yīng)用或脫離服務(wù)器運行的服務(wù)以上的應(yīng)用，Visual Basic連接數(shù)據(jù)庫的方式有兩種： ·通過使用Visual Basic的 DATA控件。

·通過使用由Visual Basic提供的專用的直接與數(shù)據(jù)庫相連的接口

ImgUndo.Picture = ImageDisable.ListImages(“Undo”).Picture End Sub Private Sub ImgUndoEnable()'有效“Undo”按鈕 ImgUndo.Enabled = True ImgUndo.Picture = ImageUp.ListImages(“Undo”).Picture End Sub Private Sub Check_ImgPaste()'設(shè)置粘貼按鈕

If Len(Clipboard.GetText)> 0 Then ImgPaste.Enabled = True ImgPaste.Picture = ImageUp.ListImages(“Paste”).Picture Else ImgPaste.Enabled = False ImgPaste.Picture = ImageDisable.ListImages(“Paste”).Picture End If End Sub Private Sub Check_ImgCutCopy()'設(shè)置剪切、復(fù)制按鈕 If Text1.SelLength > 0 Then ImgCut.Enabled = True ImgCut.Picture = ImageUp.ListImages(“Cut”).Picture

ImgCopy.Enabled = True ImgCopy.Picture = ImageUp.ListImages(“Copy”).Picture Else ImgCut.Enabled = False ImgCut.Picture = ImageDisable.ListImages(“Cut”).Picture ImgCopy.Enabled = False ImgCopy.Picture = ImageDisable.ListImages(“Copy”).Picture End If End Sub Private Sub BackColor_Click()CommonDialog1.ShowColor Text1.BackColor = CommonDialog1.Color End Sub Private Sub Box_Click()'顯停工具欄 If Box.Checked Then '將停顯工具欄 Box.Checked = False CoolBar1.Visible = False Else Box.Checked = True CoolBar1.Visible = True End If

Form_Resize '重新調(diào)整控件位置 End Sub Private Sub Close_Click()Dim FileNum As Integer

If Len(FileName)> 0 Then '有輸入文件名

FileNum = FreeFile()'獲得可用文件號

Open FileName For Output As FileNum '打開輸出文件 '如果無指定文件，則創(chuàng)建新文件 Print #FileNum, Text1.Text '輸出文本 Close FileNum '關(guān)閉文件 End If Text1.Text = “" FileName = ”“ End Sub Private Sub ComboSize_Click()Text1.FontSize = Val(ComboSize.Text)End Sub

Private Sub ComboFont_Click()Text1.FontName = ComboFont.Text End Sub Private Sub Copy_Click()Clipboard.SetText Text1.SelText '復(fù)制文本到剪裁板 End Sub Private Sub Cut_Click()Clipboard.SetText Text1.SelText '復(fù)制文本到剪裁板 Text1.SelText = ”“ '清選擇的文本 End Sub Private Sub DataTime_Click()Text1.SelText = Now End Sub Private Sub Delete_Click()Text1.SelText = ”“ '清選擇的文本 End Sub Private Sub Edit_Click()'當(dāng)程序顯示“編輯”子菜單前，觸發(fā)該程序 If Text1.SelLength > 0 Then '文本框中有選中的文本 Cut.Enabled = True

Copy.Enabled = True Delete.Enabled = True Else Cut.Enabled = False Copy.Enabled = False Delete.Enabled = False End If

If Len(Clipboard.GetText())> 0 Then '剪裁板中有文本數(shù)據(jù) Paste.Enabled = True Else '沒有可粘貼的文本 Paste.Enabled = False End If End Sub Private Sub Exit_Click()Unload Me End Sub Private Sub FindText_KeyPress(KeyAscii As Integer)Dim BeginPos As Long

If KeyAscii = 13 Then BeginPos = InStr(1, Text1.Text, FindText.Text, vbTextCompare)If BeginPos > 0 Then Text1.SelStart = BeginPos1 ComboFont.AddItem Screen.Fonts(i)Next i End Sub Private Sub Form_Resize()Dim TextTop As Long

'修改工具條大小

CoolBar1.Top = Me.ScaleTop Me.ScaleLeft Text1.Width = Me.ScaleWidth If Me.ScaleHeight > CoolBar1.Height Then Text1.Height = Me.ScaleHeight” + FileName '修改標題顯示 End If End Sub Private Sub Paste_Click()Text1.SelText = Clipboard.GetText End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1 = “工具欄” End Sub Private Sub Picture1_Resize()If Picture1.Width > Label1.Left Then Label1.Width = Picture1.ScaleWidth" + FileName '修改標題顯示 ImgUndoDisable End If End Sub Private Sub Text1_Change()If Not ImgUndo.Enabled Then '使“Undo”按鈕可用 ImgUndoEnable

End If UndoString = UndoNew UndoNew = Text1 End Sub Private Sub Text1_Click()Check_ImgCutCopy End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)Check_ImgCutCopy End sub

也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強大功能。

二者的結(jié)合（DBA）

微軟的JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及Visual Basic 來訪問數(shù)據(jù)庫并對其進行各種操作。Visual Basic、Access以及其他微軟的軟件產(chǎn)品都是通過共用JET數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。

DATA 控件在數(shù)據(jù)庫中的信息與將信息顯示給用戶看的Visual Basic程序之間架起了一座橋梁。我們可以設(shè)置DATA控件的各個屬性，告訴它要調(diào)用那個數(shù)據(jù)庫的哪個部分。缺省情況下，DATA控件根據(jù)數(shù)據(jù)庫中的一個或多個數(shù)據(jù)表建立一個dynaset-type（動態(tài)集合）類型的記錄集合。一個記錄集合是動態(tài)的也就意味著，當(dāng)原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會隨之改變。DATA控件還提供了用來瀏覽不同記錄的各種跳轉(zhuǎn)按鈕。將DATA控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。

第四篇：VB學(xué)生管理系統(tǒng)主要代碼

主要代碼如下：

Dim cn As New ADODB.Connection Dim rst0 As New ADODB.Recordset Dim rst1 As New ADODB.Recordset Dim rst2 As New ADODB.Recordset Dim rst3 As New ADODB.Recordset

Private Sub Cmd0add_Click()rst0.AddNew Cmd0add.Enabled = False Cmd0save.Enabled = True Cmd0del.Enabled = False Cmd0Exit.Enabled = True End Sub

Private Sub Cmd0del_Click()Cmd0add.Enabled = True Cmd0save.Enabled = True Cmd0del.Enabled = False Cmd0Exit.Enabled = True x = MsgBox(“確定要刪除嗎”, vbYesNoCancel + vbQuestion, “確認”)If x = vbYes Then rst0.Delete End Sub

Private Sub Cmd0Exit_Click()cn.close Unload Me End Sub

Private Sub Cmd0save_Click()Cmd0add.Enabled = True Cmd0save.Enabled = False Cmd0del.Enabled = True Cmd0Exit.Enabled = True rst0.Update rst0.Sort = “應(yīng)聘人編號” End Sub

Private Sub Cmd1Exit_Click()cn.close Unload Me End Sub Private Sub Cmd1Import_Click()rst0.MoveFirst For i = 1 To rst0.RecordCount

rst1.AddNew

rst1.Fields(“應(yīng)聘人編號”)= rst0.Fields(“應(yīng)聘人編號”)

rst0.MoveNext

rst1.MoveNext Next i '

Cmd1Import.Enabled = False

' Cmd1OK.Enabled = True

' Cmd1Exit.Enabled = True

End Sub

Private Sub Cmd1OK_Click()rst1.Fields(“綜合評分”)=(Val(rst1.Fields(“計算機能力”))+ rst1.Fields(“業(yè)務(wù)能力”))* 0.5 If rst1.Fields(“綜合評分”)>= 6 Then

rst1.Fields(“初選狀態(tài)”)= “通過”

Else

rst1.Fields(“初選狀態(tài)”)= “未通過”

End If

rst1.Update

rst1.Sort = “應(yīng)聘人編號” End Sub

Private Sub Cmd2Exit_Click()cn.close Unload Me End Sub

Private Sub Cmd2Import_Click()rst1.close rst1.open “select * from 初選表 where 初選狀態(tài)='通過'”, cn rst1.MoveFirst For i = 1 To rst1.RecordCount

rst2.AddNew

rst2.Fields(“應(yīng)聘人編號”)= rst1.Fields(“應(yīng)聘人編號”)

rst2.Fields(“初選評分”)= rst1.Fields(“綜合評分”)

rst1.MoveNext Next i rst2.Update Cmd2Import.Enabled = False End Sub

Private Sub Cmd2OK_Click()rst2.Fields(“綜合評分”)=(rst2.Fields(“初選評分”)+ rst2.Fields(“外表形象”)+ rst2.Fields(“領(lǐng)悟反應(yīng)能力”))/ 3 If rst2.Fields(“綜合評分”)>= 6 Then

rst2.Fields(“錄用情況”)= “通過” Else

rst2.Fields(“錄用情況”)= “未通過” End If rst2.Update rst2.Sort = “應(yīng)聘人編號” rst2.MoveLast End Sub

Private Sub Cmd3Exit_Click()cn.close Unload Me End Sub

Private Sub Cmd3Import_Click()rst2.close rst2.open “selsct * from 面試表 where 錄用情況= '通過'” rst2.MoveFirst For i = 1 To rst2.RecordCount

rst3.AddNew

rst3.Fields(“應(yīng)聘人編號”)= rst2.Fields(“應(yīng)聘人編號”)

rst3.Fields(“面試分”)= rst2.Fields(“綜合評分”)

rst3.Fields(“開始錄用時間”)= Date

rst2.MoveNext Next i Cmd3Import.Enabled = False End Sub

Private Sub Cmd3OK_Click()rst3.Fields(“綜合考核分”)=(rst3.Fields(“面試分”)+ rst3.Fields(“筆試分”))/ 2 If rst3.Fields(“綜合考核分”)>= 6 Then

rst3.Fields(“是否錄用”)= “是”

Else

rst3.Fields(“是否錄用”)= “否”

End If

rst3.Update

rst3.Sort = “應(yīng)聘人編號”

rst3.MoveLast End Sub

Private Sub cxtg_Click()frmDataEnv.Show 1 End Sub

Private Sub DataGrid1_Click()

End Sub

Private Sub Form_Load()cn.ConnectionString = “DSN=xsgl;name=sa;pass=sa” cn.open cn.CursorLocation = adUseClient rst0.LockType = adLockPessimistic rst1.LockType = adLockPessimistic rst2.LockType = adLockPessimistic rst3.LockType = adLockPessimistic

rst0.open “select * from 登記表”, cn Set DataGrid1.DataSource = rst0

rst1.open “select * from 初選表”, cn Set DataGrid2.DataSource = rst1 If rst1.RecordCount <> 0 Then Cmd1Import.Enabled = False End If

rst2.open “select * from 面試表”, cn Set DataGrid3.DataSource = rst2 If rst2.RecordCount <> 0 Then Cmd2Import.Enabled = False End If

rst3.open “select * from 錄用表”, cn Set DataGrid4.DataSource = rst3 If rst3.RecordCount <> 0 Then Cmd3Import.Enabled = False End If End Sub 學(xué)生基本信息瀏覽窗口

圖5.6學(xué)生基本信息瀏覽

主要代碼如下：

string sql = string.Format(“select P_id from Tb_popedom order by P_id desc”);

if(GetConn.conn.State == ConnectionState.Closed)

{

GetConn.conn.Open();

}

SqlCommand c = new SqlCommand(sql, GetConn.conn);

SqlDataReader reader = c.ExecuteReader();

if(reader.Read())

{

string id = reader[“P_id”].ToString();

txt_id.Text =(int.Parse(id.Substring(1,(id.Length-1)))+ 1)+ “";

}

reader.Close();

GetConn.conn.Close();

////加載一級菜單

sql = ”select * from Tb_function where F_level='1'“;

if(GetConn.conn.State == ConnectionState.Closed)

{

GetConn.conn.Open();

}

sda = new SqlDataAdapter(sql, GetConn.conn);

sda.Fill(ds, ”fun");

……

}

第五篇：VB課程設(shè)計--學(xué)生信息管理系統(tǒng)

******11111111111111

目

錄

摘

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

言………………………………………………………………………6 第一章 為什么要開發(fā)一個學(xué)生檔案管理系統(tǒng)……………………………7 1.1 在教育中用計算機管理學(xué)生檔案的意義.………………………7 1.2為將來學(xué)校上網(wǎng)做好準備……………………..…………………7 1.3 學(xué)生檔案的設(shè)計分析……………………………………………7 第二章 編程環(huán)境的選擇.…………………………………………………9 2.1開發(fā)工具的介紹.…………………………………………………9 2.3關(guān)系型數(shù)據(jù)庫……………………………………………………11 2.4 數(shù)據(jù)庫的概念……………………………………………………12 2.5新建一個數(shù)據(jù)庫.…………………………………………………12 第三章 需求分析………….………………………………………………14 3.1 可行性研究………………………………………………………14 3.2 需求分析…………………………………………………………15 第四章 系統(tǒng)總體規(guī)劃..……………………………………………………17 4.1軟件模塊結(jié)構(gòu)設(shè)計………………………………………………17 4.2數(shù)據(jù)庫設(shè)計...……………………………………………………18 第五章 系統(tǒng)具體實………………………………………………………19 5.1 主界面………………………………………………………………19 5.2數(shù)據(jù)庫的實現(xiàn)…………………………………………………………21 5.3 ACCESS與VB的連接………………………………………………22 第六章 測試 …………………………………………………………………24 6.1程序運行界面 如下圖………………………………………………24 6.2輸入用戶名和密碼界面………………………………………………26 ******11111111111111 6.3系統(tǒng)所具備的功能顯示界面…………………………………………26 6.4系統(tǒng)管理功能…………………………………………………………27 6.5班級系統(tǒng)………………………………………………………………30 6.6 檔案管理……………………………..………………………………32 6.7課程管理………………………………………………………………33 6.8成績管理………………………………………………………………34 結(jié)束語…………………………………………………………………………36 致

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

摘 要

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

經(jīng)過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象,首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對初始原型系統(tǒng)進行需求迭代,不斷修正和改進,直到形成用戶滿意的可行系統(tǒng)。

關(guān)鍵字：控件、窗體、域。

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

文章首先分析了管理信息系統(tǒng)的概念和特點，介紹了開發(fā)工具Visual Basic 6.0和SQL ******11111111111111 2000，然后對學(xué)生信息管理信息系統(tǒng)進行了需求分析、概要設(shè)計和詳細設(shè)計，在概要設(shè)計中進行了數(shù)據(jù)庫的設(shè)計，在詳細設(shè)計中討論了系統(tǒng)的實現(xiàn)方法和編碼。之后對系統(tǒng)測試進行了分析和討論，功能模塊的測試中把登錄服務(wù)器模塊的測試和其他功能模塊的測試分開進行，介紹了一種實用的測試方法。最后是介紹系統(tǒng)的總體測試和系統(tǒng)發(fā)布。本文所論述的學(xué)生信息管理系統(tǒng)對實現(xiàn)初中、高中和大中專院校的學(xué)生信息管理的現(xiàn)代化、科學(xué)化具有重要意義。

關(guān)鍵詞:學(xué)生信息管理系統(tǒng)；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 系統(tǒng)開發(fā)環(huán)境及其工具介紹 2 ******11111111111111

1.1 系統(tǒng)簡介 2 1.1.1 管理信息系統(tǒng)的概述 2 1.1.4 學(xué)生學(xué)籍管理信息系統(tǒng)概述 2 1.2 系統(tǒng)開發(fā)工具及開發(fā)環(huán)境概述 3 1.2.1 Visual Basic 6.0 的介紹 3 1.2.2 ADO數(shù)據(jù)訪問技術(shù) 3 1.2.3 Microsoft SQL Server簡介 8 需求分析 11 2.1 系統(tǒng)需求 11 2.1.1 編寫目的 11 2.1.2 背景及范圍 11 2.2 任務(wù)概要 11 2.2.1 目標 11 2.2.2 運行環(huán)境 11 2.2.3 條件與限制 11 3 系統(tǒng)總體分析與設(shè)計 12

3.1 系統(tǒng)分析 12 3.1.1 系統(tǒng)功能的分析 12 3.1.2 系統(tǒng)功能模塊設(shè)計 12

3.2 數(shù)據(jù)庫設(shè)計 13 3.2.1 數(shù)據(jù)庫需求分析 13 3.2.2 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計 13 3.2.3 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 15 詳細設(shè)計 18 4.1 學(xué)生管理系統(tǒng)主窗體的創(chuàng)建 18 4.1.1 創(chuàng)建工程項目——Student_MIS 18 4.1.2 創(chuàng)建學(xué)生信息管理系統(tǒng)的主窗體 18

4.1.3 創(chuàng)建主窗體的菜單 20 4.1.4 創(chuàng)建公用模塊 20 4.2 系統(tǒng)用戶管理模塊的創(chuàng)建 21 4.2.1 用戶登錄窗體的創(chuàng)建 21 4.2.2 添加用戶窗體的創(chuàng)建 23 4.2.3 修改用戶密碼窗體的創(chuàng)建 24 4.3 學(xué)籍管理模塊的創(chuàng)建 25 ******11111111111111 4.3.1 添加學(xué)籍信息窗體的創(chuàng)建 25 4.3.2 修改學(xué)籍信息窗體的創(chuàng)建 27 4.3.3 查詢學(xué)籍信息窗體的創(chuàng)建 29 4.4 班級管理模塊的創(chuàng)建 30 4.4.1 添加班級信息窗體的創(chuàng)建 30 4.4.2 修改班級信息窗體的創(chuàng)建 32 4.5 課程設(shè)置模塊的創(chuàng)建 32 4.5.1 添加課程信息窗體的創(chuàng)建 32 4.5.2 修改課程信息窗體的創(chuàng)建 33 4.5.3 設(shè)置年級課程窗體的創(chuàng)建 34 4.6 成績管理模塊的創(chuàng)建 35 4.6.1 添加成績信息窗體的創(chuàng)建 36 4.6.2 修改成績信息窗體的創(chuàng)建 37 4.6.3 查詢成績信息窗體的創(chuàng)建 37 運行與測試 39 5.1 登錄服務(wù)器模塊測試 39 5.2 其他模塊的測試 39 5.3 幫助文檔的設(shè)計 39 5.4 系統(tǒng)測試和打包發(fā)行 40

結(jié)束語 41 參考文獻 42 致謝 43 附錄 44

前言

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

管理信息系統(tǒng)起初應(yīng)用于最基礎(chǔ)的工作，如打印報表、計算工資、人事管理等，進而發(fā)展到企業(yè)財務(wù)管理、庫存管理等單項業(yè)務(wù)管理，這屬于電子數(shù)據(jù)處理（EDP，Electronic Data Processing）系統(tǒng)。當(dāng)建立了企業(yè)數(shù)據(jù)庫，有了計算機網(wǎng)絡(luò)從而達到數(shù)據(jù)共享后，從系統(tǒng)觀點出發(fā)，實施全局規(guī)劃和設(shè)計信息系統(tǒng)時，就達到管理信息系統(tǒng)的階段。隨著計算機技術(shù)的進步和人們對系統(tǒng)的需求進一步提高，人們更加強調(diào)管理信息系統(tǒng)能否支持企業(yè)高層 ******11111111111111 領(lǐng)導(dǎo)的決策這一功能，更側(cè)重于企業(yè)外部信息的收集、綜合數(shù)據(jù)庫、模型庫、方法庫和其他人工智能工具能否直接面向決策者，這是決策支持系統(tǒng)（DSS，Decision Support System）的任務(wù)。

我國20世紀70年代末有少數(shù)企業(yè)開始MIS的局部應(yīng)用?！傲濉逼陂g，選擇一些大型企業(yè)進行MIS的開發(fā)試點，其中首都鋼鐵公司、北京第一棉紡廠、湖北第二汽車制造廠、寧江機床廠等取得了經(jīng)驗。20世紀80年代中后期，在全國性的計算機應(yīng)用熱潮中，許多企業(yè)紛紛從財務(wù)管理、人事管理等單項應(yīng)用入手，嘗試建立MIS。許多企業(yè)，如北京內(nèi)燃機廠、北京電視機廠、沈陽鼓風(fēng)機廠、天津渤海無線電廠的MIS初具規(guī)模，建立了覆蓋全廠的計算機網(wǎng)絡(luò)?！鞍宋濉逼陂g，企業(yè)逐步走向市場，MIS建設(shè)的目標和需求日益明確。一些企業(yè)的系統(tǒng)，如北京第一機床廠、山西經(jīng)緯紡織機械廠、成都飛機制造公司等都達到了很高的水平，與企業(yè)中其他系統(tǒng)集成，形成了CIMS。目前，我國MIS已經(jīng)有了相當(dāng)?shù)钠占奥?，幾乎覆蓋了各個行業(yè)及各個部門。

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

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

開發(fā)本系統(tǒng)就是為了解決學(xué)校在管理中的一些不規(guī)范，使學(xué)生信息的管理向著規(guī)范化、簡

單化、有效化的方向發(fā)展。[2] 根據(jù)學(xué)生信息管理系統(tǒng)的基本流程和高校學(xué)生信息管理的實際要求，本系統(tǒng)需要實現(xiàn)以下

功能：

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

（2）要求在系統(tǒng)中能夠?qū)W(xué)生信息精心靈活的瀏覽和查詢；（3）要求在系統(tǒng)中能夠?qū)Π嗉壭畔⑦M行輸入、查詢和修改等；（4）要求能夠?qū)W(xué)校基本課程信息錄入、修改和設(shè)置等；（5）要求能夠?qū)W(xué)生成績信息進行輸入、修改和查詢等；（6）本系統(tǒng)可以提供給管理員或者學(xué)生本人使用。對學(xué)生類用 ******11111111111111

6．3系統(tǒng)所具備的功能顯示界面

如圖 ******11111111111111

6．4系統(tǒng)管理功能

如圖 ******11111111111111

6．5班級系統(tǒng)

．

6．5．1 班級添加 ******11111111111111

6．6 檔案管理 ******11111111111111

6．6．1 檔案添加

6．6．2 檔案查詢 ******11111111111111

6．7課程管理

6．7．1課程設(shè)置 ******11111111111111

6．7．2 課程添加 ******11111111111111

四、設(shè)計結(jié)果分析

（1）系統(tǒng)所具備的功能顯示界面 ******11111111111111 ******11111111111111 ******11111111111111（2）結(jié)果分析

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

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

3、在班級管理系統(tǒng)中各個功能都可以實現(xiàn)，可以顯示當(dāng)前系統(tǒng)中所有的班級信息。

4、課程設(shè)計一欄中可以添加系統(tǒng)中已經(jīng)存儲的課程和手動的輸入課程，可以對課程的信息進行相應(yīng)的操作。

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

6、學(xué)籍管理是比較難的一部分，在運行了幾次才讓各個功能更能很好的實現(xiàn)，能夠很好的將學(xué)生的信息存到數(shù)據(jù)庫中。而且可以對其中的數(shù)據(jù)鏡像相應(yīng)的操作 ******11111111111111

五、個人小結(jié)

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

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

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

當(dāng)自己寫到難的時候，有點想放棄，感覺太難了，就把自己的程序給別人修改，加工。對其中的控件和文件的概念不是很熟 ******11111111111111 悉，還有就是數(shù)據(jù)庫，以前沒有接觸，雖然老師在最后一節(jié)課的時候是一步一步的在課堂上講解的，但是自己操作時，有時不知道在哪個地方編輯。

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

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