图书信息查询业务

    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