【正文】 畢業(yè)設(shè)計(jì)說(shuō)明書 19 (0) Wend End Sub 4． 1． 4 企業(yè) 產(chǎn)品介紹界面 及代碼 列表中顯示出公司所具有的所有產(chǎn)品，當(dāng)用戶選擇想要查看的產(chǎn)品信息時(shí)，點(diǎn)擊查看按扭，就會(huì)在當(dāng)前界面顯示該產(chǎn)品的詳細(xì)信息 了。,39。,39。 str, aa If Not Then Set bb = New cc = update 用戶表 set 密碼 =39。 str, aa = (0) Set bb = New stn = select 職稱 from 用戶表 where 姓名 =39。 Private Sub Command1_Click() If = Then MsgBox 請(qǐng)輸入姓名！ Exit Sub End If If = Then MsgBox 請(qǐng)選擇性別 Exit Sub 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書 27 End If If = Then MsgBox 請(qǐng)輸入員工號(hào)！ Exit Sub End If If = Then MsgBox 請(qǐng)選擇一個(gè)部門 Exit Sub End If If = Then MsgBox 請(qǐng)選擇職務(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 員工編號(hào) =39。 xx, aa If Not Then MsgBox 該部長(zhǎng)已經(jīng)任職，錯(cuò)誤操作 Exit Sub End If Set bb = New If MsgBox(真的要添加用戶 + , vbOKCancel + vbExclamation, 警告 ) = vbOK Then dd = insert into 用戶表 (姓名 ,性別 ,員工編號(hào) ,密碼 ,所在部門 ,職稱 )values(39。,39。 and 職稱 =39。 重慶工商大學(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(Text1(3).Text) + 39。 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)行其信息的管理。 + Trim$() + 39。 + + 39。139。 + Trim$(Text1(3).Text) + 39。139。and 信息狀態(tài) =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。 + Trim$(Text1(1).Text) + 39。當(dāng)用戶沒(méi)有收到信息的歷史記錄時(shí)，則上一條、下一條、刪除信息按扭都不可用。 + + 39。 + Trim$() + 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)前用戶的姓名，只要輸入正確的舊密碼，該用戶就可以修改自己的密碼了。 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)行查詢并在文本 框 中得到顯示 。) 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è)計(jì)說(shuō)明書 29 4． 2． 1． 2 用戶刪除界面 及代碼 當(dāng) 某一 用戶離職時(shí)，可以通過(guò)此功能對(duì)用戶進(jìn)行刪除 ，但是不能刪除部長(zhǎng)等高級(jí)職務(wù) 。,39。 yy, aa If Not Then MsgBox 此員工已經(jīng)存在 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書 28 Exit Sub End If Set bb = New xx = 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。 cc, aa MsgBox 您可以用您的新密碼登陸了 重慶工商大學(xué) 畢業(yè)設(shè)計(jì)說(shuō)明書 24 4． 2 營(yíng)銷信息系統(tǒng) 主 窗體 這是本系統(tǒng)中最主要的界面，采用菜單的方式提供了本系統(tǒng)的 各種功能，顯示當(dāng)前用戶的基本狀態(tài)并且當(dāng)用戶收到新消息時(shí)做出提示，并且通過(guò)對(duì) 權(quán)限代碼的判斷，來(lái)設(shè)置用戶的 可使用的功能 。 and 密碼 =39。,39。 stn, aa = (0) Set bb = New str = insert into 信息表 (發(fā)件部門 ,發(fā)件人 ,發(fā)件時(shí)間 ,處理時(shí)限 ,發(fā)件內(nèi)容 ,收件部門 ,收件人 ,信息狀態(tài) ) values(39。 同時(shí)，為外部及內(nèi)部人員了解公司產(chǎn)品提 供了 員工登陸路徑，當(dāng)員工忘記密碼時(shí)，可以通過(guò)員工編號(hào)找回自己的密碼。 同時(shí)，還考慮到企業(yè)職務(wù)的新增、刪除、調(diào)轉(zhuǎn)等情況，面對(duì)這個(gè)問(wèn)題，設(shè)置了職務(wù)管理模塊，在此模塊，管理人員可以根據(jù)需要，新增職務(wù)，并對(duì)其權(quán)限進(jìn)行定義，有時(shí)候，企業(yè)內(nèi)部會(huì)出現(xiàn)職務(wù)遷升或調(diào)轉(zhuǎn)部門等情況，根據(jù)這個(gè)需求就設(shè)置了職務(wù)調(diào)轉(zhuǎn)功能。 2． 2． 2 功能模 塊的 具體功能 （ 1） 用戶管理 模塊 可以對(duì)所有的職員進(jìn)行管理，可登記職員的相應(yīng)職務(wù)及所屬于部門，職員的相關(guān)資料，并對(duì)實(shí)現(xiàn)其進(jìn)行修改，添加，刪除的功能。 但是，我國(guó)的計(jì)算機(jī)裝機(jī)容量相當(dāng)驚人，國(guó)有的大、 中型骨干企業(yè)的計(jì)算機(jī)普及率達(dá) 90%以上，其中有半數(shù)以上的骨干企業(yè)建立了各類面向企業(yè)局部管理職能的基于計(jì)算機(jī)的信息系統(tǒng)，其中有一部分企業(yè)正在建設(shè)面向企業(yè)管理全過(guò)程的綜合信息系統(tǒng)，相信在未來(lái)的一段時(shí)期內(nèi)我國(guó)的商業(yè)信息管理系統(tǒng)的應(yīng)用必將得到更 大的發(fā)展。 在系統(tǒng)實(shí)現(xiàn)部分，目前國(guó)內(nèi)的企業(yè)信息管理系統(tǒng)中基于 C/S 結(jié)構(gòu)的比較多，這種結(jié)構(gòu)最大的問(wèn)題是 :客戶端配置困難，數(shù)據(jù)庫(kù)的投資較大，因?yàn)槊繑U(kuò)充一個(gè)客戶端，就必須在客戶端配置一個(gè)數(shù)據(jù)庫(kù)的連接引擎，就必須購(gòu)買一個(gè)數(shù)據(jù)庫(kù)的License。 國(guó)外還 流 行一 種新 型的 軟件 過(guò)程 模式 — 敏 捷開 發(fā)， 其典 型的 方法 有 :XP (ExtremeProgramming— 極限編程〕、 Cockburn 的水晶系列方法、開放式源碼、Highsmith 的適應(yīng)性軟件開發(fā)方法 (ASD)、 SCRUM 等等。一類是對(duì)一個(gè)包括連鎖店、分商場(chǎng)等在內(nèi)的集團(tuán)公司進(jìn)行系統(tǒng)管理的系統(tǒng) 2 ） EOS 系統(tǒng) 也就是電子訂貨系統(tǒng) 是指利用掌上型終端機(jī)，依貨架或臺(tái)長(zhǎng)輸入要訂貨的商品，利用電話線路送給商場(chǎng)的發(fā)貨中心或供應(yīng)商，一次來(lái)完成訂貨手續(xù)，利用 POS 系統(tǒng)對(duì)銷售進(jìn)行管理，同時(shí)利用 EOS 加以整合。在軟件不斷發(fā)展的同時(shí)，硬件產(chǎn)商也開始提出“企業(yè)計(jì)算平臺(tái)”的概念，為企業(yè)信 息管理系統(tǒng)的發(fā)展推波助瀾，提供完善的硬件解決方案。 1． 5 國(guó)內(nèi)外