'组合查询实体为保护型，为了子类成员函数的使用
Protected groupcheck As New Entity.GroupCheckEntity()
'查询按钮
Private Sub btnCheck_Click(sender As Object, e As EventArgs) Handles btnCheck.Click
If cobRelation1.Text = "" Then
If CombName1.Text = "" Or txtContent1.Text = "" Or CombOper1.Text = "" Then
MsgBox("第一行不能为空", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "系统提示")
Exit Sub
End If
Else
If cobRelation2.Text = "" Then
If CombName2.Text = "" Or txtContent2.Text = "" Or CombOper2.Text = "" Then
MsgBox("第二行不能为空", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "系统提示")
Exit Sub
End If
Else
If CombName3.Text = "" Or txtContent3.Text = "" Or CombOper3.Text = "" Then
MsgBox("第三行不能为空", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "系统提示")
Exit Sub
End If
End If
End If
'把窗体上的信息赋值给实体
groupcheck.TableName = GetdbName()
groupcheck.CombName1 = ToEnglish(CombName1.Text)
groupcheck.CombName2 = ToEnglish(CombName2.Text)
groupcheck.CombName3 = ToEnglish(CombName3.Text)
groupcheck.CombOper1 = CombOper1.Text.Trim
groupcheck.CombOper2 = CombOper2.Text.Trim
groupcheck.CombOper3 = CombOper3.Text.Trim
groupcheck.TxtContent1 = txtContent1.Text.Trim
groupcheck.TxtContent2 = txtContent2.Text.Trim
groupcheck.TxtContent3 = txtContent3.Text.Trim
groupcheck.CobRelation1 = ToEnglish(cobRelation1.Text)
groupcheck.CobRelation2 = ToEnglish(cobRelation2.Text)
Dim dt As New DataTable
Dim Group As New BLL.GroupCheckBLL()
'b层返回的数据类型为Datatable
dt = Group.GroupChecks(groupcheck)
If dt.Rows.Count = 0 Then
MsgBox("没有符合条件的记录", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "系统提示")
DataGrid.DataSource = Nothing
DataGrid.Refresh()
Exit Sub
Else
'调用子窗体重写的Todatagrid方法
Call Todatagrid()
End If
End Sub
Private Sub PreStuBasicInfo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'窗体的显示
CombOper1.Items.Add("<")
CombOper1.Items.Add(">")
CombOper1.Items.Add("=")
CombOper1.Items.Add("<>")
CombOper2.Items.Add("<")
CombOper2.Items.Add(">")
CombOper2.Items.Add("=")
CombOper2.Items.Add("<>")
CombOper3.Items.Add("<")
CombOper3.Items.Add(">")
CombOper3.Items.Add("=")
CombOper3.Items.Add("<>")
cobRelation1.Items.Add("与")
cobRelation1.Items.Add("或")
cobRelation2.Items.Add("与")
cobRelation2.Items.Add("或")
CombName2.Enabled = False
CombName3.Enabled = False
CombOper2.Enabled = False
CombOper3.Enabled = False
txtContent2.Enabled = False
txtContent3.Enabled = False
DataGrid.SelectionMode = DataGridViewSelectionMode.FullRowSelect
'DataGridView控件，选取整行
Dim i As Integer
For i = 0 To DataGrid.Columns.Count - 1
DataGrid.Columns(i).Width = DataGridViewAutoSizeColumnMode.AllCells
Next
End Sub
Private Sub btnQuit_Click(sender As Object, e As EventArgs) Handles btnQuit.Click
Me.Dispose()
End Sub
'定义可重写的把汉字转换为英文的方法
Public Overridable Function ToEnglish(ByVal Name As String) As String
Return ""
End Function
'定义可重写并返回要操作的数据库表
Public Overridable Function GetdbName() As String
Return ""
End Function
'定义保护类型可被子类重写的显示数据的方法
Protected Overridable Sub Todatagrid()
End Sub
'界面的优化
Private Sub cobRelation1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cobRelation1.SelectedIndexChanged
If cobRelation1.Text = "" Then
CombName2.Enabled = False
CombOper2.Enabled = False
txtContent2.Enabled = False
CombName3.Enabled = False
CombOper3.Enabled = False
txtContent3.Enabled = False
cobRelation2.Enabled = False
Else
CombName2.Enabled = True
CombOper2.Enabled = True
txtContent2.Enabled = True
cobRelation2.Enabled = True
End If
End Sub
'界面的优化
Private Sub cobRelation2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cobRelation2.SelectedIndexChanged
If cobRelation2.Text = "" Then
CombName3.Enabled = False
CombOper3.Enabled = False
txtContent3.Enabled = False
Else
CombName3.Enabled = True
CombOper3.Enabled = True
txtContent3.Enabled = True
End If
End Sub
'清空各个控件
Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
'如果comb的类型为ComBox控件那么清空
For Each comb As Control In Me.Controls
If comb.GetType Is GetType(ComboBox) Then
comb.Text = ""
End If
Next
txtContent1.Text = ""
txtContent2.Text = ""
txtContent3.Text = ""
DataGrid.DataSource = Nothing
End Sub
以上是抽象出三个组合查询的公共部分，其中包含三个可以被写的方法，子窗体可以根据本窗体的需求重
写该方法
二、继承窗体
'显示本窗体需要的数据
Private Sub CheckStuInfo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CombName1.Items.Add("学号")
CombName1.Items.Add("姓名")
CombName1.Items.Add("性别")
CombName1.Items.Add("学院")
CombName1.Items.Add("年级")
CombName1.Items.Add("班级")
CombName1.Items.Add("操作员")
CombName2.Items.Add("学号")
CombName2.Items.Add("姓名")
CombName2.Items.Add("性别")
CombName2.Items.Add("学院")
CombName2.Items.Add("年级")
CombName2.Items.Add("班级")
CombName2.Items.Add("操作员")
CombName3.Items.Add("学号")
CombName3.Items.Add("姓名")
CombName3.Items.Add("性别")
CombName3.Items.Add("学院")
CombName3.Items.Add("年级")
CombName3.Items.Add("班级")
CombName3.Items.Add("操作员")
Me.Text = "学生基本信息维护"
cobRelation2.Enabled = False
End Sub
'选择了需要的数据，并且通过ToEnglish方法转换为数据库中的字段名
Public Overrides Function ToEnglish(Name As String) As String
Select Case Name
Case "学号"
ToEnglish = "studentno"
Case "姓名"
ToEnglish = "name"
Case "性别"
ToEnglish = "sex"
Case "学院"
ToEnglish = "department"
Case "年级"
ToEnglish = "grade"
Case "班级"
ToEnglish = "classes"
Case "操作员"
ToEnglish = "head"
Case "或"
ToEnglish = "or"
Case "与"
ToEnglish = "and"
Case Else
ToEnglish = ""
End Select
End Function
'返回要操作的数据库的表名称
Public Overrides Function GetdbName() As String
Return "Student_Info"
End Function
'显示本窗体的数据
Protected Overrides Sub Todatagrid()
Dim dt As New DataTable
'定义B层GroupCheckBLL方法的新对象
Dim ShowInfo As New BLL.GroupCheckBLL()
'传入数据，并调用该对象的方法，返回dt
dt = ShowInfo.GroupChecks(groupcheck)
DataGrid.AutoGenerateColumns = True
'改变dt中每一列要显示的名称
dt.Columns("studentno").ColumnName = "学号"
dt.Columns("name").ColumnName = "姓名"
dt.Columns("sex").ColumnName = "性别"
dt.Columns("department").ColumnName = "学院"
dt.Columns("grade").ColumnName = "年级"
dt.Columns("classes").ColumnName = "班级"
dt.Columns("head").ColumnName = "操作员"
'把值传给DataGrid控件
DataGrid.DataSource = dt
End Sub
扫一扫
1033
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
