客戶信息管理系統(tǒng)課程設(shè)計

1、數(shù)據(jù)庫及其應(yīng)用 課程設(shè)計報告客戶信息管理系統(tǒng)指導(dǎo)老師：報告撰寫： 一、設(shè)計的主要目的1. 通過實踐，使學生建立對數(shù)據(jù)庫設(shè)計的認知； 2. 通過對某小型信息系統(tǒng)的數(shù)據(jù)庫的設(shè)計，使學生掌握數(shù)據(jù)庫設(shè)計的主要步驟和方法，提升學生解決實際問題的能力； 3. 使學生學會在一個實際的RDBMS軟件平臺上創(chuàng)建數(shù)據(jù)庫； 4. 培養(yǎng)學生的團隊合作精神。 二、主要內(nèi)容和要求 1. 根據(jù)所選擇題目，進行調(diào)查分析 2. 在調(diào)查分析的基礎(chǔ)上，進行數(shù)據(jù)庫設(shè)計 3. 在SQL Server 2000上創(chuàng)建數(shù)據(jù)庫，并結(jié)合VB 6.0實現(xiàn)設(shè)計結(jié)果 4. 撰寫數(shù)據(jù)庫設(shè)計各個階段的詳細設(shè)計報告 5. 寫出收獲和體

2、會，包括以解決和尚未解決的問題，進一步完善的設(shè)想與建議 三、設(shè)計組織安排 設(shè)計時間： 設(shè)計班級：           設(shè)計分組： 設(shè)計報告提交： 四、成員情況 五、數(shù)據(jù)庫分析與設(shè)計需求說明要實現(xiàn)一個客戶信息管理系統(tǒng)，在此系統(tǒng)中只涉及到對客戶和管理員兩個實體的管理，此系統(tǒng)要求能夠記錄客戶的基本信息和信息的查詢。通過對客戶的具體數(shù)據(jù)的管理，這樣能夠更好地實現(xiàn)任何企業(yè)及活動單位VIP會員的加入并確保其身份的真實、安全性。其系統(tǒng)的具體要求如下： 1.客戶基本信息的錄入、添加或刪去2.對客戶基本

3、信息任意條件查找3.客戶基本信息表的打印4.系統(tǒng)用戶的設(shè)置5.系統(tǒng)初始化數(shù)據(jù)庫結(jié)構(gòu)設(shè)計（1）概念結(jié)構(gòu)設(shè)計現(xiàn)在對上述需求做進一步的分析，產(chǎn)生概念結(jié)構(gòu)設(shè)計的ER模型。由于這個系統(tǒng)比較簡單，因此就采用自頂向下的設(shè)計方法，就是首先確定系統(tǒng)的核心活動：查詢功能。對于管理員和客戶之間，便是通過查詢發(fā)生聯(lián)系的。至此，本系統(tǒng)包含的實體有：客戶用于描述一名客戶的基本信息，以姓名來標識管理員用于描述一名管理員的基本信息，以用戶名來標識由于一名管理員能查找多名客戶信息，并且一名客戶信息能被多個管理員查找。因此，管理員和客戶之間的聯(lián)系是多對多的。其基本ER模型如下圖：（2）邏輯結(jié)構(gòu)設(shè)計根據(jù)轉(zhuǎn)換規(guī)則，這個ER模型轉(zhuǎn)換的

4、關(guān)系模式為：客戶（姓名，性別，生日，年齡，手機號碼，職務(wù)，所在單位，家庭住址，固定電話，興趣愛好）管理員（用戶名、管理級別）最后根據(jù)關(guān)系模式建立相應(yīng)的kh表和oper表（3）數(shù)據(jù)庫行為設(shè)計1. 安全設(shè)置：其管理員具有操作系統(tǒng)的全部權(quán)限2. 數(shù)據(jù)操作功能：包括對數(shù)據(jù)的錄入、刪除、修改功能3. 生成報表：kh表（姓名，性別）， oper表（用戶名）六、設(shè)計答辯部分（1）系統(tǒng)結(jié)構(gòu)流程圖：（2）設(shè)計方法首先通過登錄窗口主要代碼部分：Private Sub Command1_Click() Dim mrc As Adodb.Recordset txtsql "select * from ope

5、r where 用戶名='" & Trim$(Text1(0).Text) & "'" & "and 口令='" & Trim$(Text1(1).Text) + "'" Set mrc = exesql(txtsql) If mrc.RecordCount = 0 Then n = n + 1 If n < 3 Then MsgBox "沒有這個用戶，繼續(xù)登錄", vbOKOnly + vbExclamation, "信息提

6、示" Text1(0).Text = "" Text1(1).Text = "" Text1(0).Set focus Else MsgBox "登錄失敗三次，退出系統(tǒng)", vbOKOnly + vbExclamation, "信息提示" mrc.Close Unload Me End IfElse userlevel = tram(mrc.Fields("級別") mrc.Close Unload Me main.Show vbModalEnd IfEnd Sub其中有不滿足登錄條件

7、重新登錄，失敗三次退出系統(tǒng)的設(shè)計登錄后即進入主菜單Private Sub Form_Load() If userlevel <> "系統(tǒng)管理員" Then Command3.Enabled = False Command4.Enabled = False End IfEnd SubPrivate Sub Command1_Click() edkh.Show vbModal “編輯客戶按鈕”連接edkh編輯窗體End SubPrivate Sub command2_click() qukh.Show vbModal “查詢客戶按鈕”連接qukh查詢窗體End Su

