【正文】 39。39。Data Source=F:\倉庫 管理系 統(tǒng) \。Persist Security Info=False Set rstxinxi = New Set = xinxi select * from yiqixinxi, xinxi, adOpenStatic, adLockOptimistic End Sub Private Sub Command1_Click() If = True Then = False Set xinxi = New = adUseClient Provider=。User ID=admin。從工具箱中選擇相應(yīng)控件將其添加到窗體中，根據(jù)需要設(shè)置其各項(xiàng)屬性，最后的刪除信息窗體如圖所示。Data Source=F:\倉庫 管理系 統(tǒng) \。) If Not Then MsgBox 此 儀 器 編號 已 經(jīng) 存在！ , vbOKOnly + vbExclamation, 警告 = Else (yiqibianhao) = Trim() (fenleihao) = Trim() (xinghao) = Trim() (yiqimingcheng) = Trim() (guige) = Trim() (danjia) = Trim() (changjia) = Trim() (gouzhiriqi) = Trim() (xianzhuang) = Trim() (lingyongren) = Trim() (jingshouren) = Trim() (rukushijian) = Trim() MsgBox 添加信息成功 , vbOKOnly + vbExclamation, 信息提示 Call Command1_Click End If End If End Sub Private Sub Command3_Click() = False = False = = = = = = = = = = = = End Sub Private Sub Form_Load() Set xinxi = New = adUseClient Provider=。 + + 39。Persist Security Info=False Set rstxinxi = New Set = xinxi select * from yiqixinxi, xinxi, adOpenStatic, adLockOptimistic If Trim() = Then MsgBox 請輸 入 儀 器 編號 ！ , vbOKOnly + vbExclamation, 信息提示 Exit Sub End If If Trim() = Then MsgBox 請輸 入分 類號 ！ , vbOKOnly + vbExclamation, 信息提示 Exit Sub End If If Trim() = Then MsgBox 請輸 入 儀 器名 稱 ！ , vbOKOnly + vbExclamation, 信息提示 Exit Sub End If If Trim() = Then MsgBox 請輸 入 儀 器型 號 ！ , vbOKOnly + vbExclamation, 信息提示 Exit Sub End If If Trim() = Then MsgBox 請輸 入 規(guī) 格！ , vbOKOnly + vbExclamation, 信息提示 Exit Sub End If If Trim() = Then MsgBox 請輸 入 儀 器 單 價！ , vbOKOnly + vbExclamation, 信息提示 Exit Sub End If If Trim() = Then MsgBox 請輸 入 廠 家！ , vbOKOnly + vbExclamation, 信息提示 Exit Sub End If If Trim() = Then MsgBox 請輸 入 購 置日期！ , vbOKOnly + vbExclamation, 信息提示 Exit Sub End If If Trim() = Then MsgBox 請輸 入 現(xiàn)狀 ！ , vbOKOnly + vbExclamation, 信息提示 Exit Sub End If If Trim() = Then MsgBox 請輸 入 領(lǐng) 用人！ , vbOKOnly + vbExclamation, 信息提示 Exit Sub End If If Trim() = Then MsgBox 請輸 入 經(jīng) 手人！ , vbOKOnly + vbExclamation, 信息提示 Exit Sub End If If Trim() = Then MsgBox 請輸 入 rksj！ , vbOKOnly + vbExclamation, 信息提示 Exit Sub End If (yiqibianhao = 39。User ID=admin。39。39。Data Source=F:\倉庫 管理系 統(tǒng) \。) If Then MsgBox 此 儀 器名 稱 不存在， 請 重新 輸 入！ , vbOKOnly, 警告 = Else = (yiqibianhao) = (fenleihao) = (yiqimingcheng) = (xinghao) = (guige) = (danjia) = (changjia) = (gouzhiriqi) = (xianzhuang) = (lingyongren) = (jingshouren) = (rukushijian) = End If End If End If End If End Sub Private Sub Command2_Click() If = Then MsgBox 請選擇 一 條記錄 ！ , vbOKOnly + vbExclamation, 信息提示 Else Set xinxi = New = adUseClient Provider=。 + + 39。Persist Security Info=False Set rstxinxi = New Set = xinxi select * from yiqixinxi, xinxi, adOpenStatic, adLockOptimistic If = Then MsgBox 請輸 入 儀 器名 稱 , vbOKOnly, 警告 Else (yiqimingcheng = 39。User ID=admin。39。39。Data Source=F:\倉庫 管理系 統(tǒng) \。 將窗體及其各控件的屬性設(shè)置完畢后，根據(jù)需要為窗體及控件添加事件處理函數(shù)，程序如下： Dim xinxi As New Dim rstxinxi As New Private Sub Command1_Click() If = True Then = False Set xinxi = New = adUseClient Provider=。) If Then MsgBox 此 儀 器名 稱 不存在， 請 重新 輸 入！ , vbOKOnly, 警告 = Else = (yiqibianhao) = (fenleihao) = (yiqimingcheng) = (xinghao) = (guige) = (danjia) = (changjia) = (gouzhiriqi) = (xianzhuang) = (lingyongren) = (jingshouren) = (rukushijian) = End If End If End If End If End Sub 創(chuàng)建修改信息窗體（ ） 在 visual basic 中新建一個 form，保存為 。 + + 39。Persist Security Info=False Set rstxinxi = New Set = xinxi select * from yiqixinxi, xinxi, adOpenStatic, adLockOptimistic If = Then MsgBox 請輸 入 儀 器名 稱 , vbOKOnly, 警告 Else (yiqimingcheng = 39。User ID=admin。39。39。Data Source=F:\倉庫 管理系 統(tǒng) \。Persist Security Info=False Set rstxinxi = New Set = xinxi select * from yiqixinxi, xinxi, adOpenStatic, adLockOptimistic End Sub Private Sub