VB图书管理系统源代码

  • 格式:docx
  • 大小:1.09 MB
  • 文档页数:12

VB图书管理系统源代码
Dim yhm As String, mm As String Private Sub Command1_Click()
If Text1.Text <> "" Then
yhm = Trim(Text1.Text)
mm = Trim(Text2.Text)
Do While Not
If Adodc1.Recordset("用户名") = yhm Then
If Adodc1.Recordset("密码") = mm Then
MsgBox "登录成功!", , "提示"
Unload Me
第二界面.Show
Exit Sub
Else
MsgBox "密码错误,请再输入!!!", , "提示"
Text2.Text = ""
Text2.SetFocus
Exit Sub
End If
Else
End If
Loop
If Then
MsgBox "你的用户名或密码不正解,请重新输入", , "提示"
Text1.SetFocus
Else
MsgBox "请输入您的用户名!!!", , "提示"
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub Form_Load()
End Sub
Private Sub Label1_Click()
登录界面.Show
Private Sub Form_Load()
End Sub
Private Sub Label2_Click() 库存管理.Show
End Sub
Private Sub Label3_Click() 借阅管理.Show
End Sub Private Sub Label1_Click() 信息设置.Show
End Sub
Private Sub Label4_Click() 系统维护.Show
End Sub
Private Sub Command1_Click() On Error Resume Next
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub Command1_Click() 图书信息设置.Show
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub Form_Load()
End Sub
Private Sub Label1_Click() 图书信息设置.Show
End Sub
Private Sub Label2_Click() 图书信息设置.Show
End Sub
Private Sub Label3_Click() 图书信息设置.Show
End Sub
Private Sub Label4_Click()
挂失.Show
End Sub
Private Sub Label5_Click() 图书信息设置.Show
End Sub
Private Sub Form_Load()
End Sub
Private Sub Label1_Click() 图书信息设置.Show
End Sub
Private Sub Label2_Click() 库存图书查询.Show
End Sub
Private Sub Command1_Click()
tsmc = Text1.Text
Do While Not
If Adodc1.Recordset("图书名称") = tsmc Then MsgBox "查找成功!", , "提示"
Else
MsgBox "查找条件不能为空!", , "提示"
End If
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub Command1_Click() On Error Resume Next
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub Form_Load()
End Sub
Private Sub Label1_Click() 用户管理.Show
End Sub
Private Sub Label2_Click() 登录界面.Show
End Sub
Private Sub Label3_Click() 修改密码.Show
End Sub Private Sub Label4_Click()
End Sub
Private Sub Form_Load()
End Sub
Private Sub Label2_Click()
读者信息设置.Show
End Sub
Private Sub 信息设置界面_Click() 图书信息设置.Show
End Sub
Dim yhm As String, mm As String
Private Sub Command1_Click()
If Text1.Text <> "" Then
yhm = Trim(Text1.Text)
mm = Trim(Text2.Text)
xmm = Trim(Text3.Text)
Do While Not
If Adodc1.Recordset("用户名") = yhm Then
If Adodc1.Recordset("密码") = mm Then
Adodc1.Recordset("密码") = xmm
Exit Sub
Else
MsgBox "两次输入的密码不一样,请重新输入!!!", , "提示"
Text2.Text = ""
Text2.SetFocus
Exit Sub
End If
Else
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub Command1_Click() 登录界面.Show
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub。