تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعده :- في تعديل كود الطباعه dubai.eig 9 212 11-10-18, 02:34 PM
آخر رد: عبدالله الدوسري
  [VB.NET] مساعده في تفعيل سلفر اكسيس مع الفجيوال بيسك hayitham 6 163 18-09-18, 11:28 AM
آخر رد: elgokr
  ممكن مساعده اريد وضع مواعيد للحجوزات وعند ادخال قيمة وقت معين يعطي رساله بان الوقت ده thementalist 6 175 14-09-18, 08:47 PM
آخر رد: حريف برمجة
  مساعده في كود التعديل فراس محي 7 215 09-08-18, 05:18 PM
آخر رد: elgokr
  مساعده بخصوص طباعه داتا قريد فراس محي 4 200 01-08-18, 11:28 AM
آخر رد: فراس محي
  طلب مساعده كود بالفيجوال بيسك 2010 للمحترفين معاذ ابراهيم العامري 20 694 22-07-18, 11:16 PM
آخر رد: elgokr
Information [VB.NET] السلام عليكم اخوان ممكن مساعده بكود حذف فراس محي 3 189 27-06-18, 12:37 PM
آخر رد: boudyonline
Information مساعده حول كود ! YousefOkasha 3 155 17-06-18, 03:10 AM
آخر رد: elgokr
Thumbs Up مساعده برمجيه ipv.o 1 102 29-05-18, 06:08 PM
آخر رد: elgokr
  [VB.NET] احتاج مساعده بسيطه منكم في ال Crystal Reports mazenk 0 139 02-05-18, 01:39 AM
آخر رد: mazenk

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


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