【正文】 替老系統(tǒng)，調(diào)試新系統(tǒng)使之能夠安全的運行。 營銷信息管理系統(tǒng)是一個復(fù)雜的人機系統(tǒng)，它涉及企業(yè)管理思想與管理概念的更新，企業(yè)過程的重組，系統(tǒng)規(guī)劃，系統(tǒng)開發(fā)等多項內(nèi)容。 10 3． 2 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計 9 2． 1． 1 公司現(xiàn)狀分析 5 1. 1 企業(yè)營銷信息系統(tǒng)的含義 本文著重點介紹了該系統(tǒng)中的總體功能規(guī)劃 ，根據(jù)需求分析，對企業(yè)的需要設(shè)計出相應(yīng)的功能模塊。 36 4． 2． 4 信息管理主界面 43 4． 2． 4． 2 提取新信息界面及代碼 48 4． 2． 4． 4 已回復(fù)信息查詢 輸入和輸出設(shè)計則應(yīng)該是保證信息能夠正確，及時，高效，及時的向系統(tǒng)輸入和輸出。在軟件不斷發(fā)展的同時，硬件產(chǎn)商也開始提出“企業(yè)計算平臺”的概念，為企業(yè)信 息管理系統(tǒng)的發(fā)展推波助瀾，提供完善的硬件解決方案。 國外還 流 行一 種新 型的 軟件 過程 模式 — 敏 捷開 發(fā)， 其典 型的 方法 有 :XP (ExtremeProgramming— 極限編程〕、 Cockburn 的水晶系列方法、開放式源碼、Highsmith 的適應(yīng)性軟件開發(fā)方法 (ASD)、 SCRUM 等等。 但是，我國的計算機裝機容量相當(dāng)驚人，國有的大、 中型骨干企業(yè)的計算機普及率達 90%以上，其中有半數(shù)以上的骨干企業(yè)建立了各類面向企業(yè)局部管理職能的基于計算機的信息系統(tǒng)，其中有一部分企業(yè)正在建設(shè)面向企業(yè)管理全過程的綜合信息系統(tǒng)，相信在未來的一段時期內(nèi)我國的商業(yè)信息管理系統(tǒng)的應(yīng)用必將得到更 大的發(fā)展。 同時，還考慮到企業(yè)職務(wù)的新增、刪除、調(diào)轉(zhuǎn)等情況，面對這個問題，設(shè)置了職務(wù)管理模塊，在此模塊，管理人員可以根據(jù)需要，新增職務(wù)，并對其權(quán)限進行定義，有時候，企業(yè)內(nèi)部會出現(xiàn)職務(wù)遷升或調(diào)轉(zhuǎn)部門等情況，根據(jù)這個需求就設(shè)置了職務(wù)調(diào)轉(zhuǎn)功能。 stn, aa = (0) Set bb = New str = insert into 信息表 (發(fā)件部門 ,發(fā)件人 ,發(fā)件時間 ,處理時限 ,發(fā)件內(nèi)容 ,收件部門 ,收件人 ,信息狀態(tài) ) values(39。 and 密碼 =39。 rr, aa If Not Then If (0) = 0 Then = True = True = True = True = True = True = True = False = False = False = False = False = False End If End If Set bb = New Dim cc As String cc = select * from 信息表 where 收件人 =39。,39。 dd MsgBox 該用戶已經(jīng)刪除 Set aa = New Set bb = New dsn=ss Dim cc As String cc = select 姓名 from 用戶表 cc cc, aa While = False (0) Wend End If End If End If End Sub Private Sub Form_Load() Set aa = New Set bb = New dsn=ss Dim cc As String cc = select 姓名 from 用戶表 cc cc, aa While = False (0) 重慶工商大學(xué) 畢業(yè)設(shè)計說明書 31 Wend 4． 2． 1． 3 修 改用戶基本資料界面 當(dāng)用戶的資料出現(xiàn) 錯誤時，可以通過該功能對用戶的信息進行修改 4． 2． 1． 4 查詢用戶信息界面 及代碼 此界面可顯示出所有用戶的信息，并且可以按姓名或員工編號對用戶進行查詢并在文本 框 中得到顯示 。 + Trim$() + 39。 + + 39。 + Trim$(Text1(1).Text) + 39。 重慶工商大學(xué) 畢業(yè)設(shè)計說明書 43 rr, aa If Not Then If (0) = 0 Then = False = False End If Set aa = New Set bb = New dsn=ss Set bb = New Dim cc As String cc = select * from 信息表 where 收件人 =39。139。139。 + Trim$() + 39。 + Trim(Text1(3).Text) + 39。 and 職稱 =39。 xx, aa If Not Then MsgBox 該部長已經(jīng)任職，錯誤操作 Exit Sub End If Set bb = New If MsgBox(真的要添加用戶 + , vbOKCancel + vbExclamation, 警告 ) = vbOK Then dd = insert into 用戶表 (姓名 ,性別 ,員工編號 ,密碼 ,所在部門 ,職稱 )values(39。 str, aa = (0) Set bb = New stn = select 職稱 from 用戶表 where 姓名 =39。,39。 str, aa = (0) Else MsgBox 請選擇您要查看的部門 End If End Sub Private Sub Form_Load() Set aa = New Set bb = New dsn=ss Dim cc As String cc = select 部門名稱 from 部門表 cc cc, aa While = False 重慶工商大學(xué) 畢業(yè)設(shè)計說明書 19 (0) Wend End Sub 4． 1． 4 企業(yè) 產(chǎn)品介紹界面 及代碼 列表中顯示出公司所具有的所有產(chǎn)品，當(dāng)用戶選擇想要查看的產(chǎn)品信息時，點擊查看按扭，就會在當(dāng)前界面顯示該產(chǎn)品的詳細信息 了。 （ 4） 信息管理 在信息管理中，實現(xiàn)員工之間的信息交流，包括發(fā)送信息，發(fā)送廣播 查看信息、查詢信息、當(dāng)收到新信息的時候出現(xiàn)提示、并且能提取新信息 的功能 。項目開發(fā)有計算機技術(shù)人員獨自完成，并且缺乏規(guī)范的程序和標(biāo)準(zhǔn)。 可見在發(fā)達國家，這些電子收款機已經(jīng)非常普及了，并且他們具有比較完善的信息處理方法和管理手段。 CRM 是選擇和管理有價值客戶及其關(guān)系的一種商業(yè)策略， CRM 要求以客戶為中心的商業(yè)哲學(xué)和企業(yè)文化來支持有效的市場營銷、銷售與服務(wù)流程。 3） 系統(tǒng)設(shè)計主要包括功能模塊的設(shè)計，信息模塊的設(shè)計，信息分類編碼的設(shè)計，以及資源的設(shè)計，組織的設(shè)計，還包括對關(guān)鍵技術(shù)的分析。 35 4． 2． 3． 1 部門添加及刪除界面及代碼 30 4． 2． 1． 4 查詢用戶信息界面及代碼 22 4． 2． 1 用戶管理模塊 11 3． 3 權(quán)限設(shè)計 1 第一章 企業(yè)營銷信息管理系統(tǒng)概論 2 realization of the basic management departments。 10 2． 1． 1 功能模塊的構(gòu)成 13 第 4 章 軟件詳細設(shè)計 可行性研究的步驟一般是，組織隊伍，制定工作計劃，現(xiàn)狀調(diào)查，研究目前系統(tǒng)，確定目標(biāo)，提出總體方案，制定實施計劃，經(jīng)濟效益分析最后編寫可行性報告。從 20 世紀(jì)60 年代開始，企業(yè)開始使用計算機處理日常的交易數(shù)據(jù)，以節(jié)省人力資源及提高數(shù)據(jù)的正確性與時效性，一般稱為電子數(shù)據(jù)處理 (Electronic Data Processing)。 3 ） EDI 系統(tǒng) 電子數(shù)據(jù)交換系統(tǒng)，就是通常所說的無紙貿(mào)易系統(tǒng)，以電子重慶工商大學(xué) 畢業(yè)設(shè)計說明書 8 數(shù)據(jù)形式進行信息傳輸，目的是減少商業(yè)貿(mào)易中的票據(jù)單證數(shù)量，加速貿(mào)易過程。通訊帶寬要求高，因為每個客戶端都直接向數(shù)據(jù)庫發(fā)出請求，與數(shù)據(jù)庫的通訊很容易形成通訊瓶頸，除非在數(shù)據(jù)庫端加大投資做成集群 :如果系統(tǒng)要跨網(wǎng)關(guān)運行，那么實現(xiàn)就非常困難。實現(xiàn)通過對登陸身份的識別，是用戶能夠找回密碼。 4． 1． 2 企業(yè)經(jīng)營理念界面 此界面主要是向登陸此界面的人介紹一些關(guān)于企業(yè)的經(jīng)營理念，如企業(yè)的經(jīng)營理念、發(fā)展方向 、長遠目標(biāo)、管理思想等。 + Trim$() + 39。 其中在系統(tǒng)功能中包含了用戶管理， 部門管理， 職務(wù)管理以及信息管理四個功能模塊。 + Trim$() + 39。列表中自動返回所有用戶的姓名，選擇要刪除的的用戶后點刪除按扭就可以將普通用戶刪除。 Private Sub Form_Load() Set aa = New Set bb = New dsn=ss = End Sub Private Sub Command1_Click() Dim cc As String Set bb = New cc = select * from 用戶表 where 姓名 =39。 stn, aa = (0) End Sub 重慶工商大學(xué) 畢業(yè)設(shè)計說明書 38 Private Sub Command1_Click() If = Then MsgBox 請選擇將調(diào)轉(zhuǎn)的部門 Exit Sub End If If = Then MsgBox 請選擇將調(diào)轉(zhuǎn)的職務(wù) Exit Sub End If Dim jj As String Set bb = New str = select * from 用戶表 where 39。 重慶工商大學(xué) 畢業(yè)設(shè)計說明書 40 Private Sub Command1_Click() End Sub Private Sub Command10_Click() if Not Then For i = 0 To 4 = i Text1(i).Text = Next i Else End If End Sub Private Sub Command8_Click() 重慶工商大學(xué) 畢業(yè)設(shè)計說明書 41 Set bb = New Dim zz As String zz = select * from 信息表 where 收件人 =39。 dd MsgBox 刪除成功 End If For i = 0 To 4 Text1(i).Text = Next i Dim ww As String ww = select * from 信息表 where 收件人 =39。 + Trim$() + 39。 and 處理時限 =39。 stn, aa Set bb = New jj = Update 用戶表 set 職稱 = 39。在部門添加界面，必須定義該職務(wù)的 權(quán)限等級。如果不存在該用戶時，系統(tǒng)會發(fā)出提示。11111139。系統(tǒng)自動返回初始