管理信息系統(tǒng)實驗報告

《管理信息系統(tǒng)》實驗報告zsw實驗一觀察一個管理信息系統(tǒng)◆實驗?zāi)康模?）了解一個管理信息系統(tǒng)具有哪些功能，學(xué)會獨立使用該系統(tǒng)。（2）了解在該系統(tǒng)上如何通過各種操作完成功能?！魧嶒瀮?nèi)容進入一個管理信息系統(tǒng)。寫出該系統(tǒng)的所有功能。寫出一個具體的操作流程，需要用到哪些信息。◆實驗結(jié)果：（1）進入安徽大學(xué)校園卡查詢系統(tǒng)（2）該系統(tǒng)的功能有：A．基本信息查詢功能：提供個人身份信息和卡片基本信息的顯示。包括帳號、身份類型、證件號碼、帳戶狀態(tài)、卡內(nèi)余額等信息。B．歷史流水查詢功能：查詢本帳戶某一交易明細三十天范圍內(nèi)的交易情況。統(tǒng)計項目包括交易次數(shù)、存入和支出金額等，交易明細包括轉(zhuǎn)帳、存款、補助和扣款等科目。C.日流水查詢功能：查詢本帳戶某一交易明細交易情況。統(tǒng)計項目包括交易次數(shù)、存入和支出金額等，交易明細包括消費、轉(zhuǎn)帳、存款、

補助和扣款等科目。D．持卡人統(tǒng)計功能：把本帳戶一個階段內(nèi)的每月的用卡情況用柱形圖表示出來。E.電子賬戶查詢功能：查詢本帳戶和各種類型電子帳戶的消費情況。其中電子帳戶包括：電費，網(wǎng)費，水費等。統(tǒng)計項目包括電子帳戶

