دورات هندسية

 

 

مساعدة .. خلل فكود للـ VB.Net 203

النتائج 1 إلى 2 من 2
  1. [1]
    THE MAESTRO
    THE MAESTRO غير متواجد حالياً

    عضو

    تاريخ التسجيل: Apr 2007
    المشاركات: 14
    Thumbs Up
    Received: 1
    Given: 0

    مساعدة .. خلل فكود للـ VB.Net 203

    السلام عليكم انا بحاجة للمساعدة في كود بالـ Visual Basic.Net 2003

    انا عندي TextBox1 مثلاً بيطلب مني User name أو جتى Password وأريد أن تظهر لي رسالة Messagebox تظهر لي نفس النص المكتوب في الـ TextBox1

    الرسالة بتظهر بس ما قدرت أظهر في الرسالة نفس النص المدخل في الـ TextBox1



    أرجو المساعدة ضروري ..

  2. [2]
    محبة الله ورسوله*
    محبة الله ورسوله* غير متواجد حالياً
    عضو شرف
    الصورة الرمزية محبة الله ورسوله*


    تاريخ التسجيل: Mar 2006
    المشاركات: 9,592

    وسام الشكر

     وسام كبار الشخصيات

    Thumbs Up
    Received: 30
    Given: 13
    سوف اعطيك برنامج يعمل صلاحيات للمستخدم بشكل عام أن شاء الله يفيدك

    سوف نقوم الان بعمل برنامج للتاكد من اسم المستخدم وكلمة السر
    وصلاحيات كل مستخدم فى البرنامج
    اول خطوة
    بعمل فتح برنامج جديد
    قم باضافة Module
    واكتب الكود التالى
    كود:
    Imports System.Data.OleDb
    Module Module2
       Public myusername As String
       Public mypassword As String
       Public addstate As Boolean
       Public delstate As Boolean
       Public editstate As Boolean
       Public mydataset As New DataSet
       Public Con As New OleDbConnection
       Public MyAdapter As OleDbDataAdapter
    End Module

    ارجع الان الى الشاشة الرئيسية
    قم باضافة عدد 2 TextBox
    وغير الاسم الى
    t_username
    t_password

    والان اضافة الكود الخاص بلبرنامج

    اضف فضاء الاسماء التالى
    كود:
    Imports System.Data.OleDb

    وفى حدث تحميل الفورم اكتب الكود التالى
    كود:
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
           Con.ConnectionString = "Provider=Microsoft.jet.oleDB.4.0;Data Source=" & Application.StartupPath & "\db_admin.mdb;"
           Try
               Con.Open()
           Catch ex As Exception
               MessageBox.Show(ex.Message)
           End Try
       End Sub

    الخطوة التالية خطوة التاكد من اسم المستخدم وكلمة السر والصلاحيات

    كود:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           myusername = t_username.Text
           mypassword = t_password.Text
           mydataset.Clear()
           Dim Str As String = "select * from users where username='" & myusername & "' and password='" & mypassword & "'", con_str
           MyAdapter = New OleDbDataAdapter(Str, Con)
           MyAdapter.Fill(mydataset, "USER")
           If mydataset.Tables("USER").Rows.Count > 0 Then
               addstate = mydataset.Tables("USER").Rows(0).Item("addfunction")
               delstate = mydataset.Tables("USER").Rows(0).Item("deletefunction")
               editstate = mydataset.Tables("USER").Rows(0).Item("editfunction")
    
               Dim x As New Form2
               x.Show()
               Con.Close()
           Else
               MessageBox.Show("خطاء")
           End If
       End Sub

    الان قم باضافة الشاشة التالية
    وقم باضافة عدد 3Button

    وقم باعادة التسمية

    b_edit
    b_del
    b_Add

    وبعد ذالك اكتب الكود التالى

    كود:
    Sub show_controls(ByVal enableadd As Boolean, ByVal enableedit As Boolean, ByVal enabledel As Boolean)
           b_Add.Enabled = enableadd
           b_edit.Enabled = enableedit
           b_del.Enabled = enabledel
       End Sub

    ثم فى حدث تحميل الفورم التانى اكتب الكود التالى
    كود:
    show_controls(addstate, editstate, delstate)


    ملحوظة اسم المستخدمين فى البرنامج
    1 وكلمة السر 1
    2 وكلمة السر 2
    3 وكلمة السر3


    ورابط الصلاحيات

    0 Not allowed!


    لا تقل من أين أبدأ ... طاعة الله بداية
    لا تقل أين طريقى ... شرع الله الهداية
    لا تقل أين نعيمى ... جنة الله كفاية
    لا تقل غداً سأبدأ ... ربما تأتى النهاية
    ---------------------
    متغيبه عن الملتقي دعواتكم
    ونسأل الله ان يحفظ سائر بلاد المسلمين وان ينصرهم على الظالمين

  
الكلمات الدلالية لهذا الموضوع

عرض سحابة الكلمة الدلالية

RSS RSS 2.0 XML MAP HTML