Visual Basic.NET快速开发MIS系统

Public Sub New()
　MyBase.New()
　'该调用是 Windows 窗体设计器所必需的。
　InitializeComponent()
　gCls.UpdateTable = "tUser"
　'在 InitializeComponent() 调用之后添加任何初始化
End Sub

　　更改控件的属性，隐藏不需要的控件

　　在 frmUser的Load事件中更改DataGrid1的标题并隐藏不需要的控件:

Private Sub frmUser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 　MyBase.Load
　DataGrid1.CaptionText = "用户列表"
　cbo.Visible = False
　Me.Label6.Visible = False
End Sub
　　按同样方法，生成下面的窗体frmInfo,在此窗体上增加一些新控件，如下：


　　窗体frmInfo类继承frmModel：

Public Class frmInfo:Inherits frmModel
在类frmInfo的New方法中指定所操作的物理表名tInfo。
Public Sub New()
　…
　gCls.UpdateTable = " tInfo "
End Sub
　　现在，ToolBar1上增加了新的方法"导入"，应该怎样处理呢？事实上只要在frmInfo的ToolBar1_ButtonClick事件中识别时"导入"，写要处理的任务就可，如下：

Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
　Select Case e.Button.Text
　Case "导入"
　　…
　End Select
End Sub
　　通过上面的窗体继承方法，凡是对物理表的操作都可以通过这些方法来完成，而不必再重复编写代码。