第一篇：MIS課程設計報告

管理信息系統課程設計

專 業： 信息管理與信息系統 課程名稱： MIS課程設計 課題名稱: 學生管理系統 教 師: 許煒 小組成員: 張浩 張旭 周楊 徐俊杰

2014年 12 月 26 日 目錄

第一章 系統規劃..................................................1 1.1設計背景....................................................1 1.2系統設計目標................................................1 1.3 可行性分析..................................................1 第二章 系統分析..................................................2 2.1組織結構分析................................................2 2.2業務流程圖..................................................2 2.3功能需求....................................................2 第三章 系統設計..................................................4 3.1 界面設計....................................................4 第四章 系統實施.................................................11 4.1 系統操作使用的簡要說明.....................................11 4.2 系統評價...................................................11 課程設計總結....................................................13 參考資料........................................................13 江蘇科技大學蘇州理工學院 商學院

課 程 設 計 報 告

第一章 系統規劃 1.1設計背景

學生信息系統是一項數據量很龐大的管理信息系統，需要實現的功能也越來越復雜，越來越全。因此，對于學生信息的管理系統的設計要求越來越嚴格，其功能的全面性，簡便性要求也逐步增強。

1.2系統設計目標

本系統是基于AxureRP軟件設計搭接用戶界面的學生信息管理系統，實現對學生在校信息的全面集中管理。

1.3 可行性分析

技術可行性：本系統采用AxureRP軟件，軟件具有以下優點：

網站構架圖(Site Structure)：AxureRP可以快速繪制樹狀的網站構架圖，而且可以讓構架圖中的每一個頁面節點，直接連接到對應網頁。

示意圖(Wireframe)：Axure RP內建了許多會經常使用到的widget元件，例如：按鈕(Button)、圖片(Image)、文字面板(Text Panel)、選擇鈕(Radio Button)、下拉式菜單(Droplist)。流程圖(Flowchart)：AxureRPFlowDiagram快速建立流程圖就像建立wireframe一樣容易，Flow Widget中有設計流程圖時會經常用到的形狀，您可以輕松在流程之間加入連接線并設定連接的格式。

交互設計(InteractionDesign)：大多數的widget可以對一個或多個事件產生動作，包括OnClick、OnMouseOver和OnMouseLeave等

自動輸出網站原型(HTML Prototype): Axure RP可以將wireframe，輸出成符合InternetExplorer或Firefox等不同瀏覽器的HTML prototype。江蘇科技大學蘇州理工學院 商學院

課 程 設 計 報 告

第二章 系統分析

2.1組織結構分析

2.2業務流程圖 2.3功能需求

主要功能：

※登錄界面：用戶名、密碼登錄，密碼丟失，用戶注冊 學籍管理：包括入學注冊、學籍信息查詢和更新

班級管理：包括班級信息添加、更新和刪除 ※課程管理：包括課程查詢，學生選課系統 江蘇科技大學蘇州理工學院 商學院

課 程 設 計 報 告

成績管理：包括成績錄入、查詢和統計

收費管理：學生繳費信息輸入、查詢和統計 ※打印統計：打印統計結果 江蘇科技大學蘇州理工學院 商學院

課 程 設 計 報 告

第三章 系統設計

3.1 界面設計 登陸界面：

注冊界面：

密碼修改界面： 江蘇科技大學蘇州理工學院 商學院

課 程 設 計 報 告

系統功能界面：

江蘇科技大學蘇州理工學院 商學院

課 程 設 計 報 告

學籍管理界面：

學籍修改界面： 江蘇科技大學蘇州理工學院 商學院

課 程 設 計 報 告

班級管理界面： 江蘇科技大學蘇州理工學院 商學院

課 程 設 計 報 告

課程管理界面： 江蘇科技大學蘇州理工學院 商學院

課 程 設 計 報 告

成績管理界面： 江蘇科技大學蘇州理工學院 商學院

課 程 設 計 報 告

收費管理界面： 江蘇科技大學蘇州理工學院 商學院

課 程 設 計 報 告

打印系統界面：

第四章 系統實施

4.1 系統操作使用的簡要說明

本系統是基于學生信息管理過程進行設計的簡明版信息存儲管理系統。由登錄界面進入，若還未注冊或者密碼遺忘，可以進行相應的找回、修改功能。之后，便可以進行學生學籍、課程、成績以及學費管理等方面的信息查詢與統計功能，最后，也可以對之前的統計結果進行打印。

4.2 系統評價

4.1.1采用的有特色的技術與技巧

1）動態面板部件。在運用AxureRP軟件設計學生管理系統流程界面時，不僅使用了江蘇科技大學蘇州理工學院 商學院

課 程 設 計 報 告

系統一般常用的部件進行常規設計，而且使用了動態面板部件，可以讓你實現高級的交互功能，實現原型的高保真度。

2）菜單控件。菜單控件用于創建簡單的彈出菜單，菜單控件分為垂直菜單（Vertical Menu）和水平菜單（Horizontal Menu），可以通過控件面板中拖入菜單控件到線框圖中創建菜單，每一層的菜單項可以繼續向下新增子菜單。圖例：

3)OnChange事件。OnChange事件可用于下拉框（Droplist）和列表框（List Box）控件。OnChange事件是在下拉框或列表框的選項選擇時發生。這在原型中以下拉框進行導航非常有用，即當選擇下拉框的某個選項時跳轉到相應的頁面上。在本次實驗中，此應用很多地方用到就不一一例舉。

4.2.2成功之處與主要特點

1）模塊化。本系統主要分為七個模塊，分別為登錄界面、學籍管理、班級管理、課程管理、成績管理、收費管理、打印統計，每一個模塊中也有細分具體功能板塊，這樣編排，使得學生與管理員使用都很清楚、明朗；

2）簡明而全面。本系統實現了學籍、班級、課程、成績、收費的五個功能，具體而全面地涵蓋了關于學生日常涉及的事務處理；

3）實用性。本系統在本校已有系統功能的基礎上，完善了部分未能使用，卻是學生需要的功能，如個人、專業學分計算與統計功能等。江蘇科技大學蘇州理工學院 商學院

課 程 設 計 報 告

4.2.3系統會改進完善之處和進一步工作的打算

