تقييم الموضوع :
  • 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 كتب :ولكن عندما ادخل على البرنامج واضع اسم المستخدم وكلمه السر

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


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






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





السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله في الاستعلام anas_elwakkad 1 18 أمس, 02:34 PM
آخر رد: sendbad100
  البرنامج لايحفظ التغيرات عبدالرحمن المكاوي 4 59 18-02-17, 10:03 AM
آخر رد: وائل القطاوي
Thumbs Up [سؤال] كود تخطي فتح رابط معين لتشغيل البرنامج Mk 22353 1 54 17-02-17, 02:43 AM
آخر رد: الماجيك مسعد
  مشكله في تثبيت Visual Studio 2015 Test 22 3,693 13-02-17, 04:20 PM
آخر رد: tempman
  [سؤال] حمايه البرنامج moshax 3 108 09-02-17, 03:34 PM
آخر رد: مساعدة
  [VB.NET] HttpWebRequest مشكل في تسجيل الدخول في الفيسبوك ,,, مشكل .تفعيل الكوكيز بالركم من اني m r M T D R 0 47 07-02-17, 01:58 PM
آخر رد: m r M T D R
  [سؤال] مشكله اثناء تثبيت MICROSOFT VISUAL STUDIO ULTIMATE 2013 tempman 2 86 02-02-17, 12:36 AM
آخر رد: مساعدة
  [VB.NET] مشكلة مع datagridview لا تعرض السجلات الجديدة الا بعد اقفال البرنامج darklibya88 3 114 01-02-17, 04:01 PM
آخر رد: جابر
  لايعمل البرنامج في فيجول ستوديو 2010 thams 0 45 23-01-17, 10:29 PM
آخر رد: thams
Exclamation [سؤال] التاكيد من موجد برامج قبل تشغيل البرنامج MOONMICROSYSTEM 1 166 22-01-17, 04:54 PM
آخر رد: thevirus

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


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