客戶信息管理系統(tǒng)課程設(shè)計(jì)報(bào)告書

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

2、未解決的問題，進(jìn)一步完善的設(shè)想與建議 三、設(shè)計(jì)組織安排 設(shè)計(jì)時(shí)間：設(shè)計(jì)班級：設(shè)計(jì)分組： 設(shè)計(jì)報(bào)告提交： 四、成員情況五、數(shù)據(jù)庫分析與設(shè)計(jì)需求說明要實(shí)現(xiàn)一個(gè)客戶信息管理系統(tǒng)，在此系統(tǒng)中只涉與到對客戶和管理員兩個(gè)實(shí)體的管理，此系統(tǒng)要求能夠記錄客戶的基本信息和信息的查詢。通過對客戶的具體數(shù)據(jù)的管理，這樣能夠更好地實(shí)現(xiàn)任何企業(yè)與活動(dòng)單位VIP會(huì)員的加入并確保其身份的真實(shí)、安全性。其系統(tǒng)的具體要求如下： 1.客戶基本信息的錄入、添加或刪去2.對客戶基本信息任意條件查找3.客戶基本信息表的打印4.系統(tǒng)用戶的設(shè)置5.系統(tǒng)初始化數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)（1）概念結(jié)構(gòu)設(shè)計(jì)現(xiàn)在對上述需求做進(jìn)一步的分析，產(chǎn)生概念結(jié)構(gòu)設(shè)計(jì)的E

3、R模型。由于這個(gè)系統(tǒng)比較簡單，因此就采用自頂向下的設(shè)計(jì)方法，就是首先確定系統(tǒng)的核心活動(dòng)：查詢功能。對于管理員和客戶之間，便是通過查詢發(fā)生聯(lián)系的。至此，本系統(tǒng)包含的實(shí)體有：客戶用于描述一名客戶的基本信息，以來標(biāo)識(shí)管理員用于描述一名管理員的基本信息，以用戶名來標(biāo)識(shí)由于一名管理員能查找多名客戶信息，并且一名客戶信息能被多個(gè)管理員查找。因此，管理員和客戶之間的聯(lián)系是多對多的。其基本ER模型如下圖：（2）邏輯結(jié)構(gòu)設(shè)計(jì)根據(jù)轉(zhuǎn)換規(guī)則，這個(gè)ER模型轉(zhuǎn)換的關(guān)系模式為：客戶（，性別，生日，年齡，手機(jī)，職務(wù)，所在單位，家庭住址，固定，興趣愛好）管理員（用戶名、管理級別）最后根據(jù)關(guān)系模式建立相應(yīng)的kh表和oper表（

4、3）數(shù)據(jù)庫行為設(shè)計(jì)安全設(shè)置：其管理員具有操作系統(tǒng)的全部權(quán)限數(shù)據(jù)操作功能：包括對數(shù)據(jù)的錄入、刪除、修改功能生成報(bào)表：kh表（，性別）， oper表（用戶名）六、設(shè)計(jì)答辯部分（1）系統(tǒng)結(jié)構(gòu)流程圖：（2）設(shè)計(jì)方法首先通過登錄窗口主要代碼部分：Private Sub Command1_Click() Dim mrc As Adodb.Recordset txtsql select * from oper where 用戶名= & Trim$(Text1(0).Text) & & and 口令= & Trim$(Text1(1).Text) + Set mrc = exesql(txtsql) If m

5、rc.RecordCount = 0 Then n = n + 1 If n 3 Then MsgBox 沒有這個(gè)用戶，繼續(xù)登錄, vbOKOnly + vbExclamation, 信息提示 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 vbM

6、odalEnd IfEnd Sub其中有不滿足登錄條件重新登錄，失敗三次退出系統(tǒng)的設(shè)計(jì)登錄后即進(jìn)入主菜單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查詢窗體En

7、d SubPrivate Sub Command3_Click() setuser.Show vbModalEnd Sub以下為“系統(tǒng)初始化”設(shè)計(jì)Private Sub Command4_Click() If MsgBox(本功能要清除系統(tǒng)中所有的數(shù)據(jù)，真的要初始化嗎？, vbYesNo, 確認(rèn)初始化操作) = vbYes Then Call deldata(khb)清除客戶表中全部信息 Call deldata(oper)清除oper表中全部信息 MsgBox 系統(tǒng)初始化完畢，下次只能顯示以1234/1234（用戶名/口令）進(jìn)入本系統(tǒng), vbOKOnly, 信息提示 End IfEnd Su

