计算机毕业设计介绍：
6.10 图书征订的功能模块
完成图书馆对图书的征订和提交征订的功能，同样具有对征订的信息进行添加、修改、删除以及保存和取消保存的功能。这里的“提交征订（验收）”按扭。当单击它时系统调用“sf_图书征订”存储过程，增加图书的在库数量，并将“是否验收”字段设置为1，表示征订记录已经验收。征订编号为系统自动生成，输入图书编号自动显示出图书的名称，图书名称项文本框不可以用，此时的“搜索”图标也为可用状态，单击搜索图标显示出所有图书的信息表，双击任意一条图书消息即可选定它为要征订的图书。
主要代码设计如下：
Public Overrides Sub LoadData()
'清空DataSet11
DataSet11.Clear()
SqlConnection1.ConnectionString = DataBase.sConn
Dim strSQL As String
If strFilter.Trim.Length = 0 Then
strFilter = " where 是否验收 = 0 "
Else
strFilter = " and 是否验收 = 0 "
End If
SqlDataAdapter1.SelectCommand.CommandText _
= "select * from 图书征订 " + strFilter
'根据查询条件重新填充DataSet11
SqlDataAdapter1.Fill(DataSet11)
dtData = DataSet11.Tables("图书征订")
If dtData.Columns.IndexOf("图书名称") = -1 Then
dtData.Columns.Add("图书名称")
End If
'为图书名称设置数据
SetBookName()
bmData = Me.BindingContext(DataSet11, "图书征订")
If bmData.Count <> 0 Then
bmData.Position = 0
End If
End Sub
…… …… …… ……
6.11 图书借阅的功能模块
该功能完成对图书的借阅。此功能支持条码借阅图书。读者选择和图书选择可以支持编码和条码输入，默认是编码，在“读者信息”编辑框中输入编码，回车后系统自动列出该读者的姓名、类型及已经借阅还未归还的图书清单，并且光标跳到“借阅图书信息”编辑框；在“图书借阅信息”编辑框中输入图书编号或者条码，回车该图书自动添加到下方的借阅列表中，状态是“新借”，借出日期和应还期限根据当前日期和图书类型中的可借天数自动生成。连续输入借阅的图书，完成后单击“确定借书”按扭，确定图书的借出，系统调用“sf_图书借阅”存储过程，减少“图书信息”表中的图书的在库数量，并将“图书借阅”表的状态属性改为“未还”。单击“取消借书”按扭，可以取消当前输入的借阅情况。借阅是系统会检查借阅的数量不能超过该类型读者可以借阅的数量。
<责任编辑：计算机毕业设计网(http://www.xiaoniu168.com)>