تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله عند الدخول في البرنامج
#1
السلام عليكم

اخواني انا اضفت اليوم اكواد الصلاحيات للبرنامج الخاص بي

ولكن حدث مشكله عند تشغيل البرنامج
كما في الصوره
[ATTACH=CONFIG]2740[/ATTACH]

اتمنى منكم مساعدتي

ولكم جزيل الشكر


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
اخواني هذا هو الكود


كود :
Imports System.Data.OleDb

Public Class Login
    Public ds As New DataSet
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        ds.Clear()
        Dim data As New OleDbDataAdapter("select Approve,SMR,KH,SA,NA,MOD1,AH,NO,AZ,MA,SJ,MOA,HA,OL from users where User='" & Trim(TextBox1.Text) & "' and Pass = '" & Trim(TextBox2.Text) & "'", con)
        con.Open()
        data.Fill(ds, "users")
        con.Close()
        If ds.Tables("users").Rows.Count = 0 Then
            MsgBox("Please check username or Password")
        Else
            check_premission()
            Me.Dispose()
            Main.Show()
        End If
    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub

    Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If users_count() = True Then
            MsgBox("we will add you admin", MsgBoxStyle.Information)
            Me.Dispose()
            Formnewuser.Show()
            Exit Sub
        End If
    End Sub

    Function users_count()
        Dim cmd As New OleDbCommand("select count(*) from users", con)
        If con.State = ConnectionState.Open Then
            con.Close()
        End If
        Dim count As Integer = 0
        con.Open()
        count = cmd.ExecuteScalar()
        con.Close()
        If count = 0 Then
            Return True
        Else
            Return False
        End If
    End Function
    Sub check_premission()
        SMR = ds.Tables("users").Rows(0)(0)
        KH = ds.Tables("users").Rows(0)(1)
        SA = ds.Tables("users").Rows(0)(2)
        NA = ds.Tables("users").Rows(0)(3)
        MOD1 = ds.Tables("users").Rows(0)(4)
        AH = ds.Tables("users").Rows(0)(5)
        NO = ds.Tables("users").Rows(0)(6)
        AZ = ds.Tables("users").Rows(0)(7)
        MA = ds.Tables("users").Rows(0)(8)
        SJ = ds.Tables("users").Rows(0)(9)
        MOA = ds.Tables("users").Rows(0)(10)
        HA = ds.Tables("users").Rows(0)(11)
        OL = ds.Tables("users").Rows(0)(12)
        Approve = ds.Tables("users").Rows(0)(13)
    End Sub
End Class
الرد }}}}
تم الشكر بواسطة:
#3
اتمنى منكم مساعدتي
الرد }}}}
تم الشكر بواسطة:
#4

السلام عليكم ورحمة الله وبركاته







PHP كود :
Private Sub OK_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles OK.Click

            Dim sql 
As String " Select *                  " _
                                
"   From [users]            " _
                                
"  Where [User] = @User     " _
                                
"    And [Pass] = @Pass     "
            
Dim comm As New OleDbCommand(sqlcon)
            
comm.Parameters.AddWithValue("@User"Me.TextBox1.Text)
            
comm.Parameters.AddWithValue("@Pass"Me.TextBox2.Text)

            
Dim data As New OleDbDataAdapter(comm)
            
ds.Clear()
            
data.Fill(ds)

            If 
ds.Tables(0).Rows.Count 0 Then
                MsgBox
("Please check username or Password")
            Else
                
check_premission()
                
Me.Dispose()
                
Main.Show()
            
End If

        
End Sub 






السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#5
اخوي ابو رائد جزالك الله كل الخير
الكود حل المشكله
ولكن ظهرت مشكله اخرى

كما في الصوره
[ATTACH=CONFIG]2745[/ATTACH]

اتمنى مساعدتي


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#6

السلام عليكم ورحمة الله وبركاته







PHP كود :
SMR ds.Tables(0).Rows(0).Item("SMR"
وهكذا...





السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#7
يا خ ابو رائد بصراحه انا غلبتك كثير

حلت المشكله بس اجت مشكله جديده
كما في الصوره
[ATTACH=CONFIG]2746[/ATTACH]
اتمنى المساعده


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#8

السلام عليكم ورحمة الله وبركاته







لا تغير الصفر في ds.Tables(0).Rows(0) في جميع الأسطر






السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#9
اخي الكريم ابو رائد

الف الف شكر لك
لقد حلت المشكله

ولكن عندما ادخل على البرنامج واضع اسم المستخدم وكلمه السر

تظهر الشاشه الرئيسه لمده اقل من ثانيه ثم تختفى

ما الحل

وجزاك الله كل الخير
الرد }}}}
تم الشكر بواسطة:
#10
alaqsa كتب :ولكن عندما ادخل على البرنامج واضع اسم المستخدم وكلمه السر

تظهر الشاشه الرئيسه لمده اقل من ثانيه ثم تختفى


السلام عليكم ورحمة الله وبركاته






غير واضح، هل تقصد اذا ادخلت معلومات دخول خطأ فيتم الخروج من البرنامج ولكن تظهر النافذة الرئيسة ثم تختفي!





السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 10 4,989 أمس, 08:04 AM
آخر رد: hatem555
  [VB.NET] اريد كود حفظ العمل على البرنامج ؟؟ عامر الجبوري 4 93 16-05-17, 12:54 PM
آخر رد: عامر الجبوري
  يظهر خطاء بعد تنصيب البرنامج ساعدوني samawi 5 120 15-05-17, 04:08 AM
آخر رد: samawi
  [SQL] التاريخ في البرنامج العواد الصغير 7 189 14-05-17, 06:17 PM
آخر رد: العواد الصغير
  اخطاء في البرنامج zinab ali 1 49 08-05-17, 12:44 AM
آخر رد: zinom
  [VB.NET] كيفية فتح البرنامج اكتر من مرة بشروط معينة الماجيك مسعد 6 129 07-05-17, 04:15 AM
آخر رد: الماجيك مسعد
  كود حماية البرنامج من النسخ والسرقة ramimohammed 2 122 01-05-17, 03:39 PM
آخر رد: أسامة السالمي
  كيفية ربط البرنامج مع الاكسس اللي موجود علي ال Share point khaled12345 0 48 17-04-17, 05:55 PM
آخر رد: khaled12345
  مشكله فى الكود ارجو المساعده نبيل كونكت 0 52 14-04-17, 09:16 PM
آخر رد: نبيل كونكت
  مشكله في Update الداتا في DataGridview أحمد العرب 3 179 13-04-17, 01:46 PM
آخر رد: أحمد العرب

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


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