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

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


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






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





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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 9 119 أمس, 12:58 AM
آخر رد: ali.alfoly
  [نقاش] الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية 0theghost0 1 149 30-11-16, 11:21 PM
آخر رد: awidan76
  [نقاش] اسئلكم بالله / تسعيرة هذا البرنامج مصمم على فيجول استديو 2013 عزف الخواطر 3 112 30-11-16, 06:42 PM
آخر رد: عزف الخواطر
Information [VB.NET] مشكله في إرسال ايميل bahgat okasha 0 44 22-11-16, 04:50 AM
آخر رد: bahgat okasha
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 52 21-11-16, 11:48 PM
آخر رد: السرور
  خطا عند تشغيل البرنامج makky 10 135 19-11-16, 03:17 AM
آخر رد: أبو عمر
  [VB.NET] (مشكله) في تسجيل الدخول لموقع badoo باستخدام HttpWebRequest ali ahmed 1997 1 190 17-11-16, 04:08 AM
آخر رد: الماجيك مسعد
Photo [سؤال] لدي مشكله DataGridView أحمد العرب 4 136 16-11-16, 10:26 AM
آخر رد: أحمد العرب
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 197 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  حجم ملف دعم البرنامج كبير جدا makky 6 126 26-10-16, 10:25 PM
آخر رد: makky

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


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