編號，類型，剩余金額。F．校園卡掛失功能：卡片如果丟失請盡快掛失，掛失后卡片的功能將全部失效直到解掛，以保護您的利益。G．電費繳納功能：網(wǎng)上繳納電費。H．電費查詢功能：查詢各寢室電費剩余情況。I．修改查詢密碼功能：提供對本帳戶的密碼進行修改功能，以提高卡號的安全性。J．撿獲卡信息：此欄目提供了撿獲卡片人的信息的發(fā)布和瀏覽。如果您撿到了別人的卡片，請您使用該欄目發(fā)布、瀏覽這些信息。K．你問我答：介紹一卡通的使用情況。如開戶、存款、消費、銷戶等情況。提供一卡通使用的在線咨詢。L．退出系統(tǒng)： （3）查詢歷史流水的操作流程：在瀏覽器地址欄輸入安徽大學(xué)校園卡查詢系統(tǒng)網(wǎng)址——輸入自己的用戶名和密碼——選擇歷史流水查詢功能——進入查詢界面——在下拉框中選擇消費——輸入查詢的時間階段——得到查詢結(jié)果如圖所示實驗小結(jié)在此次實驗中，了解了校園卡查詢系統(tǒng)。雖然只是一個小的校園卡查詢系統(tǒng)，但是它的功能卻十分完善，能滿足我們的實際生活中的基本需求，而且十分方便。它有不僅管理好了我們的校園卡信息，有方便我們用戶利用信息。我們要用心留意每個網(wǎng)上的管理信息系統(tǒng)，以便積累我們的相關(guān)知識，為自己以后開發(fā)自己的信息管理系統(tǒng)打好基礎(chǔ)。實驗二ACCESS數(shù)據(jù)庫◆實驗?zāi)康模?）掌握ACCESS數(shù)據(jù)庫的構(gòu)造。（2）學(xué)會使用表設(shè)計器建立表。◆實驗內(nèi)容（1）建立用戶信息表，員工考勤表，員工教育及工作經(jīng)歷記錄表。（2）在表中添加數(shù)據(jù)。實驗步驟及結(jié)果：（1）打開Access新建空數(shù)據(jù)庫并命名為“人事”（2）使用設(shè)計器創(chuàng)建表創(chuàng)建用戶信息表，員工考勤表，員工教育及工作經(jīng)歷表。用戶信息信息表相關(guān)屬性UsernamePwdUser-type員工考勤表相關(guān)屬性CheckdateEmpldQqdaysCcdays、BjdaysSjdaysKgdaysFdxjdaysNxjdaysDxjdaysCdminutesZtminutesOt1daysOt2daysOt3daysmemol員工教育及工作經(jīng)歷表（3）輸入數(shù)據(jù)并修改表名①用戶數(shù)據(jù)②員工考勤③員工教育及工作經(jīng)歷修改表名總結(jié)：通過該實驗初步掌握了數(shù)據(jù)庫基本操作，為接下來的編程奠定了基礎(chǔ)。實驗三登錄模塊及系統(tǒng)主界面設(shè)計◆實驗?zāi)康模?）掌握如何訪問數(shù)據(jù)庫。（2）學(xué)會界面設(shè)計及布局?！魧嶒瀮?nèi)容（1）設(shè)計登錄窗體。（2）設(shè)計主界面?！魧嶒灢襟E及結(jié)果：（1）打開microsoftvisualbasic,新建標準EXE工程，添加相應(yīng)的部件和引用，分別為以下所做的工程和窗體保存到hrmanager文件夾中，相關(guān)圖片儲存在hrmanager下的IMG，類模塊保存在hrmanager下的modules、子模塊保存在hrmanager下的classes（2）設(shè)計登錄主界面①按以下屬性設(shè)計登錄窗體及相關(guān)控件做出如下窗體②編寫相關(guān)的程序代碼PublicPasswordKeyAsStringPublicNameKeyAsStringPublicPasswordKeyAsStringPublicNameKeyAsStringPublicTry_timesAsIntegerPrivateSubClient_Close()connected=FalseEndSubPrivateSubClient_Connect()connected=TrueEndSubPrivateSubClient_Error(ByValNumberAsInteger,DescriptionAsString,ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,CancelDisplayAsBoolean)connected=FalseMsgBox"服務(wù)器沒有相應(yīng)"DBapi_Disconnect'myhost.setfreeEndEndSubPrivateSubCmd_Cancel_Click()EndEndSubPrivateSubCmd_Ok_Click()'數(shù)據(jù)有效性檢查IfTrim(txtUser)=""ThenMsgBox"請輸入用戶名"txtUser.SetFocusExitSubEndIfIfTrim(txtPwd)=""ThenMsgBox"請輸入密碼"txtPwd.SetFocusExitSubEndIfNameKey=MakeStr(txtUser)PasswordKey=MakeStr(txtPwd)'判斷用戶是否存在IfMyUser.In_DB(NameKey)=FalseThenMsgBox"用戶名不存在"Try_times=Try_times+1IfTry_times>=3ThenMsgBox"您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉"DBapi_DisconnectEndElseExitSubEndIfEndIf'判斷密碼是否正確MyUser.GetInfo(NameKey)IfMyUser.Pwd<>PasswordKeyThenMsgBox"密碼錯誤"Try_times=Try_times+1IfTry_times>=3ThenMsgBox"您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉"DBapi_DisconnectEndElseExitSubEndIfEndIf'登錄成功，將當(dāng)前用戶的信息保存在CurUser中CurUser.UserName=MyUser.UserNameCurUser.User_type=MyUser.User_type'關(guān)閉自己UnloadMeEndSubPrivateSubForm_Load()EndSubNameKey=MakeStr(txtUser)PasswordKey=MakeStr(txtPwd)'判斷用戶是否存在IfMyUser.In_DB(NameKey)=FalseThenMsgBox"用戶名不存在"Try_times=Try_times+1IfTry_times>=3ThenMsgBox"您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉"DBapi_DisconnectEndElseExitSubEndIfEndIf'判斷密碼是否正確MyUser.GetInfo(NameKey)IfMyUser.Pwd<>PasswordKeyThenMsgBox"密碼錯誤"Try_times=Try_times+1IfTry_times>=3ThenMsgBox"您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉"DBapi_DisconnectEndElseExitSubEndIfEndIf'登錄成功，將當(dāng)前用戶的信息保存在CurUser中CurUser.UserName=MyUser.UserNameCurUser.User_type=MyUser.User_type'關(guān)閉自己UnloadMeEndSubPrivateSubForm_Load()EndSub（3）設(shè)計主界面①按以下屬性設(shè)計主界面的窗體和菜單做出相應(yīng)的主窗體②編寫程序代碼PrivateSubForm_Load()PrivateSubForm_Load()FrmLogin.Show1EndSubPrivateSubmn_check_Click()FrmCheckMan.Show1EndSubPrivateSubmn_dep_Click()FrmDepMan.Show1EndSubPrivateSubmn_emp_Click()FrmEmpMan.ShowEndSubPrivateSubmn_dep_Click()PrivateSubmn_dep_Click()FrmDepMan.Show1EndSubPrivateSubmn_emp_Click()FrmEmpMan.ShowEndSubPrivateSubmn_eva_Click()IfCurUser.User_type=1ThenFrmEvaMan.Show1ElseMsgBox"沒有權(quán)限"EndIfEndSubPrivateSubmn_exit_Click()DBapi_DisconnectEndEndSubPrivateSubmn_pwd_Click()WithFrmUserEdit.OriUser=CurUser.UserName.txtUserName=CurUser.UserNameIfCurUser.User_type=1Then.ComboType.AddItem"系統(tǒng)管理員"Else.ComboType.AddItem"普通用戶"EndIf.ComboType.ListIndex=0.ComboType.Enabled=False.Modify=True.Show1EndWithEndSubPrivateSubmn_user_Click()IfCurUser.User_type=1ThenFrmUserMan.Show1ElseMsgBox"沒有權(quán)限"EndIfEndSub（4）運行結(jié)果總結(jié)：通過本實驗的學(xué)習(xí)，學(xué)會了vb的相關(guān)操作。初步設(shè)計了人事管理信息系統(tǒng)的外在框架，為下面的主模塊的開發(fā)做好了鋪墊。實驗四開發(fā)MIS系統(tǒng)主體模塊◆實驗?zāi)康模?）掌握VB的界面設(shè)計，代碼編寫。（2）學(xué)會使用VB對數(shù)據(jù)記錄進行訪問操作。（3）完成任務(wù)處理直至退出的代碼開發(fā)工作。◆實驗內(nèi)容（介紹一個模塊）（1）將MIS系統(tǒng)分模塊進行開發(fā)，進行前臺界面設(shè)計和后臺代碼開發(fā)。（2）利用VB訪問數(shù)據(jù)庫記錄，進行數(shù)據(jù)查詢和修改?！魧嶒灢襟E及結(jié)果（以編輯部門信息模塊為例）：（1）打開實驗三中得hrmanager文件夾中的工程入口后，添加microsoftwindowscommoncontrol6.0（OLEDB）部件①按相應(yīng)屬性設(shè)計、編輯相應(yīng)窗體②編寫相應(yīng)的程序代碼PublicModifyAsBooleanPrivateSubCmd_OK_Click()PublicModifyAsBooleanPrivateSubCmd_OK_Click()IfTrim(txtDep)=""ThenMsgBox"請輸入部門名稱"ExitSubEndIf'將新輸入的數(shù)據(jù)保存到類變量中WithMyDep.DepName=MakeStr(txtDep).Describes=MakeStr(txtDescribe)IfModify=FalseThen'插入If.In_DB(.DepName,.UpperId)=TrueThenMsgBoxTrim(txtDep)+"已經(jīng)存在"ExitSubEndIf'CurDep中保存在部門管理窗體中選中的部門信息'當(dāng)插入新記錄時，新記錄將做為當(dāng)前部門的下級部門.UpperId=CurDep.DepIdBh=.Insert'生成TreeView中一個結(jié)點的關(guān)鍵字Tmp_Key="a"+Trim(Str(Bh))'設(shè)置結(jié)點的圖像FrmDepMan.TreeView1.SelectedItem.Image=1FrmDepMan.TreeView1.SelectedItem.ExpandedImage=2FrmDepMan.TreeView1.SelectedItem.SelectedImage=3'在樹中添加一個結(jié)點SetTmpNode=FrmDepMan.TreeView1.Nodes.Add(FrmDepMan.TreeView1.SelectedItem.Key,_tvwChild,Tmp_Key,.DepName,4,5)TmpNode.Selected=TrueElse'修改IfCurDep.DepName<>Trim(txtDep)ThenIf.In_DB(Trim(txtDep),.UpperId)=TrueThenMsgBoxTrim(txtDep)+"已經(jīng)存在"ExitSubEndIfEndIf'當(dāng)修改記錄時，不能改變上下級之間的關(guān)系.UpperId=CurDep.UpperId.Update(CurDep.DepId)IfCurDep.DepName<>Trim(txtDep)ThenFrmDepMan.TreeView1.SelectedItem.Text=Trim(txtDep)EndIf'設(shè)置CurDep變量CurDep.DepName=Trim(txtDep)EndIfEndWith'關(guān)閉窗口UnloadMeEndSubPrivateSubCmd_Cancel_Click()UnloadMeEndSubPrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSubPrivateSubForm_Load()EndSubPrivateSubtxtDep_KeyPress(KeyAsciiAsInteger)EnterTAB(KeyAscii)EndSubIfCurDep.DepName<>Trim(txtDep)ThenIf.In_DB(Trim(txtDep),.UpperId)=TrueThenMsgBoxTrim(txtDep)+"已經(jīng)存在"ExitSubEndIfEndIf'當(dāng)修改記錄時，不能改變上下級之間的關(guān)系.UpperId=CurDep.UpperId.Update(CurDep.DepId)IfCurDep.DepName<>Trim(txtDep)ThenFrmDepMan.TreeView1.SelectedItem.Text=Trim(txtDep)EndIf'設(shè)置CurDep變量CurDep.DepName=Trim(txtDep)EndIfEndWith'關(guān)閉窗口UnloadMeEndSubPrivateSubCmd_Cancel_Click()UnloadMeEndSubPrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSubPrivateSubForm_Load()EndSubPrivateSubtxtDep_KeyPress(KeyAsciiAsInteger)EnterTAB(KeyAscii)EndSub（2）設(shè)計其他模塊，具體過程略。（3）運行人事管理信息系統(tǒng)◆總結(jié)：通過本次試驗，繼續(xù)完善了試驗三，操作并熟悉了系統(tǒng)的主模塊設(shè)計。進一步完善了該系統(tǒng)，為下次試驗做好了鋪墊。實驗五開發(fā)MIS系統(tǒng)用戶模塊◆實驗?zāi)康模?）掌握角色設(shè)計及代碼編寫。（2）學(xué)會給不同用戶安排不同權(quán)限?！魧嶒瀮?nèi)容（1）系統(tǒng)管理員用戶的角色及權(quán)限設(shè)計。（2）普通用戶的角色及權(quán)限設(shè)計?！魧嶒灢襟E及結(jié)果：（1）根據(jù)相應(yīng)的屬性設(shè)計窗體①編輯用戶信息窗體對象名屬性屬性值Label1Caption用戶名Label2Caption密碼Label3Caption確認密碼Label4Caption用戶類型Textbox1NametxtUserNameTextbox2NameTxtpassTextbox3NameTxtpass2combobox4NameCombotypeStyle2Command1NameCmd-okCaption確定Command2NameCmd-cancelCaption取消用戶管理窗體對象名屬性屬性值A(chǔ)docdcCaptionAdoUserListNameAdoUserListFrame1Caption用戶列表DatalistNameDatalistFrame2Caption用戶信息Label1Caption用戶類型Label2Caption用戶名Label3Caption、nameLblusertypeLabel4Caption、nameLblempnameCommand1Caption、name添加用戶、cmd-addCommand2Caption、name修改用戶、cmd-modiCommand3Caption、name刪除用戶、cmd-delCommand4Caption、name返回、cmd-backExitSubEndIfExitSubEndIf'判斷是否存在同名用戶WithMyUserIfModify=FalseOrOriUser<>Trim(txtUserName)ThenIf.In_DB(Trim(txtUserName))=TrueThenMsgBox"用戶名已經(jīng)存在，請重新輸入"txtUserName.SetFocustxtUserName.SelStart=0txtUserName.SelLength=Len(txtUserName)ExitSubEndIfEndIf'將用戶數(shù)據(jù)賦值到MyUser對象中.UserName=MakeStr(txtUserName).Pwd=MakeStr(txtPass)SelectCaseComboType.TextCase"系統(tǒng)管理員".User_type=1Case"普通用戶".User_type=2EndSelect'保存用戶數(shù)據(jù)IfModify=FalseThen.InsertElse.Update(OriUser)'如果修改自身用戶名，則更新CurUser對象IfOriUser=CurUser.UserNameAndTrim(txtUserName)<>OriUserThenCurUser.UserName=Trim(txtUserName)CurUser.GetInfo(CurUser.UserName)EndIfEndIfEndWithMsgBox"數(shù)據(jù)保存成功"UnloadMeEndSub（2）編寫相應(yīng)的程序編輯用戶信息編輯用戶信息PublicModifyAsBooleanPublicOriUserAsStringPrivateSubCmd_Cancel_Click()UnloadMeEndSubPrivateSubCmd_OK_Click()IfTrim(txtUserName)=""ThenMsgBox"請輸入用戶名"txtUserName.SetFocusExitSubEndIfIfLen(txtPass)<6ThenMsgBox"密碼長度不能小于6"txtPass.SetFocustxtPass.SelStart=0txtPass.SelLength=Len(txtPass2)ExitSubEndIfIftxtPass<>txtPass2ThenMsgBox"密碼和確認密碼不相同，請重新確認"txtPass2.SetFocustxtPass2.SelStart=0txtPass2.SelLength=Len(txtPass2)ExitSubEndIf'判斷是否存在同名用戶WithMyUserIfModify=FalseOrOriUser<>Trim(txtUserName)ThenIf.In_DB(Trim(txtUserName))=TrueThenMsgBox"用戶名已經(jīng)存在，請重新輸入"txtUserName.SetFocustxtUserName.SelStart=0txtUserName.SelLength=Len(txtUserName)ExitSubEndIfEndIf'將用戶數(shù)據(jù)賦值到MyUser對象中.UserName=MakeStr(txtUserName).Pwd=MakeStr(txtPass)SelectCaseComboType.TextCase"系統(tǒng)管理員".User_type=1Case"普通用戶".User_type=2EndSelect'保存用戶數(shù)據(jù)IfModify=FalseThen.InsertElse.Update(OriUser)'如果修改自身用戶名，則更新CurUser對象IfOriUser=CurUser.UserNameAndTrim(txtUserName)<>OriUserThenCurUser.UserName=Trim(txtUserName)CurUser.GetInfo(CurUser.UserName)EndIfEndIfEndWithMsgBox"數(shù)據(jù)保存成功"UnloadMeEndSubPrivateSubForm_Load()EndSubExitSubEndIfExitSubEndIfIfUCase(CurUser.UserName)<>"ADMIN"AndMyUser.User_type=1AndMyUser.UserName<>CurUser.UserNameThenMsgBox"沒有修改此用戶的權(quán)限"ExitSubEndIfWithFrmUserEdit.OriUser=MyUser.UserName.txtUserName=MyUser.UserName.txtPass=MyUser.Pwd.txtPass2=MyUser.Pwd.ComboType.AddItem"系統(tǒng)管理員".ComboType.AddItem"普通用戶".ComboType.ListIndex=MyUser.User_type-1.Modify=True.Show1EndWithAdoUserList.RefreshDataList1_ClickEndSubPrivateSubDataList1_Click()IfDataList1.Text=""ThenlblUserType=""lblUserName=""ExitSubEndIf'讀取用戶數(shù)據(jù)MyUser.GetInfo(DataList1.Text)SelectCaseMyUser.User_typeCase1lblUserType="系統(tǒng)管理員"Case2lblUserType="普通用戶"EndSelectlblUserName=MyUser.UserNameEndSubPrivateSubForm_Load()lblUserType=""lblUserName=""'設(shè)置ADO控件的連接字符串AdoUserList.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="_+App.Path+"\人事.mdb;PersistSecurityInfo=False"'設(shè)置數(shù)據(jù)源AdoUserList.RecordSource="SELECT*FROMUsers"AdoUserList.RefreshEndSubPrivateSubFrame2_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSub②用戶管理PrivateSubCmd_Add_Click()UpperEmp.InitWithFrmUserEdit.txtUserName="".txtPass="".txtPass2=""'Admin用戶可以添加系統(tǒng)管理員和普通用戶'其他系統(tǒng)管理員則只能添加普通用戶IfUCase(CurUser.UserName)="ADMIN"Then.ComboType.AddItem"系統(tǒng)管理員".ComboType.AddItem"普通用戶"Else.ComboType.AddItem"普通用戶"EndIf.ComboType.ListIndex=0.Modify=False.Show1EndWithAdoUserList.RefreshDataList1_ClickEndSubPrivateSubCmd_Back_Click()UnloadMeEndSubPrivateSubCmd_Del_Click()IfDataList1.Text=""ThenMsgBox"請選擇要刪除的用戶"ExitSubEndIfIfMyUser.UserName="Admin"ThenMsgBox"此用戶不能刪除"ExitSubEndIfIfUCase(CurUser.UserName)<>"ADMIN"AndMyUser.User_type=1ThenMsgBox"沒有刪除此用戶的權(quán)限"ExitSubEndIf'確認刪除IfMsgBox("是否刪除當(dāng)前用戶",vbYesNo,"請確認")=vbYesThenMyUser.Delete(DataList1.Text)MsgBox"成功刪除用戶"AdoUserList.RefreshDataList1_ClickEndIfEndSubPrivateSubCmd_Modi_Click()IfData