【正文】 and 信息狀態(tài) =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。 + Trim$() + 39。 + Trim$(Text1(3).Text) + 39。 + Trim$(Text1(1).Text) + 39。139。當用戶沒有收到信息的歷史記錄時，則上一條、下一條、刪除信息按扭都不可用。 + + 39。 + + 39。 + Trim$() + 39。 + Trim$() + 39。 4． 2． 3． 1 部門添加及刪除界面及代碼 其 實現(xiàn)方法與用戶的添加和刪除功能類似， 故 不贅述 4． 2． 3． 2 職務(wù)調(diào)轉(zhuǎn)界面 重慶工商大學(xué) 畢業(yè)設(shè)計說明書 37 當企業(yè)內(nèi)部出現(xiàn)職務(wù)遷升或調(diào)轉(zhuǎn)的時候，就可以通過該界面進行其信息的管理。 + Trim$() + 39。 + Trim(Text1(3).Text) + 39。 str, aa If Not Then For i = 0 To 5 Text1(i).Text = (i) Next i = str Else MsgBox 該用戶不存在 End If End If = Exit Sub End If If = Then 重慶工商大學(xué) 畢業(yè)設(shè)計說明書 34 MsgBox 請選擇查詢方式 = = Exit Sub 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． 2． 1． 5 修改當前用戶密碼界面 及代碼 該界面會自動返回當前用戶的姓名，只要輸入正確的舊密碼，該用戶就可以修改自己的密碼了。 重慶工商大學(xué) 畢業(yè)設(shè)計說明書 32 Private Sub Command5_Click() End Sub Private Sub Command1_Click() Set bb = New If Then = False If = Then MsgBox 請輸入您要查詢的用戶 Else str = select * from 用戶表 where 姓名 =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 修 改用戶基本資料界面 當用戶的資料出現(xiàn) 錯誤時，可以通過該功能對用戶的信息進行修改 4． 2． 1． 4 查詢用戶信息界面 及代碼 此界面可顯示出所有用戶的信息，并且可以按姓名或員工編號對用戶進行查詢并在文本 框 中得到顯示 。 and 職稱 =39。) dd MsgBox 員工信息添加成功 = = End If Private Sub Form_Load() Set aa = New Set bb = New dsn=ss Dim cc As String bm = select 部門名稱 from 部門表 bm bm, aa While = False (0) Wend End Sub 重慶工商大學(xué) 畢業(yè)設(shè)計說明書 29 4． 2． 1． 2 用戶刪除界面 及代碼 當 某一 用戶離職時，可以通過此功能對用戶進行刪除 ，但是不能刪除部長等高級職務(wù) 。,39。,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。 yy, aa If Not Then MsgBox 此員工已經(jīng)存在 重慶工商大學(xué) 畢業(yè)設(shè)計說明書 28 Exit Sub End If Set bb = New xx = select * from 用戶表 where 所在部門 =39。 Private Sub Command1_Click() If = Then MsgBox 請輸入姓名！ Exit Sub End If If = Then MsgBox 請選擇性別 Exit Sub 重慶工商大學(xué) 畢業(yè)設(shè)計說明書 27 End If If = Then MsgBox 請輸入員工號！ Exit Sub End If If = Then MsgBox 請選擇一個部門 Exit Sub End If If = Then MsgBox 請選擇職務(wù)！ Exit Sub End If Dim yy As String Dim xx As String Dim cc As String Dim dd As String Set bb = New cc = select * from 用戶表 where 員工編號 =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。 str, aa = (0) Set bb = New stn = select 職稱 from 用戶表 where 姓名 =39。 cc, aa MsgBox 您可以用您的新密碼登陸了 重慶工商大學(xué) 畢業(yè)設(shè)計說明書 24 4． 2 營銷信息系統(tǒng) 主 窗體 這是本系統(tǒng)中最主要的界面，采用菜單的方式提供了本系統(tǒng)的 各種功能，顯示當前用戶的基本狀態(tài)并且當用戶收到新消息時做出提示，并且通過對 權(quán)限代碼的判斷，來設(shè)置用戶的 可使用的功能 。 str, aa If Not Then Set bb = New cc = update 用戶表 set 密碼 =39。 and 密碼 =39。,39。,39。,39。 stn, aa = (0) Set bb = New str = insert into 信息表 (發(fā)件部門 ,發(fā)件人 ,發(fā)件時間 ,處理時限 ,發(fā)件內(nèi)容 ,收件部門 ,收件人 ,信息狀態(tài) ) values(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)品，當用戶選擇想要查看的產(chǎn)品信息時，點擊查看按扭，就會在當前界面顯示該產(chǎn)品的詳細信息 了。 同時，為外部及內(nèi)部人員了解公司產(chǎn)品提 供了 員工登陸路徑，當員工忘記密碼時，可以通過員工編號找回自己的密碼。 重慶工商大學(xué) 畢業(yè)設(shè)計說明書 13 3． 2 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計 添加用戶 刪除用戶 修改用戶資料 查詢用戶資料 修改個人密碼 創(chuàng)建職務(wù) 刪除職務(wù) 職務(wù)調(diào)轉(zhuǎn) 新增部門 刪除部門 用戶管理 發(fā)送信息 發(fā)送廣播 查詢回復(fù) 提取新信息 刪除信息 信息管理 部門 管理 職務(wù)管理 系統(tǒng)管理 渠道管理 分銷計劃與管理 客戶管理與技術(shù)服務(wù) 市場監(jiān)測 行政管理 員工登陸 重慶工商大學(xué) 畢業(yè)設(shè)計說明書 14 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計是總體設(shè)計階段非常重要的環(huán)節(jié)。 同時，還考慮到企業(yè)職務(wù)的新增、刪除、調(diào)轉(zhuǎn)等情況，面對這個問題，設(shè)置了