【文章內(nèi)容簡(jiǎn)介】 ase 0 Dim rowpostion As Integer = (BjcxDataSet1, xfbiao).Position ().RemoveAt(rowpostion) Case 1 If = True Then = False = True Else = True = False End If Case 2 () End Select End Sub 保存按鈕代碼： Private Sub save_Click(ByVal sender As , ByVal e As ) Handles Try 39。更新到數(shù)據(jù)庫(kù) () (數(shù)據(jù)保存成功 !) Catch (數(shù)據(jù)保存失 敗 !) End Try End Sub ? 學(xué)費(fèi)添加 ： 本窗口由 Label,Combobox,Button, textbox, GroupBox 等幾部分組成。 程序運(yùn)行時(shí)，綁定到數(shù)據(jù)庫(kù)并加載數(shù)據(jù)集，完成數(shù)據(jù)庫(kù)連接。 該窗體實(shí)現(xiàn)的功能是：實(shí)現(xiàn)添加系別、專業(yè)以后就要為該專業(yè)設(shè)置應(yīng)交學(xué)費(fèi)，通過(guò)數(shù)據(jù)集中的學(xué)費(fèi)表，選擇所屬系別、專業(yè)和年制以后就可以在學(xué)費(fèi)文本框中輸入所要設(shè)置的學(xué)費(fèi)，如果所查詢的記錄的存在，就可以通過(guò)所查詢出來(lái)的結(jié)果進(jìn)行修改，并更新到數(shù)據(jù)庫(kù)。 學(xué)費(fèi)設(shè)置窗口如下圖所示： 添加按鈕代碼： Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim mytable As DataTable Dim myrow As DataRow Dim flag As Boolean = True Dim i As Integer = 0 Dim str As String mytable = For Each myrow In If myrow(系別名稱 ) = And myrow(專業(yè)名稱) = Then str = MsgBox(該記錄已存在 ,是否進(jìn)行修改 !, ) flag = False 取消按鈕代碼： Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles (BjcxDataSet1, xfbiao).CancelCurrentEdit() (xfbiao).RejectChanges() () () End Sub ? 交費(fèi)瀏覽 : 交費(fèi)瀏覽是根據(jù)，數(shù)據(jù)庫(kù)中的交費(fèi)表（ jfbiao）來(lái)實(shí)現(xiàn)的，該窗口主要由 button, DataGrid 等控件組成，完成的功能是根據(jù)不同的條件查看已交學(xué)費(fèi)的學(xué)生記錄等。 該窗體界面如下： ? 學(xué)生交費(fèi)添加： 本窗體由 Label,Combobox,Textbox 等控件組成。 該窗體是學(xué)費(fèi)管理的重要組成部分，該窗體所涉及到的表關(guān)系復(fù)雜，實(shí)用性強(qiáng)，下面就該 窗體功能進(jìn)行詳細(xì)講解：學(xué)生交費(fèi)添加窗體所完成的功能是：可以給每個(gè)已注冊(cè)的學(xué)生添加交費(fèi)記錄。本功能由數(shù)據(jù)庫(kù)的系別表（ xbbiao）、專業(yè)表（ zybiao）、學(xué)生表（ student）、交費(fèi)表（ jfbiao）、學(xué)費(fèi)表（ xfbiao）等幾個(gè)相關(guān)連的表共同實(shí)現(xiàn)的。通過(guò)在專業(yè)下拉列表框中選擇相應(yīng)的專業(yè)、在班級(jí)下拉列表框中選擇對(duì)應(yīng)的班級(jí)，系統(tǒng)就會(huì)自動(dòng)在學(xué)費(fèi)表里面查找出相關(guān)專業(yè)相對(duì)應(yīng)的學(xué)費(fèi)，并把學(xué)費(fèi)字段的值在應(yīng)交學(xué)費(fèi)所在的文本框中顯示；然后根據(jù)所輸入的學(xué)號(hào)，在學(xué)生表里面查詢，如果所輸入的學(xué)號(hào)在學(xué)生表里面沒(méi)有找到，就視為沒(méi)有 注冊(cè)的學(xué)生，該學(xué)號(hào)不存在，不能執(zhí)行交費(fèi)功能，如果所輸入的學(xué)號(hào)在學(xué)生表里可以找到，就可以進(jìn)行交費(fèi)操作。在年級(jí)下拉列表框中選擇年級(jí)值，并在實(shí)交學(xué)費(fèi)文本框中輸入本同學(xué)本次交費(fèi)金額，系統(tǒng)會(huì)自動(dòng)將本次應(yīng)交學(xué)費(fèi)值與實(shí)交學(xué)費(fèi)值的差值填入欠費(fèi)文本框中。備注文本框中可以填入一下必要備注信息，信息輸入完畢后，就可以執(zhí)行添加。在執(zhí)行添加命令后，會(huì)根據(jù)所輸入的信息從交費(fèi)表（ jfbiao）中查詢相應(yīng)記錄，如果記錄從在，說(shuō)明該生已經(jīng)完成了交費(fèi)，如果有欠費(fèi)記錄的 ,就可以在累計(jì)欠費(fèi)文本框中顯示出來(lái)；輸入的記錄在交費(fèi)表(jfbiao）中沒(méi)有 找到，就在交費(fèi)表中添加相應(yīng)字段記錄，完成交費(fèi)操作。 學(xué) 生交費(fèi)添加窗體如下： 窗體加載代碼： Private Sub jftj_Load(ByVal sender As , ByVal e As ) Handles () () () () () Dim nms(4) As String Dim xnz(1) As String nms(0) = 第一年 nms(1) = 第二年 nms(2) = 第三年 nms(3) = 第 四 年 nms(4) = 第 五 年 (nms) xnz(0) = 三年制 xnz(1) = 五年制 (xnz) = = = = End Sub 年制 專業(yè)下拉列表代碼： Private Sub nz_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles Dim mytable As DataTable Dim myrow As DataRow Dim flag As Boolean = True Dim i As Integer = 0 () mytable = Dim str1 As String For Each myrow In If myrow(zymc) = And myrow(nz) = Then str1 amp。= myrow(xf) = str1 str1 = flag = False End If If Not flag Then i += 1 End If Next If flag Then MsgBox(沒(méi)有相關(guān)記錄信息 ,請(qǐng)重新選擇 !, , 提示 !) End If End Sub 添加按鈕代碼： Private Sub ok_Click(ByVal sender As , ByVal e As ) Handles If = Then MsgBox(實(shí)交學(xué)費(fèi)不能為空 !) () ElseIf = Then MsgBox(學(xué)號(hào)不能 為空 !) () Else Dim mytable As DataTable Dim myrow As DataRow Dim flag As Boolean = True Dim i As Integer = 0 mytable = For Each myrow In If myrow(xh) = () Then MsgBox(該學(xué)號(hào)已經(jīng)存在 ,可以進(jìn)行繳費(fèi) !) flag = False End If If Not flag Then i += 1 End If ? 按學(xué)號(hào)查詢 : 本窗體由 :textbox,button,ListBox, GroupBox 等控件組成。 程序在運(yùn)行時(shí)綁定到數(shù)據(jù)庫(kù)學(xué)費(fèi)管理（ sfgl），生成數(shù)據(jù)集，調(diào)用學(xué)生表（ student）和 交費(fèi)表（ jfbiao） 。 按學(xué)號(hào)查詢的設(shè)計(jì)功能是：通過(guò) 在窗體中輸入 學(xué)號(hào) ，調(diào)用交費(fèi)表中的數(shù)據(jù)，如果輸入的學(xué)號(hào)與交費(fèi)表中的學(xué)號(hào)字段相同，就調(diào)用學(xué)生表中的相應(yīng)學(xué)生的記錄、姓名、性別、班級(jí)名稱等，然后在 Listbox 中顯示出所查詢的學(xué)生的交費(fèi)記錄和欠費(fèi)記錄 ,相反如果輸入的學(xué)生學(xué)號(hào)在表中沒(méi)有相應(yīng) 的字段，系統(tǒng)就會(huì)自動(dòng)彈出“ 表中沒(méi)有該學(xué)生的記錄！ ”的信息框，提示用戶重新輸入正確的學(xué)號(hào)以便查詢。 查詢窗體 界面 如下： ? 按班級(jí)查詢： 在窗體中主要用到 bobox,button,ListBox, GroupBox, DataGrid等控件。 程序在運(yùn)行進(jìn)綁定到學(xué)費(fèi)管理數(shù)據(jù)庫(kù)（ sfgl），產(chǎn)生數(shù)據(jù)集。 按班級(jí)查詢的主要功能是 :本窗體運(yùn)用了數(shù)據(jù)庫(kù)關(guān)系，調(diào)用了數(shù)據(jù)集中的專業(yè)表（ zybiao）、班級(jí)表（ bjbiao）、學(xué)生表（ student）、交費(fèi)表（ jfbiao）等，通過(guò)專業(yè)定位在班級(jí)表 中查詢出相應(yīng)的班級(jí)記錄，然后根據(jù)班級(jí)名稱的定位在學(xué)生表中查詢出所有該班級(jí)的學(xué)生的學(xué)號(hào)，最后在交費(fèi)表中找出學(xué)生表中的相應(yīng)學(xué)號(hào)的記錄并在 Listbox 中顯示出來(lái)。完成通過(guò)班級(jí)名稱定位自動(dòng)查找去相應(yīng)班級(jí)所有學(xué)生的交費(fèi)情況和欠費(fèi)情況。 按 班級(jí) 查詢的主界面如下 ： ? 按專業(yè)查詢 ： 在窗體中主要用到 bobox,button,ListBox, GroupBox, DataGrid等控件。 程序在運(yùn)行進(jìn)綁定到學(xué)費(fèi)管理數(shù)據(jù)庫(kù)（ sfgl），產(chǎn)生數(shù)據(jù)集 ,并調(diào)用系別表、專業(yè)表、交費(fèi)表。 按班級(jí)查詢的主要 功能是 :本窗體運(yùn)用了數(shù)據(jù)庫(kù)關(guān)系，調(diào)用了數(shù)據(jù)集中的系別表（ xbbiao）、專業(yè)表（ zybiao）、班級(jí)表（ bjbiao）、交費(fèi)表（ jfbiao）等，通過(guò)系別名稱定位到專業(yè)表中查詢出相應(yīng)的專業(yè)記錄，然后根據(jù)專業(yè)名稱的定位在學(xué)生表中查詢出所有該專業(yè)的學(xué)生的學(xué)號(hào)，最后在交費(fèi)表中找出學(xué)生表中的相應(yīng)學(xué)號(hào)的記錄，統(tǒng)計(jì)出每個(gè)專業(yè)所有學(xué)生每年次累計(jì)交費(fèi)的情況、以及每年次每個(gè)專業(yè)的欠費(fèi)累計(jì)情況。并在 Listbox 中完整的確顯示出來(lái)。完成通過(guò)系別名稱和專業(yè)名稱定位自動(dòng)查找去相應(yīng)專業(yè)所有學(xué)生的累計(jì)交費(fèi)情況和累計(jì)欠費(fèi)情況 ? 系別設(shè)置 : 本窗口由 ToolBar,Combobox,Button, DataGrid,ListBox,CheckBox， GroupBox等幾部分 控件 組成。 窗體在運(yùn)行時(shí)，利用 所提供的 SqlDataAdapter 數(shù)據(jù)庫(kù)控件綁定到學(xué)費(fèi)管理數(shù)據(jù)庫(kù)并調(diào)用系別表（ xbbiao）。 系別設(shè)置所完成的功能是： 系別中的所有記錄都 在 DataGrid控件里面 顯示出來(lái)，DataGrid控件里面初始化是只讀的，也就是說(shuō)數(shù)據(jù)在初始化下是不可修改的，可以通過(guò)單擊工具欄中的修改按鈕或窗口下方的“是否修改”復(fù)選來(lái)進(jìn)行修改設(shè)置 ，在此模式下可以添加、修改、刪除系別表里面的數(shù)據(jù)，并可以把修改后的值返回給數(shù)據(jù)庫(kù)，如果操作錯(cuò)誤還可以通過(guò)取消按鈕來(lái)取消當(dāng)前操作。 ? 專業(yè)設(shè)置： 專業(yè)設(shè)置窗體主要 ToolBar,Combobox,Button,DataGrid,ListBox, GroupBox等幾部分 控件 組成。 窗體在運(yùn)行時(shí)，利用 所提供的 SqlDataAdapter 數(shù)據(jù)庫(kù)控件綁定到學(xué)費(fèi)管理數(shù)據(jù)庫(kù)并調(diào)用專業(yè)別表（ zybiao）、系別表（ xbbiao）。 專業(yè) 設(shè)置所完成的功能是： 專業(yè)表中的所有記錄都