【導(dǎo)讀】學(xué)費(fèi)管理系統(tǒng)是學(xué)校收費(fèi)管理的一個(gè)重要環(huán)節(jié)。隨著學(xué)生數(shù)量增加，學(xué)校學(xué)。生的學(xué)費(fèi)管理工作也變得越來越復(fù)雜。也是學(xué)校財(cái)務(wù)管理的重要組成部分。學(xué)費(fèi)管理需要和學(xué)生管理相聯(lián)系，同時(shí)連接。資金是學(xué)校生存的主。早期的學(xué)費(fèi)上繳和統(tǒng)計(jì)都是使用人工方式處理紙質(zhì)材料，疏忽，出現(xiàn)學(xué)費(fèi)統(tǒng)計(jì)錯(cuò)誤的現(xiàn)象。，具有組件豐富、SQLServer2021數(shù)據(jù)庫具有與、操作簡單、易于使用的優(yōu)點(diǎn)。運(yùn)行結(jié)果證明，本學(xué)校學(xué)費(fèi)管理系統(tǒng)極大提高了工。全球有多少人用VisualBasic進(jìn)行程序開發(fā)？恐怕微軟也不知道，但是，沒有人懷疑VisualBasic用戶的數(shù)量之龐大。我想，這也是微軟在.NET戰(zhàn)略中。繼續(xù)寵愛VisualBasic的原因之一?？蚣苓@兩大新特性，使得其在功能方面足以與C++媲美，在易用性方面則遠(yuǎn)勝之，完全脫去“玩具語言”的帽子，成為未來跨平臺(tái)的專業(yè)開發(fā)工具。

　　

