【正文】 039。 + Trim$() + 39。 + Trim$() + 39。 + + 39。 39。and 信息狀態(tài) =39。 dd MsgBox 刪除成功 End If For i = 0 To 4 Text1(i).Text = Next i Dim ww As String ww = select * from 信息表 where 收件人 =39。 and 收件人 =39。 and 發(fā)件內(nèi)容 =39。 and 處理時(shí)限 =39。 and 發(fā)件時(shí)間 =39。and 發(fā)件人 =39。 zz, aa If Then MsgBox 已經(jīng)沒(méi)有您的歷史消息了 = False = False = False = False = False Exit Sub End If Dim dd As String If MsgBox(確定刪除信息 , vbOKCancel + vbExclamation, 警告 ) = vbOK Then dd = delete from 信息表 where 發(fā)件部門(mén) =39。and 信息狀態(tài) =39。 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書(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è)計(jì)說(shuō)明書(shū) 41 Set bb = New Dim zz As String zz = select * from 信息表 where 收件人 =39。 jj, aa MsgBox 調(diào)轉(zhuǎn)成功 End If End If End Sub Private Sub Command2_Click() End Sub 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書(shū) 39 Private Sub Form_Load() Set aa = New Set bb = New dsn=ss Dim xm As String xm = select 姓名 from 用戶(hù)表 xm, aa While = False (0) Wend Set bb = New Dim bm As String bm = select 部門(mén)名稱(chēng) from 部門(mén)表 bm, aa While = False (0) Wend Set bb = New Dim bm2 As String bm2 = select 職務(wù)名稱(chēng) from 職務(wù)表 bm2, aa While = False (0) Wend End Sub 4． 2． 4 信息管理主界面 該界面主要實(shí)現(xiàn)的是返回登陸者所收到的消息，當(dāng)用戶(hù)登陸該界面時(shí)，如果有接收到來(lái)自其他人的信息，則提取新信息按扭可用。where 姓名 =39。 stn, aa Set bb = New jj = Update 用戶(hù)表 set 職稱(chēng) = 39。where 姓名 =39。 str, aa If Not Then MsgBox 錯(cuò)誤操作 Else If MsgBox(確認(rèn)調(diào)轉(zhuǎn) , vbOKCancel) = vbOK Then Set bb = New stn = Update 用戶(hù)表 set 所在部門(mén) = 39。and 職稱(chēng) =39。 =39。 stn, aa = (0) End Sub 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書(shū) 38 Private Sub Command1_Click() If = Then MsgBox 請(qǐng)選擇將調(diào)轉(zhuǎn)的部門(mén) Exit Sub End If If = Then MsgBox 請(qǐng)選擇將調(diào)轉(zhuǎn)的職務(wù) Exit Sub End If Dim jj As String Set bb = New str = select * from 用戶(hù)表 where 39。 str, aa = (0) Set bb = New stn = select 職稱(chēng) from 用戶(hù)表 where 姓名 =39。 Private Sub Combo1_Click() Set bb = New str = select 所在部門(mén) from 用戶(hù)表 where 姓名 =39。在部門(mén)添加界面，必須定義該職務(wù)的 權(quán)限等級(jí)。 strSQL MsgBox 密碼修改成功！ End If End If 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書(shū) 36 4． 2． 2 部門(mén)管理 模塊 實(shí)現(xiàn)了對(duì)部門(mén)進(jìn)行添加和刪除的編輯功能。 WHERE 姓名 =39。 cc, aa If Then MsgBox 舊密碼錯(cuò)誤 Text1(3).SetFocus 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書(shū) 35 Text1(3).Text = Text1(1).Text = Text1(2).Text = Exit Sub End If If Len(Text1(2).Text) 6 Then MsgBox 請(qǐng)輸入 6 位新密碼 Text1(2).SetFocus Text1(2).Text = Text1(1).Text = Exit Sub End If If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 兩次輸入不一致 Text1(2).SetFocus Text1(2).Text = Text1(1).Text = Else If MsgBox(真的要修改密碼 , vbOKCancel) = vbOK Then strSQL = UPDATE 用戶(hù)表 SET 密碼 =39。and 密碼 =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 用戶(hù)表 where 姓名 =39。 + Trim$() + 39。 + Trim$() + 39。如果不存在該用戶(hù)時(shí)，系統(tǒng)會(huì)發(fā)出提示。 DATAGRID 中自動(dòng)顯示所有用戶(hù)的信息。 + () + 39。部長(zhǎng) 39。 + Trim$(()) + 39。列表中自動(dòng)返回所有用戶(hù)的姓名，選擇要?jiǎng)h除的的用戶(hù)后點(diǎn)刪除按扭就可以將普通用戶(hù)刪除。 + Trim$() + 39。 + Trim$() + 39。11111139。 + Trim$() + 39。 + Trim$() + 39。 + Trim$() + 39。部長(zhǎng) 39。 + Trim$() + 39。 + Trim() + 39。 + Trim() + 39。系統(tǒng)自動(dòng)返回初始密碼為 111111，并且 只允許一個(gè)部門(mén)只有一個(gè)部長(zhǎng)。 + Trim$() + 39。 + + 39。 + Trim$() + 39。 + Trim$() + 39。 其中在系統(tǒng)功能中包含了用戶(hù)管理， 部門(mén)管理， 職務(wù)管理以及信息管理四個(gè)功能模塊。 + + 39。 + + 39。 + Trim$() + 39。 + Trim() + 39。 + Trim() + 39。 + Trim$() + 39。客戶(hù)部 39。 + Trim$() + 39。 3 天 39。 + + 39?？蛻?hù) 39?？蛻?hù) 39?？蛻?hù)部 39。 4． 1． 5 客戶(hù)留言界面 及代碼 當(dāng)客戶(hù)對(duì)公司有意見(jiàn)和建議時(shí)，就可以點(diǎn)擊留言版塊，給公司留言。 + Trim$(()) + 39。 4． 1． 2 企業(yè)經(jīng)營(yíng)理念界面 此界面主要是向登陸此界面的人介紹一些關(guān)于企業(yè)的經(jīng)營(yíng)理念，如企業(yè)的經(jīng)營(yíng)理念、發(fā)展方向 、長(zhǎng)遠(yuǎn)目標(biāo)、管理思想等。而普通用戶(hù)只能修改自己的密碼和發(fā)送信息、查詢(xún)自己的歷史記錄和別人給自己發(fā)送的歷史記錄，沒(méi)有刪除信息的功能 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書(shū) 16 第 4 章 軟件詳細(xì)設(shè)計(jì) 4． 1 進(jìn)入 企業(yè)營(yíng)銷(xiāo)信息系統(tǒng)界面 4． 1． 1 進(jìn)入企業(yè)營(yíng)銷(xiāo)信息系統(tǒng)主界面 該窗體實(shí)現(xiàn)的主要功能是對(duì)登陸系統(tǒng)的每個(gè)人提供公司的各種信息，包括公司的介紹，公司的機(jī)構(gòu)設(shè)置，公司理念以及提供公司的聯(lián)系方式，并且設(shè)計(jì)了外部人員留言版，及時(shí)為公司的營(yíng)銷(xiāo)問(wèn)題進(jìn)行反饋 。數(shù)據(jù)庫(kù) yx 包含 5 個(gè)表，用戶(hù)表、部門(mén)表、職務(wù)表、產(chǎn)品表、信息表。而且，根據(jù)需求，只要用戶(hù)一登陸該系統(tǒng)，就會(huì)返回是否收到新信息的狀態(tài)，由此使得信息能夠及時(shí)的傳遞，只要用戶(hù)點(diǎn)擊提取信息按扭后就默認(rèn)為他已 經(jīng)閱讀過(guò)所收到新信息 ，當(dāng)然信息過(guò)期后，而且數(shù)據(jù)庫(kù)有限，所以，設(shè)置了信息刪除功能。 企業(yè)是由許多部門(mén)組成的，企業(yè)比不可少的會(huì)擴(kuò)大規(guī)模發(fā)展周邊產(chǎn)業(yè)、或者減小規(guī)模，改變方向，根據(jù) 這些需求，設(shè)置了部門(mén)管理模塊，該模塊具體實(shí)現(xiàn)的就是對(duì)企業(yè)部門(mén)的增加和刪減。 對(duì)于一個(gè)企業(yè)，由于隨時(shí)都會(huì)出現(xiàn) 新員工的加入，老員工的離開(kāi)的情況，所以設(shè)置了用戶(hù)管理模塊，在這個(gè)模塊里，系統(tǒng)管理員能夠 通過(guò)該模塊來(lái)對(duì)用戶(hù)的添加與刪除，實(shí)現(xiàn)對(duì)自己密碼的修改，當(dāng)高層管理者需要了解員工的具體信息時(shí)還可以用戶(hù)信息。 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書(shū) 12 第 3 章 軟件設(shè)計(jì)說(shuō)明 3． 1 系統(tǒng) 功能 總體結(jié)構(gòu) 通過(guò)對(duì)企業(yè)的調(diào)研分析，網(wǎng)上了解 以及與老師的溝通，初步了解了企業(yè)的現(xiàn)狀與需求 ， 面對(duì)這些需求，初步提出了營(yíng)銷(xiāo)信息系統(tǒng)的總體結(jié)構(gòu)功能。 （ 3） 職務(wù)管理 實(shí)現(xiàn)對(duì)公司的職務(wù)進(jìn)行添加、移除并且實(shí)現(xiàn)工的職務(wù)調(diào)轉(zhuǎn)的功能 。實(shí)現(xiàn)通過(guò)對(duì)登陸身份的識(shí)別，是用戶(hù)能夠找回密碼。 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書(shū) 11 2． 2 功能模塊設(shè)計(jì) 2． 2． 1 功能模塊的構(gòu)成 系統(tǒng)的功能模塊由 用戶(hù)管理模塊 、 部門(mén)管理模塊 、 職務(wù)管理模塊 、 信息管理模塊 四大模塊組成。 目前的企業(yè)內(nèi)部業(yè)務(wù)網(wǎng)覆蓋面廣，涉及的人員，部門(mén)，以及不同職務(wù)的人所處理的權(quán)限等 不同等問(wèn)題， 計(jì)算機(jī)信息化能滿(mǎn)足企業(yè)的這種需求。 重慶工商大學(xué)