主界面的菜单项和工具栏中的按钮较多，模块调用也较多。首先，在启动的时候隐藏主界面，弹出登录对话框，如果登录失败，则关闭系统，否则显示界面，并用默认查询字串查询“图书”表和“读者”表，填充公用模块中的两个数据集对象，并设置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()
若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于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
上一页 [1] [2] [3] [4] [5] [6] [7] [8] 下一页