1）各部信息之間關聯性太強，一處信息的錯誤可能導致整個系統中信息錯誤。2）現有系統在用戶角色和用戶權限設置上沒有相關的功能。3）在用戶界面，用戶體驗，響應速度等方面存在問題。

改進措施：下一步將進行用戶權限系統的設置。不同的用戶角色享有不同的權限，方便進行信息的查詢、管理和利用。同時也要改進用戶界面，提高系統的響應速度，改善用戶的體驗，做到更便捷、更友好。

課程設計總結

本次課程設計，讓我們了解和熟悉了另一種搭建網絡頁面框架，實現網絡功能的軟件和方法。雖然有些方面不及Java與ASP.net等其他軟件所能實現的頁面功能復雜全面，但Axure RP 可以讓桌面應用軟件和Web網站的設計師創建線框圖、流程圖、原型和規格說明文檔，它比任何當前其它創建靜態原型的工具如Visio,、Illustrator、Photoshop、Dreamweaver, Visual Studio、FireWorks、GUI Studio等都要快速、高效，因為它才是真正的專門原型設計工具，并且支持多人協作設計和版本控制管理。

而本次課程設計也提高我們小組成員的動手實踐能力與遇到問題時的思考、分析、解決問題的能力，懂得如何實在地搭建一個我們自己生活學習中所接觸到，使用到的網絡界面，網站數據查詢與統計功能，真正的學而致用，理解的也更全面透徹，提高了學習計算機的興趣，增強了信心。

在本次課程設計中，我們因為不熟悉，也遇到了很多的困難。雖如此，每當克服一個困難時，我們都非常的興奮，這些都是自己努力的結果。現在，我們有信心面對接下來的挑戰，在不斷的實踐中鍛煉自己，提高自己！

參考資料

[1] Axure第一書（作者馬克）[2] Axure快速原型設計(第二版)

第二篇：MIS課程設計報告

西安郵電學院

MIS課程設計報告書

(學生學籍管理系統分析設計)

系部名稱 ： 信息與管理工程系 學生姓名 ： 王 鳴

專業名稱 ： 信息管理與信息系統 班

級 ： 信管0402班

時間 ：

2006 年 12 月11 日 至

2006

年12 月 22 日

目 錄：

一.可行性分析????????????????????????? 4

二.系統分析部分???????????????????????? 4 1.業務流程圖???????????????????????? 5 2.數據流程圖???????????????????????? 5 3.功能分析圖???????????????????????? 6 4.數據字典????????????????????????? 7 5.數據加工處理的描述???????????????????? 8 6.管理信息系統流程設想圖?????????????????? 9

三.系統設計部分

1.功能結構圖設計?????????????????????? 9 2.新系統信息處理流程設計?????????????????? 9 3.輸出設計(主要指打印輸出設計)??????????????? 9 4.存儲文件格式設計(數據庫結構設計)????????????? 9 5.輸入設計(主要指數據錄入卡設計)?????????????? 12 6.代碼設計(職工證號和部門代號等)?????????????? 14 7.程序設計說明書?????????????????????? 14

四.系統實施部分

1.程序框圖????????????????????????? 14 2.源程序?????????????????????????? 18 3.模擬運行數據??????????????????????? 71 4.打印報表????????????????????????? 72 5.系統使用說明書?????????????????????? 72

五.附錄或參考資料設計任務書

信管專業

2004級MIS課程設計任務書

一、設計目的：

通過本次設計，要求同學們能夠將所學到的信息系統分析方法與軟件設計技術及方法綜合運用到實際信息系統的分析與設計中，提高同學們對軟件的綜合分析與設計能力，主要包括對數據的分析、組織能力，數據的提取、處理能力；軟件結構的分析設計，復雜界面與輸入輸出設計能力；學習常用軟件開發工具的使用。

二、設計內容： 學生學籍管理系統：

1、系統需求：

本系統主要是用于學生基本信息的管理。該系統可以完成對學生信息添加、班級管理、查找等操作,能夠對學生信息進行方便有效的科學管理。

2、主要功能描述 1）權限管理

主要是用戶的等級和權限的劃分。分３級管理員，超級用戶、只讀用戶、普通用戶，權限可以自定義添加和刪除。2）班級管理

添加班級、瀏覽班級、查詢班級。3）學生檔案管理

瀏覽檔案、添加檔案、查詢檔案。

4）課程設置：基本課程設置和班級課程設置。

5）成績管理：考試類型設置、成績添加瀏覽和查詢。

6）打印報表：可以打印學生的檔案和成績等相關的信息報表。

三、設計要求

結合所學習的系統分析與設計的具體方法，應用程序設計的基本知識和數據庫知識進行詳細的系統分析設計。具體要求如下：

1、學習進行相對復雜數據的分析與設計，建立合理的數據模型。

2、學習使用VB的數據環境設計器和數據報表設計器進行報表輸出設計。

3、學習使用visio工具進行常用軟件圖形的繪制。

4、進一步熟練進行軟件系統的界面設計，深入掌握界面設計元素。

5、提供相應的軟件設計報告。報告要求有系統的需求分析、系統流程圖、數據流程圖、軟件結構圖、數據庫設計說明和軟件說明書。

6、提供與設計報告相一致的軟件系統。

7、每四人為一個課題組，自由組合，檢查相應的小組討論，討論結果計入平時成績。

8、報告書寫規范見附件。

四、時間安排（共兩周10天）

1、第一周的周一、周二（2天）：查閱資料、進行系統的需求分析，要求畫出 系統的業務流程圖及數據流程圖，并設計各類報表的格式。（圖書館）

2、第一周的周三到周五（3天）：并進行詳細的數據分析，建立數據字典，并進行數據庫及數據查詢設計。（機房）

3、第二周的周一周二（2天）：進行軟件結構設計，包括軟件功能的劃分、輸入輸出界面的設計。（機房）

4、第二周的周三：（1天）：進行輸出報表的設計。（機房）

5、第二周的周四：（1天）：全面進行系統調試。（機房）

6、第二周的周五：（1天）：作業檢查，提交報告及設計好的軟件。（機房）

五、考查方式

1、考勤20％

2、文檔40％

3、程序40％

六、地點

信管系機房正文:（1）可行性分析

