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