خارطة الموقع برنامج مبيعات ونقاط البيع وجرد المستودعات ومحاسبة الرئيسية من نحن اتصل بنا English
Yazsys.com
منذ عام 2012 - 2017 عدد العملاء حتى الأن: 2061
Skip Navigation Links
نظام إدارة المبيعات
|
تعليم & شروحاتExpand تعليم & شروحات
 
كود تسجيل الدخول من خلال قاعدة بيانات اكسس acess
بواسطة احمد عادل موسى
2014-11-13
 Dim ConStr As String = ("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\mdb1.mdb;user id=admin;jet oledb:database password=cvxxcv1200")
 
    Dim Conn As New OleDbConnection(ConStr)
    Dim DataSet1 As New DataSet
    Dim SQLstr As String = "SELECT * FROM Table1"
 
'--------------------------
 If TextBox1.Text = "" Then
            MsgBox("إدخل كلمة المرور", MsgBoxStyle.OkOnly, "الدخول")
            Exit Sub
End If
 
        DataSet1.Clear()
        SQLstr = "SELECT * FROM Table1 WHERE password = '" & TextBox1.Text & "'"
        Conn.Open()
        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
        DataAdapter1.Fill(DataSet1, "Table1")
        Conn.Close()
 
        TextBox2.DataBindings.Clear()
        TextBox2.DataBindings.Add("Text", DataSet1, "Table1.password")
 
        If TextBox2.Text = TextBox1.Text Then
           
'كلمة المرور صحيحة
 
        Else
            MsgBox("خطأ في كلمة المرور", MsgBoxStyle.OkOnly, "الدخول")
            TextBox1.Text = ""
            TextBox1.Focus()
            Exit Sub
        End If
 
 
إعلان ... لأصحاب المتجار فقط - برنامج تنفيذي وليس سورس كود
تحميل برنامج مبيعات وجرد المستودعات

 
 
الصفحة الرئيسية
اتصل بنا
نبذة عن هذا الموقع
خارطة الموقع
مشاريع برمجة متنوعة مفتوحة المصدر
مواضيع ودروس تعليمية
 
 
نظام YAZSYS لإدارة المبيعات
 
عدد الزيارات لأخر: 34 يوم
Flag Counter