遼 寧 工 業 大 學 數據庫原理與應用 課程設計（論文）題目： 公司聯系人管理系統 院 （系）： 軟件學院 專業班級： 計算機信學 號： 學生姓名： 指導教師： 教師職稱： 助 教 起止時間：2010.11.22至2010.12.3課程設計（論文）任務及評語院（系）：軟件學院 教研室：軟件教研室學 號091403028學生姓名蔡璐專業班級計算機信息管理091班課程設計（論文）題目公司聯系人管理系統課程設計（論文）任務課程設計任務及要求：（1）掌握設計數據庫表及其間的關系的基礎知識（2）掌握設計相關的查詢、窗體、報表、數據訪問頁和宏（3）有和具體業務相關的處理功能（不少于5個）（4）用切換面板、主窗體、菜單欄和工具欄三種方式設計用戶界面。（5）用SQL設計帶統計函數的查詢（如MAX，MIN，COUNT，AVG，SUM）(6) 用編寫VBA代碼實現部分功能課程設計過程中，要嚴格遵守實踐環節的時間安排，聽從指導教師的指導。正確地完成上述內容，記錄實習日記，規范完整地撰寫出課程設計論文。指導教師評語及成績成績： 指導教師簽字： 2010 年 12 月 6 日目 錄第1章 課程設計目的與要求11.1 課程設計目的11.2 課程設計的實驗環境11.3 課程設計的預備知識11.4 課程設計要求1第2章 課程設計內容22.1 系統功能分析22.2 數據庫模型32.3 設計窗體和報表112.4 窗體和報表模塊主要代碼12第3章 課程設計總結15參考文獻16課程設計目的與要求1.1 課程設計目的本課程的課程設計實際是電子商務和計算機信息管理專業學生學習完數據庫原理及應用（ACCESS 2003）課程后，進行的一次全面的綜合訓練，其目的在于加深對數據庫基礎理論和基本知識的理解，掌握運用數據庫應用系統開發軟件的基本方法。1.2 課程設計的實驗環境硬件要求能運行Windows 9.X操作系統的微機系統。數據庫應用系統開發軟件可以選用Microsoft Access，或其他數據庫管理系統。1.3 課程設計的預備知識熟悉數據庫的基本知識及一種以上數據庫系統開發軟件。1.4 課程設計要求按課程設計指導書提供的課題，應根據下一節給出的基本需求獨立完成八個方面的設計，標有“可選”的部分可根據設計時間的安排及工作量的大小適當選擇。選用其他課題或不同的數據庫管理系統，可以組成設計小組，分模塊進行,共同協作完成一個應用系統的開發任務。要求書寫詳細的設計說明書，對復雜的代碼段和程序段，應畫出程序流程圖。在界面設計中，畫出每個窗口的布局，有多個窗口時，按模塊調用的方式畫出窗口調用圖，用手工畫好報表和標簽樣式，嚴禁相互抄襲。課程設計內容2.1系統功能分析2.1.1 系統功能分析公司聯系人管理系統實現以下幾項功能：公司員工以及客戶聯系資料的輸入、修改、查詢和刪除:(1)添加公司員工及客戶的信息：系統自動生成編號。管理員可以添加員工和客戶的基本信息，包括姓名、性別、籍貫、年齡、聯系電話、聯系方式、住址等。(2)修改公司員工或客戶信息：選擇任意一個，可以修改其基本信息。 (3)查詢公司員工或客戶信息：可以根據公司員工或客戶的編號、姓名或者聯系方式進行查詢，并且可以針對查詢結果進行修改和刪除操作。 (4)刪除公司員工或客戶信息：直接從列表中選中需要刪除的公司員工或客戶信息，然后進行刪除操作，或者首先查詢需要刪除的公司員工或客戶信息，然后再刪除。2.1.2 系統功能模塊設計公司聯系人管理系統模塊采用總分的方式，籠統的先分為四大類：信息錄入、信息查詢、信息編輯、系統操作。其中，信息錄入分為：員工系統信息錄入、客戶聯系信息錄入、聯系類型錄入；信息查詢分為：員工聯系信息查詢、客戶聯系信息查詢、聯系類型查詢、客戶行業分類查詢；信息編輯分為：員工聯系資料編輯、客戶聯系資料編輯、聯系類型編輯；系統操作分為：登陸界面和主界面。該系統功能主要實現對公司的內部與外部聯系人的基本信息的正確掌握以確保公司與聯系人之間的商業交流可靠度，實現對聯系人的查詢功能以穩固公司與聯系人之間的長期合作關系，以及實現公司對VIP重要客戶信息檔案的掌握以穩定公司的利益。公司聯系人管理系統信息錄入信息查詢信息編輯系統操作員工聯系信息錄入客戶聯系信息錄入聯系類型錄入員工聯系信息查詢客戶聯系信息查詢客戶行業分類查詢聯系類型查詢員工聯系資料編輯客戶聯系資料編輯聯系類型編輯登陸界面主界面圖2.1系統功能模塊圖2.2數據庫模型2.2.1 數據庫需求分析數據項和數據結構如下公司內部員工：姓名、性別、地址、市縣、郵政編碼、公司名稱、頭銜、住宅電話、移動電話、電子郵編、練習類型客戶聯系人：公司名稱、市縣、省市、所屬行業、郵政編碼、電話號碼、開戶銀行、開戶銀行賬號、稅號、聯系人ID重要客戶聯系人：公司名稱、聯系人職稱、聯系人名稱、聯系人電話、郵政編碼、市縣、省市2.2.2 數據庫概念結構設計根據課題給出的用戶基本需求，寫出各數據實體的數據項和聯系實體的活動以及活動要使用的數據項，通過ER圖來表示。由ER圖建立適當的表，并按照不同范式的定義，對表進行規范化。對規范化的表，根據用戶需求，定義字段名、類型、寬度和小數點，建立數據庫結構。根據每張規范化表，對應建立一個數據庫文件。公司員工聯系類型性別姓名移動電話地址頭銜電子郵件客戶公司客戶聯系人公司名稱市/縣所屬行業郵政編碼開戶銀行電話號碼分為重要客戶聯系人公司名稱聯系人職稱聯系人姓名省/市/自治區郵政編碼聯系號碼郵政編碼公司名稱地址圖2-2為公司聯系人管理系統E-R圖公司聯系人管理系統E-R圖說明：“公司聯系人管理系統”涉及的實體及其屬性（字段）如下：重要客戶聯系人：公司名稱、聯系人職稱、聯系人姓名、省/市/自治區、郵政編碼、聯系號碼公司員工：姓名、性別、地址、頭銜、移動電話、電子郵件、聯系類型客戶聯系人：公司名稱、所屬行業、郵政編碼、開戶銀行、電話號碼、市縣名稱公司地址省/市/自治區市縣名稱擁有郵政編碼公司名稱公司職員姓名性別頭銜移動電話電子郵件聯系類別圖2-3為公司聯系人系統管理E-R(1:1的聯系)圖公司聯系人管理系統E-R圖說明： “公司聯系人管理系統”涉及的實體及其屬性（字段）如下： 公司：名稱、地址、市縣、省/市/自治區 公司職員：姓名、性別、頭銜、聯系類別、電子郵件、移動電話公司市/縣公司名稱省/市/自治區地址擁有客戶聯系人公司名稱電話號碼所屬行業省/市/自治區市/縣 圖2-4為公司聯系人系統管理E-R(1:n的聯系)圖公司聯系人管理系統E-R圖說明： “公司聯系人管理系統”涉及的實體及其屬性（字段）如下： 公司：名稱、地址、市縣、省/市/自治區 客戶聯系人：公司名稱、所屬行業、市縣、省市自治區、電話號碼公司員工聯系類型電子郵件移動電話姓名性別 頭銜公司市/縣地址公司名稱省/市/自治區客戶聯系人郵政編碼所屬行業省/市/自治區市/縣電話公司名稱開戶銀行 圖2-5為公司聯系人系統管理E-R(m:n的聯系)圖公司聯系人管理系統E-R圖說明： “公司聯系人管理系統”涉及的實體及其屬性（字段）如下： 公司：名稱、地址、市縣、省/市/自治區 客戶聯系人：公司名稱、所屬行業、市縣、省市自治區、電話號碼 公司員工：姓名、性別、頭銜、聯系電話、電子郵件、聯系類型 2.2.3 數據庫邏輯結構設計 圖2-6為重要客戶檔案表的設計表通過重要客戶檔案表可以清晰的在客戶檔案表中把重要客戶與非重要客戶辨別出來。重要客戶聯系檔案設計表來源于重要客戶聯系檔案表的設計共分為：字段名稱、數據類型。其中，字段名稱分為：公司名稱、聯系人職稱、聯系人名字、電話號碼、郵政編碼、市縣、省市自治區。 數據類型分為：自動編號、文本、文本、文本、文本、文本、文本、文本其次，字段大小均為長整型，新值為遞增的，索引有重復。使用設計器設計“重要客戶聯系檔案表”字段及字段屬性 圖2-7為業務通話往來的設計表 通過使用業務通話往來，可以使員工清晰地了解到業務的工作進展 業務通話往來設計表來源于業務通話往來表的設計共分為：字段名稱和數字類型。 其中，字段類型包括：通話ID、客戶公司名稱、通話日期、通話時間。 數據類型包括：自動編號、數字、時間日期、日期時間 其次，字段大小為長整型，新值為遞增，索引有重復。使用設計器設計“業務通話往來表”字段及字段屬性 圖2-8為重要客戶聯系檔案表報表重要客戶聯系檔案表報表數據源來源于重要客戶聯系檔案表其中內容有：客戶ID、公司名稱、聯系人姓名、聯系人職稱、電話號碼、郵政編碼2.2.4 數據庫連接說明表間的關系是非常重要的，Access能夠根據表間的關系從兩張或多張的字段中查找和顯示數據記錄。通過表之間的關系就可以指出一個表中的數據與另一個表中的數據的聯系方式。該系統的表間關系是公司內部員工聯系人表與員工聯系往來表、業務通話往來表、聯系類型表之間的關系，業務通話往來表與重要客戶聯系檔案表之間的關系，聯系類型表與客戶聯系人表之間的關系以及重要客戶聯系檔案表與客戶聯系人表之間的關系。通過以上表間關系的建立可以系統的了解該公司聯系人之間的關系。此表間關系遵從“參照完整性”規則。該公司聯系人系統管理表間關系如下圖： 圖2-10為公司聯系人系統管理表間關系表與表間通過員工ID、通話ID、客戶ID、聯系人ID建立了表間的關系公司內部員工與員工聯系往來是通過員工ID建立了表間的聯系業務通話往來、重要客戶聯系人檔案表、客戶聯系人是通過聯系ID來實現表間的關系的2.3 設計窗體和報表 圖2-11為窗體的主切換面版當用戶進入系統界面后在窗體首先登陸用戶界面 圖2-12為用戶聯系人窗體窗體的基本結構客戶聯系人窗體左側分別是：客戶聯系人ID、公司名稱、市縣、所屬行業、郵政編碼、電話號碼、開戶銀行、開戶銀行賬號、聯系類型ID。 右側采用滑動選擇模式，分別輸入不同的客戶聯系人ID，將會出現不同的公司內部資料。 圖2-13為員工聯系往來窗體窗體的基本結構員工聯系往來窗體左側分為：員工ID、通話日期、通話時間右側采用滑動選擇模式：分別輸入不同的員工ID號，將會出現不同的通話日期和通話時間。2.4 設計窗體和報表模塊主要代碼模塊二：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 = 默認 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 執行命令時出錯。, vbCritical Resume HandleButtonClick_Exit End If End Function第3章 課程設計總結在這次數據庫設計中，我們主要應用了表、查詢、窗體、報表、模塊和宏的設計在設計報表的時候，我們首先建立了表間的關系，并且為表輸入數據，通過我們自己的努力，充分的應用到了表之間的關系類型、學會了創建表間的關系，刪除表間關系，查看關系等等。然后建立了表間的查詢，了解到查詢可分為選擇查詢，交叉表查詢，重復項查詢，不匹配查詢，數據查詢，操作查詢以及SOL查詢。練習到了創建生成表查詢、創建更新查詢、創建追加查詢、創建刪除查詢等等。再之，通過設計我們了解到窗體的意義，通常窗體比數據表更便于輸入和編輯數據，特別是當表中含有很多數據時，一個屏幕顯示不下而必須要移動滾動條來查看剩余數據的時候。窗體每次可以只顯示一條記錄，因而可以看到全部數據，并且可以用任何方式排列字段。次之，實現了報表的設計，建立了基礎信息的普通報表，報表的修改，子報表的創建，圖報表的創建，標簽報表及報表快照。在實踐中，體會