計算機管理學生信息的意義：

在各大中小學校，用計算機管理學校的信息已經越來越普遍了。用計算機不但可以提高工作效率，而且還節省了許多人力物力，增強了學校資料的安全性。提高了學校的管理能力，為此，用計算機來管理學校的信息，是非常必要的。我作為一個計算機應用的大學生，希望能有所貢獻。用我三年的所學編制了一個實用的程序來幫助桂陽一中進行更有效的學籍檔案管理。

可行性研究：

目的：可行性研究的目的是用最小的代價在盡可能的時間內確定問題是否能夠解決。

經濟上可行性：

現在，計算機的價格已經十分低廉，性能卻有了長足的進步。而本系統的開發，為學校的工作效率帶來了一個質的飛躍，為此主要表現有以下幾個方面： 第一，本系統的運行可以代替人工進行許多繁雜的勞動； 第二，本系統的運行可以節省許多資源；

第三，本系統的運行可以大大的提高學校的工作效率； 第四，本系統可以使敏感文檔更加安全，等等。所以，本系統在經濟上是可行的。技術上可行性：

本系統的開發我利用Microsoft SQL Server2000作為本系統的數據庫，它是一個支持多用戶的新型數據庫，適用于大中規模的數據量需求。學校校園網的建設也為新系統服務器/客戶端的結構提供了硬件的支持。

使用Visual Basic6.0作為系統開發的開發環境，它作為一種現代的編程語言，提供完善的指令控制語句、類與對象的支持及豐富的數據類型，給開發高性能系統提供的保障為開發滿足客戶要求的系統，保證了代碼的模塊化要求，而代碼模塊化的提高，非常有利于以后對新系統的擴展與修改。綜上所述，本系統的設計與開發在技術上和硬件設備上的條件都是滿足的，因此，它在技術上是可行的。

運行上可行性：

本系統為一個小型的學生信息管理系統，所耗費的資源非常的小，學校的電腦無論是硬件還是軟件都能夠滿足條件，因此，本系統在運行上是可行的。法律可行性：

本系統純為私人設計，在開發過程中沒有涉及合同、責任等與法律相抵觸的方面。因此，本系統在法律上是可行的。

（2）系統分析部分 1）業務流程圖

用戶學生名單基本信息管理學生情況統計查詢瀏覽表操作人員學生學生登記表學生學籍學生學籍管理 各專業教學計劃教務管理學生成績學生成績管理學生成績單教師教學計劃排課課表學生

2）數據流程圖

用戶學生名單學生學生登記表學生信息管理學生學籍查詢瀏覽表查詢瀏覽表操作人員學生學籍管理各系部教學計劃教務管理學生成績學生成績管理學生成績單教師教學計劃排課課表打印課表學生

3）功能分析圖

學生信息管理系統用戶信息管理班級信息管理學籍信息管理課程信息管理成績信息管理獎懲信息管理個人信息查詢添加修改刪除用戶查看所有班級信息添加修改刪除班級信息查詢學生學籍信息添加修改刪除學生學籍信息查詢課程信息添加修改刪除課程信息查詢成績信息添加修改刪除成績信息查詢學生獎懲信息添加修改刪除獎懲信息按學號查詢個人信息

4）數據字典 數據存儲字典

（1）存儲文件名：班級和課程

標識符：class_Cour

數據結構：

班級號

class_No

課程名稱

course_Name(2)存儲文件名：班級信息

標識符：class_Form

數據結構：

班級號

class_No

班級名稱

class_Name

導員名稱

class_Teacher

備注信息

class_Remarks(3)存儲文件名：課程信息

標識符：course_Form

數據結構：

課程名

class_Name

課程列表

class_Rem(4)存儲文件名：獎懲信息

標識符：prize_Form

數據結構：

獎懲名

class_Name

獎懲列表

class_Rem(5)存儲文件名：獎懲信息

標識符：prize_Stud

數據結構：

獎懲號

prize_No

獎懲學號

prize_Stu

獎懲日期

prize_Data

獎懲名

prize_Name(6)存儲文件名：成績信息

標識符：score_Form

數據結構：

成績號

score_No

考試期號

score_Per

班級號

score_Cla

學號

score_Stu

科目

score_Cou

成績

score_Sco(7)存儲文件名：個人信息

標識符：student_Form

數據結構：

學號

student_No

姓名

student_Name

性別

student_Sex

出生日期

student_Bir

班級號

student_Cla

電話

student_Tel

入學日期

student_Esd

籍貫

student_Add

備注

student_Rem(8)存儲文件名：用戶信息

標識符：user_Form

數據結構：

用戶名

user_ID

登陸密碼

user_PWD

用戶日期

user_DATA 5）數據加工處理的描述

處理名：用戶名處理

處理過程：登陸學生信息管理系統后，點擊“用戶信息管理”后出現用戶信息管理界面，可以用于添加，修改，刪除用戶信息。

處理名：班級信息處理

處理過程：登陸學生信息管理系統后，點擊“班級信息管理”后出現班級信息管理界面，可以用于查詢所有班級信息和添加，修改，刪除班級信息。

處理名：學籍信息處理

處理過程：登陸學生信息管理系統后，點擊“學籍信息管理”后出現學籍信息管理界面，可以用于查詢所有學生學籍信息和添加，修改，刪除學生學籍信息。

處理名：課程信息處理

處理過程：登陸學生信息管理系統后，點擊“課程信息管理”后出現課程信息管理界面，可以用于查詢所有班級課程信息和添加，修改，刪除班級課程信息。

處理名：成績信息處理

處理過程：登陸學生信息管理系統后，點擊“成績信息管理”后出現成績信息管理界面，可以用于查詢所有成績信息和添加，修改，刪除成績信息。

處理名：獎懲信息處理

處理過程：登陸學生信息管理系統后，點擊“獎懲信息管理”后出現獎懲信息管理界面，可以用于查詢所有獎懲信息和添加，修改，刪除獎懲信息。

處理名：個人信息處理

處理過程：登陸學生信息管理系統后，點擊“個人信息管理”后出現個人信息管理界面，可以用于查詢個人信息。

6）管理信息系統流程設想圖（新系統模型）

（3）系統設計部分

1）功能結構圖設計