8、bPrivate Sub Command5_Click() Unload MeEnd Sub編輯窗體設(shè)計(jì)以客戶表為例進(jìn)行說明，為了編輯其記錄，設(shè)計(jì)了edkh（編輯客戶）窗體，在DataGrid中顯示所有以輸入的客戶記錄。用戶可以通過“設(shè)置記錄”框查找相應(yīng)的客戶記錄，然后單擊“修改”或“刪除”按鈕，對客戶記錄進(jìn)行修改或刪除的操作，或單擊“添加”按鈕輸入新的客戶記錄。點(diǎn)擊“添加會(huì)員”此部分由健完成設(shè)計(jì)任意條件查詢代碼設(shè)計(jì)以qukh表為例，用戶輸入的客戶部分信息對客戶進(jìn)行查找。只需在qukh窗體中輸入個(gè)別通過構(gòu)造條件表達(dá)式，實(shí)現(xiàn)在VB中輸入的數(shù)據(jù)信息由Ado連接到數(shù)據(jù)庫中的客戶表進(jìn)行查找，即Adod

9、c1.RecordSourse =“ select * from khb where ” + str 輸入查找條件并使用多次if語句完成對多重條件輸入的選擇查詢；另外，若不需要任何條件的輸入，則可直接調(diào)出所有客戶的全部信息，即Adodc1.RecordSourse = “ select * from khb” 此部分由黃先恩完成設(shè)計(jì)主要代碼如下：Private Sub Command3_Click(index As Integer) If Trim(Text3.Text) Then If Not IsDate(Trim(Text3.Text) Then MsgBox 出生日期錯(cuò)誤，應(yīng)為yyy-

10、mm-dd型, vbOKOnly, 信息提示 Text3.Text SetFocus Exit Sub End If此部分為規(guī)日期格式 End Ifstr = If Trim(Text1.Text) Then If str = Then str = = + Trim(Text1.Text) + Else str = str + and = + Trim(Text1.Text) + End IfEnd IfIf Trim(Text3.Text) Then If str = Then str = 出生日期= + Format(Trim(Text3.Text), yyyy.mm.dd) + Else

11、 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 + and 性別=男 End IfElseIf Option2.Value = True Then If str = Then str = 性別=女 Else str = str + and 性別=女 End If此為將性別作查詢條件進(jìn)

12、行查找End IfEnd Sub 此外還有很多其它條件的輸入，這里就不再列舉系統(tǒng)用戶設(shè)計(jì)主要代碼如下：Private Sub Command1_Click() If Trim(Text1(0).Text) = Or Trim(Text1(1).Text) = Or Trim(Combo1.Text) = Then MsgBox 數(shù)據(jù)項(xiàng)不全，請重新設(shè)置, vbOKOnly, 信息提示 Text1(0).Text.SetFocus Exit Sub End If If flag = i Then 添加操作 If setuser.Adodc1.Recordset.RecordCount 0 Then

13、源記錄個(gè)數(shù)大于零 cond = 級別= + 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è)計(jì)中，管理員只需在VB窗體中輸入 End If需要添加的其它注冊人信息，此代碼能將信息 setuser.Adodc1.Rec

14、ordset.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.Recordset.Update recs = recs + 1 Else cond = 級別= + Trim(Text1(0).Text) + setu

15、ser.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 I

16、f setuser.Adodc1.Recordset.MoveFirst setuser.Adodc1.Recordset.Move (n - 1) 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.Recordset.Update End If Unload Me End SubPrivate Sub command2_click() Unload MeEnd Sub其它事件設(shè)計(jì)窗體上有兩個(gè)事件過程load和activate，它們的執(zhí)行過程是，在啟動(dòng)窗體時(shí)先執(zhí)行l(wèi)oad（盡執(zhí)行一次）事件過程，然后執(zhí)行activate事件過程。edkh窗體中，load事件過程用于設(shè)置全局變量和初始化工作，而activate事件過程中包含數(shù)據(jù)刷新語句。七課程設(shè)計(jì)的考核方式與評分方法（略）.（HYPERLINK ./我的文件