【正文】 str3 = str2 = 專業(yè)名稱 amp。 vbTab amp。 vbTab + 班級名稱 amp。 vbTab amp。 vbTab + 姓名 amp。 vbTab amp。 vbTab + 年次 amp。 vbTab amp。 vbTab + 已交學(xué)費(fèi) amp。 vbTab + 欠交學(xué)費(fèi) amp。 vbTab +交費(fèi) 日期 () () For Each myrow In If myrow(專業(yè)名稱 ) = And myrow(班級名稱 ) = Then str1 amp。= myrow(專業(yè)名稱 ) amp。 vbTab amp。 myrow(班級名稱 ) amp。 vbTab amp。 myrow(姓名 ) amp。 vbTab amp。 myrow(年次 ) amp。 vbTab amp。 myrow(已交學(xué)費(fèi) ) amp。 vbTab amp。 vbTab amp。 myrow(欠交學(xué)費(fèi) )amp。 myrow(交學(xué)費(fèi) 日期 ) () flag = True str1 = End If If Not flag Then i += 1 End If Next If Not flag Then MsgBox(表中沒有該記錄！ ) Else (BjcxDataSet2, student).Position = i End If Catch ex As Exception (所選的信息異常！ , 系統(tǒng)提示 ) End Try End Sub ? 按專業(yè)查詢 ： 在窗體中主要用到 bobox,button,ListBox, GroupBox, DataGrid等控件。 程序在運(yùn)行進(jìn)綁定到學(xué)費(fèi)管理數(shù)據(jù)庫（ sfgl），產(chǎn)生數(shù)據(jù)集 ,并調(diào)用系別表、專業(yè)表、交費(fèi)表。 按班級查詢的主要功能是 :本窗體運(yùn)用了數(shù)據(jù)庫關(guān)系，調(diào)用了數(shù)據(jù)集中的系別表（ xbbiao）、專業(yè)表（ zybiao）、班級表（ bjbiao）、交費(fèi)表（ jfbiao）等，通過系別名稱定位到專業(yè)表中查詢出相應(yīng)的專業(yè)記錄，然后根據(jù)專業(yè)名稱的定位在學(xué)生表中查詢出所有該專業(yè)的學(xué)生的學(xué)號，最后在交費(fèi)表中找出學(xué)生表中的相應(yīng)學(xué)號的記錄，統(tǒng)計(jì)出每個(gè)專業(yè)所有學(xué)生每年次累計(jì)交費(fèi)的情況、以及每年 次每個(gè)專業(yè)的欠費(fèi)累計(jì)情況。并在 Listbox 中完整的確顯示出來。完成通過系別名稱和專業(yè)名稱定位自動(dòng)查找去相應(yīng)專業(yè)所有學(xué)生的累計(jì)交費(fèi)情況和累計(jì)欠費(fèi)情況 查詢按鈕代碼 : Private Sub cx_Click(ByVal sender As , ByVal e As ) Handles Try Dim mytable As DataTable Dim myrow As DataRow Dim flag As Boolean Dim i As Integer = 0 () mytable = Dim str1, str2, str3 As String str3 = str2 = 系別名稱 amp。 vbTab amp。 vbTab + 專業(yè)名稱 amp。 vbTab amp。 vbTab + 年次 amp。 vbTab amp。 vbTab + 累計(jì)交費(fèi) amp。 vbTab amp。 vbTab + 累計(jì)欠費(fèi) () () For Each myrow In If myrow(系別名稱 ) = And myrow(專業(yè)名稱 ) = Then str1 amp。= myrow(系別名稱 ) amp。 vbTab amp。 myrow(專業(yè)名稱 ) amp。 vbTab amp。 myrow(年次 ) amp。 vbTab amp。 myrow(累計(jì)交費(fèi) ) amp。 vbTab amp。 vbTab amp。 vbTab amp。 myrow(累計(jì)欠費(fèi) ) () flag = True str1 = End If If Not flag Then i += 1 End If Next If Not flag Then MsgBox(表中沒有該記錄！ ) Else (BjcxDataSet1, jfbiao).Position = i End If Catch ex As Exception (所選的信息異常！ , 系統(tǒng)提示 ) End Try End sub ? 系別設(shè)置 : 本窗口由 ToolBar,Combobox,Button, DataGrid,ListBox,CheckBox， GroupBox等幾部分 控件 組成。 窗體在運(yùn)行時(shí)，利用 所提供的 SqlDataAdapter 數(shù)據(jù)庫控件綁定到學(xué)費(fèi)管理數(shù)據(jù)庫并調(diào)用系別表（ xbbiao）。 系別設(shè)置所完成的功能是： 系別中的所有記錄都 在 DataGrid控件里面 顯示出來，DataGrid控件里面初始化是只讀的，也就是說數(shù)據(jù)在初始化下是不可修改的，可以通過單擊工具欄中的修改按鈕或窗口下方的“是否修改”復(fù)選來進(jìn)行修改設(shè)置，在此模式下可以添加、修改、刪除系別表里面的數(shù)據(jù)，并可以把修改后的值返回給數(shù)據(jù)庫，如果操作錯(cuò)誤還可以通過取消按鈕來取 消當(dāng)前操作。 工具欄按鈕代碼： Private Sub ToolBar1_ButtonClick(ByVal sender As , ByVal e As ) Handles Select Case () Case 0 Dim rowpostion As Integer = (BjcxDataSet1, xbbiao).Position ().RemoveAt(rowpostion) () (數(shù)據(jù)刪除成功 !) Case 1 If = True Then = False = True Else = True = False End If Case 2 Dim dialog As New PrintDialog () End Select End Sub 刪除按鈕代碼： Private Sub sc_Click(ByVal sender As , ByVal e As ) Handles Dim rowpostion As Integer = (BjcxDataSet1, xbbiao).Position ().RemoveAt(rowpostion) () (數(shù)據(jù)刪除成功 !) End Sub 添加按鈕代碼： Private Sub tj_Click(ByVal sender As , ByVal e As ) Handles Try 39。更新到數(shù)據(jù)庫 () (數(shù)據(jù)保存成功 !) () (DataSet31) Catch (數(shù)據(jù)保存失敗 !) End Try End Sub ? 專業(yè)設(shè)置： 專業(yè)設(shè)置窗體主要 ToolBar,Combobox,Button,DataGrid,ListBox, GroupBox等幾部分 控件 組成。 窗體在運(yùn)行時(shí)，利用 所提供的 SqlDataAdapter 數(shù)據(jù)庫控件綁定到學(xué)費(fèi)管理數(shù)據(jù)庫并調(diào)用專業(yè)別表（ zybiao）、系別表（ xbbiao）。 專業(yè) 設(shè)置所完成的功能是： 專業(yè)表中的所有記錄都 在 DataGrid控件里面 顯示出來， DataGrid控件里面初始化是只讀的，也就是說數(shù)據(jù)在初始化下是不可修改的，可以通過單擊工具欄中的修改按鈕或窗口下方的“是否修改”復(fù)選來進(jìn)行修改設(shè)置，在此模式下可以添加、修改、刪除專業(yè)表里面的數(shù)據(jù)，并可以把修改后的值返回給數(shù)據(jù)庫，如果操作錯(cuò)誤還可以通過取消按鈕來取消當(dāng)前操作。 專業(yè)設(shè)置窗體如下所示： 工具欄代碼： Private Sub ToolBar1_ButtonClick(ByVal sender As , ByVal e As ) Handles Select Case () Case 0 Dim rowpostion As Integer = (BjcxDataSet1, zybiao).Position ().RemoveAt(rowpostion) () (數(shù)據(jù)刪除成功 !) Case 1 If = True Then = False = True Else = True = False End If Case 2 () End Select End Sub 添加按鈕代碼： Private Sub tj_Click(ByVal sender As , ByVal e As ) Handles Try 39。更新到數(shù)據(jù)庫 () (數(shù)據(jù)保存成功 !) () () Catch (數(shù)據(jù)保 存失敗 !) End Try End Sub 刪除按鈕代碼： Private Sub sc_Click(ByVal sender As , ByVal e As ) Handles Dim rowpostion As Integer = (BjcxDataSet1, zybiao).Position ().RemoveAt(rowpostion) () (數(shù)據(jù)刪除成功 !) End Sub ? 班級設(shè)置： 班級設(shè)置窗體主要 ToolBar,Combobox,Button,DataGrid,ListBox, GroupBox等幾部分 控件 組成。 窗體在運(yùn)行時(shí)，利用 所提供的 SqlDataAdapter 數(shù)據(jù)庫控件綁定到學(xué) 費(fèi)管理數(shù)據(jù)庫