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


الملفات المرفقة
.rar   WindowsApplication4.rar (الحجم : 80.79 ك ب / التحميلات : 14)
الرد
تم الشكر بواسطة:
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده شباب اريد تعديل الكود يشتغل عليDataGridView بدل ListView -اين المحترفين Fransesco 3 31 منذ 12 دقيقة مضت
آخر رد: elgokr
  [VB.NET] مساعده في تصحيح الكود dubai.eig 4 97 20-02-19, 05:48 PM
آخر رد: elgokr
Smile [VB.NET] مساعده في برمجة فاحص ايميلات AMJEDK 3 65 19-02-19, 03:30 PM
آخر رد: AMJEDK
  مساعده بخصوص تقرير report viewer ahmed.max1 3 109 22-01-19, 12:43 AM
آخر رد: elgokr
Exclamation مساعده في مشروع تخرجي مهم جدا RFY 0 131 25-11-18, 11:18 PM
آخر رد: RFY
  مساعده فى البحث عن اسم بدلاله رقم vb2010 4 254 28-10-18, 11:22 PM
آخر رد: elgokr
  مساعده بتصميم قاعدة البيانات Rabeea Qbaha 6 335 26-10-18, 04:33 PM
آخر رد: عبد العزيز البسكري
  مساعده فى التريفيو vb2010 2 186 24-10-18, 08:12 PM
آخر رد: vb2010
  [VB.NET] مساعده :- في تعديل كود الطباعه dubai.eig 9 413 11-10-18, 02:34 PM
آخر رد: عبدالله الدوسري
  [VB.NET] مساعده في تفعيل سلفر اكسيس مع الفجيوال بيسك hayitham 6 265 18-09-18, 11:28 AM
آخر رد: elgokr

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


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