定义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

 

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页