學生信息管理系統用戶信息管理班級信息管理學籍信息管理課程信息管理成績信息管理獎懲信息管理個人信息查詢添加用戶信息修改用戶信息刪除用戶信息查詢班級信息添加班級信息修改班級信息刪除班級信息查詢學籍信息添加學籍信息修改學籍信息刪除學籍信息查詢課程信息添加課程信息刪除課程信息添加成績信息查詢成績信息修改成績信息刪除成績信息查詢獎懲信息添加獎懲信息刪除獎懲信息查詢個人信息

2）新系統信息處理流程設計

3）輸出設計（主要指打印輸出設計）

4）存儲文件格式設計（數據庫結構設計）

5）輸入設計（主要指數據錄入卡設計）

6）代碼設計（職工證號和部門代號等）

7）程序設計說明書

（4）系統實施部分

1）程序框圖

2）源程序

學生信息管理圖形界面程序設計如下：

Dim i As Long Private Sub Form_Load()

Label1.ForeColor = &H8000000E

Label1.FontSize = 12

Label1.AutoSize = True

i = Image2.Width End Sub

Private Sub Form_Resize()

Image1.Top = 0

Image1.Left = 0

Image1.Height = Me.Height

Image1.Width = Me.Width

Image2.Top = Me.HeightImage2.Width

Label1.Top = Me.Height100 End Sub

Private Sub Timer1_Timer()

i = i + 50

Label1.Left = Me.Width1

.TextMatrix(.Rows1

End With

mrc.Close

OK = False

miCount = 0 End Sub

Private Sub cmdCancel_Click()

OK = False

Me.Hide End Sub

Private Sub cmdOK_Click()

txtSQL = “select * from user_Form where user_ID = '” & txtUserName.Text & “'”

Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = True Then

MsgBox “沒有這個用戶，請重新輸入用戶名!”, vbOKOnly + vbExclamation, “警告”

txtUserName.SetFocus

Else

If Trim(mrc.Fields(1))= Trim(txtPassword.Text)Then

OK = True

mrc.Close

Me.Hide

UserName = Trim(txtUserName.Text)

Else

MsgBox “輸入密碼不正確，請重新輸入！”, vbOKOnly + vbExclamation, “警告”

txtPassword.SetFocus

txtPassword.Text = “"

End If

End If

miCount = miCount + 1

If miCount = 3 Then

Me.Hide

End If

Exit Sub End Sub

Private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer)

EnterToTab KeyCode End Sub

Private Sub txtPassword_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Call cmdOK_Click

End If End Sub

Private Sub txtUserName_Click()

txtPassword.Text = ”“ End Sub

Private Sub txtUserName_KeyDown(KeyCode As Integer, Shift As Integer)

EnterToTab KeyCode End Sub

學生信息管理系統界面程序設計如下： Private Sub claiMenu_Click()

frmclai.Show End Sub

Private Sub couiMenu_Click()

frmcoui.Show End Sub

Private Sub cusiMenu_Click()

frmcusi.Show End Sub

Private Sub MDIForm_Load()

dColor.Show End Sub

Private Sub MDIForm_Resize()

If Me.Height > 1100 Then

dColor.Height = Me.Height180

End If End Sub

Private Sub prpiMenu_Click()

frmprpi.Show End Sub

Private Sub scoiMenu_Click()

frmscoi.Show End Sub

Private Sub stsiMenu_Click()

frmstsi.Show End Sub

Private Sub sumiMenu_Click()

frmsumi.Show End Sub

獎懲信息管理界面程序設計如下： Dim mrc As ADODB.Recordset Dim MsgText As String

Private Sub Command1_Click()

Dim txtSQL As String

If Text1(0)= ”“ Then

MsgBox ” 獎懲名稱不能為空!“, vbOKOnly, ”提示“

Text1(0).SetFocus

Exit Sub

End If

txtSQL = ”select * from prize_Form where prize_Name='“ & Trim(Text1(0))& ”'“

Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = False Then

MsgBox ”此獎懲名稱已經存在!“, vbOKOnly, ”警告“

Text1(0).SetFocus

Exit Sub

End If

mrc.Close

txtSQL = ”select * from prize_Form“

Set mrc = ExecuteSQL(txtSQL, MsgText)

mrc.AddNew

mrc.Fields(0)= Trim(Text1(0))

mrc.Fields(1)= Trim(Text1(1))

mrc.Update

mrc.Close

Text1(0)= ”“

Text1(1)= ”“

MsgBox ”獎懲信息添加成功!“, vbOKOnly, ”提示“

List1Text End Sub

Private Sub Command2_Click()

If List1.Text <> ”“ Then

txtSQL = ”delete from prize_Form where prize_Name='“ & Trim(List1.Text)& ”'“

Set mrc = ExecuteSQL(txtSQL, MsgText)

MsgBox ”獎懲信息已經刪除!“, vbOKOnly, ”提示“

List1Text

End If End Sub

Private Sub Form_Load()

MSFlexGrid1.Cols = 5

MSFlexGrid1.ColWidth(0)= 300

MSFlexGrid1.ColWidth(1)= 0

MSFlexGrid1.ColWidth(2)= 0

MSFlexGrid1.ColWidth(3)= 1200

MSFlexGrid1.ColWidth(4)= 1200

MSFlexGrid1.TextMatrix(0, 3)= ”獎懲日期“

MSFlexGrid1.TextMatrix(0, 4)= ”獎懲名稱“

MSFlexGrid1.Rows = 1

Text3(0)= GetRkno

List1Text End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label6(0).BackColor = &HC0C0C0

Label6(1).BackColor = &HC0C0C0 End Sub

Private Sub Form_Resize()

dColor.ZOrder 1 End Sub Private Sub List1Text()

Dim txSQL As String

Dim mrcc As ADODB.Recordset

txSQL = ”select * from prize_Form “

Set mrcc = ExecuteSQL(txSQL, MsgText)

List1.Clear

Do While Not mrcc.EOF

List1.AddItem Trim(mrcc!prize_Name)

mrcc.MoveNext

Loop

mrcc.Close End Sub

Private Function GetRkno()As String

GetRkno = Format(Now, ”yymmddhhmmss“)

Randomize

