公司聯(lián)系人管理系統(tǒng)報告.doc

遼 寧 工 業(yè) 大 學(xué) 數(shù)據(jù)庫原理與應(yīng)用 課程設(shè)計（論文）題目： 公司聯(lián)系人管理系統(tǒng) 院 （系）： 軟件學(xué)院 專業(yè)班級： 計算機(jī)信學(xué) 號： 學(xué)生姓名： 指導(dǎo)教師： 教師職稱： 助 教 起止時間：2010.11.22至2010.12.3課程設(shè)計（論文）任務(wù)及評語院（系）：軟件學(xué)院 教研室：軟件教研室學(xué) 號091403028學(xué)生姓名蔡璐專業(yè)班級計算機(jī)信息管理091班課程設(shè)計（論文）題目公司聯(lián)系人管理系統(tǒng)課程設(shè)計（論文）任務(wù)課程設(shè)計任務(wù)及要求：（1）掌握設(shè)計數(shù)據(jù)庫表及其間的關(guān)系的基礎(chǔ)知識（2）掌握設(shè)計相關(guān)的查詢、窗體、報表、數(shù)據(jù)訪問頁和宏（3）有和具體業(yè)務(wù)相關(guān)的處理功能（不少于5個）（4）用切換面板、主窗體、菜單欄和工具欄三種方式設(shè)計用戶界面。（5）用SQL設(shè)計帶統(tǒng)計函數(shù)的查詢（如MAX，MIN，COUNT，AVG，SUM）(6) 用編寫VBA代碼實現(xiàn)部分功能課程設(shè)計過程中，要嚴(yán)格遵守實踐環(huán)節(jié)的時間安排，聽從指導(dǎo)教師的指導(dǎo)。正確地完成上述內(nèi)容，記錄實習(xí)日記，規(guī)范完整地撰寫出課程設(shè)計論文。指導(dǎo)教師評語及成績成績： 指導(dǎo)教師簽字： 2010 年 12 月 6 日目 錄第1章 課程設(shè)計目的與要求11.1 課程設(shè)計目的11.2 課程設(shè)計的實驗環(huán)境11.3 課程設(shè)計的預(yù)備知識11.4 課程設(shè)計要求1第2章 課程設(shè)計內(nèi)容22.1 系統(tǒng)功能分析22.2 數(shù)據(jù)庫模型32.3 設(shè)計窗體和報表112.4 窗體和報表模塊主要代碼12第3章 課程設(shè)計總結(jié)15參考文獻(xiàn)16課程設(shè)計目的與要求1.1 課程設(shè)計目的本課程的課程設(shè)計實際是電子商務(wù)和計算機(jī)信息管理專業(yè)學(xué)生學(xué)習(xí)完數(shù)據(jù)庫原理及應(yīng)用（ACCESS 2003）課程后，進(jìn)行的一次全面的綜合訓(xùn)練，其目的在于加深對數(shù)據(jù)庫基礎(chǔ)理論和基本知識的理解，掌握運用數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)軟件的基本方法。1.2 課程設(shè)計的實驗環(huán)境硬件要求能運行Windows 9.X操作系統(tǒng)的微機(jī)系統(tǒng)。數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)軟件可以選用Microsoft Access，或其他數(shù)據(jù)庫管理系統(tǒng)。1.3 課程設(shè)計的預(yù)備知識熟悉數(shù)據(jù)庫的基本知識及一種以上數(shù)據(jù)庫系統(tǒng)開發(fā)軟件。1.4 課程設(shè)計要求按課程設(shè)計指導(dǎo)書提供的課題，應(yīng)根據(jù)下一節(jié)給出的基本需求獨立完成八個方面的設(shè)計，標(biāo)有“可選”的部分可根據(jù)設(shè)計時間的安排及工作量的大小適當(dāng)選擇。選用其他課題或不同的數(shù)據(jù)庫管理系統(tǒng)，可以組成設(shè)計小組，分模塊進(jìn)行,共同協(xié)作完成一個應(yīng)用系統(tǒng)的開發(fā)任務(wù)。要求書寫詳細(xì)的設(shè)計說明書，對復(fù)雜的代碼段和程序段，應(yīng)畫出程序流程圖。在界面設(shè)計中，畫出每個窗口的布局，有多個窗口時，按模塊調(diào)用的方式畫出窗口調(diào)用圖，用手工畫好報表和標(biāo)簽樣式，嚴(yán)禁相互抄襲。課程設(shè)計內(nèi)容2.1系統(tǒng)功能分析2.1.1 系統(tǒng)功能分析公司聯(lián)系人管理系統(tǒng)實現(xiàn)以下幾項功能：公司員工以及客戶聯(lián)系資料的輸入、修改、查詢和刪除:(1)添加公司員工及客戶的信息：系統(tǒng)自動生成編號。管理員可以添加員工和客戶的基本信息，包括姓名、性別、籍貫、年齡、聯(lián)系電話、聯(lián)系方式、住址等。(2)修改公司員工或客戶信息：選擇任意一個，可以修改其基本信息。 (3)查詢公司員工或客戶信息：可以根據(jù)公司員工或客戶的編號、姓名或者聯(lián)系方式進(jìn)行查詢，并且可以針對查詢結(jié)果進(jìn)行修改和刪除操作。 (4)刪除公司員工或客戶信息：直接從列表中選中需要刪除的公司員工或客戶信息，然后進(jìn)行刪除操作，或者首先查詢需要刪除的公司員工或客戶信息，然后再刪除。2.1.2 系統(tǒng)功能模塊設(shè)計公司聯(lián)系人管理系統(tǒng)模塊采用總分的方式，籠統(tǒng)的先分為四大類：信息錄入、信息查詢、信息編輯、系統(tǒng)操作。其中，信息錄入分為：員工系統(tǒng)信息錄入、客戶聯(lián)系信息錄入、聯(lián)系類型錄入；信息查詢分為：員工聯(lián)系信息查詢、客戶聯(lián)系信息查詢、聯(lián)系類型查詢、客戶行業(yè)分類查詢；信息編輯分為：員工聯(lián)系資料編輯、客戶聯(lián)系資料編輯、聯(lián)系類型編輯；系統(tǒng)操作分為：登陸界面和主界面。該系統(tǒng)功能主要實現(xiàn)對公司的內(nèi)部與外部聯(lián)系人的基本信息的正確掌握以確保公司與聯(lián)系人之間的商業(yè)交流可靠度，實現(xiàn)對聯(lián)系人的查詢功能以穩(wěn)固公司與聯(lián)系人之間的長期合作關(guān)系，以及實現(xiàn)公司對VIP重要客戶信息檔案的掌握以穩(wěn)定公司的利益。公司聯(lián)系人管理系統(tǒng)信息錄入信息查詢信息編輯系統(tǒng)操作員工聯(lián)系信息錄入客戶聯(lián)系信息錄入聯(lián)系類型錄入員工聯(lián)系信息查詢客戶聯(lián)系信息查詢客戶行業(yè)分類查詢聯(lián)系類型查詢員工聯(lián)系資料編輯客戶聯(lián)系資料編輯聯(lián)系類型編輯登陸界面主界面圖2.1系統(tǒng)功能模塊圖2.2數(shù)據(jù)庫模型2.2.1 數(shù)據(jù)庫需求分析數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)如下公司內(nèi)部員工：姓名、性別、地址、市縣、郵政編碼、公司名稱、頭銜、住宅電話、移動電話、電子郵編、練習(xí)類型客戶聯(lián)系人：公司名稱、市縣、省市、所屬行業(yè)、郵政編碼、電話號碼、開戶銀行、開戶銀行賬號、稅號、聯(lián)系人ID重要客戶聯(lián)系人：公司名稱、聯(lián)系人職稱、聯(lián)系人名稱、聯(lián)系人電話、郵政編碼、市縣、省市2.2.2 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計根據(jù)課題給出的用戶基本需求，寫出各數(shù)據(jù)實體的數(shù)據(jù)項和聯(lián)系實體的活動以及活動要使用的數(shù)據(jù)項，通過ER圖來表示。由ER圖建立適當(dāng)?shù)谋?，并按照不同范式的定義，對表進(jìn)行規(guī)范化。對規(guī)范化的表，根據(jù)用戶需求，定義字段名、類型、寬度和小數(shù)點，建立數(shù)據(jù)庫結(jié)構(gòu)。根據(jù)每張規(guī)范化表，對應(yīng)建立一個數(shù)據(jù)庫文件。公司員工聯(lián)系類型性別姓名移動電話地址頭銜電子郵件客戶公司客戶聯(lián)系人公司名稱市/縣所屬行業(yè)郵政編碼開戶銀行電話號碼分為重要客戶聯(lián)系人公司名稱聯(lián)系人職稱聯(lián)系人姓名省/市/自治區(qū)郵政編碼聯(lián)系號碼郵政編碼公司名稱地址圖2-2為公司聯(lián)系人管理系統(tǒng)E-R圖公司聯(lián)系人管理系統(tǒng)E-R圖說明：“公司聯(lián)系人管理系統(tǒng)”涉及的實體及其屬性（字段）如下：重要客戶聯(lián)系人：公司名稱、聯(lián)系人職稱、聯(lián)系人姓名、省/市/自治區(qū)、郵政編碼、聯(lián)系號碼公司員工：姓名、性別、地址、頭銜、移動電話、電子郵件、聯(lián)系類型客戶聯(lián)系人：公司名稱、所屬行業(yè)、郵政編碼、開戶銀行、電話號碼、市縣名稱公司地址省/市/自治區(qū)市縣名稱擁有郵政編碼公司名稱公司職員姓名性別頭銜移動電話電子郵件聯(lián)系類別圖2-3為公司聯(lián)系人系統(tǒng)管理E-R(1:1的聯(lián)系)圖公司聯(lián)系人管理系統(tǒng)E-R圖說明： “公司聯(lián)系人管理系統(tǒng)”涉及的實體及其屬性（字段）如下： 公司：名稱、地址、市縣、省/市/自治區(qū) 公司職員：姓名、性別、頭銜、聯(lián)系類別、電子郵件、移動電話公司市/縣公司名稱省/市/自治區(qū)地址擁有客戶聯(lián)系人公司名稱電話號碼所屬行業(yè)省/市/自治區(qū)市/縣 圖2-4為公司聯(lián)系人系統(tǒng)管理E-R(1:n的聯(lián)系)圖公司聯(lián)系人管理系統(tǒng)E-R圖說明： “公司聯(lián)系人管理系統(tǒng)”涉及的實體及其屬性（字段）如下： 公司：名稱、地址、市縣、省/市/自治區(qū) 客戶聯(lián)系人：公司名稱、所屬行業(yè)、市縣、省市自治區(qū)、電話號碼公司員工聯(lián)系類型電子郵件移動電話姓名性別 頭銜公司市/縣地址公司名稱省/市/自治區(qū)客戶聯(lián)系人郵政編碼所屬行業(yè)省/市/自治區(qū)市/縣電話公司名稱開戶銀行 圖2-5為公司聯(lián)系人系統(tǒng)管理E-R(m:n的聯(lián)系)圖公司聯(lián)系人管理系統(tǒng)E-R圖說明： “公司聯(lián)系人管理系統(tǒng)”涉及的實體及其屬性（字段）如下： 公司：名稱、地址、市縣、省/市/自治區(qū) 客戶聯(lián)系人：公司名稱、所屬行業(yè)、市縣、省市自治區(qū)、電話號碼 公司員工：姓名、性別、頭銜、聯(lián)系電話、電子郵件、聯(lián)系類型 2.2.3 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 圖2-6為重要客戶檔案表的設(shè)計表通過重要客戶檔案表可以清晰的在客戶檔案表中把重要客戶與非重要客戶辨別出來。重要客戶聯(lián)系檔案設(shè)計表來源于重要客戶聯(lián)系檔案表的設(shè)計共分為：字段名稱、數(shù)據(jù)類型。其中，字段名稱分為：公司名稱、聯(lián)系人職稱、聯(lián)系人名字、電話號碼、郵政編碼、市縣、省市自治區(qū)。 數(shù)據(jù)類型分為：自動編號、文本、文本、文本、文本、文本、文本、文本其次，字段大小均為長整型，新值為遞增的，索引有重復(fù)。使用設(shè)計器設(shè)計“重要客戶聯(lián)系檔案表”字段及字段屬性 圖2-7為業(yè)務(wù)通話往來的設(shè)計表 通過使用業(yè)務(wù)通話往來，可以使員工清晰地了解到業(yè)務(wù)的工作進(jìn)展 業(yè)務(wù)通話往來設(shè)計表來源于業(yè)務(wù)通話往來表的設(shè)計共分為：字段名稱和數(shù)字類型。 其中，字段類型包括：通話ID、客戶公司名稱、通話日期、通話時間。 數(shù)據(jù)類型包括：自動編號、數(shù)字、時間日期、日期時間 其次，字段大小為長整型，新值為遞增，索引有重復(fù)。使用設(shè)計器設(shè)計“業(yè)務(wù)通話往來表”字段及字段屬性 圖2-8為重要客戶聯(lián)系檔案表報表重要客戶聯(lián)系檔案表報表數(shù)據(jù)源來源于重要客戶聯(lián)系檔案表其中內(nèi)容有：客戶ID、公司名稱、聯(lián)系人姓名、聯(lián)系人職稱、電話號碼、郵政編碼2.2.4 數(shù)據(jù)庫連接說明表間的關(guān)系是非常重要的，Access能夠根據(jù)表間的關(guān)系從兩張或多張的字段中查找和顯示數(shù)據(jù)記錄。通過表之間的關(guān)系就可以指出一個表中的數(shù)據(jù)與另一個表中的數(shù)據(jù)的聯(lián)系方式。該系統(tǒng)的表間關(guān)系是公司內(nèi)部員工聯(lián)系人表與員工聯(lián)系往來表、業(yè)務(wù)通話往來表、聯(lián)系類型表之間的關(guān)系，業(yè)務(wù)通話往來表與重要客戶聯(lián)系檔案表之間的關(guān)系，聯(lián)系類型表與客戶聯(lián)系人表之間的關(guān)系以及重要客戶聯(lián)系檔案表與客戶聯(lián)系人表之間的關(guān)系。通過以上表間關(guān)系的建立可以系統(tǒng)的了解該公司聯(lián)系人之間的關(guān)系。此表間關(guān)系遵從“參照完整性”規(guī)則。該公司聯(lián)系人系統(tǒng)管理表間關(guān)系如下圖： 圖2-10為公司聯(lián)系人系統(tǒng)管理表間關(guān)系表與表間通過員工ID、通話ID、客戶ID、聯(lián)系人ID建立了表間的關(guān)系公司內(nèi)部員工與員工聯(lián)系往來是通過員工ID建立了表間的聯(lián)系業(yè)務(wù)通話往來、重要客戶聯(lián)系人檔案表、客戶聯(lián)系人是通過聯(lián)系ID來實現(xiàn)表間的關(guān)系的2.3 設(shè)計窗體和報表 圖2-11為窗體的主切換面版當(dāng)用戶進(jìn)入系統(tǒng)界面后在窗體首先登陸用戶界面 圖2-12為用戶聯(lián)系人窗體窗體的基本結(jié)構(gòu)客戶聯(lián)系人窗體左側(cè)分別是：客戶聯(lián)系人ID、公司名稱、市縣、所屬行業(yè)、郵政編碼、電話號碼、開戶銀行、開戶銀行賬號、聯(lián)系類型ID。 右側(cè)采用滑動選擇模式，分別輸入不同的客戶聯(lián)系人ID，將會出現(xiàn)不同的公司內(nèi)部資料。 圖2-13為員工聯(lián)系往來窗體窗體的基本結(jié)構(gòu)員工聯(lián)系往來窗體左側(cè)分為：員工ID、通話日期、通話時間右側(cè)采用滑動選擇模式：分別輸入不同的員工ID號，將會出現(xiàn)不同的通話日期和通話時間。2.4 設(shè)計窗體和報表模塊主要代碼模塊二：Private Function HandleButtonClick(intBtn As Integer) This function is called when a button is clicked. intBtn indicates which button was clicked. Constants for the commands that can be executed. Const conCmdGotoSwitchboard = 1 Const conCmdOpenFormAdd = 2 Const conCmdOpenFormBrowse = 3 Const conCmdOpenReport = 4 Const conCmdCustomizeSwitchboard = 5 Const conCmdExitApplication = 6 Const conCmdRunMacro = 7 Const conCmdRunCode = 8 Const conCmdOpenPage = 9 An error that is special cased. Const conErrDoCmdCancelled = 2501 Dim con As Object Dim rs As Object Dim stSql As StringOn Error GoTo HandleButtonClick_Err Find the item in the Switchboard Items table that corresponds to the button that was clicked. Set con = Application.CurrentProject.Connection Set rs = CreateObject(ADODB.Recordset) stSql = SELECT * FROM Switchboard Items stSql = stSql & WHERE SwitchboardID= & Me!SwitchboardID & AND ItemNumber= & intBtn rs.Open stSql, con, 1 1 = adOpenKeyset If no item matches, report the error and exit the function. If (rs.EOF) Then MsgBox 讀取 Switchboard Items 表時出錯。 rs.Close Set rs = Nothing Set con = Nothing Exit Function End If Select Case rs!Command Go to another switchboard. Case conCmdGotoSwitchboard Me.Filter = ItemNumber = 0 AND SwitchboardID= & rs!Argument Open a form in Add mode. Case conCmdOpenFormAdd DoCmd.OpenForm rs!Argument, , , , acAdd Open a form. Case conCmdOpenFormBrowse DoCmd.OpenForm rs!Argument Open a report. Case conCmdOpenReport DoCmd.OpenReport rs!Argument, acPreview Customize the Switchboard. Case conCmdCustomizeSwitchboard Handle the case where the Switchboard Manager is not installed (e.g. Minimal Install). On Error Resume Next Application.Run ACWZMAIN.sbm_Entry If (Err 0) Then MsgBox 命令不可用。 On Error GoTo 0 Update the form. Me.Filter = ItemNumber = 0 AND Argument = 默認(rèn) Me.Caption = Nz(Me!ItemText, ) Case conCmdExitApplication CloseCurrentDatabase Run a macro. Case conCmdRunMacro DoCmd.RunMacro rs!Argument Run code. Case conCmdRunCode Application.Run rs!Argument Open a Data Access Page Case conCmdOpenPage DoCmd.OpenDataAccessPage rs!Argument Any other command is unrecognized. Case Else MsgBox 未知選項。 End Select Close the recordset and the database. rs.CloseHandleButtonClick_Exit:On Error Resume Next Exit FunctionHandleButtonClick_Err: If the action was cancelled by the user for some reason, dont display an error message. Instead, resume on the next line. If (Err = conErrDoCmdCancelled) Then Else MsgBox 執(zhí)行命令時出錯。, vbCritical Resume HandleButtonClick_Exit End If End Function第3章 課程設(shè)計總結(jié)在這次數(shù)據(jù)庫設(shè)計中，我們主要應(yīng)用了表、查詢、窗體、報表、模塊和宏的設(shè)計在設(shè)計報表的時候，我們首先建立了表間的關(guān)系，并且為表輸入數(shù)據(jù)，通過我們自己的努力，充分的應(yīng)用到了表之間的關(guān)系類型、學(xué)會了創(chuàng)建表間的關(guān)系，刪除表間關(guān)系，查看關(guān)系等等。然后建立了表間的查詢，了解到查詢可分為選擇查詢，交叉表查詢，重復(fù)項查詢，不匹配查詢，數(shù)據(jù)查詢，操作查詢以及SOL查詢。練習(xí)到了創(chuàng)建生成表查詢、創(chuàng)建更新查詢、創(chuàng)建追加查詢、創(chuàng)建刪除查詢等等。再之，通過設(shè)計我們了解到窗體的意義，通常窗體比數(shù)據(jù)表更便于輸入和編輯數(shù)據(jù)，特別是當(dāng)表中含有很多數(shù)據(jù)時，一個屏幕顯示不下而必須要移動滾動條來查看剩余數(shù)據(jù)的時候。窗體每次可以只顯示一條記錄，因而可以看到全部數(shù)據(jù)，并且可以用任何方式排列字段。次之，實現(xiàn)了報表的設(shè)計，建立了基礎(chǔ)信息的普通報表，報表的修改，子報表的創(chuàng)建，圖報表的創(chuàng)建，標(biāo)簽報表及報表快照。在實踐中，體會