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


الملفات المرفقة
.rar   WindowsApplication4.rar (الحجم : 80.79 ك ب / التحميلات : 10)
الرد
تم الشكر بواسطة:
#2
كود :
Imports System.Data.OleDb

Public Class Form1

   Dim Conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=|DataDirectory|db2.accdb; Persist Security Info=True")

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       TxTUserName.Select()
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim SQLEmployees As String = "SELECT * FROM [Employees] WHERE Trim(LCase([EmployeeUser]))=Trim(LCase(@username)) AND [EmployeePass]=@password"

       Dim DataAdapterEmployees As New OleDbDataAdapter(SQLEmployees, Conn)
       DataAdapterEmployees.SelectCommand.Parameters.AddWithValue("@username", TxTUserName.Text)
       DataAdapterEmployees.SelectCommand.Parameters.AddWithValue("@password", TxTPassword.Text)

       Dim DataTableEmployees As New DataTable
       If DataAdapterEmployees.Fill(DataTableEmployees) > 0 Then

           Dim row As DataRow = DataTableEmployees.Rows(0)

           Form2.Button1.Enabled = row("IsWarehouse")
           Form2.Button1.Enabled = row("IsEmployees")
           Form2.Button1.Enabled = row("IsEmplSales")

           Form2.XN.Text = row("EmployeeName")

           Form2.Show()

       Else
           MsgBox("خطأ في اسم المستخدم أو كلمة المرور")

       End If

       TxTPassword.Text = ""

   End Sub

End Class
الرد
#3
اشكرك اخي العزيز ع الرد السريع وأتمنى للجميع التوفيق والاستفاده
الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation مساعده في مشروع تخرجي مهم جدا RFY 0 65 25-11-18, 11:18 PM
آخر رد: RFY
  مساعده فى البحث عن اسم بدلاله رقم vb2010 4 169 28-10-18, 11:22 PM
آخر رد: elgokr
  مساعده بتصميم قاعدة البيانات Rabeea Qbaha 6 235 26-10-18, 04:33 PM
آخر رد: عبد العزيز البسكري
  مساعده فى التريفيو vb2010 2 121 24-10-18, 08:12 PM
آخر رد: vb2010
  [VB.NET] مساعده :- في تعديل كود الطباعه dubai.eig 9 301 11-10-18, 02:34 PM
آخر رد: عبدالله الدوسري
  [VB.NET] مساعده في تفعيل سلفر اكسيس مع الفجيوال بيسك hayitham 6 199 18-09-18, 11:28 AM
آخر رد: elgokr
  ممكن مساعده اريد وضع مواعيد للحجوزات وعند ادخال قيمة وقت معين يعطي رساله بان الوقت ده thementalist 6 228 14-09-18, 08:47 PM
آخر رد: حريف برمجة
  مساعده في كود التعديل فراس محي 7 250 09-08-18, 05:18 PM
آخر رد: elgokr
  مساعده بخصوص طباعه داتا قريد فراس محي 4 244 01-08-18, 11:28 AM
آخر رد: فراس محي
  طلب مساعده كود بالفيجوال بيسك 2010 للمحترفين معاذ ابراهيم العامري 20 874 22-07-18, 11:16 PM
آخر رد: elgokr

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


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