【正文】 息 刪除信息 信息管理 部門 管理 職務(wù)管理 系統(tǒng)管理 渠道管理 分銷計(jì)劃與管理 客戶管理與技術(shù)服務(wù) 市場監(jiān)測 行政管理 員工登陸 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說明書 14 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)是總體設(shè)計(jì)階段非常重要的環(huán)節(jié)。 （ 1） 用戶表的結(jié)構(gòu) 列名 數(shù)據(jù)類型 長度 姓名 Char 10 性別 Char 2 員工編號 Int 10 密碼 Char 10 所在部門 Char 10 職稱 Char 10 (2) 職務(wù) 表的結(jié)構(gòu) 列名 數(shù)據(jù)類型 長度 職務(wù)名稱 varchar 50 權(quán)限代號 Bit 1 (3)部門表的結(jié)構(gòu) 列名 數(shù)據(jù)類型 長度 部門名稱 varchar 50 部門智能 varchar 66666 (4)產(chǎn)品表的結(jié)構(gòu) 列名 數(shù)據(jù)類型 長度 名稱 char 10 代號 Char 10 大小 Varchar 50 軸距 Numeric 9 質(zhì)量 Numeric 9 車速 Numeric 9 容積 Numeric 9 描述 Varchar 7999 登陸時(shí)間 datetime 8 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說明書 15 (5)信息表的結(jié)構(gòu) 列表 數(shù)據(jù)類型 長度 發(fā)件部門 Varchar 50 發(fā)件人 Char 10 發(fā)件時(shí)間 Datetime 8 處理時(shí)限 Char 10 發(fā)件內(nèi)容 Varchar 1000 收件部門 varChar 50 收件人 char 10 信息狀態(tài) Bit 1 3． 3 權(quán)限設(shè)計(jì) 由于是對總體方案的設(shè)計(jì) 所以，對權(quán)限設(shè)計(jì)得比較少，兩個(gè)權(quán)限級別系統(tǒng)管理員和普通用戶，部長 的權(quán)限等級與系統(tǒng)管理員一樣 ， 系統(tǒng)管理員能執(zhí)行所有的功能，能對用戶進(jìn)行添加、查詢、修改資料、刪除部長以外 的用戶、能修改自己的密碼、對部門和職能進(jìn)行編輯、具備查詢、發(fā)送廣播、刪除歷史記錄的功能。 同時(shí)，為外部及內(nèi)部人員了解公司產(chǎn)品提 供了 員工登陸路徑，當(dāng)員工忘記密碼時(shí)，可以通過員工編號找回自己的密碼。 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說明書 17 4． 1． 3 企業(yè)機(jī)構(gòu)設(shè)置介紹界面及其代碼 當(dāng)用戶選擇列表中要查看的部門后，點(diǎn)擊查看后既可返回該部門的介紹 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說明書 18 Private Sub Command2_Click() Set bb = New If () Then str = select 部 門 職 能 from 部門表 where 部 門 名 稱 =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è)計(jì)說明書 19 (0) Wend End Sub 4． 1． 4 企業(yè) 產(chǎn)品介紹界面 及代碼 列表中顯示出公司所具有的所有產(chǎn)品，當(dāng)用戶選擇想要查看的產(chǎn)品信息時(shí)，點(diǎn)擊查看按扭，就會在當(dāng)前界面顯示該產(chǎn)品的詳細(xì)信息 了。此留言會做為信息直接發(fā)送到公司的客戶服務(wù)部，由客戶服務(wù)部部長直接接收 處理 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說明書 20 Set bb = New stn = select 姓名 from 用戶表 where 所在部門 =39。 stn, aa = (0) Set bb = New str = insert into 信息表 (發(fā)件部門 ,發(fā)件人 ,發(fā)件時(shí)間 ,處理時(shí)限 ,發(fā)件內(nèi)容 ,收件部門 ,收件人 ,信息狀態(tài) ) values(39。,39。,39。,39。,39。,39。,39。,0) str, aa MsgBox 信息已經(jīng)發(fā)送成功 ) End Sub Private Sub Command2_Click() End Sub Private Sub Form_Load() = Format(Now, yyyymmdd) 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說明書 21 Set aa = New Set bb = New dsn=ss End Sub 4． 1． 6 員工登陸界面 及代碼 當(dāng)員工輸入正確的姓名和密碼時(shí)，就可以登陸營銷管理模塊，否則將提示錯(cuò)誤 ，不能進(jìn)入系統(tǒng) Private Sub Command1_Click() Set bb = New str = select * from 用戶表 where 姓名 =39。 and 密碼 =39。 str, aa If Not Then Else 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說明書 22 MsgBox 密碼或者用戶名錯(cuò)誤 = = End If End Sub Private Sub Command2_Click() End Sub Private Sub Form_Load() Set aa = New Set bb = New dsn=ss End Sub 4． 1． 7 密碼找回界面 當(dāng)用戶忘記密碼時(shí)，就可以根據(jù)員工編號找回密碼 Private Sub Command1_Click() If = Then MsgBox 請輸入您的姓名 Exit Sub End If If = Then MsgBox 請輸入您的員工編號 Exit Sub End If If = Then MsgBox 請輸入您的新密碼 Exit Sub End If If = Then MsgBox 請確認(rèn)新密碼 Exit Sub 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說明書 23 End If If Then MsgBox 兩次輸入不一致，請重新輸入 Exit Sub End If str = select 員工編號 from 用戶表 where 姓名 =39。 str, aa If Not Then Set bb = New cc = update 用戶表 set 密碼 =39。 where 姓名 =39。 cc, aa MsgBox 您可以用您的新密碼登陸了 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說明書 24 4． 2 營銷信息系統(tǒng) 主 窗體 這是本系統(tǒng)中最主要的界面，采用菜單的方式提供了本系統(tǒng)的 各種功能，顯示當(dāng)前用戶的基本狀態(tài)并且當(dāng)用戶收到新消息時(shí)做出提示，并且通過對 權(quán)限代碼的判斷，來設(shè)置用戶的 可使用的功能 。 Private Sub Form_Load() Set bb = New str = select 所在部門 from 用戶表 where 姓名 =39。 str, aa = (0) Set bb = New stn = select 職稱 from 用戶表 where 姓名 =39。 stn, aa = (0) = Trim$() = Format(Now, yyyymmdd) 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說明書 25 = Trim$(Time) Dim ss As String Set bb = New rr = select 權(quán)限代號 from 職務(wù)表 where 職務(wù)名稱 =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。and 信息狀態(tài) =0 cc, aa If Not Then = 您有新的短消息，請注意查收 End If End Sub 4． 2． 1 用戶管理模塊 用戶管理模塊 中包含以下一些功能 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說明書 26 添加用戶 刪除用戶 修改用戶基本資料 修改當(dāng)前登陸用戶密碼 查詢用戶資料 4． 2． 1． 1 添加用戶界面及代碼 通過此界面，系統(tǒng)管理員 可以對用戶進(jìn)行添加 當(dāng)員工姓名和編號出現(xiàn)重復(fù)時(shí)就提示不能添加 。 Private Sub Command1_Click() If = Then MsgBox 請輸入姓名！ Exit Sub End If If = Then MsgBox 請選擇性別 Exit Sub 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說明書 27 End If If = Then MsgBox 請輸入員工號！ Exit Sub End If If = Then MsgBox 請選擇一個(gè)部門 Exit Sub End If If = Then MsgBox 請選擇職務(wù)！ Exit Sub End If Dim yy As String Dim xx As String Dim cc As String