Personal e-notepad

    标准Standard - Reflection on Programming


    帖子数 : 173
    积分 : 3533
    威望 : 0
    注册日期 : 2011-09-08
    地点 : SG

    标准Standard - Reflection on Programming Empty 标准Standard - Reflection on Programming

    Post by Aueeins on 29/09/11, 11:52 am

    Option Explicit On
    ' 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
    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
    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()
    If dgv08Class.Enabled Then dgv08Class.Select()
    End Sub
    #End Region

      Current date/time is 30/05/20, 10:36 pm