8、bPrivate Sub Command3_Click() setuser.Show vbModalEnd Sub 以下為“系統(tǒng)初始化”設(shè)計Private Sub Command4_Click() If MsgBox("本功能要清除系統(tǒng)中所有的數(shù)據(jù)，真的要初始化嗎？", vbYesNo, "確認初始化操作") = vbYes Then Call deldata("khb") 清除客戶表中全部信息 Call deldata("oper") 清除oper表中全部信息 MsgBox "系統(tǒng)初始化完畢，下次只能顯

9、示以1234/1234（用戶名/口令）進入本系統(tǒng)", vbOKOnly, "信息提示" End IfEnd SubPrivate Sub Command5_Click() Unload MeEnd Sub編輯窗體設(shè)計以客戶表為例進行說明，為了編輯其記錄，設(shè)計了edkh（編輯客戶）窗體，在DataGrid中顯示所有以輸入的客戶記錄。用戶可以通過“設(shè)置記錄”框查找相應(yīng)的客戶記錄，然后單擊“修改”或“刪除”按鈕，對客戶記錄進行修改或刪除的操作，或單擊“添加”按鈕輸入新的客戶記錄。點擊“添加會員” 此部分由李健完成設(shè)計任意條件查詢代碼設(shè)計以qukh表為例，用戶輸入的客戶部

10、分信息對客戶進行查找。只需在qukh窗體中輸入個別通過構(gòu)造條件表達式，實現(xiàn)在VB中輸入的數(shù)據(jù)信息由Ado連接到數(shù)據(jù)庫中的客戶表進行查找，即Adodc1.RecordSourse = “ select * from khb where ” + str 輸入查找條件并使用多次if語句完成對多重條件輸入的選擇查詢；另外，若不需要任何條件的輸入，則可直接調(diào)出所有客戶的全部信息，即Adodc1.RecordSourse = “ select * from khb” 此部分由黃先恩完成設(shè)計主要代碼如下：Private Sub Command3_Click(index As Integer) If Trim

11、(Text3.Text) <> "" Then If Not IsDate(Trim(Text3.Text) Then MsgBox "出生日期錯誤，應(yīng)為yyy-mm-dd型", vbOKOnly, "信息提示" Text3.Text SetFocus Exit Sub End If 此部分為規(guī)范日期格式 End Ifstr = ""If Trim(Text1.Text) <> "" Then If str = "" Then str = "

12、姓名= '" + Trim(Text1.Text) + " '" Else str = str + "and 姓名='" + Trim(Text1.Text) + "'" End IfEnd If If Trim(Text3.Text) <> "" Then If str = "" Then str = "出生日期='" + Format(Trim(Text3.Text), "yyyy.mm.dd&quo

13、t;) + "'" Else str = str + " and 出生日期='" + Format(Trim(Text3.Text), "yyyy.mm.dd") + "'" End IfEnd If 將生日作為查詢條件，以便在客戶表中以select語句查找滿足條件的客戶信息 If Option1.Value = True Then If str = "" Then str = "性別='男'" Else str = str + &qu

14、ot;and 性別='男'" End IfElseIf Option2.Value = True Then If str = "" Then str = "性別='女'" Else str = str + "and 性別='女'" End If 此為將性別作查詢條件進行查找End IfEnd Sub 此外還有很多其它條件的輸入，這里就不再列舉系統(tǒng)用戶設(shè)計主要代碼如下：Private Sub Command1_Click() If Trim(Text1(0).Text) = &q

15、uot;" Or Trim(Text1(1).Text) = "" Or Trim(Combo1.Text) = "" Then MsgBox "數(shù)據(jù)項不全，請重新設(shè)置", vbOKOnly, "信息提示" Text1(0).Text.SetFocus Exit Sub End If If flag = i Then '添加操作 If setuser.Adodc1.Recordset.RecordCount > 0 Then '源記錄個數(shù)大于零 cond = "級別=

16、9;" + Trim(Text1(0).Text) + "'" setuser.Adodc1.Recordset.MoveFirst '每次從頭開始查找 setuser.Adodc1.Recordset.Find (cond) If Not setuser.Adodc1.Recordset.EOF() Then MsgBox "存在完全相同的記錄", vbOKOnly, "信息提示" Text1(0).SetFocus Exit Sub End If 在此設(shè)計中，管理員只需在VB窗體中輸入 End If 需要

17、添加的其它注冊人信息，此代碼能將信息 setuser.Adodc1.Recordset.AddNew 直接錄入數(shù)據(jù)庫oper表中，過程如下 setuser.Adodc1.Recordset.Field("用戶名") = Trim(Text1(0).Text) setuser.Adodc1.Recordset.Field("口令") = Val(Trim(Text1(1).Text) setuser.Adodc1.Recordset.Field("用戶類型") = Trim(Combo1.Text) setuser.Adodc1.Rec

18、ordset.Update recs = recs + 1 Else cond = "級別='" + Trim(Text1(0).Text) + "'" setuser.Adodc1.Recordset.MoveFirst '每次從頭開始查找 setuser.Adodc1.Recordset.Find (cond) If Not setuser.Adodc1.Recordset.EOF() And setuser.Adodc1.Recordset.absolution <> n Then MsgBox "存在完全相同的記錄", vbOKOnly, "信息提示" setuser.Adodc1.Recordset.MoveFirst setuser.Adodc1.Recordset.Move (n - 1) Text1(0).SetFocus Exit Sub End If setuser.Adodc1.Recordset.MoveFirst setuser.Adodc1.Recordset.Move (n - 1) setuser.Adodc1.Recordset.Field("用戶名") = Trim(Text1