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



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


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