3.2主界面模块

主界面的菜单项和工具栏中的按钮较多，模块调用也较多。首先，在启动的时候隐藏主界面，弹出登录对话框，如果登录失败，则关闭系统，否则显示界面，并用默认查询字串查询“图书”表和“读者”表，填充公用模块中的两个数据集对象，并设置datagrid对象的数据关联。主界面模块的运行界面如图3.3所示：

图3.3 主窗体设计界面

主界面模块代码如下：

在代码窗口定义两个变量，分别保存对图书表的查询字串和对读者表的查询字串

Dim bookstr As String

Dim readerstr As String

窗体的load事件中，先隐藏自己，弹出登录对话框，如果登录成功，查询图书表和读者表，并设置datagrid对象的数据关联。

代码如下：

Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

     Me.Hide()

     Dim frm As New frmLogin

     If frm.ShowDialog() = DialogResult.OK Then  '弹出登录对话框

          frm.Close()

  若图片无法显示请联系QQ3249114,本论文免费,转发请注明源于www.751com.cn

              Else

                    MsgBox("查询图书表失败")

              End If

              readerstr = "select * from 读者"

              If OleConn.SelectQuery(readerstr, readerDataSet) Then

                  grdReader.SetDataBinding(readerDataSet, "Table")

              Else

                  MsgBox("查询读者表失败")

              End If

          Catch ex As Exception

              OleConn.DisplayError(ex)

          End Try

          cmbQueryBookType.SelectedIndex = 1

          cmbQueryReaderType.SelectedIndex = 0

      Else                                        '登录失败，关闭系统

          Me.Close()

      End If

End Sub

单击“查询“按钮，检查输入内容，如果为空，则设置输入框的焦点，并显示提示信息；如果不为空，生成查询字串，清空图书表数据集bookdataset，重新查询，并设置datagrid对象的数据关联。

代码如下：

Private Sub btnQueryBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQueryBook.Click

      If txtQueryBookContent.Text = "" Then

          txtQueryBookContent.Focus()

          MsgBox("请输入查询内容")

      ElseIf cmbQueryBookType.SelectedIndex < 0 Then

          cmbQueryBookType.Focus()

          MsgBox("请选择查询类型")

      Else

          Try

              bookstr = "select * from 图书 where " & cmbQueryBookType.SelectedItem & _

                  "='" & Trim(txtQueryBookContent.Text) & "'"

              bookDataSet.Clear()

              If OleConn.SelectQuery(bookstr, bookDataSet) Then

                  grdBook.SetDataBinding(bookDataSet, "Table")

              Else

                  MsgBox("查询图书表失败")

              End If

          Catch ex As Exception

              OleConn.DisplayError(ex)

          End Try

      End If

End Sub

3.3借书模块

借书模块管理读者的借书书操作，首先在“读者编号”文本框输入读者编号，按下回车键，调出读者资料和该读者已经借过的图书信息，然后“读者编号”文本框获得焦点，接着在“图书编号”文本框输入图书编号，按下回车键，这将使“借书”按钮变为有效，单击“借书”按钮，需要修改读者表、图书表和借出图书表的一些字段，因此设置了3个表的数据集和3个表的查询字串。还书固定为系统的当前日期。借书模块的运行界面如图3.4所示：

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 下一页