+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [VB.NET] نظام المستخدمين (/showthread.php?tid=29799)
نظام المستخدمين - khairallah - 12-06-19
الرجاء من الاخوة الكرام اريد ان اسجل في قاعدة البيانات اسكيو ال سيرفر من خلال فيجوال بيسك جميع العمليات من تعديل وادخال للبيانات في جدول مستقل ما هي الطريقة الامثل لذلك مع كل الاحترام والتقدير وشكرا
RE: نظام المستخدمين - asemshahen5 - 12-06-19
تفضل هذا كود عمليات المستخدم :
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, "إضافة فاتورة")
RE: نظام المستخدمين - khairallah - 12-06-19
هل من الممكن ارسال نسخة من البرنامج مع قاعدة بيانات من نوع اكسس للتحميل
RE: نظام المستخدمين - asemshahen5 - 13-06-19
هذا سكربت عمل قاعدة البيانات و الجدول بقاعدة البيانات :
PHP كود :
CREATE DATABASE [ALASEM0]
go
use [ALASEM0]
CREATE TABLE [dbo].[USERS_LOGON](
ID int Not Null,
USER_NAME nvarchar Null,
LOGON_DATE nvarchar Null,
LOGON_TIME nvarchar Null,
COMPUTER_NAME nvarchar Null,
Process_Type nvarchar Null,
Process_NUM nvarchar Null,
FormText nvarchar Null,
NOTE nvarchar Null
) ON [PRIMARY]
RE: نظام المستخدمين - khairallah - 14-06-19
عفو اريد استفسار عن هذا الجزء وما علي فعله
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>'
RE: نظام المستخدمين - asemshahen - 14-06-19
قبل الكود ضع هذه ' ثلاث مرات و هو يولده لك فقط ضع شرحك في الاماكن المخصصة له .