學(xué)生信息管理系統(tǒng)學(xué)生信息管理系統(tǒng)-資料下載頁
2025-04-17 05:55本頁面
【正文】 = 0 = Len(txtName) Exit Sub End If With MyLesson LessonName = MakeStr(txtName) LessonType = Trim() Teacher = MakeStr(txtTeacher) .Term = MakeStr(txtTerm) .Hours = Val(txtHours) If Modify = False Then .Insert Else Call .Update(OriId) End If End With Unload MeEnd Sub課程管理頁面如下，如圖59所示。圖59 課程頁面圖 學(xué)生繳費(fèi)管理模塊因?yàn)楸鞠到y(tǒng)中有些功能模塊具有相似之處，因此在本文只用此模塊進(jìn)行一個(gè)簡單的說明。其它的相似模塊的代碼可能參閱本模塊的設(shè)計(jì)思路，如圖510所示。圖510 繳費(fèi)頁面Public printstr As StringPrivate Sub Command1_Click() Dim dbSource As Database Set dbSource = OpenDatabase() (SELECT * INto 班級(jí)一覽表 IN 39。39。 39。EXCEL 。39。 FROM class)z = MsgBox(成功！, vbOKOnly, 查詢)End Sub 服務(wù)器端程序的建立服務(wù)器端程序?qū)嶋H上是個(gè)COM 工程，它本身連接數(shù)據(jù)源，再通過接口與客戶端聯(lián)系，這個(gè)COM 工程必須注冊(cè)在服務(wù)器上。 客戶端程序的建立在TwoTier模式中，客戶端(Client)程序是直接和服務(wù)器的數(shù)據(jù)源相連的。⑴建立一個(gè)普通的工程。 ⑵放置一個(gè)TDCOMConnrction控件在網(wǎng)絡(luò)上調(diào)試，需要給出服務(wù)器名:ComputerName：服務(wù)器名（自動(dòng)給出網(wǎng)上鄰居）注意： ServerGUID的GUID值是自動(dòng)給出的。⑶放置一個(gè)Tclient控件。這樣一個(gè)客戶端程序就建立好了,其余猶如普通的數(shù)據(jù)庫設(shè)計(jì)。 動(dòng)態(tài)連接應(yīng)用程序服務(wù)器的實(shí)現(xiàn)客戶端程序在運(yùn)行時(shí)，需要連接應(yīng)用服務(wù)器程序以取得服務(wù)。但是，在系統(tǒng)實(shí)際應(yīng)用的時(shí)候，運(yùn)行應(yīng)用服務(wù)器程序的計(jì)算機(jī)是經(jīng)常改變的，因此在客戶端程序啟動(dòng)時(shí)，應(yīng)該先找到運(yùn)行應(yīng)用服務(wù)器程序的計(jì)算機(jī)的設(shè)置。掌握了動(dòng)態(tài)連接應(yīng)用服務(wù)器的流程，就可以具體實(shí)現(xiàn)它。下面就將分步驟介紹動(dòng)態(tài)連接應(yīng)用服務(wù)器的實(shí)現(xiàn)過程。⑴在VB中新建一個(gè)窗體，,Caption屬性設(shè)為”服務(wù)器配置”，運(yùn)行后窗體如下圖511所示。圖511 服務(wù)器配置圖(2) 在“連接設(shè)置”窗體中，需要輸入應(yīng)用服務(wù)器主機(jī)名（或者應(yīng)用服務(wù)器IP地址）和應(yīng)用服務(wù)器的端口號(hào)，這些配置信息將用來連接應(yīng)用服務(wù)器。如果連接成功，輸入的配置信息將被寫入到注冊(cè)表中，以后程序啟動(dòng)時(shí)，讀取注冊(cè)表配置信息，就可而已連接應(yīng)用服務(wù)器程序了。 (3) 在連接設(shè)置主窗口中，我們?yōu)閼?yīng)用服務(wù)器名提供了輔助錄入的方法，點(diǎn)擊應(yīng)用服務(wù)器名編輯框右邊的省略號(hào)按鈕，將彈出一個(gè)瀏覽局域網(wǎng)計(jì)算機(jī)的對(duì)話框，以方便用戶選擇應(yīng)用服務(wù)器所在的計(jì)算機(jī)。在VB中新建一個(gè)窗體，將窗體單元文件保存為netlist .pas,窗體的Name屬性設(shè)為Fm_netlist。運(yùn)行后窗體如下圖512所示。圖512 網(wǎng)上鄰居圖在列舉網(wǎng)絡(luò)資源窗體中，將按照工作組以樹型目錄的形式顯示局域網(wǎng)中的計(jì)算機(jī)。(4)應(yīng)用服務(wù)器IP地址和端口號(hào)的值，然后將這些值賦給主窗體的SocketConnection組件以測(cè)試連接。如果連接成功就返回True值，如果連接失敗，將彈出“連接設(shè)置“窗口，用戶需要從新輸入應(yīng)用服務(wù)器主機(jī)名，應(yīng)用服務(wù)器IP地址和端口號(hào)。如果仍然連接失敗，就返回False值，表示連接失敗。(5) 動(dòng)態(tài)連接設(shè)置的最后一個(gè)步驟就是在主窗體被創(chuàng)建時(shí)，調(diào)用第4步中的方法，判斷應(yīng)用程序是否連接上了應(yīng)用服務(wù)器。如果連接成功，將進(jìn)入應(yīng)用程序；如果連接失敗，將退出應(yīng)用程序。 至此，動(dòng)態(tài)連接應(yīng)用服務(wù)器就做完了。 系統(tǒng)的測(cè)試⑴ 測(cè)試步驟⑴ 添加學(xué)生信息測(cè)試流程：① 以管理員或者編輯身份進(jìn)入后臺(tái)管理界面；② 選擇“添加學(xué)生”功能；③ 首先添加學(xué)生姓名，選擇學(xué)生的性別、年齡、等信息名稱；④然后添加學(xué)生的詳細(xì)信息；⑤ 從系統(tǒng)界面登錄，確認(rèn)信息添加。⑵ 測(cè)試的目標(biāo)：為了發(fā)現(xiàn)程序中的錯(cuò)誤而執(zhí)行程序的過程。經(jīng)過多次測(cè)試添加學(xué)生姓名等信息從系統(tǒng)界面登錄讀取信息都無誤。其他功能都能基本實(shí)現(xiàn)就不在細(xì)說了。全文總結(jié)在本系統(tǒng)的開發(fā)過程中，由于本人獨(dú)立開發(fā)軟件，在知識(shí)、經(jīng)驗(yàn)方面都存在著不足。另外，在整在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師周老師，身上學(xué)到了很多東西。他認(rèn)真負(fù)責(zé)的工作態(tài)度
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1