【正文】 。類型編號(hào)Private OriTypeName As String 39。原來(lái)的類型名稱39。類型分類編號(hào)，1客戶類型；2行業(yè)分類；3職務(wù)類型；4項(xiàng)目類型Public nFlag As IntegerPrivate Sub Cmd_Add_Click() 39。添加課程類型名稱，先判斷域是否為空 If Len(Trim(txtName)) = 0 Then MsgBox (請(qǐng)輸入類型名稱) Exit Sub End If 39。判斷數(shù)據(jù)庫(kù)中是否已經(jīng)存在此類型名稱 If (Trim(txtName), nFlag) = True Then MsgBox (已經(jīng)存在此類型名稱) Exit Sub End If 39。插入新記錄 With MyType .TypeName = Trim(txtName) .Flag = nFlag .Insert MsgBox 添加成功 End With DataRefreshEnd SubPrivate Sub Cmd_Del_Click() If Len(Trim()) = 0 Then MsgBox (請(qǐng)選擇記錄) Exit Sub End If 39。 確定刪除 If MsgBox(是否確定要?jiǎng)h除 , vbYesNo, 請(qǐng)確認(rèn)) = vbNo Then Exit Sub End If 39。 刪除類型 (Val()) MsgBox 刪除成功 DataRefresh 39。刷新DataList1End SubPrivate Sub Cmd_Exit_Click() Unload MeEnd SubPrivate Sub Cmd_Modi_Click() 39。修改類型名稱 If Len(Trim()) = 0 Then MsgBox (請(qǐng)選擇記錄) Exit Sub End If 39。判斷新的名稱是否和原來(lái)的相同 If Trim(txtName) = OriTypeName Then Exit Sub End If 39。判斷新的名稱是否已經(jīng)存在 If (Trim(txtName), nTypeId) = True Then MsgBox (已經(jīng)存在此類型名稱) Exit Sub End If 39。更新名稱 = Trim(txtName) (OriId) MsgBox 修改成功 DataRefresh 39。刷新類型列表End SubPrivate Sub DataList1_Click() 39。點(diǎn)擊列表記錄，將編號(hào)和名稱放入變量和txtName域 If Len(Trim()) = 0 Then MsgBox (請(qǐng)選擇記錄) Exit Sub End If OriId = Val() 39。記錄編號(hào) If (OriId) = True Then 39。判斷是否存在此記錄信息 OriTypeName = Trim() 39。將類型名稱保存到變量中 txtName = Trim() 39。文本框中顯示類型名稱 End IfEnd SubPrivate Sub Form_Load() 39。刷新DataList1中的數(shù)據(jù) DataRefreshEnd SubPrivate Sub DataRefresh() 39。設(shè)置連接字符串 = Conn 39。設(shè)置SQL語(yǔ)句 = SELECT * FROM Types WHERE Flag= + Trim(nFlag) 39。設(shè)置數(shù)據(jù)源 Set = AdoType = TypeName 39。設(shè)置列表中顯示字段 = Id 39。設(shè)置列表綁定字段 End Sub客戶基本信息管理窗體Private Sub Refresh_Customer() Dim TmpSource As String If = 0 And = 0 Then lblSel = 0 Exit Sub End If 39。計(jì)算全部單位總數(shù) total_num = (0) lblTotal = Trim(Str(total_num)) TmpSource = SELECT , as 單位名稱, as 地域名稱, _ + as 客戶類型, AS 所屬行業(yè), as 通信地址, _ + as 郵政編碼, AS 銷售人員 _ + FROM Customer c,Employees e, _ + Area a,Types t,Types t1 WHERE = And _ + = AND = 39。未選擇地域 If = 1 Then 39。全部類別 If Len(Trim()) = 0 Then TmpSource = TmpSource + And = ORDER BY 39。選擇類別 Else TmpSource = TmpSource + And = And = _ + Trim() + ORDER BY End If Else If = 4 Then 39。市 39。全部類別 If Len(Trim()) = 0 Then TmpSource = TmpSource + And = And = _ + Trim(Str()) + ORDER BY Else TmpSource = TmpSource + And = And = _ + Trim(Str()) + And = _ + Trim() _ + ORDER BY End If Else 39。省 If Len(Trim()) = 0 Then TmpSource = TmpSource + And (= And = _ + Trim(Str()) + Or = And = _ + Trim(Str()) + ) ORDER BY Else TmpSource = TmpSource + And (= And = _ + Trim(Str()) + Or = And = _ + Trim(Str()) + ) And = _ + Trim() _ + ORDER BY End If End If End If = Conn = TmpSource Set = Adodc1 lblSel = Trim(Str()) (0).Width = 0 (1).Width = 2200 (2).Width = 1400 (3).Width = 1400 (4).Width = 1400 (5).Width = 1600 (6).Width = 1200 (7).Width = 0 (8).Width = 0 (9).Width = 1200End SubPrivate Sub Check1_Click() If = 1 Then = False = 全部地域 Else = () + + = True End If Refresh_CustomerEnd SubPrivate Sub Check2_Click() If = 1 Then = False = 全部客戶類型 Else = True End If Refresh_CustomerEnd SubPrivate Sub Cmd_Add_Click() 39。設(shè)置添加信息 = False = 1 Refresh_CustomerEnd SubPrivate Sub Cmd_AddCt_Click() If = True Then MsgBox 請(qǐng)選擇記錄 Exit Sub End If = False = (0) = Trim((1)) = 1 1End SubPrivate Sub Cmd_Back_Click() Unload MeEnd SubPrivate Sub Cmd_Del_Click() If = True Then MsgBox 請(qǐng)選擇記錄 Exit Sub End If 39。是否存在此客戶的商業(yè)機(jī)會(huì) If ((0)) = True Then MsgBox 商業(yè)機(jī)會(huì)中存在此客戶信息，不能刪除！ Exit Sub End If 39。確認(rèn)刪除 If MsgBox(是否確定要?jiǎng)h除客戶信息，刪除時(shí)同時(shí)刪除客戶聯(lián)系人信息, vbYesNo, 請(qǐng)確認(rèn)) = vbNo Then Exit Sub End If 39。刪除客戶信息 Call ((0)) 39。刪除對(duì)應(yīng)的聯(lián)系人信息 Call ((0)) Refresh_CustomerEnd SubPrivate Sub Cmd_Modi_Click() Dim TmpAreaId As Long If = True Then MsgBox 請(qǐng)選擇記錄 Exit Sub End If 39?？蛻魡挝? = (0) = Trim((1)) 39。地域 = Trim((2)) 39。類別 = Trim((3)) 39。所屬行業(yè) = Trim((4)) 39。通信地址 = Trim((5)) 39。郵政編碼 = Trim((6)) 39。銷售人員 = Trim((9)) 39。保存CurArea對(duì)象 TmpAreaId = = (7) = True 1 39?；謴?fù)CurArea的值 = TmpAreaId () 39。刷新數(shù)據(jù) Refresh_CustomerEnd SubPrivate Sub Cmd_ViewCt_Click() If = True Then MsgBox 請(qǐng)選擇記錄 Exit Sub End If = (0) = Trim((1)) 1End SubPrivate Sub Cmd_ViewSC_Click() If = True Then MsgBox 請(qǐng)選擇記錄 Exit Sub End If = (0) = Trim((1)) 1End SubPrivate Sub ComboArea_GotFocus() 39。設(shè)置顯示菜單的位置 = 6 = + + 350 = + + + 450 1 If = True Then () = () + + End If Refresh_CustomerEnd SubPrivate Sub dco_CType_Click(Area As Integer) Refresh_CustomerEnd SubPrivate Sub Form_Load() 39。裝入客戶類別 = Conn = SELECT * FROM Types WHERE Flag=1 Set = AdoType = TypeName = Id = False = 1 = 1 Refresh_CustomerEnd Sub51 /