[asemshahen5]

تفضل هذا كود عمليات المستخدم :

PHP كود :

#Region "User Process"
    ''' <summary>'
    ''' إضافة عمليات المستخدم'
    ''' </summary>'
    ''' <param name="Txt_USER_NAME">اسم المستخدم المسجد الدخول</param>'
    ''' <param name="Txt_NOTE">ملاحظات</param>'
    ''' <param name="FormText">اسم الفورم</param>'
    ''' <param name="Process_Type">نوع العملية تضع إضافة أو تعديل أو حذف أو بحث أو طباعة أو إستيراد أو تصدير</param>'
    ''' <returns>Nothing</returns>'
    ''' <remarks>لا يوجد اعادة تعيين</remarks>'
    Function InsertProcess(Txt_USER_NAME As String, Txt_NOTE As String, FormText As String, Process_Type As String) As String
        Dim ID As Integer = AddMaxID("ID", "USERS_LOGON")
        Dim DateXT As Date
        Dim cn As New SqlClient.SqlConnection("Server =(local);database=ALASEM0;integrated security=true")
        Dim SqlStr As String = "INSERT INTO USERS_LOGON (ID,USER_NAME,LOGON_DATE,LOGON_TIME,COMPUTER_NAME,Process_Type,Process_NUM,FormText,NOTE ) VALUES ('" _
        & ID & "','" & Txt_USER_NAME & "','" & DateXT.ToString("dd-MM-yyyy") & "','" & DateXT.ToString("hh:mm:ss tt") _
        & "','" & Environment.MachineName.ToString & "','" & Process_Type & "','" & 1 & "','" _
        & FormText & "','" & Txt_NOTE & "')"
        Dim dt As New DataTable
        dt.Clear()
        Dim da As New SqlClient.SqlDataAdapter(SqlStr, cn)
        da.Fill(dt)
        Return Nothing
    End Function
    ''' <summary>'
    ''' ترقيم تلقائي'
    ''' </summary>'
    ''' <param name="ID">اسم عامود الايدي</param>'
    ''' <param name="TableName">اسم الجدول</param>'
    ''' <returns>رقم الايدي الجديد</returns>'
    ''' <remarks>لا يوجد اعادة تعيين</remarks>'
    Function AddMaxID(ID As String, TableName As String) As Integer
        Dim StrSQL As String = "Select IIF(Max(" & ID & ") Is NULL,1,Max(" & ID & ")+1) From " & TableName
        Dim cn As New SqlClient.SqlConnection("Server =(local);database=ALASEM0;integrated security=true")
        Dim da As New SqlClient.SqlDataAdapter(StrSQL, cn)
        Dim dt As New DataTable
        da.Fill(dt)
        Return CInt(dt.Rows(0)(0).ToString)
    End Function
#End Region 


طبعا الكود الماضي يوضع بموديول بالبرنامج .
الكود التالي ضعه تحت العملية التي تريد تسجيل معلوماتها أي تحت كود الإضافة او التعديل و ما الى ذالك :

PHP كود :

       'طريقة الاستخدام'
        Module1.InsertProcess(UserName, "ضع هنا حقل معين من الحقول كحقل ملاحظات مثلا", Me.Text, "إضافة فاتورة")