用VB实现的邮编区号查询系统(3)

返回Button：

Private Sub Command1_Click() Unload Me End Sub

三、删除

删除Button：

Private Sub Command1_Click() Dim A%

A = MsgBox(\确认是否删除？\确认\If A = 1 Then

Adodc1.Recordset.Delete: MsgBox \删除成功\提示\End If End Sub

四、退出

退出Button：

Private Sub Command2_Click() Form3.Show Unload Me End Sub

Timer控件：

Private Sub Timer1_Timer() End End Sub

11

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库用VB实现的邮编区号查询系统(3)在线全文阅读。