vb客戶關系管理系統-資料下載頁

　　

【正文】 記錄 合作信息容器 lvListView(ListView) FullRowSelect True 顯示合作記錄列表 浙江工業大學浙西分校信電系畢業設計（論文） 24 GridLines True View IvwReport cmdAdd(CommandButton) Caption 添加 客戶喜好 cmdModify(TestBox) Caption 修改 客戶喜好 cmdDel(TestBox) Caption 刪除 客戶喜好 cmdCoopInfo(TestBox) Caption 查看 客戶喜好 控件布局完畢后，客戶合作記錄屬性頁設計界面如圖 所示。 圖 客戶合作記錄屬性頁設計界面 按表 410 所示的設置再客戶評價屬性頁添加控件。 控件名稱 屬性 屬性取值 功能 fraScore(Frame) Caption 客戶評價 客戶評價容器 SldImportance(Slider) sldFriendly(Slider) sldSatisfaction(Slider) Max 255 重要度 友好度 滿意度 Value 50 TickStyle 3sldNoTicks 浙江工業大學浙西分校信電系畢業設計（論文） 25 客戶評價屬性頁設計界面如圖 所示。 圖 客戶評價屬性頁設計界面 現在，客戶信息管理對話框的全部界面已設計完畢。 客戶信息管理對話框代碼設計 1. 添加成員變量 進入客戶信息管理 對話框的代碼編輯模式，添加如下的成員變量： Private ok As Boolean ?確定按了 oK 還是 cancel 按鈕 Private mvarViewType As gxcViewType ?顯示類新，即表示當前是添加、查看、修改 Private objClient As cClient ?存儲客戶信息對象 Private mvarBirthdayWarn As Boolean ?標實是否啟用生日提醒 2. 添加屬性 ?顯示類 型，即表示當前是添加、查看、修改 Public Property Get ViewType()As gxcViewType ViewType= mvarViewType End Property 浙江工業大學浙西分校信電系畢業設計（論文） 26 ?標識是否啟用生日提醒 Public Property Get ShowBirthdayWarn ()As Boolean ShowBirthdayWarn=mvarBirthdayWarn End Property 3. 添加方法 1） SetStatus 函數 ——設置對話框狀態 ? 功能：設置對話框的顯示狀態，并指定控件的默認值 。 ? 參數設計：無。 ? 設計思想：設置控件默認值－ 根據對話框狀態設置控件顯示狀態。根據以上思想，可以編寫出類似 以下 的代碼。 SetStatus 函數的實現過程 39。根據對話框的顯示方式來確定顯示的數據 Private Sub SetStatus() Dim ctl As Control Dim intBorderStyle As Integer Dim lngbkColor As Long Dim boolLocked As Boolean 39。默認的文本框風格設置 intBorderStyle = 1 39。3D lngbkColor = amp。H80000009 boolLocked = False = True = 取消 = False SetDefaultValue Select Case mvarViewType Case vtadd 39。添加客戶 39。操作按鈕可用性設置 = False = False = False = False 浙江工業大學浙西分校信電系畢業設計（論文） 27 = 確定 = 添加客戶 Case vtModify 39。修改客戶信息 = 保存 = 修改客戶信息 Case vtInfo 39。查看客 戶信息 39。只讀的文本框風格設置 intBorderStyle = 0 39。3D lngbkColor = amp。H8000000F boolLocked = True = True = False = 關閉 = 查看客戶信息 Case Else End Select 39。根據顯示狀態不同設 置文本框風格 For Each ctl In Controls If (TypeOf ctl Is TextBox) Then = intBorderStyle = lngbkColor = boolLocked ElseIf (TypeOf ctl Is ComboBox) Or _ (TypeOf ctl Is DTPicker) Or _ (TypeOf ctl Is CheckBox) Or _ (TypeOf ctl Is Slider) Then = Not boolLocked End If Next End Sub 2） SaveValue 過程 ——保存用戶輸入數據 ? 功能：將輸入信息保存到客戶信息對象中，以便通過 RetriveClient 函數傳出。 浙江工業大學浙西分校信電系畢業設計（論文） 28 ? 設計思路：這個過程沒有太復雜的技巧或原理，只需要將控件中的信息報訊到客戶信息對象 ojbClient 中。根據以上思想，編寫類似 以下 的代碼。 SaveValue 過程 Private Sub SaveValue() With objClient .Name = Trim() 39。客戶名稱 .Age = Val() 39。客戶年齡 .Sex = IIf( = 0, Male, Female) 39。性 別 .TypeID = () 39。客戶類型 Id .Mobile = Trim() 39。手機 .Email = Trim() 39。Email .OfficePhone = Trim() 39。辦公室電話 .HomePhone = Trim() 39。宅電 .Fax = Trim() 39。傳真 .HomeAdr = Trim() 39。家庭住址 .MailAdr = Trim() 39。通訊地址 .ZipCode = Trim() 39。郵編 .Birthday = 39。生日 .BirthdayWarn = 39。是不啟用生日提醒 .Work = Trim() 39。職業 .Position = Trim() 39。職位 .Company = Trim() 39。公司 .CompanySite = Trim() 39。公司網址 .SelfSite = Trim() 39。個人網址 .Likes = Trim() 39。喜好 .Hate = Trim() 39。厭惡 .Remark = Trim() 39。備注 .Importance = 39。重要度 .Friendly = 39。友好度 .Satisfaction = 39。滿意度 浙江工業大學浙西分校信電系畢業設計（論文） 29 End With mvarBirthdayWarn = IIf( = 0, False, True) End Sub 添加客戶信息 在客戶信息管理對話框 frmClient 中關于客戶信息管理的代碼編寫完 畢后，可以回到主窗體 frmMain 中為客戶管理的具體操作添加處理函數了。 設計思想：調用客戶信息管理窗體 frmClien－ 接收用戶輸入信息－ 調用－ 顯示操作結果。 代碼如下： 39。添加客戶 Private Sub AddClient() Dim objClient As cClient 39。顯示添加客戶對話框并獲取數據 If (objClient, vtadd, GetID()) _ = False Then Exit Sub 39。更新數據庫 If = True Then AddClientToLvw objClient, lvListView, False Else MsgBox 錯誤 End If End Sub 修改客戶信息 設計思想：獲取選中的客戶信息－ 調用添加客戶信息對話框 frnClient 顯示數據－ 接收 用戶輸入－ 調用 － 顯示操作結果。實現代碼 如下： 39。修改客戶信息 Private Sub ModifyClient() Dim objClient As cClient Dim objWarn As New CWarning 39。從客戶列表中獲取選中客戶信息 浙江工業大學浙西分校信電系畢業設計（論文） 30 If GetClientFromControl(lvListView, objClient) = False Then Exit Sub 39。顯示修改客戶信息對話框 If (objClient, vtModify) = False Then Exit Sub 39。更新數據庫 If = True Then = = 39。如果選擇生日提醒，則在數據庫中加入提醒規則 = RefreshListView Else MsgBox 錯誤 End If Set objWarn = Nothing Set objClient = Nothing 刪除客戶信息 通過在 frmMaind 的代碼中加入過程 DelClient 來實現客戶信息的刪除。 設計思想：提示確認－ 獲取選中的客戶信息－ 調用 － 顯示結果。實現代碼 如下： 39。刪除客戶 Private Sub DelClient() Dim objClient As cClient If MsgBox(確定要刪除客戶嗎？ , vbQuestion + vbYesNo + vbDefaultButton2) = vbNo Then Exit Sub 39。從客戶列表中獲取選中的客戶信息 If GetClientFromControl(lvListView, objClient) = False Then Exit Sub 39。從數據庫中刪除客戶，并從界面中也刪除 If = True Then () Else 浙江工業大學浙西分校信電系畢業設計（論文） 31 MsgBox 錯誤 End If End Sub 查看客戶信息 通過在 frmMaind 的代碼中加入過程 ClientInfo 來實現客戶信息的瀏覽功能。 設計思想：獲取選中的客戶信息－ 調用添加客戶信息窗體 frnClient 顯示數據－ 如果轉到了修改狀態，則調用 － 顯示操作結果。實現代碼 如下： 39。查看客戶信息 Private Sub ClientInfo() Dim objClient As cClient Dim objWarn As New CWarning 39。獲取客戶列表中選擇項的客戶信息 If GetClientFromControl(, objClient) = False Then Exit Sub 39。顯示客戶信息界面 If (ob