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

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


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






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





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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغير حجم شاشات البرنامج عند العمل على شاشات اخرى nassery99 3 75 16-10-17, 12:42 PM
آخر رد: silverlight
  مشكلة تظهر في البرنامج بسبب الداتا بيس اكسس khaled12345 2 54 16-10-17, 07:41 AM
آخر رد: khaled12345
  ما هي افضل طريقة لجعل البرنامج تجريبي محمود صالح 3 131 15-10-17, 11:32 PM
آخر رد: hoshosgost@yahoo.com
  [سؤال] ظهور البرنامج عند الضغط على رابط ابو روضة 4 85 14-10-17, 10:55 PM
آخر رد: ابو روضة
  ظهور البرنامج عند نسخ رابط ابو روضة 8 159 12-10-17, 02:47 PM
آخر رد: ابو روضة
  [سؤال] رسالة خطأ بعد تنصيب البرنامج على جهاز آخر aftfm 1 58 09-10-17, 06:57 PM
آخر رد: Adrees
  [سؤال] استعراض حالة عمل البرنامج ابو روضة 7 186 08-10-17, 11:22 AM
آخر رد: ابو روضة
  سورس إظهار معلومات البرنامج fouadhdfouad 5 95 07-10-17, 07:00 PM
آخر رد: fouadhdfouad
  [سؤال] تسجيل الدخول لإيميل هوتميل تنمية المعرفة 1 42 05-10-17, 08:04 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] مشكلة فيه البرنامج مافهمتها vbb6 3 83 29-09-17, 07:47 PM
آخر رد: vbb6

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


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