【正文】 ext2 Then MsgBox 兩次輸入的口令必須相同！, vbCritical, 修改口令 = 0 = Len(Text2)Else Dim obj As New Connection str = Provider=。Data Source=D:\苗木花卉管理信息系統(tǒng)\數(shù)據(jù)庫\。Persist Security Info=False str strsql = update 系統(tǒng)用戶 set 口令=39。 amp。 Text2 amp。 39。 amp。 where 用戶名=39。 amp。 thisusername amp。 39。 strsql, isupdated If isupdated 0 Then thispassword = Text2 MsgBox 口令已被成功修改！, vbInformation, 修改口令 Else MsgBox 無法修改口令！, vbCritical, 修改口令 End If Set obj = Nothing End If Exit Subdealerror: showerror 程序執(zhí)行出錯(cuò)，錯(cuò)誤信息如下： amp。 vbCrLf amp。 End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Text1 = thispasswordEnd Sub客戶資料管理界面程序代碼：Dim objcopy As New Recordset, isadding As BooleanPrivate Sub Adodc1_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As )With If .AbsolutePosition 0 Then = 當(dāng)前記錄： amp。 .AbsolutePosition amp。 / amp。 .RecordCount Else = 無客戶數(shù)據(jù) End IfEnd WithEnd SubPrivate Sub Adodc1_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As )If Trim(txtcode) = Then MsgBox 客戶編號(hào)不能為空！, vbCritical, 客戶資料管理 txtcode = : ElseIf Trim(txtname) = Then MsgBox 客戶名稱不能為空, vbCritical, 客戶資料管理 txtname = : ElseIf Trim(txttel) = Then MsgBox 客戶電話不能為空, vbCritical, 客戶資料管理 txttel = : ElseIf Trim(txtaddress) = Then MsgBox 客戶地址不能為空, vbCritical, 客戶資料管理 txtaddress = : End IfEnd SubPrivate Sub cmdadd_Click() = False = False: = False = False: isadding = TrueEnd SubPrivate Sub cmddelete_Click()With If Not .EOF Then If MsgBox(將刪除客戶 amp。 Trim(txtcode) amp。 ，是否繼續(xù)？, vbCritical + vbYesNo, 客戶資料管理) = vbYes Then .Delete .MoveNext If .EOF And .RecordCount 0 Then .MoveLast End If End IfEnd WithEnd SubPrivate Sub cmdexit_Click()Unload MeEnd Sub Private Sub cmdrefresh_Click() = True: = True = True: = Trueisadding = FalseSet objcopy = End SubPrivate Sub cmdsave_Click()If Trim(txtcode) = Then MsgBox 客戶編號(hào)不能為空！, vbCritical, 客戶資料管理 txtcode = : ElseIf Trim(txtname) = Then MsgBox 客戶名稱不能為空！, vbCritical, 客戶資料管理 txtname = : ElseIf Trim(txttel) = Then MsgBox 客戶電話不能為空！, vbCritical, 客戶資料管理 txttel = : ElseIf Trim(txtaddress) = Then MsgBox 客戶地址不能為空！, vbCritical, 客戶資料管理 txtaddress = : Else With objcopy If .RecordCount 0 Then .MoveFirst .Find 客戶編號(hào)= 39。 amp。 Trim(txtcode) amp。 39。 If Not .EOF And .AbsolutePosition Then MsgBox 客戶編號(hào)： amp。 Trim(txtcode) amp。 已被使用，請(qǐng)使用其他客戶編號(hào)！, vbCritical, 客戶資料管理 = 0 = Len(txtcode) Exit Sub End If End IfEnd WithMsgBox 數(shù)據(jù)保存成功！, vbInformation, 客戶資料管理 = True = True: = True = True: isadding = FalseSet objcopy = End IfEnd SubPrivate Sub Form_Load()Set objcopy = = TrueEnd SubPrivate Sub txtaddress_Change()If Trim(txtaddress) = Or isadding Then = FalseElse = TrueEnd IfEnd SubPrivate Sub txtcode_Change()If Trim(txtcode) = Or isadding Then = FalseElse = TrueEnd IfEnd SubPrivate Sub txtname_Change()If Trim(txtname) = Or isadding Then = FalseElse = TrueEnd IfEnd SubPrivate Sub txttel_Change()If Trim(txttel) = Or isadding Then = FalseElse = TrueEnd IfEnd Sub花卉信息維護(hù)界面程序代碼。Dim objcopy As New Recordset, isadding As BooleanPrivate Sub Adodc1_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As )With If .AbsolutePosition 0 Then = 當(dāng)前記錄： amp。 .AbsolutePosition amp。 / amp。 .RecordCount Else = 無花卉數(shù)據(jù) End IfEnd WithEnd SubPrivate Sub Adodc1_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As )If Trim(txtcode) = Then MsgBox 花卉編號(hào)不能為空！, vbCritical, 花卉信息管理 txtcode = : ElseIf Trim(txtname) = Then MsgBox 花卉名稱不能為空, vbCritical, 花卉信息管理 txtname = : ElseIf Trim(txtprice) = Then MsgBox 花卉單價(jià)不能為空, vbCritical, 花卉信息管理 txtprice = : ElseIf Trim(cmbmethod) = Then MsgBox 繁殖方法不能為空, vbCritical, 花卉信息管理 cmbmethod = : End IfEnd SubPrivate Sub cmbmethod_Change()If Trim(cmbmethod) = Or isadding Then = FalseElse = TrueEnd IfEnd SubPrivate Sub cmbstate_Change()If Trim(cmbstate) = Or isadding Then = FalseElse = TrueEnd IfEnd SubPrivate Sub cmdadd_Click() = False = 0 = 0 = False: = False = False: isadding = TrueEnd SubPrivate Sub cmddelete_Click()With If Not .EOF Then If MsgBox(將刪除花卉 amp。 Trim(txtcode) amp。 ，是否繼續(xù)？, vbCritical + vbYesNo, 花卉信息管理) = vbYes Then .Delete .MoveNext If .EOF And .RecordCount 0 Then .MoveLast End If End IfEnd WithEnd SubPrivate Sub cmdexit_Click()Unload MeEnd SubPrivate Sub cmdrefresh_Click() = True: = True = True: = Trueisadding = FalseSet objcopy = End SubPrivate Sub cmdsave_Click()If Trim(txtcode) = Then MsgBox 花卉編號(hào)不能為空！, vbCritical, 花卉信息管理 txtcode = : ElseIf Trim(txtname) = Then MsgBox 花卉名稱不能為空, vbCritical, 花卉信息管理 txtname = : ElseIf Trim(txtprice) = Then MsgBox 花卉單價(jià)不能為空, vbCritical, 花卉信息管理 txtprice = : ElseIf Trim(cmbmethod) = Then MsgBox 繁殖方法不能為空, vbCritical, 花卉信息管理 cmbmethod = : Else With objcopy If .RecordCount 0 Then .MoveFirst .Find 花卉編號(hào)= 39。 amp。 Trim(txtcode) amp。 39。 If Not .EOF And .AbsolutePosition Then MsgBox 花卉編號(hào)： amp。 Trim(txtcode) amp。 已被使用，請(qǐng)使用其他花卉編號(hào)！, vbCritical, 花卉信息管理 = 0 = Len(txtcode) Exit Su