学士学位论文--vb课程设计题目 设备管理系统.docVIP

VB程序设计 课程设计一、课程设计的与要求课程设计的与要求1、教学2、教学要求 从课程设计的出发，Private Sub Command1_Click() Form2.Show End Sub （2）查看设备 Form2 代码如下： Private Sub Command1_Click() Adodc1.Recordset.MovePrevious ’数据移到上一条 If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst MsgBox 已经是第一条 End If End Sub Private Sub Command2_Click() Adodc1.Recordset.MoveNext ’ 数据移到下一条 If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast MsgBox 已经是最后一条 End If End Sub Private Sub Command3_Click() Form3.Show End Sub Private Sub Command4_Click() Form4.Show End Sub Private Sub Command5_Click() On Error Resume