数据库技术及应用课程设计项目设计报告说明书之植物分类与生物价值查询

数据库技术及应用课程设计项目设计报告说明书之植物分类与生物价值查询内容摘要：

39。 连接关闭 If mima = And Then MsgBox(您输入的帐号不存在。 ) Randomize() = Int(Rnd() * 9000 + 1000) = = = () 39。 帐号不存在时 Else If = Then MsgBox(请输入帐号。 ) 39。 未输入帐号时 Else 22 Select Case Case MsgBox(密码不能为空，请输入。 ) 39。 密码为空时 Case mima Select Case Case MsgBox(请输入验证码。 ) 39。 验证码为空时 Case () 39。 密码、验证码都正确时，进入下一界面 () 39。 = 39。 = 39。 = Case Else MsgBox(验证码输入错误。 ) 39。 验证码错误时 = = Int(Rnd() * 9000 + 1000) End Select Case Else MsgBox(密码错误。 请重新输入。 ) 39。 密码错时 = = = Int(Rnd() * 9000 + 1000) End Select End If End If ElseIf Then Try () Dim mySelectQuery1 As String = select 密码 from 管理员表 where 帐号 = 39。 amp。 amp。 39。 Dim myCommand1 As New (mySelectQuery1, SqlConnection1) Dim myReader1 As = () While () mima = (0) End While () () Catch ex As Exception End Try 23 39。 连接关闭 If mima = And Then MsgBox(您输入的帐号不存在。 ) Randomize() = Int(Rnd() * 9000 + 1000) = = = () 39。 帐号不存在时 Else If = Then MsgBox(请输入帐号。 ) 39。 未输入帐号时 Else Select Case Case MsgBox(密码不能为空，请输入。 ) 39。 密码为空时 Case mima Select Case Case MsgBox(请输入验证码。 ) 39。 验证码为空时 Case () 39。 密码、验证码都正确时，进入下一界面 () 39。 = 39。 = 39。 = Case Else MsgBox(验证码输入错误。 ) 39。 验证码错误时 = = Int(Rnd() * 9000 + 1000) End Select Case Else MsgBox(密码错误。 请重新输入。 ) 39。 密码错时 = = = Int(Rnd() * 9000 + 1000) End Select End If End If End If End Sub 24 Private Sub TextBox2_TextChanged(ByVal sender As , ByVal e As ) Handles code = End Sub Private Sub Button6_Click(ByVal sender As , ByVal e As ) () () End Sub Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As ) Handles snum = End Sub Private Sub Button5_Click(ByVal sender As , ByVal e As ) Handles = = = () Randomize() = Int(Rnd() * 9000 + 1000) End Sub End Class 2． 4 进入 查询界面 25 代码如下： Imports Imports Public Class Form5 Inherits Sub Form5_Load(ByVal sender As , ByVal e As ) Handles Dim gp As GraphicsPath = New GraphicsPath (New Rectangle(0, 0, , )) = New Region(gp) = 200 = True End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles () () End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles () () End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () () 26 End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles () () = Int(Rnd() * 9000 + 1000) End Sub Private Sub Label1_Click(ByVal sender As , ByVal e As ) End Sub Private Sub Label1_Click_1(ByVal sender As , ByVal e As ) Handles End Sub Sub MyMove1() = + 5 If Then = 0 End If End Sub Private Sub Timer1_Tick(ByVal sender As , ByVal e As ) Handles Call MyMove1() End Sub End Class 2． 5 单一查询界面 27 代码如下： Public Class Form7 Inherits Private Sub Form7_Load(ByVal sender As , ByVal e As ) Handles = = = = False = False = False = False = False = False。