第一篇：vb課程設計檔案管理系統代碼

一、登陸界面

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

圖1-1 登陸界面設計的代碼如下：

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

二、歡迎界面

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

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

Private Sub Timer1_Timer()

If Timer1.Enabled = True Then

Form8.Hide

Form2.Show

Timer1.Enabled = False

End If End Sub

三、系統主界面

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

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 代碼設計如下：

Private Sub Command1_Click()

a = “select * from學生檔案 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 + “ 學號 ='” + 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 + “ 專業='” + 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 + “ 入學時間='” + DataCombo6 + “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If End Sub

五、添加

添加效果圖如圖5-1

圖5-1

代碼設計如下：

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

代碼設計如下：

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

七、統計

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

圖7-1

代碼設計如下：

Private Sub Command2_Click(Index As Integer)

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

Data1.Refresh End Sub Private Sub Command3_Click()

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

Data1.Refresh End Sub Private Sub Command4_Click()

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

Data1.Refresh End Sub Private Sub Command5_Click()

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

Data1.Refresh End Sub Private Sub Command6_Click()

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

Data1.Refresh End Sub Private Sub Command7_Click()

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

Data1.Refresh End Sub Private Sub Command8_Click()

Unload Form9 End Sub

八、帳戶管理

（一）帳號注冊

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

1、圖8-2

圖8-1

圖8-2 帳號注冊代碼設計如下：

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 密碼修改代碼設計如下：

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 代碼設計如下：

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課程設計 職工工資管理系統代碼

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 “登陸成功，歡迎您進入職工工資管理系統”, 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 “三次輸入用戶名或密碼錯誤,程序將自動退出！”, 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()

第三篇：學生檔案管理系統(vb)

萊 蕪 職 業 技 術 學

院

畢業設計（論文）

所 在 系：計算機系 姓 名： 韓坤 論文題目：學生檔案管理系統

專 業：軟件應用技術 班 級：07級軟件一班 指導老師：宋文敏

二零一零 年 四月 月 三十 日

摘 要

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

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

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

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----------

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

因此，開發這樣一套管理軟件成為很有必要的事情,在下面的各章中我們將以開發一套學生檔案管理系統為例,談談其開發過程和所涉及到的問題及解決方法。

需求分析

計算機已經成為我們學習和工作的得力助手：

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

技術上可行性：

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

綜上所述，本系統的設計與開發在技術上和硬件設備上的條件都是滿足的，因此，它在技術上是可行的。運行上可行性：

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

CPU:至少200MHz Intel Pentinm 處理器

操作系統：Windows 98 拉按鈕和平滑按鈕等。

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

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

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

4． ImageList屬性定義與數據條對應的ImageList控件名，該控件定義工具條按鈕顯示的圖像。

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

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

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

3.3幫助

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

3.4關于版本

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

使用Access2000 實現關系型數據庫

3.5數據庫的概念

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

新建一個數據庫

創建任何一個數據庫的 6． 標識指定字段的信息； 7． 創建物理表。

修改已建的數據庫

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

實現數據庫之間的聯系

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

3.6系統功能

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

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

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

4.4．2成績數據庫

成績數據庫里存儲了學生的成績包括：學號、成績、等

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

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

4.4.3課程數據庫

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

課程模塊：

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

與VB的連接

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

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

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()'設置粘貼按鈕

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()'設置剪切、復制按鈕 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 '重新調整控件位置 End Sub Private Sub Close_Click()Dim FileNum As Integer

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

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

Open FileName For Output As FileNum '打開輸出文件 '如果無指定文件，則創建新文件 Print #FileNum, Text1.Text '輸出文本 Close FileNum '關閉文件 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 '復制文本到剪裁板 End Sub Private Sub Cut_Click()Clipboard.SetText Text1.SelText '復制文本到剪裁板 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()'當程序顯示“編輯”子菜單前，觸發該程序 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 '剪裁板中有文本數據 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

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

二者的結合（DBA）

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

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

第四篇：VB學生管理系統主要代碼

主要代碼如下：

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 = “應聘人編號” 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(“應聘人編號”)= rst0.Fields(“應聘人編號”)

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(“業務能力”))* 0.5 If rst1.Fields(“綜合評分”)>= 6 Then

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

Else

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

End If

rst1.Update

rst1.Sort = “應聘人編號” End Sub

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

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

rst2.AddNew

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

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(“領悟反應能力”))/ 3 If rst2.Fields(“綜合評分”)>= 6 Then

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

rst2.Fields(“錄用情況”)= “未通過” End If rst2.Update rst2.Sort = “應聘人編號” 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(“應聘人編號”)= rst2.Fields(“應聘人編號”)

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 = “應聘人編號”

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 學生基本信息瀏覽窗口

圖5.6學生基本信息瀏覽

主要代碼如下：

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課程設計--學生信息管理系統

******11111111111111

目

錄

摘

要………………………………………………………………………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 ******11111111111111 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 ******11111111111111 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 ******11111111111111

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 需求分析 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 詳細設計 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 ******11111111111111 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 運行與測試 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）系統。當建立了企業數據庫，有了計算機網絡從而達到數據共享后，從系統觀點出發，實施全局規劃和設計信息系統時，就達到管理信息系統的階段。隨著計算機技術的進步和人們對系統的需求進一步提高，人們更加強調管理信息系統能否支持企業高層 ******11111111111111 領導的決策這一功能，更側重于企業外部信息的收集、綜合數據庫、模型庫、方法庫和其他人工智能工具能否直接面向決策者，這是決策支持系統（DSS，Decision Support System）的任務。

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

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

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

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

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

功能：

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

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

6．3系統所具備的功能顯示界面

如圖 ******11111111111111

6．4系統管理功能

如圖 ******11111111111111

6．5班級系統

．

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

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

6．6．1 檔案添加

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

6．7課程管理

6．7．1課程設置 ******11111111111111

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

四、設計結果分析

（1）系統所具備的功能顯示界面 ******11111111111111 ******11111111111111 ******11111111111111（2）結果分析

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

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

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

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

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

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

五、個人小結

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

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

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

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

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

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