VB图书管理系统数据库+论文+源代码 第5页
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
MsgBox ("已经是第一条记录了！")
End If
a = Val(CDate(Text2.Text) - CDate(Text1.Text))
Text5.Text = a
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox ("已经是最后一条记录了！")
End If
a = Val(CDate(Text2.Text) - CDate(Text1.Text))
Text5.Text = a
End Sub
Private Sub Command3_Click()
If Text5.Text > 31 Then
MsgBox ("已经过了最后期限！")
End If
End Sub
Private Sub Command4_Click()
Form1.Show
End Sub
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()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
End Sub
Private Sub Command4_Click()
Form1.Show
End Sub
Private Sub Command5_Click()
Form3.Show
End Sub
Private Sub Command1_Click()
m = MsgBox("请输入", vbOKCancel)
课程设计说明书 NO。19
If m = vbCancel Then
End
End If
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("sno") = Val(Text1.Text)
Adodc1.Recordset.Fields("sname") = Text2.Text
Adodc1.Recordset.Fields("ssex") = Text3.Text
Adodc1.Recordset.Fields("bno") = Val(Text4.Text)
End Sub
Private Sub Command3_Click()
Form2.Show
End Sub
上一页 [1] [2] [3] [4] [5]
VB图书管理系统数据库+论文+源代码 第5页下载如图片无法显示或论文不完整，请联系qq752018766
