窗体继承及实现
所处理的物理表
有了上面的类，我们就可应用它来实现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 |
|
|
