計(jì)算機(jī)--企業(yè)客戶資源管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)-免費(fèi)閱讀
【正文】 致謝 在本次畢業(yè)設(shè)計(jì)過(guò)程中，我得到了 XXX 老師的精心指導(dǎo)， X老師認(rèn)真負(fù)責(zé)的工作態(tài)度、嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使 我受益匪淺。 ’ 添加功能的實(shí)現(xiàn) Private Sub Cmd_Add_Click() 1 DataList1_Click End Sub ’用戶信息的實(shí)現(xiàn) Private Sub Cmd_OK_Click() If Trim(txtUserName) = Then MsgBox 請(qǐng)輸入用戶名 Exit Sub End If If Len(txtPass) 6 Then MsgBox 密碼長(zhǎng)度不能小于 6 = 0 = Len(txtPass2) Exit Sub End If If txtPass txtPass2 Then 16 MsgBox 密碼和確認(rèn)密碼不相同，請(qǐng)重新輸入 = 0 = Len(txtPass2) Exit Sub End If With MyUser If Modify = False Or OriUser Trim(txtUserName) Then If .In_DB(Trim(txtUserName)) = True Then MsgBox 用戶名已經(jīng)存在，請(qǐng)重新輸入 = 0 = Len(txtUserName) Exit Sub End If End If .UserName = MakeStr(txtUserName) .Pwd = MakeStr(txtPass) If Modify = False Then .Insert Else .Update (OriUser) End If If Admin Then = Trim(txtUserName) = Trim(txtPass) End If End With Unload Me 17 End Sub ’ 修改功能的實(shí)現(xiàn) Private Sub Cmd_Modi_Click() If = Then MsgBox 請(qǐng)選擇要修改的用戶 Exit Sub End If With FrmUserEdit .OriUser = .txtUserName = .txtPass = .txtPass2 = .Modify = True .Show 1 End With DataList1_Click End Sub ’ 刪除功能的實(shí)現(xiàn) Private Sub Cmd_Del_Click() If = Then MsgBox 請(qǐng)選擇要?jiǎng)h除的用戶 Exit Sub End If If = Admin Then MsgBox 此用戶不能刪除 Exit Sub End If 18 39。 商業(yè)往來(lái) 管理 添加商業(yè)往來(lái)數(shù)據(jù) 刪除商業(yè)往來(lái)數(shù)據(jù) 查看商業(yè)往來(lái)信息 修改商業(yè)往來(lái)數(shù)據(jù) 13 設(shè)計(jì)思想 在 窗體下單擊添加按鈕，提交后進(jìn)入 窗體下， 顯示出客戶商業(yè)往來(lái)的信息，其中包括：客戶單位、聯(lián) 系人、商業(yè)往來(lái)類型、涉及金額、活動(dòng)描述、經(jīng)辦人，可對(duì)客戶商業(yè)往來(lái)的信息進(jìn)行添加操作。 字段名 類型 字段含義 JobId Int 客戶職務(wù)編碼 JobName Varchar(100) 客戶職務(wù)名稱 SortId Int 排序編號(hào) TypeId Int 職務(wù) 類別 編號(hào) 表 客戶職務(wù)基本信息 客戶單位基本信息 表 CltOrg 如表 所示： 該表列出 客戶單位基本信息 ，如： 客戶單位編碼、客戶單位名稱、所屬客戶類別編碼、通信地址、 郵政編碼、所在地域編碼、刪除標(biāo)記 等 字段名 類型 字段含義 OrgId Int 客戶單位編碼 OrgName Varchar(200) 客戶單位名稱 TypeId Int 所屬客戶類別編碼 Address Varchar(400) 通信地址 Postcode Varchar(40) 郵政編碼 AreaId Int 所在地域編碼 Deleted Bit 刪除標(biāo)記 8 表 客戶單位基本信息 客戶類別基本信息 CltType 如表 所示： 該表列出 客戶 類別 基本信息 ，如： 客戶類別編碼、 客戶類別名稱 、排序編號(hào) 字段名 類型 字段含義 TypeId Int 客戶類別編碼 TypeName VARCHAR(100) 客戶類別名稱 SortId Int 排序編號(hào) 表 客戶 類別 基本信息 客戶基本信息 Contact 如表 所示： 該表列出 客戶基本信息 ，如： 客戶編碼、客戶單位名稱、聯(lián)系人姓名、性別、職位編碼、辦公室電話、移動(dòng)電話、家庭電話、客戶等級(jí)、家庭住址、郵政編碼、身份證、刪除標(biāo)記、錄入時(shí)間、錄入日期 等 字段名 類型 字段含義 CltId Int 客戶編碼 OrgName Varchar(200) 客戶單位名稱 TypeId Int 客戶類別編碼 CltName Varchar(100
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1