تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] نظام المستخدمين
#1
الرجاء من الاخوة الكرام اريد ان اسجل في قاعدة البيانات اسكيو ال سيرفر من خلال فيجوال بيسك جميع العمليات من تعديل وادخال للبيانات في جدول مستقل ما هي الطريقة الامثل لذلك مع كل الاحترام والتقدير وشكرا
الرد
تم الشكر بواسطة:
#2
تفضل هذا كود عمليات المستخدم :

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 StringTxt_NOTE As StringFormText As StringProcess_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 "','" "','" _
        
FormText "','" Txt_NOTE "')"
 
       Dim dt As New DataTable
        dt
.Clear()
 
       Dim da As New SqlClient.SqlDataAdapter(SqlStrcn)
 
       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 StringTableName 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(StrSQLcn)
 
       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"إضافة فاتورة"
الرد
#3
هل من الممكن ارسال نسخة من البرنامج مع قاعدة بيانات من نوع اكسس للتحميل  Smile
الرد
تم الشكر بواسطة:
#4
هذا سكربت عمل قاعدة البيانات و الجدول بقاعدة البيانات :

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
الرد
#5
عفو اريد استفسار عن هذا الجزء وما علي فعله 
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>' 
الرد
تم الشكر بواسطة:
#6
قبل الكود ضع هذه ' ثلاث مرات و هو يولده لك فقط ضع شرحك في الاماكن المخصصة له .
الرد
تم الشكر بواسطة: elgokr , asemshahen5 , ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم