客戶關(guān)系信息管理系統(tǒng)-畢業(yè)設(shè)計(jì)論文-wenkub.com
2025-06-19 20:48 本頁面
【正文】 另外，在系統(tǒng)開發(fā)過程中助手同學(xué)也給于我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開發(fā)完成，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。這些都有待進(jìn)一步改善。代碼如下：Private Sub Command1_Click()If = True And = True ThenMsgBox 您輸入的第一個(gè)管理員是系統(tǒng)管理員，是用來設(shè)置用戶的，請(qǐng)不要?jiǎng)h除！, 64, 提示： = 1 = False = FalseEnd IfIf = 添加 Then = 0 = 0 = True = 添加完畢 = False = False = False = FalseElse If = And = Then MsgBox 您沒有輸入用戶名或密碼！, 16, 出錯(cuò)： = 123 = False = 添加 = 當(dāng)前記錄： = True = True = True = True Else If = 1 Then = False = 添加 = True = True = True = True = True = True = 2 Else If = 1 Or = 1 Then = False = 添加 = True = True = True = True Else MsgBox 您沒有輸入權(quán)限！, 16, 出錯(cuò)： End If End If End IfEnd IfEnd SubPrivate Sub Command2_Click()If = True Or = True ThenMsgBox 數(shù)據(jù)庫中沒有記錄！, 16, 出錯(cuò)：ElseEnd IfEnd SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Command4_Click()If = True And ThenMsgBox 數(shù)據(jù)庫中沒有記錄！, 16, 出錯(cuò)：ElseIf = 查詢 Then = True = False = False = False = False = 查詢完畢 = Else = False = True = True = True = True = 查詢 = End IfEnd IfEnd SubPrivate Sub Command5_Click()If = True Or = True ThenMsgBox 數(shù)據(jù)庫中沒有記錄！, 16, 出錯(cuò)：ElseIf = 修改 Then = 修改完畢 = 修改記錄： = True = False = False = False = FalseElseIf = Or = ThenX = MsgBox(您沒有輸入用戶名或密碼，要?jiǎng)h除嗎？, 17, 出錯(cuò)：) If X = 1 Then = 123 = 123 Else Exit Sub End IfElse If = 1 Or = 1 Then = False = 修改 = True = True = True = True Else MsgBox 您沒有輸入權(quán)限！, 16, 出錯(cuò)： End IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command6_Click() = 1For X = 1 To 1If = True ThenMsgBox 沒有找到記錄！, 64, 提示：Else If Trim() = Trim() Then Exit Sub Else X = X 1 End IfEnd IfNext XEnd SubPrivate Sub Command7_Click()For X = 1 To 1If = True ThenMsgBox 沒有找到記錄！, 64, 提示： = 1Else If Trim() = Trim() Then Exit Sub Else X = X 1 End IfEnd IfNext XEnd SubPrivate Sub Form_Unload(Cancel As Integer)If = True ThenCancel = 0ElseMsgBox 請(qǐng)編輯完這條記錄再退出！, 64, 提示： Cancel = 1End IfEnd Sub 摸塊保稱功能說明1錄入對(duì)客戶關(guān)系信息進(jìn)行錄入2查詢對(duì)客戶關(guān)系信息進(jìn)行查詢3用戶管理對(duì)系統(tǒng)用戶名和密碼進(jìn)行修改和刪除等操作4系統(tǒng)退出系統(tǒng)第五章．結(jié)束語經(jīng)過一個(gè)多月的設(shè)計(jì)和開發(fā)，圖書管理系統(tǒng)基本開發(fā)完畢。代碼如下：Private Sub Command1_Click() = True = True = True = True = True = True = TrueIf = True ThenIf = True And = True ThenMsgBox 您的數(shù)據(jù)庫中沒有記錄！, 16, 出錯(cuò)：ElseIf = 修改記錄 Then = 設(shè)置完畢 = False = False = False = False = 8220 = 300 = True = 修改記錄：ElseIf = ThenMsgBox 姓名不能為空！, 16, 出錯(cuò)：Else For X = 11 To 13 If Len(Trim()) 200 Then MsgBox 太長, 16, 出錯(cuò)： Exit Sub End If Next X = 修改記錄 = True = True = True39。 = 數(shù)據(jù)輸入：End IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()If = True ThenMsgBox 刷新成功！, 16, 恭喜：ElseEnd If39。 = 572839。 = True39。 = False = 8220 = 30039。 = 修改完畢39。代碼如下：Private Sub A1_Click()Unload Me 39。用戶名和密碼 Unload MeElse For X = 1 To 1 39。分別如下圖所示：電話職務(wù)性別姓名編號(hào)手機(jī)工作單位客戶管理消費(fèi)意向個(gè)人愛好生日各表的物理結(jié)構(gòu)如下：kh（客戶）表：字段名稱類型寬度小數(shù)位數(shù)編號(hào)字符100姓名字符80單位字符200性別字符20電話字符110手機(jī)字符110職位字符100個(gè)人愛好字符60消費(fèi)意向字符300生日字符20備注字符80(群組)表：字段名稱類型寬度小數(shù)位數(shù)群組名稱字符100管理員字符100群組人數(shù)數(shù)字50電話數(shù)字110職能文本100收入貨幣102第四章 系統(tǒng)功能實(shí)現(xiàn)：雙擊圖標(biāo)運(yùn)行程序以后，就可以看到程序的登錄界面。由于VFP具有顯著的簡易性和有效性，大量的桌面數(shù)據(jù)庫系統(tǒng)都采用它作為后臺(tái)數(shù)據(jù)庫。3．2．2軟件結(jié)構(gòu)設(shè)計(jì)。數(shù)據(jù)流“客戶信息”條目如下：數(shù)據(jù)流名稱：借戶信息 說明：客戶的個(gè)人信息數(shù)據(jù)流來源：客戶數(shù)據(jù)流去向：客戶管理人員數(shù)據(jù)流組成：｛客戶號(hào)｝數(shù)據(jù)流的流通量：大約10位/天（３）數(shù)據(jù)存儲(chǔ)：數(shù)據(jù)存儲(chǔ)“客戶情況”條目如下：數(shù)據(jù)存儲(chǔ)名稱：客戶情況簡述：存放的是每個(gè)客戶的個(gè)人情況輸入數(shù)據(jù)：客戶情況數(shù)據(jù)存儲(chǔ)組成：｛客戶編號(hào)，姓名，客戶類型｝存儲(chǔ)方式：按客戶的客戶編號(hào)順序排列（４）數(shù)據(jù)處理。下面以數(shù)據(jù)流圖和數(shù)據(jù)字典的方式來描述新系統(tǒng)的邏輯功能。缺省情況下，DATA控件根據(jù)數(shù)據(jù)庫中的一個(gè)或多個(gè)數(shù)據(jù)表建立一個(gè)dy
語文相關(guān)推薦
鄂ICP備17016276號(hào)-1