GetRkno = GetRkno & Int((991).Type

Case adDBDate

.TextMatrix(.Rows1)& ”“, ”yyyy-mm-dd“)

Case Else

.TextMatrix(.Rows1)& ”“

End Select

Next i

mrc.MoveNext

Loop

End With

mrc.Close End Sub

Private Sub Text2_Change()

Dim txtSQL As String

txtSQL = ”select * from prize_Stud where prize_Stu='“ & Trim(Text2)& ”'“

Set mrc = ExecuteSQL(txtSQL, MsgText)

ShowData End Sub

成績信息管理程序設計如下： Dim mrc As ADODB.Recordset Dim MsgText As String

Private Sub Combo1_Click(Index As Integer)

Dim txSQL As String

If Index = 0 Then

txSQL = ”select * from student_Form where student_Cla='“ & Trim(Combo1(0).Text)& ”'“

Set mrc = ExecuteSQL(txSQL, MsgText)

If mrc.EOF = True Then

MsgBox ”請先進行班級設置!“, vbOKOnly, ”提示“

Else

With Combo1(1)

.Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!student_NO)

mrc.MoveNext

Loop

End With

End If

txSQL = ”select * from class_Cour where class_NO='“ & Trim(Combo1(0).Text)& ”'“

Set mrc = ExecuteSQL(txSQL, MsgText)

If mrc.EOF = True Then

MsgBox ”請先進行班級設置!“, vbOKOnly, ”提示“

Else

With Combo1(2)

.Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!course_Name)

mrc.MoveNext

Loop

End With

End If

End If End Sub

Private Sub Combo2_Click(Index As Integer)

Dim txSQL As String

If Index = 0 Then

txSQL = ”select DISTINCT score_Stu from score_Form where score_Cla='“ & Trim(Combo2(0).Text)& ”'“

Set mrc = ExecuteSQL(txSQL, MsgText)

If mrc.EOF = False Then

With Combo2(1)

.Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!score_Stu)

mrc.MoveNext

Loop

End With

End If

txSQL = ”select DISTINCT score_Cou from score_Form where score_Cla='“ & Trim(Combo2(0).Text)& ”'“

Set mrc = ExecuteSQL(txSQL, MsgText)

If mrc.EOF = False Then

With Combo2(2)

.Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!score_Cou)

mrc.MoveNext

Loop

End With

End If

End If End Sub

Private Sub Combo3_Click(Index As Integer)

Dim txSQL As String

If Index = 0 Then

txSQL = ”select * from student_Form where student_Cla='“ & Trim(Combo3(0).Text)& ”'“

Set mrc = ExecuteSQL(txSQL, MsgText)

If mrc.EOF = False Then

With Combo3(1)

.Clear

Do While Not mrc.EOF

If mrc!student_NO <>.Text Then

.AddItem Trim(mrc!student_NO)

End If

mrc.MoveNext

Loop

End With

End If

txSQL = ”select * from class_Cour where class_NO='“ & Trim(Combo3(0).Text)& ”'“

Set mrc = ExecuteSQL(txSQL, MsgText)

If mrc.EOF = False Then

With Combo3(2)

.Clear

Do While Not mrc.EOF

If mrc!course_Name <>.Text Then

.AddItem Trim(mrc!course_Name)

End If

mrc.MoveNext

Loop

End With

End If

End If End Sub

Private Sub Command1_Click()

Dim txtSQL As String

If Text1(1)= ”“ Then

MsgBox ”考試期號不能為空!“, vbOKOnly, ”提示“

Text1(1).SetFocus

Exit Sub

End If

If Combo1(0).Text = ”“ Then

MsgBox ”學生班號不能為空!“, vbOKOnly, ”提示“

Combo1(0).SetFocus

Exit Sub

End If

If Combo1(1).Text = ”“ Then

MsgBox ”學生編號不能為空!“, vbOKOnly, ”提示“

Combo1(1).SetFocus

Exit Sub

End If

If Combo1(2).Text = ”“ Then

MsgBox ”考試課程不能為空!“, vbOKOnly, ”提示“

Combo1(2).SetFocus

Exit Sub

End If

If Text1(2)= ”“ Then

MsgBox ”考試分數不能為空!“, vbOKOnly, ”提示“

Text1(2).SetFocus

Exit Sub

End If

txtSQL = ”select * from score_Form where score_Per='“ & Trim(Text1(1))& ”' and score_Cla='“ & Trim(Combo1(0).Text)& ”' and score_Stu='“ & Trim(Combo1(1).Text)& ”'And score_Cou='“ & Trim(Combo1(2).Text)& ”'“

Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = False Then

MsgBox ”同次同人同科只能添加一次“, vbOKOnly, ”警告“

Text1(2)= ”“

Combo1(0).SetFocus

Exit Sub

End If

txtSQL = ”select * from score_Form“

Set mrc = ExecuteSQL(txtSQL, MsgText)

mrc.AddNew

mrc.Fields(0)= Trim(Text1(0))

mrc.Fields(1)= Trim(Text1(1))

mrc.Fields(2)= Trim(Combo1(0).Text)

mrc.Fields(3)= Trim(Combo1(1).Text)

mrc.Fields(4)= Trim(Combo1(2).Text)

mrc.Fields(5)= Trim(Text1(2))

mrc.Update

mrc.Close

MsgBox ”考試信息添加成功!“, vbOKOnly, ”提示“

With MSFlexGrid1

.Rows =.Rows + 1

.TextMatrix(.Rows1, 1)= Trim(Text1(1))

.TextMatrix(.Rows1, 3)= Trim(Combo1(1).Text)

.TextMatrix(.Rows1, 5)= Trim(Text1(2))

End With

Text1(2)= ”“

Combo1(0).Clear

txtSQL = ”select * from class_Form“

Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = False Then

With Combo1(0)

.Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!class_NO)

mrc.MoveNext

Loop

End With

End If

Combo1(1).Clear

Combo1(2).Clear

Text1(0)= GetRkno

MSFlexGrid1.TopRow = MSFlexGrid1.Rows1

Select Case mrc.Fields(i).Type

Case adDBDate

.TextMatrix(.Rows1, i)= mrc.Fields(i)& ”“

End Select

Next i

mrc.MoveNext

Loop

.Visible = True

End With

Frame1.Visible = False

mrc.Close

Text2(1)= ”“

txSQL = ”select DISTINCT score_Cla from score_Form“

Set mrc = ExecuteSQL(txSQL, MsgText)

If mrc.EOF = False Then

With Combo2(0)

.Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!score_Cla)

mrc.MoveNext

& ”“, 46

Loop

End With

End If

Combo2(1).Clear

Combo2(2).Clear

Text2(2)= ”“ End Sub

Private Sub Command4_Click()

Dim txtSQL As String

Text2(1)= ”“

txtSQL = ”select DISTINCT score_Cla from score_Form“

Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = False Then

With Combo2(0)

.Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!score_Cla)

mrc.MoveNext

Loop

End With

End If

Combo2(1).Clear

Combo2(2).Clear

Text2(2)= ”“ End Sub

Private Sub Command5_Click()

Dim j As Integer

Dim txtSQL As String

If Text3(0)= ”“ Then

MsgBox ”清選擇要修改的紀錄!“, vbOKOnly, ”提示“

MSFlexGrid1.SetFocus

Exit Sub

End If

If Text3(1)= ”“ Then

MsgBox ”考試期號不能為空!“, vbOKOnly, ”提示“

Text3(1).SetFocus

Exit Sub

End If

If Combo3(0).Text = ”“ Then

MsgBox ”學生班號不能為空!“, vbOKOnly, ”提示“

Combo3(0).SetFocus

Exit Sub

End If

If Combo3(1).Text = ”“ Then

MsgBox ”學生編號不能為空!“, vbOKOnly, ”提示“

Combo3(1).SetFocus

Exit Sub

End If

If Combo3(2).Text = ”“ Then

MsgBox ”考試課程不能為空!“, vbOKOnly, ”提示“

Combo3(2).SetFocus

Exit Sub

End If

If Text3(2)= ”“ Then

MsgBox ”考試分數不能為空!“, vbOKOnly, ”提示“

Text3(2).SetFocus

Exit Sub

End If

txtSQL = ”select * from score_Form where score_NO<>'“ & Trim(Text3(0))& ”' And score_Per='“ & Trim(Text3(1))& ”' and score_Cla='“ & Trim(Combo3(0).Text)& ”' and score_Stu='“ & Trim(Combo3(1).Text)& ”'And score_Cou='“ & Trim(Combo3(2).Text)& ”'“

Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = False Then

MsgBox ”同次同人同科只能添加一次“, vbOKOnly, ”警告“

Text3(2)= ”“

Combo3(0).SetFocus

Exit Sub

End If

txtSQL = ”Delete from score_Form where score_NO='“ & Trim(Text3(0))& ”'“

Set mrc = ExecuteSQL(txtSQL, MsgText)

txtSQL = ”select * from score_Form“

Set mrc = ExecuteSQL(txtSQL, MsgText)

mrc.AddNew

mrc.Fields(0)= Trim(Text3(0))

mrc.Fields(1)= Trim(Text3(1))

mrc.Fields(2)= Trim(Combo3(0).Text)

mrc.Fields(3)= Trim(Combo3(1).Text)

mrc.Fields(4)= Trim(Combo3(2).Text)

mrc.Fields(5)= Trim(Text3(2))

mrc.Update

mrc.Close

MsgBox ”考試信息修改成功!“, vbOKOnly, ”提示"

j = 0

For i = 1 To MSFlexGrid1.Rows1

第三篇：MIS課程設計實驗心得體會

MIS課程設計實驗心得體會

一：在此試驗中調研階段：在網上觀察了淘寶、京東商城的物品購買流程以及所用到的編碼格式以及一些我們在后面的程序設計中需要到得各種模式。

二：系統設計與分析階段我做的任務是：購物車模塊，訂單模塊和后臺管理模塊的庫存管理部分。所畫的圖有：

購物車業務流程圖、購物車數據流程圖、購物車功能結構圖

訂單業務流程圖、訂單數據流程圖、訂單功能結構圖

庫存管理業務流程圖、庫存管理數據流程圖、庫存功能結構圖

第二層數據流程圖、整體業務流程圖、整體E-R圖總計十四張圖。

然后又詳細寫了相對應數據流程圖的數據字典包括數據項的定義、數據結構的定義、數據流的定義、處理邏輯的定義、數據存儲的定義以及外部實體的定義。然后又通過加入所學過的管理理念和思想結合我們組所做的網上超市進行了分析和總結。其中用到了運籌學、電子支付與安全、物流與供應鏈管理這三門課程所學過的知識。

三：在系統實現階段我的主要任務是：做程序的購物車模塊、訂單模塊、以及后臺部分。主要是利用JSP和Servlet數據庫使用的是SQL2005.四：通過三周的課程設計，在老師的熱心幫助和指導下，我們最終順利完成了莘莘網上超市管理信息系統課程設計報告。總的來說，我們對自己所做的工作及獲得的成果還是比較滿意的。系統運行基本達到了預期目標，課程設計報告通過系統可行性分析報告、系統分析報告、系統設計報告三部分詳細完整地記錄了系統開發的過程。

在本次系統開發的過程中，我們小組成員以極大的熱情投入到工作中去，我們目標一致、分工明確，大家在完成自己工作的基礎上溝通交流，互幫互助。有效的解決了設計過程中的許多難題，但都在陸老師的悉心指導下一一克服了，同時也收獲了很多。

首先，我們通過實際運用所學知識更深刻地理解了MIS，懂得了業務流程圖的畫法以及應該注意到的問題，還有數據流程圖的畫法以及對數據項、數據結構、數據流、處理邏輯、外部實體、數據存儲的定義方法和規則。然后將管理知識和現代化系統開發技術相結合，以達到我們的最終目標；比如說我們在設計的過程中運用到了我們之前所學過的運籌學、物流與供應鏈管理、商務智能、管理決策與分析、客戶關系管理、電子支付與安全等方面的知識。深深感覺到了我們所學過的知識的重要性以及各個學科的綜合運用是那么的重要。

其次，系統的設計過程鍛煉了我們的邏輯能力，要完成一個任務有很多種途徑，如何選取最優解并將每一步的最優解銜接，然后以圖表方式表現出來是非常考驗人的，在繁復的設計過程中我們的思路更加清晰，視野更加開闊；我記得剛開始的時候把自己所畫的圖交給老師看，出現了各種各樣的錯誤和不足之處，但老師非常耐心的給我們講解，然后在后面的每一天里我們都會準時找到老師分析

自己所畫的圖，對自己的圖修改了一遍又一遍，復印了一遍又一遍，在一遍又一遍的完善之下，最后終于功夫不負有心人，我看到最終自己畫的圖感到很驕傲。

第三，小組內部溝通是很重要的，也許在給隊友講解的時間自己已經能完成任務，但是為了大家整體思想的統一，必須多次交換意見，力求使彼此間信息對稱、理解一致，同時，我們也學會了面對和接受不同的意見，在交流中找到最佳解決方案；比如說不同的人對不同的業務有著不同的想法。剛開始的時候我們組先是按照淘寶購物的模式來進行分析設計我們這所網站的，但是進行到中間的時候一組員突然提到了京東商城，感覺我們這所網站還是按照京東商城的模式設計比較好，然后又進行了大量的修改，在此過程中有支持淘寶利用第三方支付平臺模式的，有支持京東那樣直接支付到商城模式的。還有就是在訂單設計的時候也遇到了很多的分歧，比如說初始訂單和預定訂單問題，我們討論了很長時間，最后決定把他們看做是一種訂單。

第四，要有刻苦鉆研的精神，這次設計不僅運用了本次課程的知識，同時也結合了以前學過的知識，有些軟件成員們都不會用或者忘記了，而且許多設計環節工作量很大，但小組成員們都很努力，我們刻苦鉆研，最終把困難各個擊破。同時，在此次設計當中認我認識到開發一項好的軟件不是某一個人就能完成的任務。一個團隊的小組，一個勤奮的小組非常重要，溝通是解決問題的就好辦法。所以小組中的每個成員的能力與協作能力也是致關重要的，不僅是團隊內部的交流，更多需要協調好團隊之間的交流。

然后呢，在實習中我了解了，在開發一個項目時一定要先做好規劃，按照軟件的開發過程，詳細地寫好每一個必要的文檔。

由于我們的知識水平有限，并且是第一次做這樣的設計，有些設計環節應該不是很完善，希望老師及同學們能多多指點。

第四篇：MIS(管理信息系統)課程設計個人總結

課 程 設 計 總 結

姓名：李斌 專業：財務管理

學號：1145543131

課程設計個人總結

本次課程設計持續了1個星期，時間非常緊張，我們的課題是企業人力資源管理系統，我們小組由7個人組成，需要完成企業人力資源管理系統子系統的開發、調試與運行，此外還要撰寫課程設計報告。我的工作主要是課程設計報告的整理兼撰寫。但實際上每個文檔之間都有著聯系，僅僅做自己分配到的部分是不夠的，系統分為哪些模塊以及各模塊的功能都需要大家一起討論確定，統一思路，否則文檔無法銜接，課程設計無法完成。

人力資源的各大模塊的工作各有側重點，但是各大模塊是不可分割的，就像生物鏈一樣，任何一個環節的缺失都會影響整個系統的失衡。HR工作是一個有機的整體，各個環節的工作都必須到位，同時要根據不同的情況，不斷地調整工作的重點，才能保證人力資源管理保持良性運作，并支持企業戰略目標的最終實現。

我們在分工編寫文檔前先在一起討論確定了系統的主要模塊和每個模塊的功能，統一它們的名稱，然后各自編寫文檔，發現應該添加新功能或原先的設計有問題時再一起討論，統一修改，防止文檔出現偏差。通過大家的討論，發現很多問題和沒有想到的細節，在不斷發現問題，不斷改正錯誤、不斷完善系統設計的過程中，我們對人力資源系統的理解和研究也越來越深入，也使我們認識到團隊的力量。

課程設計需要使用很多建模和作圖工具軟件，例如Visio、rose，以及網頁制作、圖像處理軟件，同時需要查閱資料和做一些必要的調研。雖然平時上課這些軟件的使用老師都講過，考試也能通過，但當用這些軟件和課本上的知識來獨立地設計一個實際的系統時，很多問題就暴露出來了，比如什么時候要用E-R圖、什么時候要用流程圖，雖然這些圖我們每個人都會畫，但是這些圖是用來描述什么的、作用是什么、什么時候需要使用這些圖我們卻不是很清楚。

課程設計是培養學生綜合運用所學知識,發現、提出、分析和解決實際問題,鍛煉實踐能力的重要環節，這次課程設計雖然很累，但我學到了不少東西，對軟件的設計過程和方法有了更深入的了解，培養了我們的團隊精神，鍛煉了我們的溝通和表達能力。通過這次課程設計使我懂得了理論與實際相結合是很重要的，只有理論知識是遠遠不夠的，只有把所學的理論知識與實踐相結合起來，才能真正為社會服務，從而提高自己的實際動手能力和獨立思考的能力。

通過此次課程設計，使我更加扎實的掌握了有關人力資源管理系統方面的知識，在設計過程中雖然遇到了一些問題，但經過一次又一次的思考，一遍又一遍的檢查終于找出了原因所在，也暴露出了前期我在這方面的知識欠缺和經驗不足。實踐出真知，通過親自動手制作，使我們掌握的知識不再是紙上談兵。

在課程設計過程中，我們不斷發現錯誤，不斷改正，不斷領悟，不斷獲取。最終的檢測調試環節，本身就是在踐行“過而能改，善莫大焉”的知行觀。這次課程設計終于順利完成了，在設計中遇到了很多問題，最后在大家的努力下，終于游逆而解。在今后社會的發展和學習實踐過程中，一定要不懈努力，不能遇到問題就想到要退縮，一定要不厭其煩的發現問題所在，然后一一進行解決，只有這樣，才能成功的做成想做的事，才能在今后的道路上劈荊斬棘，而不是知難而退，那樣永遠不可能收獲成功，收獲喜悅，也永遠不可能得到社會及他人對你的認可！

課程設計誠然是一門專業課，給我很多專業知識以及專業技能上的提升，同時又是一門講道課，一門辯思課，給了我許多道，給了我很多思，給了我莫大的空間。回顧起此課程設計，至今我仍感慨頗多，從理論到實踐，我學到很多很多的東西，同時不僅可以鞏固了以前所學過的知識，而且學到了很多在書本上所沒有學到過的知識。

