第一篇：mis教務管理課程設計
MIS(管理信息系統)課程設計個人總結
課 程 設 計 總 結
姓名：李斌 專業：財務管理
學號：1145543131
課程設計個人總結
本次課程設計持續了1個星期，時間非常緊張，我們的課題是企業人力資源管理系統，我們小組由7個人組成，需要完成企業人力資源管理系統子系統的開發、調試與運行，此外還要撰寫課程設計報告。我的工作主要是課程設計報告的整理兼撰寫。但實際上每個文檔之間都有著聯系，僅僅做自己分配到的部分是不夠的，系統分為哪些模塊以及各模塊的功能都需要大家一起討論確定，統一思路，否則文檔無法銜接，課程設計無法完成。
人力資源的各大模塊的工作各有側重點，但是各大模塊是不可分割的，就像生物鏈一樣，任何一個環節的缺失都會影響整個系統的失衡。HR工作是一個有機的整體，各個環節的工作都必須到位，同時要根據不同的情況，不斷地調整工作的重點，才能保證人力資源管理保持良性運作，并支持企業戰略目標的最終實現。
我們在分工編寫文檔前先在一起討論確定了系統的主要模塊和每個模塊的功能，統一它們的名稱，然后各自編寫文檔，發現應該添加新功能或原先的設計有問題時再一起討論，統一修改，防止文檔出現偏差。通過大家的討論，發現很多問題和沒有想到的細節，在不斷發現問題，不斷改正錯誤、不斷完善系統設計的過程中，我們對人力資源系統的理解和研究也越來越深入，也使我們認識到團隊的力量。
課程設計需要使用很多建模和作圖工具軟件，例如Visio、rose，以及網頁制作、圖像處理軟件，同時需要查閱資料和做一些必要的調研。雖然平時上課這些軟件的使用老師都講過，考試也能通過，但當用這些軟件和課本上的知識來獨立地設計一個實際的系統時，很多問題就暴露出來了，比如什么時候要用E-R圖、什么時候要用流程圖，雖然這些圖我們每個人都會畫，但是這些圖是用來描述什么的、作用是什么、什么時候需要使用這些圖我們卻不是很清楚。
課程設計是培養學生綜合運用所學知識,發現、提出、分析和解決實際問題,鍛煉實踐能力的重要環節，這次課程設計雖然很累，但我學到了不少東西，對軟件的設計過程和方法有了更深入的了解，培養了我們的團隊精神，鍛煉了我們的溝通和表達能力。通過這次課程設計使我懂得了理論與實際相結合是很重要的，只有理論知識是遠遠不夠的，只有把所學的理論知識與實踐相結合起來，才能真正為社會服務，從而提高自己的實際動手能力和獨立思考的能力。
通過此次課程設計，使我更加扎實的掌握了有關人力資源管理系統方面的知識，在設計過程中雖然遇到了一些問題，但經過一次又一次的思考，一遍又一遍的檢查終于找出了原因所在，也暴露出了前期我在這方面的知識欠缺和經驗不足。實踐出真知，通過親自動手制作，使我們掌握的知識不再是紙上談兵。
在課程設計過程中，我們不斷發現錯誤，不斷改正，不斷領悟，不斷獲取。最終的檢測調試環節，本身就是在踐行“過而能改，善莫大焉”的知行觀。這次課程設計終于順利完成了，在設計中遇到了很多問題，最后在大家的努力下，終于游逆而解。在今后社會的發展和學習實踐過程中，一定要不懈努力，不能遇到問題就想到要退縮，一定要不厭其煩的發現問題所在，然后一一進行解決，只有這樣，才能成功的做成想做的事，才能在今后的道路上劈荊斬棘，而不是知難而退，那樣永遠不可能收獲成功，收獲喜悅，也永遠不可能得到社會及他人對你的認可!
課程設計誠然是一門專業課，給我很多專業知識以及專業技能上的提升，同時又是一門講道課，一門辯思課，給了我許多道，給了我很多思，給了我莫大的空間?；仡櫰鸫苏n程設計，至今我仍感慨頗多，從理論到實踐，我學到很多很多的東西，同時不僅可以鞏固了以前所學過的知識，而且學到了很多在書本上所沒有學到過的知識。
第二篇：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
五.附錄或參考資料
1 設計任務書
信管專業
2004級MIS課程設計任務書
一、設計目的：
通過本次設計，要求同學們能夠將所學到的信息系統分析方法與軟件設計技術及方法綜合運用到實際信息系統的分析與設計中，提高同學們對軟件的綜合分析與設計能力，主要包括對數據的分析、組織能力，數據的提取、處理能力;軟件結構的分析設計，復雜界面與輸入輸出設計能力;學習常用軟件開發工具的使用。
二、設計內容： 學生學籍管理系統：
1、系統需求：
本系統主要是用于學生基本信息的管理。該系統可以完成對學生信息添加、班級管理、查找等操作,能夠對學生信息進行方便有效的科學管理。
2、主要功能描述 1)權限管理
主要是用戶的等級和權限的劃分。分3級管理員，超級用戶、只讀用戶、普通用戶，權限可以自定義添加和刪除。 2)班級管理
添加班級、瀏覽班級、查詢班級。 3)學生檔案管理
瀏覽檔案、添加檔案、查詢檔案。
4)課程設置：基本課程設置和班級課程設置。
5)成績管理：考試類型設置、成績添加瀏覽和查詢。
6)打印報表：可以打印學生的檔案和成績等相關的信息報表。
三、設計要求
結合所學習的系統分析與設計的具體方法，應用程序設計的基本知識和數據庫知識進行詳細的系統分析設計。具體要求如下：
1、學習進行相對復雜數據的分析與設計，建立合理的數據模型。
2、學習使用VB的數據環境設計器和數據報表設計器進行報表輸出設計。
3、學習使用visio工具進行常用軟件圖形的繪制。
4、進一步熟練進行軟件系統的界面設計，深入掌握界面設計元素。
5、提供相應的軟件設計報告。報告要求有系統的需求分析、系統流程圖、數據流程圖、軟件結構圖、數據庫設計說明和軟件說明書。
6、提供與設計報告相一致的軟件系統。
7、每四人為一個課題組，自由組合，檢查相應的小組討論，討論結果計入平時成績。
8、報告書寫規范見附件。
四、時間安排(共兩周10天)
1、第一周的周
一、周二(2天)：查閱資料、進行系統的需求分析，要求畫出
2 系統的業務流程圖及數據流程圖，并設計各類報表的格式。(圖書館)
2、第一周的周三到周五(3天)：并進行詳細的數據分析，建立數據字典，并進行數據庫及數據查詢設計。(機房)
3、第二周的周一周二(2天)：進行軟件結構設計，包括軟件功能的劃分、輸入輸出界面的設計。(機房)
4、第二周的周三：(1天)：進行輸出報表的設計。(機房)
5、第二周的周四：(1天)：全面進行系統調試。(機房)
6、第二周的周五：(1天)：作業檢查，提交報告及設計好的軟件。(機房)
五、考查方式
1、考勤20%
2、文檔40%
3、程序40%
六、地點
信管系機房
3 正文: (1)可行性分析
計算機管理學生信息的意義：
在各大中小學校，用計算機管理學校的信息已經越來越普遍了。用計算機不但可以提高工作效率，而且還節省了許多人力物力，增強了學校資料的安全性。提高了學校的管理能力，為此，用計算機來管理學校的信息，是非常必要的。 我作為一個計算機應用的大學生，希望能有所貢獻。用我三年的所學編制了一個實用的程序來幫助桂陽一中進行更有效的學籍檔案管理。
可行性研究：
目的：可行性研究的目的是用最小的代價在盡可能的時間內確定問題是否能夠解決。
經濟上可行性：
現在，計算機的價格已經十分低廉，性能卻有了長足的進步。而本系統的開發，為學校的工作效率帶來了一個質的飛躍，為此主要表現有以下幾個方面： 第一，本系統的運行可以代替人工進行許多繁雜的勞動; 第二，本系統的運行可以節省許多資源;
第三，本系統的運行可以大大的提高學校的工作效率; 第四，本系統可以使敏感文檔更加安全，等等。 所以，本系統在經濟上是可行的。 技術上可行性：
本系統的開發我利用Microsoft SQL Server2000作為本系統的數據庫，它是一個支持多用戶的新型數據庫，適用于大中規模的數據量需求。學校校園網的建設也為新系統服務器/客戶端的結構提供了硬件的支持。
使用Visual Basic6.0作為系統開發的開發環境，它作為一種現代的編程語言，提供完善的指令控制語句、類與對象的支持及豐富的數據類型，給開發高性能系統提供的保障為開發滿足客戶要求的系統，保證了代碼的模塊化要求，而代碼模塊化的提高，非常有利于以后對新系統的擴展與修改。 綜上所述，本系統的設計與開發在技術上和硬件設備上的條件都是滿足的，因此，它在技術上是可行的。
運行上可行性：
本系統為一個小型的學生信息管理系統，所耗費的資源非常的小，學校的電腦無論是硬件還是軟件都能夠滿足條件，因此，本系統在運行上是可行的。 法律可行性：
本系統純為私人設計，在開發過程中沒有涉及合同、責任等與法律相抵觸的方面。因此，本系統在法律上是可行的。
(2)系統分析部分
4 1)業務流程圖
用戶學生名單基本信息管理學生情況統計查詢瀏覽表操作人員學生學生登記表學生學籍學生學籍管理 各專業教學計劃教務管理學生成績學生成績管理學生成績單教師教學計劃排課課表學生
2)數據流程圖
5 用戶學生名單學生學生登記表學生信息管理學生學籍查詢瀏覽表查詢瀏覽表操作人員學生學籍管理各系部教學計劃教務管理學生成績學生成績管理學生成績單教師教學計劃排課課表打印課表學生
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
22
.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
34
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))
36
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 "
37
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
40 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)
41
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)
42
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
43
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
47
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
49
第三篇：MIS課程設計實驗心得體會
一：在此試驗中調研階段：在網上觀察了淘寶、京東商城的物品購買流程以及所用到的編碼格式以及一些我們在后面的程序設計中需要到得各種模式。
二：系統設計與分析階段我做的任務是：購物車模塊，訂單模塊和后臺管理模塊的庫存管理部分。所畫的圖有：
購物車業務流程圖、購物車數據流程圖、購物車功能結構圖
訂單業務流程圖、訂單數據流程圖、訂單功能結構圖
庫存管理業務流程圖、庫存管理數據流程圖、庫存功能結構圖
第二層數據流程圖、整體業務流程圖、整體E-R圖總計十四張圖。
然后又詳細寫了相對應數據流程圖的數據字典包括數據項的定義、數據結構的定義、數據流的定義、處理邏輯的定義、數據存儲的定義以及外部實體的定義。然后又通過加入所學過的管理理念和思想結合我們組所做的網上超市進行了分析和總結。其中用到了運籌學、電子支付與安全、物流與供應鏈管理這三門課程所學過的知識。
三：在系統實現階段我的主要任務是：做程序的購物車模塊、訂單模塊、以及后臺部分。主要是利用JSP和Servlet數據庫使用的是SQL2005.
四：通過三周的課程設計，在老師的熱心幫助和指導下，我們最終順利完成了莘莘網上超市管理信息系統課程設計報告?？偟膩碚f，我們對自己所做的工作及獲得的成果還是比較滿意的。系統運行基本達到了預期目標，課程設計報告通過系統可行性分析報告、系統分析報告、系統設計報告三部分詳細完整地記錄了系統開發的過程。
在本次系統開發的過程中，我們小組成員以極大的熱情投入到工作中去，我們目標一致、分工明確，大家在完成自己工作的基礎上溝通交流，互幫互助。有效的解決了設計過程中的許多難題，但都在陸老師的悉心指導下一一克服了，同時也收獲了很多。
首先，我們通過實際運用所學知識更深刻地理解了MIS，懂得了業務流程圖的畫法以及應該注意到的問題，還有數據流程圖的畫法以及對數據項、數據結構、數據流、處理邏輯、外部實體、數據存儲的定義方法和規則。然后將管理知識和現代化系統開發技術相結合，以達到我們的最終目標;比如說我們在設計的過程中運用到了我們之前所學過的運籌學、物流與供應鏈管理、商務智能、管理決策與分析、客戶關系管理、電子支付與安全等方面的知識。深深感覺到了我們所學過的知識的重要性以及各個學科的綜合運用是那么的重要。
其次，系統的設計過程鍛煉了我們的邏輯能力，要完成一個任務有很多種途徑，如何選取最優解并將每一步的最優解銜接，然后以圖表方式表現出來是非?？简炄说?，在繁復的設計過程中我們的思路更加清晰，視野更加開闊;我記得剛開始的時候把自己所畫的圖交給老師看，出現了各種各樣的錯誤和不足之處，但老師非常耐心的給我們講解，然后在后面的每一天里我們都會準時找到老師分析
自己所畫的圖，對自己的圖修改了一遍又一遍，復印了一遍又一遍，在一遍又一遍的完善之下，最后終于功夫不負有心人，我看到最終自己畫的圖感到很驕傲。
第三，小組內部溝通是很重要的，也許在給隊友講解的時間自己已經能完成任務，但是為了大家整體思想的統一，必須多次交換意見，力求使彼此間信息對稱、理解一致，同時，我們也學會了面對和接受不同的意見，在交流中找到最佳解決方案;比如說不同的人對不同的業務有著不同的想法。剛開始的時候我們組先是按照淘寶購物的模式來進行分析設計我們這所網站的，但是進行到中間的時候一組員突然提到了京東商城，感覺我們這所網站還是按照京東商城的模式設計比較好，然后又進行了大量的修改，在此過程中有支持淘寶利用第三方支付平臺模式的，有支持京東那樣直接支付到商城模式的。還有就是在訂單設計的時候也遇到了很多的分歧，比如說初始訂單和預定訂單問題，我們討論了很長時間，最后決定把他們看做是一種訂單。
第四，要有刻苦鉆研的精神，這次設計不僅運用了本次課程的知識，同時也結合了以前學過的知識，有些軟件成員們都不會用或者忘記了，而且許多設計環節工作量很大，但小組成員們都很努力，我們刻苦鉆研，最終把困難各個擊破。同時，在此次設計當中認我認識到開發一項好的軟件不是某一個人就能完成的任務。一個團隊的小組，一個勤奮的小組非常重要，溝通是解決問題的就好辦法。所以小組中的每個成員的能力與協作能力也是致關重要的，不僅是團隊內部的交流，更多需要協調好團隊之間的交流。
然后呢，在實習中我了解了，在開發一個項目時一定要先做好規劃，按照軟件的開發過程，詳細地寫好每一個必要的文檔。
由于我們的知識水平有限，并且是第一次做這樣的設計，有些設計環節應該不是很完善，希望老師及同學們能多多指點。
第四篇：管理信息系統（MIS）權威期刊列表
學術長文：
信息系統領域(排名先后排序)
MIS Quarterly(EBSCO) SCIE SSCI (全文，EndNotes) Information Systems Research(EBSCO) SSCI 延遲一年，例如08年的論文要到2010年才可以下載 (全文，EndNotes) Communications of the ACM(EBSCO) SCI (全文，EndNotes) Management Science(EBSCO)延遲一年 SCIE SSCI (全文，EndNotes) Journal of Management Information Systems (EBSCO) SCIE SSCI (全文，EndNotes) Harvard Business Review(EBSCO) SSCI (全文，EndNotes) IEEE Transactions on Engineering management(IEEE) SCI SSCI 沒有全文，在IEEE數據庫 EndNotes European Journal of Information Systems SCIE 沒有最新的全文 EndNotes Decision Support Systems(elsevier) SCIE (全文，EndNotes) Information & Management(elsevier) SCIE SSCI (全文，EndNotes) Communications of the Association for Information Systems(EBSCO) 無檢索 (全文，EndNotes) Academy of Management Journal (EBSCO) SSCI (全文，EndNotes) International Journal of Electronic Commerce(EBSCO) SCIE SSCI (全文，EndNotes) Journal of the Association for Information Systems (EBSCO) SSCI (全文，EndNotes) Organization Science(EBSCO) ISSN:10477039 SSCI 延遲兩年 (全文，EndNotes) Information Systems Journal(EBSCO，blackwel) ISSN:13501917 SSCI (全文，EndNotes) Academy of Management Review (EBSCO) SSCI (全文，EndNotes) Journal of strategic information systems (elsevier) SCIE SSCI (全文，EndNotes) Information Systems Management(EBSCO) SCIE 2010年可以下載09年的論文 (全文，EndNotes) Journal of Organizational Computing and Electronic Commerce(EBSCO) SCIE (全文，EndNotes) International Journal of Information Management(elsevier) SSCI (全文，EndNotes) Electronic Commerce Research and Applications(elsevier) SCIE SSCI (全文，EndNotes) Journal of Information Technology (EndNotes)
Strategic Management Journal (Wiley-Blackwell ) SSCI (全文，EndNotes)
偏技術或方法的IS期刊
+IEEE Transactions on Data and Knowledge Systems(IEEE)沒有全文 SCIE EndNotes +IEEE Transactions on Software Engineering(IEEE)沒有全文 SCI EndNotes +ACM Transactions on Information Systems (ACM) 沒有全文 SCI EndNotes +Information Systems(elsevier) SCI EndNotes) +Information Sciences(elsevier) SCI (EndNotes) 供應鏈
Journal of Operations Management(elsevier) SCIE SSCI (全文，EndNotes) Decision Sciences (Wiley-Blackwell) SSCI (全文，EndNotes) Production and Operations Management (EBSCO) SCIE [ISSN:10591478] (全文，EndNotes) Operations Research SCIE [ISSN: 0030364X] 延遲l兩年(全文，EndNotes) International Journal of Production Economics(elsevier) SCIE SSCI 好 多 (全文，EndNotes) Supply chain management: An International Journal (Emerald) SCIE
SSCI(全文，EndNotes) Industrial Marketing Management (elsevier) SSCI 好 多 (全文，EndNotes)
服務管理
International Journal of Service Industry Management(Emerald) SSCI(全文，EndNotes)
******************八個權威期刊************ MIS Quarterly
Information Systems Research Journal of MIS
European Journal of Information Systems (EndNotes) Journal of AIS
Information Systems Journal
補充的兩個
Journal of Strategic Information Systems ***********************************************
第五篇：《管理信息系統》課程設計
一、目的
通過課程設計使學生更進一步掌握課程的有關知識，提高實施管理信息系統的綜合能力，并將所學的內容在實踐中加以提高。通過查閱資料，了解所學知識的應用情況。同時也使學生通過動手進行設計，從而提高解決實際問題的能力。
二、選題
學生根據前期課內實驗時自己所確定的相關行業的管理信息系統自行選擇題目或自己獨立開發軟件。
三、任務
本課程設計分為需求分析、系統設計和應用程序運行調試維護三個階段進行?；疽鬄椋?/p>
1、認真查閱資料
2、遵守課程設計時間安排
3、按時上機，認真運行或調試程序
4、認真書寫報告
報告書寫格式(見附錄)：
1、課程設計封皮
2、課程設計說明
3、課程設計成績
4、正文
5、參考文獻
四、進程
1)選定設計課題，下達設計任務(課外時間)
由學生自己選題，但學生選題需通過指導教師批準。課題應在設計周之前提前公布，并盡量早些，以便學生有充分的設計準備時間。
指導教師在公布課程設計課題時一般應包括以下內容：課題名稱、設計任務、技術指標和要求、主要參考文獻等內容。
2)教師講解
a.介紹課程設計的內容、要求、安排、考核方法、注意事項
b.講授必要的課題背景和相關知識、原理。著重幫助學生明確任務，理解管理信息系統的一般設計方法。
3)學生查詢資料，進行分析、設計并完成設計報告
設計報告應包括的內容：系統分析：子系統劃分、業務流程圖、數據流圖、數據字典、關鍵算法。系統設計：功能結構設計、I/O設計、代碼設計、界面設計、數據庫設計、網絡環境。撰寫設計總結報告。
4)學生運行或編制程序
學生運行并研究已有的管理信息系統，或者完成自己開發的信息系統的程序代碼的編制和調試工作。
5)驗收并簡單考查
學生在運行使用已有的管理信息系統或編制完新的程序后，由指導老師進行檢查，通過相關測試后，進行成績評定。
審查設計報告是否規范，設計方案是否合理、正確、可行，否則要求調整或整改。教師記錄學生的相應成績。
五、考核方法與成績評定
1、考核方法
課程設計采用課程設計報告和課程設計綜合評定成績，以課程設計報告為主，參考對相應的管理信息系統程序的熟悉程度或自己編寫程度的水平。
2、成績評定
成績優秀、良好、中等、及格和不及格五級計分。
1)未完成設計任務，沒達到設計要求則成績為“不及格”。
2)基本完成設計任務，并撰寫出課程設計報告則成績為“及格”。
3)學生能夠認真查閱資料，獨立完成設計任務，程序運行或調試通過，并且撰寫出課程設計報告則成績為“中”。
4)學生能夠認真查閱資料，獨立完成設計任務，程序運行或調試通過，功能完善，操作靈活，界面美觀，并且撰寫出課程設計報告則成績為“良好”。
5)學生根據自身的實際能力，在實現設計題目基本要求的基礎上增加一些功能，評定成績時根據其難度和完成情況給與適當加分，如界面效果，系統操作的方便性、靈活性、創新性等，如果設計非常完善則成績為“優秀”。