免费图书管理系统(四)

免费图书管理系统(四) nbsp;4 F
name varchar 50 F
Anchor varchar 20 F
Publisher varchar 50 F
price int 4 F
PublishDate datetime 8 F
flag int 4 T

表book_history设计如下表:
表3 book_history设计
列名数据类型长度允许为空
ID int 4 F
StudentsSID int 4 F
BookID int 4 F
BookName varchar 80 F
BookBeginDate datetime 8 F
BookGuihuanDate datetime 8 F
EndDate datetime 8 T

表BS设计如下图:
表4 BS设计
列名数据类型长度允许为空
SID int 4 F
ID int 4 F
BeginDate datetime 8 T
RemainDays int 4 T

表student设计如下图
表5 student设计
列名数据类型长度允许为空
SID Int 4 F
Sno Varchar 15 F
SName Varchar 10 F
Sex Varchar 2 F
MaxNumber Int 4 F
MaxDays Int 4 F
RemainNumber Int 4 T

表

图书管理系统应用程序设计
登录窗体模块组成
1登录窗口
2数据库连接定义窗口
3读者增加
4学生借书与查询历史窗口
5书籍借阅历史
6主窗口
7读者选择
8增加书籍
9书籍选择
10管理员增加
各窗体介绍
在窗体Module1.vb中定义了数据库的连接，每次读完数据库都将数据库连接关闭，在每次需要用到数据库的时候打开连接就可以了，以免以后每次用到数据库都要重新定义连接。其定义如下
Public constr As String = "User ID=sa; Password=; database=homework; server=(local)"
     Public mycon As New SqlConnection(constr)
      Public mycom As SqlCommand
     Public myda As SqlDataAdapter
   1 登录窗口

图2登录窗口界面
其登录按钮代码为：
If ComboBox1.Text = "" Or TextBox1.Text = "" Then
             MessageBox.Show("用户名或密码不能为空", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
   此句的作用是判断用户名或者密码是否为空
Dim sqlstr As String = "select Count(*) from Administrator Where Name='" & ComboBox1.SelectedItem & "' and Password='" & TextBox1.Text & "'"
         Dim mycom As New SqlCommand(sqlstr, mycon)
         If mycom.ExecuteScalar <> 1 Then
Else
             MessageBox.Show("恭喜你登录成功!", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Information)
         End If
         Me.Close()
其作用是当用户名或密码不为空时，将用户名与密码在数据库中进行比对。比对成功就登录成功
其中在管理员登录窗口上姓名一栏已经读入了数据库中现存的管理员用户名，省去了要管理员输入用户名这一步。如果姓名一栏没有显示出名字就说明管理员