軟件工程大作業(yè)學(xué)生檔案管理系統(tǒng)

1、軟件工程大作業(yè)題目:學(xué)生檔案管理系統(tǒng)小組成員:戚盈潔(目錄第一章. 系統(tǒng)調(diào)查(31.1 系統(tǒng)調(diào)查內(nèi)容(31.2 系統(tǒng)調(diào)查方法(3第二章. 系統(tǒng)分析(32.1 系統(tǒng)分析(32.2 系統(tǒng)調(diào)結(jié)構(gòu)圖(42.3 子系統(tǒng)功能描述(4第三章 . 系統(tǒng)設(shè)計(63.1 界面設(shè)計原則(63.2 數(shù)據(jù)庫設(shè)計(63.3 代碼設(shè)計(10第四章 . 學(xué)生照片管理模塊設(shè)計(144.1 ImageFunc 模塊 (144.2 設(shè)計照片管理窗體(164.3 在學(xué)生信息管理窗體中添加照片管理代碼(17第五章 . 系統(tǒng)測試(185.1 系統(tǒng)測試項目(185.2 系統(tǒng)評估(20第一章 . 系統(tǒng)調(diào)查1.1 系統(tǒng)調(diào)查內(nèi)容學(xué)校各院系基本概

2、況:院系名稱,專業(yè)設(shè)置 ,課程設(shè)置,課時安排 ,學(xué)生人數(shù),學(xué)生班級數(shù)等。學(xué)校資源條件調(diào)查,包括計算機配備,網(wǎng)絡(luò)支持條件等。各院系專業(yè)設(shè)置概況:現(xiàn)有開設(shè)專業(yè)及規(guī)劃中開設(shè)專業(yè)設(shè)置,專業(yè)開設(shè)課程,各課程授課教師與成績處理。學(xué)校各部門(學(xué)生處、教務(wù)處、檔案管理室、各院系對學(xué)生基本情況的需求與掌握 ,對學(xué)生基本信息的處理方式與業(yè)務(wù)流程。學(xué)校各部門、單位、教師、學(xué)生對系統(tǒng)的其他要求和希望。1.2 系統(tǒng)調(diào)查方法通過對部分高校學(xué)生檔案管理人員的訪問,了解到目前大部分高校的檔案管理工作存在工作效率低,成本高,保密性差,查詢困難等問題。大部分工作人員都提出需要一個具有檢索迅速、查找方便、可靠性高、存儲量大、保密性

3、好、壽命長、成本低等優(yōu)點的現(xiàn)代化信息管理系統(tǒng)。為解決此問題我們決定開發(fā)一個既方便又操作簡單，功能較為齊全的學(xué)生檔案管理系統(tǒng)。第二章.系統(tǒng)分析2.1 系統(tǒng)分析1系統(tǒng)開發(fā)的總體任務(wù)是學(xué)生檔案管理的系統(tǒng)化和規(guī)范化。2系統(tǒng)開發(fā)的目標(biāo)是使檔案管理工作科學(xué)化和規(guī)范化，提高安全系數(shù)。3系統(tǒng)功能樹本系統(tǒng)主要功能是實現(xiàn)學(xué)生基本情況的管理。學(xué)生檔案管理系統(tǒng)課甯息管理系統(tǒng)用戶管理圖3.1學(xué)生檔案管理系統(tǒng)功能模塊2.2 系統(tǒng)調(diào)結(jié)構(gòu)圖ft H ft J眩戊小1-1的& ut ：. ,柏曲:上不.匚瓜子地匿K事儲當(dāng)用圖3.2學(xué)生檔案管理系統(tǒng)結(jié)構(gòu)圖2.3 子系統(tǒng)功能描述院系管理由創(chuàng)建院系及班級信息，修改院系班級記錄，刪除院

4、系班級記錄，查看院系班級數(shù) 據(jù)四部分組成。創(chuàng)建院系與班級信息。主要是院系名稱，班級專業(yè)名稱，院系具體描述，班級介紹, 院系編號由數(shù)據(jù)庫系統(tǒng)自動編號，不顯示在前臺程序。修改院系與班級記錄?？蓪υ合祷虬嗉壝Q，描述，介紹等記錄進行修改。刪除院系與班級記錄?？蛇x擇刪除院系或班級，如果所選院系或班級已含有數(shù) 據(jù)記錄，如含有專業(yè)班級資料，或?qū)W生資料，則必須先將其所含有的記錄資料刪除，才 能成功完成操作。查詢院系與班級資料。在院系管理的主界面查看已有院系及班級記錄。2 學(xué)生信息管理由創(chuàng)建、修改、刪除學(xué)生信息資料,添加、修改、刪除學(xué)生教育經(jīng)歷,添加與刪除學(xué)生照片組成。學(xué)生信息資料創(chuàng)建,將剛?cè)雽W(xué)的學(xué)生資料添加

5、到數(shù)據(jù)庫中加以保存。信息資料由學(xué)生編號、姓名、照片、性別、民族、生日、政治面貌、籍貫、身份證號、學(xué)生證號、家庭電話、居住住址、郵政編碼、入校日期、職務(wù)、所在院系編號、備注和填表時間組成。基于保護數(shù)據(jù)記錄安全性考慮學(xué)生編號由數(shù)據(jù)庫系統(tǒng)自動生成,不顯示在前臺程序。院系編號亦不在學(xué)生信息管理界面顯示,只在后臺數(shù)據(jù)庫顯示。添加、修改、刪除學(xué)生教育經(jīng)歷,創(chuàng)建并管理所選擇學(xué)生過去的教育經(jīng)歷,曾就讀與某校,任何職務(wù)。添加、刪除學(xué)生照片。為所選擇學(xué)生添加個人照片,如需更新照片,只需再次添加 ,既可覆蓋原有照片數(shù)據(jù)記錄。3 獎懲信息管理由添加學(xué)生獎懲信息,修改獎懲信息,刪除獎懲信息,瀏覽學(xué)生獎懲信息組成。添加、

6、修改學(xué)生獎懲信息,設(shè)置學(xué)生獎勵或處罰資料,獎勵與處罰項目使用備選項 ,亦可再加以具體說明。刪除獎懲信息。獎勵與懲罰記錄分開顯示,選擇某條獎懲記錄,將其刪除。4 學(xué)生學(xué)籍信息管理由添加、修改、刪除學(xué)生退學(xué)、轉(zhuǎn)學(xué)、休學(xué)、調(diào)班等學(xué)籍信息組成。添加、修改學(xué)生學(xué)籍信息資料。通過在院系表中選擇目標(biāo)班級,可選擇學(xué)生姓名,刪除學(xué)生學(xué)籍變更數(shù)據(jù)記錄。學(xué)生調(diào)班成功后,系統(tǒng)敬愛能夠自動更新該學(xué)生在院系班級表,學(xué)生基本信息表中的相關(guān)數(shù)據(jù)記錄。5 課程管理由創(chuàng)建、修改、刪除課程信息,學(xué)生課程成績信息組成。創(chuàng)建、修改課程信息,可創(chuàng)建或修改新課程名稱,授課教師 ,課時設(shè)置,課程類型。刪除課程信息。選擇某個課程記錄,可將其所

7、包含的所有信息刪除。學(xué)生課程成績信息,由添加、修改、刪除課程成績信息組成。設(shè)置院系學(xué)生中學(xué)生課程成績信息。6 系統(tǒng)管理由創(chuàng)建用戶,修改用戶,刪除用戶,瀏覽用戶信息組成。創(chuàng)建用戶。該功能只對系統(tǒng)管理員開放,使用系統(tǒng)管理員身份登陸后可創(chuàng)建起他用戶。修改、刪除用戶。該權(quán)限只對系統(tǒng)管理員開放。非系統(tǒng)管理員只能對自己的用戶名和密碼進行修改。第三章 . 系統(tǒng)設(shè)計3.1 界面設(shè)計原則一個好的應(yīng)用程序不僅要有強大的功能,還要有美觀實用的用戶界面。用戶界面是應(yīng)用程序的一個重要組成部分,一個應(yīng)用程序的界面往往決定了該程序的易用性與可操作性,一個美觀的界面的美觀和用戶親和性是應(yīng)用軟件成功的首要條件。界面設(shè)計具有一般

8、性的原則,最為重要的有:界面要具有一致性;常用操作要有捷徑;提供簡單的錯誤處理;提供信息反饋;操作可逆。我們在設(shè)計界面時充分從一致性、友好性、交互性、信息子最小量原則、易用性、數(shù)據(jù)輸入等方考慮,遵循以下原則操作簡單 ,易學(xué) ,易掌握;界面美觀,操作舒適;快速反應(yīng),響應(yīng)合理;語言規(guī)范,語義一致。一致性 ,在同一界面中,所有的菜單選擇、命令輸入、數(shù)據(jù)顯示和其他功能應(yīng)保持風(fēng)格的一致性。信息最小量原則。人機界面設(shè)計要盡量減少用戶記憶負擔(dān),采用有助于記憶的設(shè)計方案。用戶界面應(yīng)能對用戶的決定做出及時的響應(yīng),提高對話、移動的思考的效率,最大可能的減少擊鍵次數(shù),縮短鼠標(biāo)移動距離,避免使用戶產(chǎn)生無所適從的感覺。

9、人機界面應(yīng)該提供上下文敏感的求助系統(tǒng),讓用戶及時獲得幫助,盡量用簡短的動詞和動詞短語提示命令。操作可逆。操作應(yīng)該可逆,對于不具備專業(yè)知識的操作人員非常有用,可逆的動作可以是單個的操作,也可以是一個相對獨立的操作序。界面設(shè)計過程(略3.2 數(shù)據(jù)庫設(shè)計數(shù)據(jù)流程圖DFD(Data Flow Diagram 是描述系統(tǒng)數(shù)據(jù)流程的工具,它將數(shù)據(jù)獨立抽象出來,通用圖形方式描述信息的來龍去脈和實際流程。端y字段名稱數(shù)據(jù) 類字段大 小說明1Im4學(xué)乍編8SiudemVarch ar0姓X3PhotoImigeJ6照片圖4.1數(shù)據(jù)流程分析圖字段名稱教搪類型字段大 小1說明1Chss_idEnt4院系編號2Chs

10、s_NameVrvhar40院系名稱3DcsirritvVjrchar4001院系職能描述4I pperldInt一1級標(biāo)察編號1數(shù)據(jù)字典（Data Dictionary, DD是DBMS中的一個特殊文件，用于存儲數(shù)據(jù)庫 的一些說明信息，這些說明信息稱為元數(shù)據(jù)（Meta Data。DD是在新的信息系統(tǒng)數(shù)據(jù) 流程圖的基礎(chǔ)上，進一步定義和描述數(shù)據(jù)處理過程、外交實體及數(shù)據(jù)存儲（數(shù)據(jù)庫的詳細邏輯內(nèi)容工具。本系統(tǒng)后臺數(shù)據(jù)庫采用 Microsoft SQL Server 2000 數(shù)據(jù)庫。建立了一個數(shù)據(jù) 庫StudentSys,包括了九個表：院系班級表Classes、學(xué)生基本信息表Students、學(xué)生教

11、育經(jīng)歷記錄表 Experience 學(xué)生獎懲表Evaluation 學(xué)生學(xué)籍變動表 Change、課程設(shè)置表 Lessons、考試成績表 Scores、用戶信息表 Users。表1 Classes結(jié)構(gòu)編字段名稱數(shù)據(jù) 類型字段大 小說明1Student_ldEnt4學(xué)生.編42Student_NamcVarchar0姓名P 3PhotoImage16照片編號字段名稱數(shù)據(jù) 類型字段大小說明-1Student JdInt4學(xué)生編號2Stucient_NameVarchar0姓名3Photolinage16照片*麗 Hif ft 從十1MJIlli42siirtkN.UIni4學(xué)通玲5jHnfiJ3u

12、cChvjo電函1】巨4kcd Lute21wIU幌止IIM1Qi力 1sn拿柢巾螳卷科ftTideYmtu如ttl-ilt?12入卡曼引4SciVwh*r2依琳累Vurefi ar融1ftMiEkVffrllrtnTPtWnkal.PMVjrxhf|ftdAlloKBVjrthfMlV皿ehur31年的葉,IBjM承號讓不RIlb rnlFjlnwfc-七方由Xi辦噌12K&JLktkeVordiriLNIHi+地址nVh.f10不履UMIrttin MElimAW編號字段名稱數(shù)據(jù)類型字段大小說明ExpldInt4編號2SludeniJdInt4學(xué)生編號3Slart_DyteChar10開始

13、日期4End_DateChar10終止II期5SchoolVarchar50學(xué)校/單位名稱6TitleVarchar20職務(wù)編號字段名稱數(shù)據(jù)類型字段說明編字段名稱數(shù)據(jù)類邢字段大小說明ChsngeldIm4學(xué)籍變動編 號2Stuit!nt_Idnt4學(xué)生編號3ChiingcTyp Tinyinl1學(xué)籍變動類型1農(nóng)示退學(xué)，2校示3學(xué),3表示轉(zhuǎn)學(xué),4 a 東調(diào)班）4Change DotChar10學(xué)籍變動11期表5 Change結(jié)構(gòu)編g字段名稱數(shù)據(jù)類型字段大小說明1Change Idhit4學(xué)籍變動編 號2Shidenl_ldlilt4學(xué)生編號3ChangeTyp eTinyinlI學(xué)籍變動類型（1

14、 及小退學(xué)，2衣示休 學(xué).3代示轉(zhuǎn)學(xué)，4表 示調(diào)班）4Ch ange Dat eChar10學(xué)籍叁動H期5OriClassLnt4庭班級編號6NewSchoolVitrchar50轉(zhuǎn)入學(xué)校名稱7NcuClassInt4轉(zhuǎn)入班級編號SReasonWirchar200學(xué)精變動除因9Me mo:irchar200備注表 6 Lessons 結(jié)構(gòu)編號字段名稱數(shù)據(jù)類型字段大小說明1ChangeldInt4學(xué)籍變動編 號2StudcnLldlnt4學(xué)生編號3ChangeTypeTinytnt1學(xué)籍變動類型（ 1 表示退學(xué)a 2表示體 學(xué),3農(nóng)水轉(zhuǎn)學(xué)，4衣 示調(diào)班）4Chu ngeDalChar10學(xué)籍變動

15、II期精品資料編號字段X稱數(shù)據(jù)類型字段大小說明1ChangeldInt4學(xué)籍變動編 號7SiuUunLld1 Int4學(xué)生編號編號子段名稱(數(shù)據(jù)類型字段大小說明1UsersNanieViirchar4fl用戶名2PwdViirchar4fl密碼3UserTypcVarchar10用戶類型3.3代碼設(shè)計一個高效的軟件不僅應(yīng)該比實現(xiàn)同樣功能的軟件運行得更快，還應(yīng)該消耗更少 的系統(tǒng)資源。所以代碼的設(shè)計就顯得非常重要。考慮到以后對系統(tǒng)更新與維護的可 行性與方便性，減少程序員工作量，等各方面的考慮，我們在代碼設(shè)計過程中遵循科學(xué) 性,系統(tǒng)性，可擴展性，規(guī)范化，人性化，通用性，含義單純性，容易理解等原則考慮

16、。以下 只列舉部分關(guān)鍵代碼院系管理添加院系信息If Trim(txtClass = ThenMsgBox ”請輸入院系班級名稱Exit SubEnd IfWith MyClass.Class_Name = MakeStr(txtClass.Describe = MakeStr(txtDescribeIf .In_DB(.Class_Name = True ThenMsgBox Trim(txtClass + 已經(jīng)存在Exit SubEnd If.UpperId = CurClass.Class_IdBh = .InsertTmp_Key = a + Trim(Str(BhFrmClassMan

17、.TreeView1.SelectedItem.Image = 1FrmClassMan.TreeView1.SelectedItem.ExpandedImage = 2FrmClassMan.TreeView1.SelectedItem.SelectedImage = 3Set TmpNode =FrmClassMan.TreeView1.Nodes.Add(FrmClassMan.TreeView1.SelectedItem.Ke y, _ tvwChild, Tmp_Key, .Class_Name, 4, 5TmpNode.Selected = TrueElse 修改If CurCla

18、ss.Class_NameTrim(txtClass ThenIf .In_DB(Trim(txtClass = True ThenMsgBox Trim(txtClass + 已經(jīng)存在Exit SubEnd IfEnd If.UpperId = CurClass.UpperId.Update (CurClass.Class_IdIf CurClass.Class_NameTrim(txtClass ThenFrmClassMan.TreeView1.SelectedItem.Text = Trim(txtClassEnd IfCurClass.Class_Name = Trim(txtCla

19、ssEnd IfEnd WithUnload Me刪除院系資料If TreeView1.SelectedItem.Key = a0 ThenMsgBox 此項不能刪除Exit SubEnd IfIf CurClass.HaveSon(CurClass.Class_Id = True ThenMsgBoxCurClass.Class_Name + 包含下級院系班級,不能刪除Exit SubEnd IfIf MyClass.HaveStudent(CurClass.Class_Id = True ThenMsgBoxCurClass.Class_Name + 包含學(xué)生,不能刪除Exit SubEn

20、d IfIf MsgBox( 是否確定要刪除 + Trim(TreeView1.SelectedItem.Text, vbYesNo,請確認 = vbNo ThenExit SubEnd IfCall CurClass.Delete(CurClass.Class_IdTreeView1.Nodes.Remove TreeView1.SelectedItem.IndexTreeView1_Click學(xué)生信息資料管理添加學(xué)生基本信息資料With MyStu.Student_Name = MakeStr(txtStu_Name.Sex = ComboSex.Text.Nationality = Ma

21、keStr(txtNationalityIf IsDate(ComboBirth.Text = False ThenMsgBox 請選擇正確的出生日期Exit SubEnd If.Birth = ComboBirth.Text.Political_Party = MakeStr(txtPolitical_Party.Family_Place = MakeStr(txtFamily_Place.Id_Card = MakeStr(txtId_Card.BadgeID = MakeStr(txtBadgeID.Home_phone = MakeStr(txtHomePhone.Residence

22、= MakeStr(txtResidence.Postcode = MakeStr(txtPostcodeIf IsDate(ComboInDate.Text = False ThenMsgBox 請選擇正確的入校日期Exit SubEnd If.InDate = ComboInDate.Text.Title = MakeStr(txtTitle.Memo = MakeStr(txtMemodd = Datedd = Format(dd, yyyy-mm-ddt = Timett = Trim(Str(Hour(t + : + Trim(Str(Minute(t + : +Trim(Str(S

23、econd(t .Fillin_Time = dd + + tt.Class_Id = CurClass.Class_IdIf Modify = False Then.InsertElse.Update (CurStu.Student_IdEnd IfEnd WithFrmStuMan.TmpOk = TrueUnload Me照片管理If Button = 1 ThenIf FrmPhotoMenu.Visible = True ThenUnload FrmPhotoMenuEnd IfEnd IfIf Button = 2 ThenIf CurStu.Student_Id= 0 ThenE

24、xit SubEnd IfFrmPhotoMenu.Left = X + Image1.Left + 200 - 1610FrmPhotoMenu.Top = Y + Image1.Top + 1900FrmPhotoMenu.ShowEnd IfDim DiskFileAs StringIf CurStu.Student_Id= 0 ThenMsgBox 請選擇學(xué)生Unload MeExit SubEnd IfCommonDialog1.Filter = BMP 文件 (*.bmp|*.bmp|JPEG 文件 (*.jpg|*.jpg|GIF 文件 (*.gif|*.gifCommonDia

25、log1.ShowOpenDiskFile = CommonDialog1.FileNameIf DiskFile = ThenMsgBox 請選擇照片文件Unload MeExit SubEnd IfCall SaveImage(DiskFile, FrmStuMan.AdoStuDetailCall ShowImage(FrmStuMan.Image1, FrmStuMan.AdoStuDetailUnload MeIf CurStu.Student_Id= 0 ThenMsgBox 請選擇學(xué)生Unload MeExit SubEnd IfFrmStuMan.AdoStuDetail.Re

26、cordset.Fields(2.AppendChunk FrmStuMan.AdoStuDetail.Recordset.UpdateFrmStuMan.Image1.Picture = LoadPicture(Unload Me學(xué)籍管理添加學(xué)籍管理信息資料FrmChangeEdit.ComboDate.Text = Format(Now, yyyy-mm-ddSelStu.InitFrmChangeEdit.ComboName.Text = FrmChangeEdit.ComboType.ListIndex = ComboType.ListIndexFrmChangeEdit.ComboC

27、lass = FrmChangeEdit.txtMemo = FrmChangeEdit.Modify = FalseFrmChangeEdit.Show 1Refresh_Change修改學(xué)籍管理信息資料FrmChangeEdit.OriId = Adodc1.Recordset.Fields(0FrmChangeEdit.ComboDate.Text = Trim(Adodc1.Recordset.Fields(1SelStu.Student_Id = Adodc1.Recordset.Fields(2SelStu.GetInfo (SelStu.Student_IdFrmChangeEd

28、it.ComboName.Text = Trim(Adodc1.Recordset.Fields(3FrmChangeEdit.ComboType.ListIndex = ComboType.ListIndexSelect Case ComboType.ListIndexCase 0, 1 退學(xué)、休學(xué)FrmChangeEdit.txtNewSchool = FrmChangeEdit.ComboClass = FrmChangeEdit.txtReason = Trim(Adodc1.Recordset.Fields(4FrmChangeEdit.txtMemo = Trim(Adodc1.R

29、ecordset.Fields(5Case 2 轉(zhuǎn)學(xué)FrmChangeEdit.txtNewSchool = Trim(Adodc1.Recordset.Fields(4FrmChangeEdit.ComboClass = FrmChangeEdit.txtReason = Trim(Adodc1.Recordset.Fields(5FrmChangeEdit.txtMemo = Trim(Adodc1.Recordset.Fields(6Case 3 調(diào)班FrmChangeEdit.txtNewSchool = FrmChangeEdit.ComboClass = Trim(Adodc1.R

30、ecordset.Fields(5CurClass.GetInfo (Adodc1.Recordset.Fields(4FrmChangeEdit.txtReason = Trim(Adodc1.Recordset.Fields(6FrmChangeEdit.txtMemo = Trim(Adodc1.Recordset.Fields(7End SelectFrmChangeEdit.Modify = TrueFrmChangeEdit.Show 1Refresh_Change第四章 . 學(xué)生照片管理模塊設(shè)計4.1 ImageFunc 模塊ImageFunc 模塊用來管理與數(shù)據(jù)庫讀寫圖像字段相

31、關(guān)的變量和函數(shù)。其中包含兩個用戶自定義過程:ShowImage 和 SaveImage 。因為 SQLServer2000 的圖像字段不能夠使用Insert 和 Update 等語句插入和更新,所以本系統(tǒng)中使用GetChunk 和 AppendChunk 方法讀取和填寫圖像字段。GetChunk 方法用來返回大型文本或二進制數(shù)據(jù)Field 對象的全部或部分內(nèi)容 ,AppendChunk 方法則將數(shù)據(jù)追加到大型文本、二進制數(shù)據(jù)Field 或 Parameter對象中。ShowImage( 包含兩個參數(shù),Image1 表示用來顯示圖像的Image 控件 ,Adodc1表示用來提供圖像字段的ADO

32、Data 控件。 ShowImage( 過程的代碼如下:Public Sub ShowImage(Image1 As Image, Adodc1 As AdodcErase byteChunk(FieldSize = Adodc1.Recordset.Fields(2.ActualSizeIf FieldSize= 0 ThenImage1.Picture = LoadPicture(Exit SubEnd If提供一個尚未使用的文件號SourceFile = FreeFile打開文件Open TempFileFor Binary Access Write As SourceFile計算數(shù)據(jù)塊

33、NumBlocks = FieldSize BlockSizeLeftOver = FieldSize Mod BlockSize 得到剩余字節(jié)數(shù)分塊讀取圖像數(shù)據(jù),并寫入到文件中If LeftOver 0 ThenReDimbyteChunk(LeftOverbyteChunk( = Adodc1.Recordset.Fields(2.GetChunk(LeftOverPut SourceFile, ,byteChunk(End IfFor i = 1 ToNumBlocksReDimbyteChunk(BlockSizebyteChunk( = Adodc1.Recordset.Fields

34、(2.GetChunk(BlockSizePut SourceFile, ,byteChunk(Next iClose SourceFile將文件裝入到Image1 控件中Image1.Picture = LoadPicture(TempFile刪除臨時文件Kill (TempFileEnd SubSaveImage( 也包含兩個參數(shù),ImageFile 表示圖像的文件名,Adodc1 表示用來存儲圖像字段的ADO Data 控件。 ShowImage( 過程的代碼如下:Public Sub SaveImage(ByValImageFile As String, Adodc1 As Adodc

35、If Adodc1.Recordset.BOF = True Or Adodc1.Recordset.EOF = True ThenExit SubEnd IfIf ImageFile = ThenExit SubEnd If提供一個尚未使用的文件號SourceFile = FreeFile打開文件Open ImageFileFor Binary Access Read As SourceFile得到文件長度FileLength = LOF(SourceFile判斷文件是否存在If FileLength = 0 ThenClose SourceFileMsgBoxDiskFile& 無內(nèi)容或不

36、存在!ElseNumBlocks = FileLength BlockSize 得到數(shù)據(jù)塊的個數(shù)LeftOver = FileLength Mod BlockSize 得到剩余字節(jié)數(shù)Adodc1.Recordset.Fields(2.Value = NullReDimbyteData(BlockSize 重新定義數(shù)據(jù)塊的大小For i = 1 ToNumBlocksGet SourceFile, , byteData( 讀到內(nèi)存塊中Adodc1.Recordset.Fields(2.AppendChunkbyteData( 寫入 FLDNext iReDimbyteData(LeftOver

37、重新定義數(shù)據(jù)塊的大小Get SourceFile, , byteData( 讀到內(nèi)存塊中Adodc1.Recordset.Fields(2.AppendChunkbyteData( 寫入 FLDClose SourceFile 關(guān)閉源文件Adodc1.Recordset.UpdateEnd IfEnd Sub4.2 設(shè)計照片管理窗體對學(xué)生照片管理的模式與其他信息不同,需要單獨地處理。這一小節(jié)中,將設(shè)計一個菜單式的窗體,當(dāng)用戶右擊Image1 控件時 ,將彈出此窗體,允許用戶設(shè)置照片。創(chuàng)建一個新窗體,并參照“選擇部門 ”窗體設(shè)置窗體的屬性,新窗體名稱為FrmPhotoMeun 。為了使用戶能夠方

38、便地選擇圖像文件,在窗體FrmEmpSel 中將使用到CommoDialog 控件。 CommoDialog 控件提供一組標(biāo)準(zhǔn)的操作對話框,進行諸如打開和保存文件,設(shè)置打印選項,以為選擇顏色和字體等操作。選擇 “工程 ”菜單中的“部件 ”命令 ,打開 “部件 ”屬性對話框。在控件列表中,查找并選擇 Microsoft Common Dialog Control 6.0, 單擊 “確定 ”按鈕 ,CommonDialog 控 件將出現(xiàn)在工具箱中。將 CommonDialog 控件添加到窗體FrmPhotoMeun 中 ,當(dāng)用戶單擊“設(shè)置照片”菜單項時,將觸發(fā) Label1_Click 事件 ,對

39、應(yīng)的代碼如下:Private Sub Label1_Click(Dim DiskFileAs String如果沒有選擇學(xué)生,則返回If CurStu.Student_Id= 0 ThenMsgBox 請選擇學(xué)生Unload MeExit SubEnd If使用CommonDialog 控件讀取圖像文件CommonDialog1.Filter = BMP 文件 (*.bmp|*.bmp|JPEG 文件 (*.jpg|*.jpg|GIF文件 (*.gif|*.gifCommonDialog1.ShowOpenDiskFile = CommonDialog1.FileNameIf DiskFile

40、= ThenMsgBox 請選擇照片文件Unload MeExit SubEnd If存儲并顯示照片Call SaveImage(DiskFile, FrmStuMan.AdoStuDetailCall ShowImage(FrmStuMan.Image1, FrmStuMan.AdoStuDetailUnload MeEnd Sub當(dāng)用戶單擊“刪除照片 ”菜單項時 ,將觸發(fā) Label2_Click 事件 ,對應(yīng)的代碼如下:Private Sub Label2_Click(If CurStu.Student_Id= 0 ThenMsgBox 請選擇學(xué)生Unload MeExit SubEnd

41、 If使用AppendChunk 的方法刪除圖像FrmStuMan.AdoStuDetail.Recordset.Fields(2.AppendChunk FrmStuMan.AdoStuDetail.Recordset.UpdateFrmStuMan.Image1.Picture = LoadPicture(Unload MeEnd Sub4.3 在學(xué)生信息管理窗體中添加照片管理代碼在學(xué)生信息管理窗體FrmStuMan 中編寫照片管理相關(guān)的代碼。當(dāng)用戶單擊照片Image1 時 ,將觸發(fā) Image1_MouseDown 事件 ,對應(yīng)的代碼如下:Private Sub Image1_Mouse

42、Down(Button As Integer, Shift As Integer, X As Single, Y As Single單擊左鍵,則關(guān)閉照片管理菜單If Button = 1 ThenIf FrmPhotoMenu.Visible = True ThenUnload FrmPhotoMenuEnd IfEnd If單擊右鍵,打開照片管理菜單If Button = 2 ThenIf CurStu.Student_Id= 0 ThenExit SubEnd IfFrmPhotoMenu.Left = X + Image1.Left + 200 - 1610FrmPhotoMenu.To

43、p = Y + Image1.Top + 1900FrmPhotoMenu.ShowEnd IfEnd Sub第五章 . 系統(tǒng)測試5.1 系統(tǒng)測試項目(1 數(shù)據(jù)和數(shù)據(jù)庫完整性測試(a 測試目標(biāo):確保學(xué)生檔案管理系統(tǒng)數(shù)據(jù)庫StudentSys 訪問方法和進程正常運行數(shù)據(jù)安全可靠。(b 測試方法:把數(shù)據(jù)庫StudentSys 及其進程作為一個子系統(tǒng)來進行測試。在測試該子系統(tǒng)時 ,不把將測試對象的用戶界面作數(shù)據(jù)的接口。調(diào)用各個數(shù)據(jù)庫訪問方法和進程,并在其中填充有效的和無效的數(shù)據(jù),檢測其數(shù)據(jù)規(guī)則完整性是否符合設(shè)計要求。檢查數(shù)據(jù)庫StudentSys, 確保數(shù)據(jù)已按預(yù)期的方式填充,并且所有的數(shù)據(jù)庫事件已

44、正常發(fā)生;或者檢查所返回的數(shù)據(jù),確保以正確的條件可以檢索到符合檢索要求的正確數(shù)據(jù)。輸入不符合數(shù)據(jù)庫完整性規(guī)則數(shù)據(jù),檢測字段完整性規(guī)則。(c 測試結(jié)果:所有的數(shù)據(jù)庫訪問方法和進程都達到預(yù)期設(shè)計要求,數(shù)據(jù)記錄安全完整,數(shù)據(jù)整規(guī)則正確。(2 集成測試(a 測試目標(biāo):主要是檢測學(xué)生檔案管理系統(tǒng)是否達到設(shè)計需求,對業(yè)務(wù)流程及數(shù)據(jù)流的處理是否符合標(biāo)準(zhǔn),對業(yè)務(wù)流處理是否存在邏輯不嚴(yán)謹及錯誤,需求是否存在不合理的標(biāo)準(zhǔn)及要求,在不同計算機上的運行結(jié)果是否正常。此階段測試基于功能完成的測試。(b 測試方法:利用合法的和非法的數(shù)據(jù)來執(zhí)行各個功能,在多部不在同一局域網(wǎng)的可正常使用計算機上運行,以核實以下內(nèi)容:在使用合

45、法的數(shù)據(jù)時得到預(yù)期(正確的結(jié)果。在使用非法數(shù)據(jù)時顯示相應(yīng)的錯誤消息或警告信息。各業(yè)務(wù)規(guī)則在系統(tǒng)中均得到正確的應(yīng)用。在任意一臺安裝相關(guān)軟件計算機上運行結(jié)果正常。(c 測試結(jié)果:所計劃的測試已全部執(zhí)行,測試過程中發(fā)現(xiàn)的缺陷問題已解決。達到預(yù)期測試目標(biāo)。(3 功能測試(a 測試目標(biāo):確保所選擇測試的功能正常使用,其中包括功能瀏覽,數(shù)據(jù)輸入,處理和查詢功能。(b 測試方法:利用合法的和不合法的數(shù)據(jù)來執(zhí)行各個測試用例或功能,以核實以下內(nèi)容 :在使用合法數(shù)據(jù)時得到預(yù)期的結(jié)果。在使用非法數(shù)據(jù)時顯示相應(yīng)的錯誤信息息或警告信息。各業(yè)務(wù)規(guī)則在系統(tǒng)中均得到正確的應(yīng)用。(c 測試結(jié)果:數(shù)據(jù)的接受、處理和檢索正確,業(yè)務(wù)

46、規(guī)則的實施恰當(dāng)。(4 用戶界面測試:(a 測試目標(biāo):通過測試進行的瀏覽以正確反映本軟件的功能和需求,這種瀏覽包括對各個窗口、窗口與窗口之間、字段與字段之間的瀏覽,各種訪問方法的正常使用 ,保證窗口的對象和特征(例如 ,菜單、大小、位置、狀態(tài)和中心均符合預(yù)計標(biāo)準(zhǔn)。(b 測試方法:為每個窗口創(chuàng)建新的數(shù)據(jù)記錄,或修改原由數(shù)據(jù)記錄,以核實各個應(yīng)用程序窗口和對象都正確地進行瀏覽,并處于正常的對象狀態(tài)。(c 測試結(jié)果:達到預(yù)期測試目標(biāo),測試內(nèi)容正確運行,測試過程中出現(xiàn)問題已解決。(5 性能評測(a 測試目標(biāo):對本系統(tǒng)響應(yīng)時間、各功能響應(yīng)時間、其他與時間相關(guān)的需求進行評測和評估。不用硬件配置計算機上的工作性能差異。檢查性能需求是否滿足設(shè)計要求 ,核實學(xué)生檔案管理系統(tǒng)指定的事務(wù)在以下情況下的性能行為:正常工作流量情況下的使用。超負荷工作量情況下的使用。不同硬件配置計算機上的工作性能差異。(b 測試方法:通過修改學(xué)生檔案管理系統(tǒng)數(shù)據(jù)文件來增加事務(wù)數(shù)量,或通過修改腳本來增加軟件每項事務(wù)的迭代數(shù)量。(c 測試結(jié)果:單個用戶正常工作量使用情況下成功地完成測試腳本,未發(fā)生故障:系統(tǒng)中享受不同權(quán)限用戶在可接受的時間范圍內(nèi)與正常工作量情況下成功地完成測試腳本 ,未發(fā)生任何故障。(6 負載測試:(a 測試目標(biāo):確保系統(tǒng)在超出預(yù)期極限負荷工作量情況下。評估性能特征,例如