用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