图书信息查询业务

5.4.10　图书信息查询业务

图书查询业务功能相对来说简单的多，仅仅提供按图书编号查询相关图书信息的功能，对应的数据库表是“BookInfo”表（见图5-27）。

图5-27　图书查询业务子窗体设计

代码5-13　图书查询业务功能代码

′****************************************************************************

′窗体加载

Private Sub Form＿Load（）

　　lblInfo.Left=Me.ScaleLeft

　　lblInfo.Top=Me.ScaleTop

　　lblInfo.Width=Screen.Width

End Sub

′活动窗体

Private Sub Form＿Activate（）

　　clear

End Sub

′图书编号旁扩展按钮

Private Sub cmdBookOpen＿Click（）

　　frmBookInfo.Show

　　frmBookInfo.SetFocus

End Sub

Private Sub clear（）

　　txtBookId.Text=″″

　　txtBookName.Text=″″

　　txtAuthor.Text=″″

　　txtPubId.Text=″″

　　txtCatId.Text=″″

　　txtBookId.SetFocus

End Sub

′键盘回车

Private Sub Txtbookid＿KeyPress（KeyAscii As Integer）

　　Dim BookNo As String

　　BookNo=txtBookId.Text

　　If KeyAscii=13Then

　　　　clear

　　　　If Not IsNumeric（BookNo）Then

　　　　　　MsgBox″无效检索″，vbCritical，″检索错误″

　　　　　　Call clear

　　　　　　Exit Sub

　　End If

　　rsBookInfo.MoveFirst ′定位至记录起始位置

　　For i=0To rsBookInfo.RecordCount ′循环查找

　　　　If rsBookInfo.EOF=True Then

　　　　　　　Exit For

　　　　End If

　　　　If rsBookInfo（0）=Val（Trim＄（BookNo））Then

　　　　　　　txtBookName.Text=rsBookInfo（1）

　　　　　　　txtAuthor.Text=rsBookInfo（2）

　　　　　　　txtPubId.Text=rsBookInfo（3）

　　　　　　　txtCatId.Text=rsBookInfo（4）

　　　　　　　Exit For

　　　　End If

　　　　rsBookInfo.MoveNext

　　Next

　　If txtBookName.Text=″″Then

　　　　MsgBox″库中无此图书！″，vbInformation，″未查到结果″

　　　　clear

　　　End If

　　End If

End Sub