【正文】 t a melodious owl. It was a flying saucer from Tralfamadore, navigating in both space and time, therefore seeming to Billy Pilgrim to have e from nowhere all at once. Somewhere a big dog barked. The saucer was one hundred feet in diameter, with portholes around its rim. The light from the portholes was a pulsing purple. The only noise it made was the owl song. It came down to hover over Billy, and to enclose him in a cylinder of pulsing in purple light. Now there was the sound of a seeming kiss as an airtight hatch in the bottom of the saucer was opened. Down snaked a ladder that was outlined in pretty lights like a Ferris wheel. Billy39。m glad you39。 學(xué)生設(shè)置窗體如下圖所示： 添加按鈕代碼： Private Sub tj_Click(ByVal sender As , ByVal e As ) Handles If = Then MsgBox(學(xué)號(hào)不能為空 !) () Else Dim mytable As DataTable Dim myrow As DataRow Dim flag As Boolean Dim i As Integer = 0 mytable = For Each myrow In If myrow(xh) = () Then MsgBox(該學(xué)號(hào)已經(jīng)存在 ,請(qǐng)重新輸入 !) = 0 () flag = True End If If Not flag Then i += 1 End If Next If Not flag Then Dim dt As DataTable Dim newrow As DataRow dt = (student) newrow = () (xbmc) = (zymc) = (xh) = (xm) = (bix) = (bjmc) = (newrow) () MsgBox(學(xué)生添加成功 !) = = = = = = Else (DataSet11, jfbiao).Position = i End If End If End Sub 班級(jí)查詢過程 ： Private Sub bjmc_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 = For Each myrow In If myrow(zymc) = And myrow(bjmc) = Then = True flag = False End If If Not flag Then i += 1 End If Next If flag Then MsgBox(所選班級(jí)與專業(yè)不匹配 ,請(qǐng)重選 !, , 警告 !) = False End If End Sub 第五章 結(jié)束語(yǔ) 學(xué)校學(xué)費(fèi) 管理系統(tǒng)是一個(gè)典型的信息管理系統(tǒng)，其主要通過軟件工程方面的選擇課題、需求分析、總體設(shè)計(jì)、選用工具、程序模塊、系統(tǒng)測(cè) 試等幾個(gè)步驟來(lái)實(shí)現(xiàn)。 專業(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。 vbTab amp。 vbTab amp。 vbTab + 專業(yè)名稱 amp。 vbTab amp。 myrow(班級(jí)名稱 ) amp。 vbTab amp。 程序在運(yùn)行進(jìn)綁定到學(xué)費(fèi)管理數(shù)據(jù)庫(kù)（ sfgl），產(chǎn)生數(shù)據(jù)集。 myrow(nc) amp。在執(zhí)行添加命令后，會(huì)根據(jù)所輸入的信息從交費(fèi)表（ jfbiao）中查詢相應(yīng)記錄，如果記錄從在，說明該生已經(jīng)完成了交費(fèi)，如果有欠費(fèi)記錄的 ,就可以在累計(jì)欠費(fèi)文本框中顯示出來(lái)；輸入的記錄在交費(fèi)表(jfbiao）中沒有找到，就在交費(fèi)表中添加相應(yīng)字段記錄，完成交費(fèi)操作。 程序運(yùn)行時(shí)，綁定到數(shù)據(jù)庫(kù)并加載數(shù)據(jù)集，完成數(shù)據(jù)庫(kù)連接。 主窗體設(shè)計(jì)的界面是用菜單編輯器做的 (MainMenu)，主要由交費(fèi)管理、學(xué)費(fèi)查詢、設(shè)置這三個(gè)大模塊組成。 創(chuàng)建 系別表 :(xbbiao) Create table xbbiao ( Xbbh char(10) CONSTRAINT pkey_xbbh PRIMARY KEY , Xbmc char (20) NOT NULL ) 創(chuàng)建 專業(yè) 表 :(zybiao) Create table zybiao ( Xbbh char(10) NOT NULL CONSTRAINT fkey_zybiao_xbbh FOREIGN KEY REFERENCES xbbiao (xbbh), zybh char (10) NOT NULL , zymc char(20) CONSTRAINT pkey_zymc PRIMARY KEY ) 創(chuàng)建 班級(jí) 表 :(bjbiao) Create table bjbiao ( zymc char(20) CONSTRAINT fkey_bjbiao_zymc FOREIGN KEY REFERENCES zybiao(zymc) , bjmc char (20) CONSTRAINT pkey_bjmc PRIMARY KEY , nz char(6) ) 創(chuàng)建 學(xué)費(fèi) 表 :(xfbiao) Create table xfbiao ( Xbmc char(20) , zymc char (20) NOT NULL CONSTRAINT fkey_xfbiao_zymc FOREIGN KEY REFERENCES zybiao (zymc), nz char(6) , xf Int(4) NOT NULL ) 創(chuàng)建 學(xué)生 表 :(student) Create table student ( Xbmc char(20) NOT NULL, zymc char (20) NOT NULL, xh char(10) CONSTRAINT pkey_xh PRIMARY KEY, xm char(10) , bix char(10) , bjmc char(20) CONSTRAINT fkey_student_bjmc FOREIGN KEY REFERENCES bjbiao (bjmc), ) 創(chuàng)建 交費(fèi) 表 :(jfbiao) Create table jfbiao ( xh char(10) NOT NULL CONSTRAINT fkey_jfbiao_xh FOREIGN KEY REFERENCES student (xh), nz char(10) NOT NULL , yjxf int (4) , qjxf int(4), rq datatime(8), bj text(21) ) 創(chuàng)建 用戶 :(user) Create table user ( id char(10) , psd char(10) , ) 第 四 章 學(xué)費(fèi) 管理系統(tǒng)應(yīng)用程序設(shè)計(jì) 上面的 SQL語(yǔ)句在 SQL Server 2020 查詢分析器中執(zhí)行后，將自動(dòng)產(chǎn)生需要的所有表格有關(guān)數(shù)據(jù)庫(kù)結(jié)構(gòu)的所有后臺(tái)工作以經(jīng)完成。 1) 各表的字段說明 : 系別表 :(xbbiao) 字段 主鍵 類型 長(zhǎng)度 是否空 說明 xbbh √ Char 10 否 系別編號(hào) xbmc Char 20 否 系別名稱 專業(yè)表 :(zybiao) 字段 主鍵 類型 長(zhǎng)度 是否空 說明 xbbh Char 10 否 系別編號(hào) zybh Char 10 否 專業(yè)編號(hào) zymc √ Char 20 否 專業(yè)名 稱 班級(jí)表 :(bjbiao) 字段 主鍵 類型 長(zhǎng)度 是否空 說明 zymc Char 20 是 專業(yè)名稱 bjmc √ Char 20 否 班級(jí)名稱 nz Char 6 是 年制 學(xué)費(fèi)表 :(xfbiao) 字段 主鍵 類型 長(zhǎng)度 是否空 說明 xbmc Char 20 是 系別名稱 zymc Char 20 否 專業(yè)名稱 nz Char 6 是 年制 xf Int 4