Visual Basic.NET快速开发MIS系统

窗体继承及实现

　　所处理的物理表

　　有了上面的类，我们就可应用它来实现MIS系统中关于物理表的操作功能。

　　例如我们有一个tInfo表、tUser表、tChange表、tSub表,表中都定义了主关键字字段FSYSTEMID, 表结构如下：

tChange表

tSub表

　　生成窗体模板

　　我们要向tInfo表、tUser二个表里插入数据，删除数据，更新数据,它们应该分别在二个Form里完成。这里，我们可先定义一Form模板，命名为FrmModule,在FrmModule上增加工具箱ToolBar1，在ToolBar1增加"增加"、"保存"按钮 、"删除"、"退出"等按钮，增加数据网络DataGrid1,文本盒及下拉列表盒。布置好后如下图：



　　把在继承的Form中可能会重新设置控件的控件对象的友元属性改为公有属性：

　　要使模板FrmModule中的控件能够在继承的窗体中能够修改其所继承的控件属性，必须把其友元属性改为公有属性

Public WithEvents Label2 As System.Windows.Forms.Label Public WithEvents txt4 As System.Windows.Forms.ComboBox …

　　定义FrmModule类的全局变量

　　FrmModule直接调用CData类的方法，完成所需功能。

Public Shared gCls As New CData() Public gIsUpdate as Boolean

　　定义FrmModule的方法

　　在FrmModule的Load事件中连接数据库,并填充网格数据,即：

Public Shadows Sub FrmModel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 　gCls.DB.ConnOracle("GDZC", "liyu", "123") 　gCls.FillGrid(Me.DataGrid1) End Sub

　　当单击DataGrid1时，应把DataGrid1的当前行写入输入控件中供用户修改数据,取得当前行的标识，这里用SystemID记录，同时表示可以更新。这个过程在DataGrid1的_CurrentCellChanged事件中完成, 即：

Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) 　Handles DataGrid1.CurrentCellChanged 　Dim RowIndex As Int16 　RowIndex = DataGrid1.CurrentRowIndex 　gCls.DataGridToText(Me) 　gCls.SystemID = DataGrid1.Item(RowIndex, 0) 　gIsUpdate = True End Sub

　　编写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 "增加" 　　gIsUpdate = False 　Case "保存" 　　WriteDateToArray() 　　If gIsUpdate Then 　　　gCls.Update() 　　　Exit Select 　　Else 　　　gCls.Insert() 　　End If 　Case "删除" 　　If MsgBox ("真的删除该数据吗？（Y/N）") = 7 Then 　　　Return 　　End If 　　gCls.Delete() 　Case "退出" 　　Me.Close() 　　Exit Sub 　End Select 　gCls.FillGrid(DataGrid1) End Sub '把输入的数据用对象数组保存起来 Public Overridable Sub WriteDateToArray() 　Dim i As Int16 　Dim obj As Control 　For i = 1 To gCls.FieldCount - 1 　　For Each obj In Me.Controls 　　　If obj.TabIndex = i Then 　　　　gCls.ObjFields(i) = obj.Text 　　　　Exit For 　　　End If 　　Next 　Next 　gCls.ObjFields(0) = gCls.DB.GetMaxID(gCls.UpdateTable, "FSYSTEMID") + 1 End Sub