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

THE MAESTRO

عضو جديد
إنضم
9 أبريل 2007
المشاركات
14
مجموع الإعجابات
1
النقاط
0
السلام عليكم انا بحاجة للمساعدة في كود بالـ Visual Basic.Net 2003

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

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



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

مواضيع مماثلة

إنضم
5 مارس 2006
المشاركات
9,592
مجموع الإعجابات
526
النقاط
0
سوف اعطيك برنامج يعمل صلاحيات للمستخدم بشكل عام أن شاء الله يفيدك

سوف نقوم الان بعمل برنامج للتاكد من اسم المستخدم وكلمة السر
وصلاحيات كل مستخدم فى البرنامج
اول خطوة
بعمل فتح برنامج جديد
قم باضافة 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


ورابط الصلاحيات
 
أعلى