【導(dǎo)讀】門的相互運(yùn)作和企業(yè)的經(jīng)濟(jì)效益。本課題主要針對(duì)企業(yè)營(yíng)銷信息系統(tǒng)中存在的問(wèn)。停滯的問(wèn)題，以提高企業(yè)運(yùn)行的協(xié)同性，更好的發(fā)揮團(tuán)隊(duì)合作精神。具體實(shí)現(xiàn)了如下幾個(gè)方面的功能：1根據(jù)需要對(duì)企業(yè)員工進(jìn)行基本信息。供所有用戶使用的信息交流平臺(tái)。第一章企業(yè)營(yíng)銷信息管理系統(tǒng)概論·········································5

　　

【正文】 ew dd = delete 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è)計(jì)說(shuō)明書 31 Wend 4． 2． 1． 3 修 改用戶基本資料界面 當(dāng)用戶的資料出現(xiàn) 錯(cuò)誤時(shí)，可以通過(guò)該功能對(duì)用戶的信息進(jìn)行修改 4． 2． 1． 4 查詢用戶信息界面 及代碼 此界面可顯示出所有用戶的信息，并且可以按姓名或員工編號(hào)對(duì)用戶進(jìn)行查詢并在文本 框 中得到顯示 。 DATAGRID 中自動(dòng)顯示所有用戶的信息。選擇好查詢方式后，點(diǎn)查詢按扭就可以得到某個(gè)想要查詢的用戶的具體信息了。如果不存在該用戶時(shí)，系統(tǒng)會(huì)發(fā)出提示。 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書 32 Private Sub Command5_Click() End Sub Private Sub Command1_Click() Set bb = New If Then = False If = Then MsgBox 請(qǐng)輸入您要查詢的用戶 Else str = select * from 用戶表 where 姓名 =39。 + Trim$() + 39。 str, aa If Not Then For i = 0 To 5 Text1(i).Text = (i) Next i 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書 33 = str Else MsgBox 該用戶不存在 End If End If = Exit Sub End If If Then = False If = Then MsgBox 請(qǐng)輸入您要查詢的員工號(hào) Else str = select * from 用戶表 where 員工編號(hào) =39。 + Trim$() + 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è)計(jì)說(shuō)明書 34 MsgBox 請(qǐng)選擇查詢方式 = = 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 修改當(dāng)前用戶密碼界面 及代碼 該界面會(huì)自動(dòng)返回當(dāng)前用戶的姓名，只要輸入正確的舊密碼，該用戶就可以修改自己的密碼了。 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。 + Trim() + 39。and 密碼 =39。 + Trim(Text1(3).Text) + 39。 cc, aa If Then MsgBox 舊密碼錯(cuò)誤 Text1(3).SetFocus 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書 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 用戶表 SET 密碼 =39。 + Trim$(Text1(2).Text) + 39。 WHERE 姓名 =39。 + Trim$() + 39。 strSQL MsgBox 密碼修改成功！ End If End If 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書 36 4． 2． 2 部門管理 模塊 實(shí)現(xiàn)了對(duì)部門進(jìn)行添加和刪除的編輯功能。包括的界面為部門添加部門刪除實(shí)現(xiàn)方法與用戶的添加和刪除功能類似，不在贅述只是在刪除時(shí)設(shè)置了不能刪除高級(jí)用戶 以及還有人員在此部門任職時(shí)，不能刪除該部門 4． 2． 3 職務(wù)管理 模塊 包括三個(gè)界面，部門添加，部門刪除以及當(dāng)企業(yè)內(nèi)部出現(xiàn)職務(wù)調(diào)整或變遷時(shí)，可使用職務(wù)調(diào)轉(zhuǎn)功能實(shí)現(xiàn)對(duì)員工信息的更改 。在部門添加界面，必須定義該職務(wù)的 權(quán)限等級(jí)。 4． 2． 3． 1 部門添加及刪除界面及代碼 其 實(shí)現(xiàn)方法與用戶的添加和刪除功能類似， 故 不贅述 4． 2． 3． 2 職務(wù)調(diào)轉(zhuǎn)界面 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書 37 當(dāng)企業(yè)內(nèi)部出現(xiàn)職務(wù)遷升或調(diào)轉(zhuǎn)的時(shí)候，就可以通過(guò)該界面進(jìn)行其信息的管理。 Private Sub Combo1_Click() Set bb = New str = select 所在部門 from 用戶表 where 姓名 =39。 + Trim$() + 39。 str, aa = (0) Set bb = New stn = select 職稱 from 用戶表 where 姓名 =39。 + Trim$() + 39。 stn, aa = (0) End Sub 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書 38 Private Sub Command1_Click() If = Then MsgBox 請(qǐng)選擇將調(diào)轉(zhuǎ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 用戶表 where 39。所在部門 39。 =39。 + Trim$() + 39。and 職稱 =39。部長(zhǎng) 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 用戶表 set 所在部門 = 39。 + + 39。where 姓名 =39。 + Trim$() + 39。 stn, aa Set bb = New jj = Update 用戶表 set 職稱 = 39。 + + 39。where 姓名 =39。 + Trim$() + 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ō)明書 39 Private Sub Form_Load() Set aa = New Set bb = New dsn=ss Dim xm As String xm = select 姓名 from 用戶表 xm, aa While = False (0) Wend Set bb = New Dim bm As String bm = select 部門名稱 from 部門表 bm, aa While = False (0) Wend Set bb = New Dim bm2 As String bm2 = select 職務(wù)名稱 from 職務(wù)表 bm2, aa While = False (0) Wend End Sub 4． 2． 4 信息管理主界面 該界面主要實(shí)現(xiàn)的是返回登陸者所收到的消息，當(dāng)用戶登陸該界面時(shí)，如果有接收到來(lái)自其他人的信息，則提取新信息按扭可用。當(dāng)用戶沒(méi)有收到信息的歷史記錄時(shí)，則上一條、下一條、刪除信息按扭都不可用。 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書 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ō)明書 41 Set bb = New Dim zz As String zz = select * from 信息表 where 收件人 =39。 + Trim$() + 39。and 信息狀態(tài) =39。139。 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ā)件部門 =39。 + Trim$(Text1(0).Text) + 39。and 發(fā)件人 =39。 + Trim$(Text1(1).Text) + 39。 and 發(fā)件時(shí)間 =39。 + Text1(2).Text + 39。 and 處理時(shí)限 =39。 + Trim$(Text1(3).Text) + 39。 and 發(fā)件內(nèi)容 =39。 + Trim$(Text1(4).Text) + 39。 and 收件人 =39。 + Trim$() + 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 信息狀態(tài) =39。139。 39。 cc, aa = adCmdText = ww If Not Then 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書 42 = 0 For i = 0 To 4 = i Text1(i).Text = Next i Else = False = False = False = False = False End If End Sub Private Sub Command9_Click() If Not Then For i = 0 To 4 = i Text1(i).Text = Next i Else End If End Sub Private Sub Form_Load() = = = = Format(Now, yyyymmdd) = Trim$(Time) Dim ss As String Set bb = New rr = select 權(quán)限代號(hào) from 職務(wù)表 where 職務(wù)名稱 =39。 + + 39。 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書 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。 + Trim$() + 39。 and 信息狀態(tài) =1 = adCmdText = cc If Not Then = 0 For i = 0 To 4 = i Text1(i).Text = Next i Else = False = False = False = False End If Set bb = New Dim ee As String ee = select * from 信息表 where 收件人 =39。 + Trim$() + 39。and 信息狀態(tài) =39。039。 ee, aa 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書 44 If Then = False End If End If End Sub 4． 2． 4． 1 發(fā)送信息及廣播主界面 及代碼 通過(guò)該界面可以想公司的其他內(nèi)部成員發(fā)