标准Standard - Reflection on Programming

用做过的ZLaw-f08Class做媒介，反思程序整个过程
Option Explicit On
'WRITE BY [WANGZHEN]
' Standard Libraries
Imports System.IO 标准Library
' Customize Libraries
Imports ZLibrary
Imports ZLibrary.mGlobal
Imports ZSelection

#Region "VARIABLES"
' Local Variables
' NOTE: vRsHeaderStr - hold the initial SQL stt which w/o the conditions so that it can be widely use by other _
' module like Filter, Refresh etc.
Dim vSql08ClassStr As String, vSql08ClassStrFront As String
Public vDs08Class As DataSet
Dim vEventReference As String, vEventReferenceNum As String, vEventReferenceID As String, _
vEventReferenceSource As String, vEventReferenceCode As String, vEventReferenceAssetGroup As String
#End Region

#Region "FORM FUNCTIONS"

Private Sub f08Class_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
'Activated作用
End Sub
Private Sub f08Class_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.A
'If e.Control And btnAdd.Enabled Then
' Call btnAdd_Click(sender, e)
'End If
Case Keys.O
'If e.Control And btnCopyAdd.Enabled Then
' Call btnCopyAdd_Click(sender, e)
'End If
Case Keys.D
'If e.Control And btndelete.Enabled Then
' Call btndelete_Click(sender, e)
'End If
Case Keys.E
'If e.Control And btnEdit.Enabled Then
' Call btnEdit_Click(sender, e)
'End If
Case Keys.F
'If e.Control Then
' Call btnFilter_Click(sender, e)
'End If
Case Keys.R
'If e.Control Then
' Call btnRefresh_Click(sender, e)
'End If
Case Keys.Q
'If e.Control Then
' Call btnExit_Click(sender, e)
'End If
Case Keys.Return
If dgv08Class.Focused Then
e.SuppressKeyPress = True
pShowViewMode()
Else
System.Windows.Forms.SendKeys.Send("{TAB}")
End If
Case Keys.Escape
Call btnExit_Click(sender, e)
End Select
End Sub

Private Sub f08Class_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lblShowDt.Text = Format(Now(), "dd/MM/yyyy")
Me.Text = mGlobal.setFormTitle("LEGAL CLASS / ROLE / EVENTS", vppCompanyName, UCase(vpStaffId), UCase(vpStaffName))

Call pDs08Class()
Call pDataBinding()
Call pRecordCount()
Call pLockMenu()
dgv08Class.Select()
If dgv08Class.Enabled Then dgv08Class.Select()
End Sub
#End Region