窗体继承

    我们都知道面向对象的特征是封装、继承和多态，封装我们在vb版的机房中都用过，那么继承该怎么用？

 
在机房重构中有很多窗体都是相类似的，我们可以把这些窗体中公共的部分抽象出来，然后再继承这些窗体，

 可以很好的达到代码复用的效果

 一、父类窗体

    机房中组合查询的窗体一共有三个，他们除了数据显示不同之外其他基本都是一样的，我们可以把一样的

 东西封装起来单独构成一个父窗体

    '组合查询实体为保护型，为了子类成员函数的使用    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

   以上包含了子类窗体重写父类窗体的方法

 三、比较

   通过对继承方法实现组合查询与以前我们用VB实现组合查询的方法进行对比，我们可以很明显发现用继承

 方法的方便，而且也使得代码得到复用，显得更加简洁

   这里为什么要返回数据库表的名称？这涉及到D层是如何实现对数据库的操作的，下篇博客会提到实现的方

 法-存储过程