第五篇：《管理信息系統MIS》課程設計教學大綱

《管理信息系統》課程設計教學大綱 Management Information System

課程編號：

適用專業：經濟學、管理學 非信息類各專業

本科生 課程性質和教學目的

本設計是與為經濟學、管理學 非信息類各專業 本科生開設的主干專業課程《管理信息系統MIS》配套的課程設計，是其必修實踐環節。本設計要使學生采用本課程中學習的信息系統開發的以數據庫為中心的原型法，運用其基本方法與主要圖表工具完成一個自己所了解的小業務的信息系統系統分析與設計，用自己熟悉的數據庫管理系統、程序設計語言及其相關開發工具實現該系統，并運行、評價、改進之；在此基礎上嚴格按本大綱所附報告提綱撰寫課程設計報告。通過本設計進一步弄懂管理信息系統及其相關的基本概念，理解企業管理決策與管理信息系統之間的依存互動關系，把握與信息系統密切相關的管理決策理論與方法，掌握管理信息系統開發的原則、方法、方式、策略及其基本過程與項目管理，領悟信息系統開發的基本思路和基本過程，初步具備用原型法開發與管理管理信息系統的基本能力，初步形成在計算機網絡平臺上，運用現代管理理論與方法，解決管理決策中的實際問題的基本素質。

設計內容與要求

參見附錄《管理信息系統MIS》課程設計報告提綱

設計過程與步驟

要求學生在數據庫應用課程設計的基礎上，選擇自己了解的一項管理業務，運用原型法，分析、設計、實現一個業務信息系統，并運行、評價改進之，最后要寫出課程設計報告。

課程設計分3個階段進行：首先，結合課堂教學，在學生已完成數據庫應用課程設計的基礎上，安排學生逐步完成選題和資料準備，課堂教學完成結構化系統分析后開始組織學生初步完成系統分析與總體設計；然后，在期末2周的課程設計階段，在教師的面對面與網上指導下，完成系統分析、系統設計，做好系統實現計劃，撰寫包含這些內容的課程設計報告初稿并用Email交初稿；教師在假期的頭幾天批改，提出指導意見用Email返回給學生，學生在假期中，在老師網上指導下全面完成課程設計，撰寫并經過教師網上指導修改，完成課程設計報告；開學時交課程設計報告的打印稿和有完整的可運行軟件與設計報告的電子文檔的光盤。

成績評定：按課程設計報告提綱逐條逐項定出評分標準，逐項給出成績，最后計算總分。建議教材與教學參考書

參考書目

[1] Stephen Haag, Maeve Cummings, James Dawkins: Management Information Systems for the Information Age.機械工業出版社, 英文版,1998.[2] E.F.Peter Newson, Michael Parent: Management Information System Case.機械工業出版社,英文版,1998.[3] 薛華成，管理信息系統（第三版），清華大學出版社，1999.[4] 張海藩，軟件工程導輪（第三版），清華大學出版社，1999.[5] 黃梯云，管理信息系統，北京：經濟科學出版社，1999。

[6] 王曉銘，管理信息系統及其開發技術，北京：電子工業出版社，1999。

附錄

MIS課程設計報告提綱

（經濟學 管理學 非信息類專業 本科用）

封面：課題名稱，與內容相符合的畫面，設計人姓名、專業、班級、學號，日期。要美觀大方，具有創新性。

目錄：有序號、標題、頁碼，布局合理

報告內容

概述：系統的基本任務，主要業務，開發目標 1． 系統分析

1.1 用戶需求：系統現狀，要解決的主要問題，達到的具體指標等。

1.2 可行性研究：幾個可供選擇的初步方案，從技術、經濟、社會三個方面分析系統開發的必要性、可能性和有益性。

1.3 現狀調查：現狀的業務流程圖及其相關單據票證帳簿報表，現狀評價。

1.4 目標分析：由現狀的相關單據票證帳簿報表找出要長期存儲的基本項，寫出由基本項構思ERD的四條原則及相應得出的實體、聯系及其屬性，畫出ERD（不少于兩個主實體，一個聯系和16個屬性）；寫出由ERD導出一般關系模型的四條原則，列出數據存儲初步構思的關系框架，進而分析IT帶來的變化，從而作BPR/BPI，畫出新的業務流程圖；畫出功能層次圖。系統設計

2.1 總體設計

2.1.1 一般關系模型設計：如果與系統分析中的初步構思沒有什么不同，則可用文字說明而不必再列表。

2.1.2 處理流程總體設計：設計歡迎畫面、主控菜單。

2.1.3 系統平臺的總體結構設計：設想所開發業務系統所用的MIS的網絡拓撲結構、計算機系統和網絡連接設備的邏輯功能。

2.2 詳細設計

2.2.1 代碼系統設計：寫出代碼設計的基本原則，設計主要的代碼（不少于2種）。2.2.2 數據庫結構的具體設計：按所選用的DBMS設計數據庫表的具體框架及其完整性說明；設計用戶視圖。

2.2.3 模塊設計：設計輸出模塊、輸入模塊、接口模塊的方式、格式，機內模塊的框圖。（至少有兩層菜單、1個查詢模塊和1個報表生成模塊）。系統實現

3.1 數據庫表結構的建立與數據輸入：建立表結構，輸入計算機并打印出來；輸入數據并打印出來；建立用戶視圖，并打印出來。3.2 應用程序設計與測試：編寫各應用程序，輸入并打印出來；或打印出表單和菜單畫面、方法程序；敘述測試中的問題與解決方法。系統運行

4.1 寫出系統操作使用的簡要說明。

4.2 運行系統并打印出運行結果（至少有1個查詢結果和1個報表輸出結果）。

4.3 系統評價：采用的有特色的技術與技巧；成功之處與主要特點；系統會改進完善之處和進一步工作的打算；自己通過本設計所得到的收獲、體會。

說明：本提綱按以數據庫為中心的原型法開發一個業務小系統并以vb+sql server 2005實現 為前提來討論，但鼓勵學生用結構化方法來完成課程設計，其報告可參照本提綱撰寫，基本內容應不少于本提綱的要求。