文档介绍：2图书管理信息系统
熟悉掌握数据库的基本内容以及SQL语句的使用,设计图书管理信息系统,使得图书基本信息能正确存储到数据库中,同时能实现图书基本信息的查询、修改和删除功能。
(1)图书管理信息系统界面的设计,设计结果如图2-1所示。
图2-1 图书管理信息系统界面
(2)添加模块,实现与数据库的链接,基本代码为:
Public conn As New
Public rs As New
Public Sub LinkdataBase()
Set conn = New
Set rs = New
"Provider=;Password=sa123456;Persist Security Info=True;User ID=sa;Initial Catalog=图书管理信息系统;Data Source=s2130"
End Sub
(3)图书基本信息的添加、查询、修改以及删除功能的实现
代码如下所示:
Private mand1_Click()
Dim a, b, c, d, e, f As Integer '定义了6个整数变量
'*************************************************************
判断输入的正确性
If = "" Then
X = MsgBox("图书编码不能为空!", 48, 提示信息)
Exit Sub
ElseIf IsNumeric() = False Then
MsgBox "图书编码必须为数值型数据!"
= ""
Exit Sub
ElseIf Val() < 0 Then
MsgBox "图书编码必须为正数!"
= ""
Exit Sub
ElseIf Val() / Fix(Val()) <> 1 Then
MsgBox "图书编码必须为整数!"
= ""
Exit Sub
ElseIf Len() <> 13 Then
MsgBox "图书编码必须为13位!"
= ""
Exit Sub
End If
'*************************************************************
a = Val(Mid(, 2, 1)) + Val(Mid(, 4, 1)) + Val(Mid(, 6, 1)) + Val(Mid(, 8, 1)) + V