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