表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()
 其作用是当用户名或密码不为空时，将用户名与密码在数据库中进行比对。比对成功就登录成功
 其中在管理员登录窗口上姓名一栏已经读入了数据库中现存的管理员用户名，省去了要管理员输入用户名这一步。如果姓名一栏没有显示出名字就说明管理员

首页 上一页 1 2 3 4 5 6 7 下一页 尾页 4/9/9

相关论文