【正文】 安排、庫(kù)存處理、成本核算、勞動(dòng)工資、產(chǎn)品營(yíng)銷等管理全過(guò)程用計(jì)算機(jī)硬件和軟件支撐的管理信息系統(tǒng)。企業(yè)管理信息化是企業(yè)信息化的一個(gè)核心組成部分，是企業(yè)決策管理活動(dòng)或過(guò)程的電子化，與企業(yè)生產(chǎn)過(guò)程自動(dòng)化、智能化和企業(yè)商務(wù)活動(dòng)的電子化共同構(gòu)成企業(yè)信息化的主要內(nèi)容，企業(yè)管理系統(tǒng)與企業(yè)技術(shù)系統(tǒng)、制造系統(tǒng)和集成系統(tǒng)一起構(gòu)成企業(yè)的信息化的主要應(yīng)用。組織的傳統(tǒng)業(yè)務(wù)流程主要存在哪些問(wèn)題：主要存在以下三方面的問(wèn)題：1）部門割裂完整的流程。按照分工原則建立的職能型組織，容易產(chǎn)生“各自為政”的現(xiàn)象。流程的空白區(qū)造成流程的斷電，引起事件的擱置；流程存在重疊的區(qū)域則可能引發(fā)多頭管理。2）員工缺乏以顧客為導(dǎo)向的思想。員工以上級(jí)為導(dǎo)向，而不是以顧客為導(dǎo)向。3）缺乏資源共享的信息平臺(tái)。資源利用度的高低是衡量組織管理水平的重要標(biāo)志。而對(duì)于許多企業(yè)/組織來(lái)講，信息只存在于單個(gè)部門之間，分散在各個(gè)子系統(tǒng)，形成了一個(gè)個(gè)信息孤島。企業(yè)為什么要進(jìn)行流程改革與改造：企業(yè)流程是指為了完成某一項(xiàng)目標(biāo)或任務(wù)而進(jìn)行的跨時(shí)間和空間的邏輯上相關(guān)的一系列活動(dòng)的有序集合。為了應(yīng)對(duì)日益復(fù)雜和多變的商業(yè)環(huán)境，許多組織不得不重新審視其管理和業(yè)務(wù)流程。企業(yè)流程改革與改造主要基于兩方面的原因：一是組織的傳統(tǒng)業(yè)務(wù)流程存在較多弊端，二是來(lái)自企業(yè)內(nèi)外部及管理理論發(fā)展的驅(qū)動(dòng)。企業(yè)業(yè)務(wù)流程改革對(duì)管理信息系統(tǒng)開(kāi)發(fā)和應(yīng)用的重要性：企業(yè)的業(yè)務(wù)流程直接體現(xiàn)企業(yè)的核心能力，是企業(yè)完成其使命、實(shí)現(xiàn)其目標(biāo)的基礎(chǔ)。傳統(tǒng)企業(yè)模式下的企業(yè)業(yè)務(wù)流程，非增值環(huán)節(jié)多，信息傳遞慢，同一流程各個(gè)環(huán)節(jié)和不同流程間關(guān)系混亂，特別是完整的業(yè)務(wù)流程被不同職能部門分割，大大降低了業(yè)務(wù)流程的效率與效益，難以及時(shí)捕獲迅速變化的市場(chǎng)機(jī)會(huì)，致使整個(gè)企業(yè)效率與效益低下、競(jìng)爭(zhēng)力弱，對(duì)市場(chǎng)形勢(shì)與用戶需求的變化反應(yīng)遲鈍，應(yīng)變能力差。所以，必須應(yīng)用現(xiàn)代信息技術(shù)與管理方法，對(duì)企業(yè)流程進(jìn)行改革與創(chuàng)新，企業(yè)才能在新的經(jīng)濟(jì)環(huán)境與市場(chǎng)形勢(shì)下得以生存與發(fā)展。系統(tǒng)可行性研究： 目的：可行性研究階段的主要任務(wù)是在系統(tǒng)初步調(diào)查的基礎(chǔ)上，對(duì)新系統(tǒng)是否能夠?qū)崿F(xiàn)和值得實(shí)現(xiàn)等問(wèn)題做出判斷，避免在花費(fèi)了大量的人力和物力之后才發(fā)現(xiàn)系統(tǒng)不能實(shí)現(xiàn)或新系統(tǒng)投入使用后沒(méi)有任何實(shí)際意義而引起的浪費(fèi)。對(duì)新系統(tǒng)可行性的研究，要求用最小的代價(jià)在盡量短的時(shí)間內(nèi)確定系統(tǒng)是否可行。目標(biāo)與工作內(nèi)容：技術(shù)可行性、經(jīng)濟(jì)可行性、營(yíng)運(yùn)可行性。步驟：1）確定系統(tǒng)的規(guī)模與目標(biāo)。2）明確用戶主要信息需求。3）提出擬建系統(tǒng)的初步方案。4）審查新系統(tǒng)。5）提出并評(píng)價(jià)可能的替代方案并進(jìn)行技術(shù)可行性、營(yíng)運(yùn)可行性、經(jīng)濟(jì)可行性分析。6）給出該項(xiàng)目做還是不做的選擇，同時(shí)確定方案。7）指定項(xiàng)目開(kāi)發(fā)計(jì)劃，包括人、財(cái)、物的安排。8）撰寫可行性研究報(bào)告。9）向用戶審查小組與指導(dǎo)委員會(huì)提交結(jié)果。工作結(jié)果：包括“可行性研究報(bào)告”和“系統(tǒng)設(shè)計(jì)任務(wù)書(shū)”?？尚行匝芯繄?bào)告的主要內(nèi)容如下“1）現(xiàn)行系統(tǒng)概況。2）主要問(wèn)題和主要信息需求。3）擬建新系統(tǒng)的方案。4）經(jīng)濟(jì)可行性分析。5）技術(shù)可行性分析。6）營(yíng)運(yùn)可行性分析。7）結(jié)論。系統(tǒng)設(shè)計(jì)任務(wù)書(shū)是在可行性研究報(bào)告做出并經(jīng)審定后，正是進(jìn)行后續(xù)階段系統(tǒng)建設(shè)的決策性文件，是根據(jù)可行性研究確定的系統(tǒng)方案對(duì)系統(tǒng)開(kāi)發(fā)者下達(dá)的任務(wù)書(shū)，主要包括系統(tǒng)目標(biāo)與任務(wù)、系統(tǒng)的規(guī)模、結(jié)構(gòu)、建設(shè)初步計(jì)劃、投資安排、人員安排等。意義：對(duì)問(wèn)題進(jìn)行識(shí)別，確定系統(tǒng)開(kāi)發(fā)的必要性，以減少條件不具備造成各方面的重大損失。代碼設(shè)計(jì)的原則與功能：原則：標(biāo)準(zhǔn)化、唯一性、合理性、可擴(kuò)充性、簡(jiǎn)單性、適用性、規(guī)范化。功能：鑒別功能、分類、排序、專用含義。C/S（Client/Server 客戶機(jī)/服務(wù)器）結(jié)構(gòu)類型：1）分步式顯示型2）遠(yuǎn)程顯示型3）分布式應(yīng)用處理型4）遠(yuǎn)程數(shù)據(jù)管理型5）分布式數(shù)據(jù)管理型（客戶機(jī)的任務(wù)從輕到重，服務(wù)器的任務(wù)由重到輕）B/S（Browser/Server，瀏覽器/服務(wù)器）優(yōu)點(diǎn)：1）由于采用基于超文本鏈接（HTTP）的Web服務(wù)器和可以對(duì)Web服務(wù)器上超文本文件進(jìn)行操作的瀏覽器，使得管理信息系統(tǒng)在信息處理技術(shù)上實(shí)現(xiàn)了集格式化文本，圖形，聲音，視頻信息為一體的高度交互式環(huán)境，使信息處理的廣度和深度大為增加。2）由于互聯(lián)網(wǎng)技術(shù)采用統(tǒng)一的與平臺(tái)無(wú)關(guān)的跨平臺(tái)通信協(xié)議，瀏覽器和Web服務(wù)器及相關(guān)的接口軟件應(yīng)用程序也獨(dú)立于計(jì)算機(jī)的硬、軟件平臺(tái)，整個(gè)系統(tǒng)的開(kāi)放性和可移植性好。在互聯(lián)網(wǎng)環(huán)境下，既可以建立獨(dú)立與互聯(lián)網(wǎng)的為某個(gè)組織服務(wù)的管理信息系統(tǒng)，必要時(shí)又可以很方便的連接互聯(lián)網(wǎng)，和互聯(lián)網(wǎng)上各個(gè)站點(diǎn)實(shí)現(xiàn)通信。3）由于瀏覽器、Web服務(wù)器及有關(guān)接口軟件都有商品軟件可供選擇，并且在服務(wù)器端及必要時(shí)在客戶端進(jìn)行應(yīng)用系統(tǒng)開(kāi)發(fā)都有可供選擇的工具，可大大節(jié)省應(yīng)用系統(tǒng)開(kāi)發(fā)的成本，縮短開(kāi)發(fā)周期。第五篇：職工信息管理系統(tǒng)職工信息管理系統(tǒng)設(shè)計(jì)報(bào)告（VB）編號(hào)：22職工信息管理系統(tǒng) 設(shè)計(jì)報(bào)告學(xué)院土木工程班級(jí)測(cè)繪C111學(xué)號(hào)117551姓名馬驍飛成績(jī)一、設(shè)計(jì)思路培養(yǎng)學(xué)生綜合利用VB語(yǔ)言進(jìn)行程序設(shè)計(jì)的能力，主要是培養(yǎng)學(xué)生綜合使用基本控件的、文件讀寫、數(shù)組操作等能力。利用讀取數(shù)據(jù)按鈕，并從該文件中讀取職工職工號(hào)、姓名、職稱和工資，保存在數(shù)組中，并顯示在文本框中。清除文本框中的職工的信息。在文本框中顯示職工的信息。按照職工號(hào)查詢職工信息，并顯示。按照姓名查詢職工信息，并顯示。按照職工號(hào)修改職工信息，并顯示。按照姓名修改職工信息，并顯示。追加一條記錄數(shù)據(jù)，并顯示。（1）通過(guò)“讀取數(shù)據(jù)”按鈕應(yīng)能利用應(yīng)能利用右側(cè)圖示樣式窗體形式，并從該文件中讀取職工職工號(hào)、姓名、職稱和工資，保存在數(shù)組中，并顯示在文本框中。（2）通過(guò)“清除數(shù)據(jù)”按鈕應(yīng)能清除文本框中的內(nèi)容。（3）從“按職工號(hào)查詢”按鈕左端文本框輸入職工號(hào)，單擊“按職工號(hào)查詢”，在窗體大的文本框中顯示查詢結(jié)果。從“按姓名查詢”按鈕左端文本框輸入姓名，單擊“按姓名查詢”按鈕，在窗體大的文本框中顯示查詢結(jié)果。（4）從“按職工號(hào)修改”（“按姓名修改”）按鈕，在輸入對(duì)話框中輸入職工號(hào)，對(duì)查詢到的職工的職工號(hào)(姓名)進(jìn)行修改，在窗體大的文本框中顯示修改結(jié)果。從輸入一條記錄后文本框中輸入一條記錄信息，單擊“追加數(shù)據(jù)并顯示結(jié)果”按鈕。二、部分程序關(guān)鍵源代碼及注釋 rivate Sub Command1_Click()End SubPrivate Sub Command2_Click()職工信息管理系統(tǒng)設(shè)計(jì)報(bào)告（VB）編號(hào)：22 End SubPrivate Sub Command3_Click()e = True Unload Me End SubPrivate Sub Command4_Click() If = “117001” Then “張三 117001” ElseIf = “117002” Then “李四 117002” ElseIf = “117003” Then “王五 117003” ElseIf = “117004” Then “王六 117004” ElseIf = “117005” Then “趙七 117005” ElseIf = “117006” Then “李八 117006” ElseIf = “117007” Then “劉九 117007” ElseIf = “117008” Then “馬十117008” Else: MsgBox “請(qǐng)輸入正確的職工號(hào)” End If職工信息管理系統(tǒng)設(shè)計(jì)報(bào)告（VB）編號(hào)：22 End SubPrivate Sub Command5_Click()Dim a As String Dim b As String b = InputBox(“請(qǐng)輸入要修改的職工的職工號(hào)”)a = InputBox(“請(qǐng)輸入新的職工姓名”)If b = “117001” Then a amp。 “” amp。 b ElseIf b = “117002” Then a amp。 “” amp。 b ElseIf b = “117003” Then a amp。 “” amp。 b ElseIf b = “117004” Then a amp。 “” amp。 b ElseIf b = “117005” Then a amp。 “” amp。 b ElseIf b = “117006” Then a amp。 “” amp。 b ElseIf b = “117007” Then a amp。 “” amp。 b ElseIf b = “117008” Then a amp。 “” amp。 b Else: MsgBox “請(qǐng)輸入正確的職工號(hào)” End If a amp。 “” amp。 b End Sub職工信息管理系統(tǒng)設(shè)計(jì)報(bào)告（VB）編號(hào)：22 Private Sub Command6_Click() If = “張三” Then “張三 117001” ElseIf = “李四” Then “李四 117002” ElseIf = “王五” Then “王五 117003” ElseIf = “王六” Then “王六 117004” ElseIf = “趙七” Then “趙七 117005” ElseIf = “李八” Then “李八 117006” ElseIf = “劉九” Then “劉九 117007” ElseIf = “馬十” Then “馬十117008” Else: MsgBox “請(qǐng)輸入正確的職工姓名” End If End SubPrivate Sub Command7_Click()Dim a As String Dim b As String a = InputBox(“請(qǐng)輸入要修改的職工姓名”)b = Str(InputBox(“請(qǐng)輸入新職工號(hào)”))If a = “張三” Then a amp。 “” amp。 b職工信息管理系統(tǒng)設(shè)計(jì)報(bào)告（VB）編號(hào)：22 ElseIf a = “李四” Then a amp。 “” amp。 b ElseIf a = “王五” Then a amp。 “” amp。 b ElseIf a = “王六” Then a amp。 “” amp。 b ElseIf a = “趙七” Then a amp。 “” amp。 b ElseIf a = “李八” Then a amp。 “” amp。 b ElseIf a = “劉九” Then a amp。 “” amp。 b ElseIf a = “馬十” Then a amp。 “” amp。 b Else: MsgBox “請(qǐng)輸入正確的職工姓名” End If End SubPrivate Sub Command8_Click()Dim a As String Dim b As Stringa = InputBox(“請(qǐng)輸入新員工姓名”)b = InputBox(“請(qǐng)輸入新員工的職工號(hào)”) a amp。 “” amp。 b End Sub Private Sub Combo2_Change()Select Case 職工信息管理系統(tǒng)設(shè)計(jì)報(bào)告（VB）編號(hào)：22 Case “*.txt” = “*.txt” Case “*.ini” = “*.ini” Case “*.doc” = “*.doc” Case “*.*” = “*.*” End Select End SubPrivate Sub Command1_Click()Dim fileno As Integer, strl As String fileno = FreeFile Open “” For Input As fileno i = 0 Do While Not EOF(fileno)Input fileno, str1 str1i = i + 1 Loop Close fileno End SubPrivate Sub Command2_Click() End Sub職工信息管理系統(tǒng)設(shè)計(jì)報(bào)告（VB）編號(hào)：22Private Sub Drive1_Change() = End SubPrivate Sub File1_Click() = End SubPrivate Sub VScroll1_Change() End Sub三、設(shè)計(jì)方案的完善及目前存在的問(wèn)題1．設(shè)計(jì)方案要完善的地方追加的信息無(wú)法加載到“職工信息txt”里 查詢只是單一的一對(duì)一輸入，不智能 文件類型的篩選問(wèn)題暫未處理辦法 只是簡(jiǎn)單的查詢，不適合大量數(shù)據(jù)的導(dǎo)入與導(dǎo)出，不方便查看四、本次設(shè)計(jì)的收獲及心得體會(huì)第一次嘗試程序的制作，覺(jué)得非常有意思，做成功以后很有成就感，我還發(fā)現(xiàn)，程序制作出來(lái)的好壞直接影響使用者的工作效率，好的軟件可以使用戶事半功倍，對(duì)程序的運(yùn)作體系越了解，設(shè)計(jì)的軟件越智能，越能更好的服務(wù)于使用者，好好學(xué)習(xí)VB計(jì)算機(jī)語(yǔ)言，是磨刀不誤砍柴工的體現(xiàn)。五、對(duì)該題目和VB設(shè)計(jì)的意見(jiàn)和建議Form2中的文件類型，有些偏難，在少數(shù)文件夾的情況下可以不用通過(guò)文件類型的篩選 2．對(duì)本次設(shè)計(jì)的意見(jiàn)和建議對(duì)此次課程設(shè)計(jì)的時(shí)間安排應(yīng)更具體，應(yīng)有相應(yīng)的素材圖片，增添軟件的美感