الرئيسية | مركز الدعم | نبذة عنا | اتصل بنا | تابعنا على فيسبوك | English
YAZSYS.COM, Pos, Pop, Point Of Sale
منذ عام 2012 - 2019 عدد العملاء حتى الأن: 2766
تحميل نظام المبيعات  
 
كود تسجيل الدخول من خلال قاعدة بيانات اكسس acess
 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
 
 

 
تحميل نظام المبيعات  
 
الصفحة الرئيسية
اتصل بنا
نبذة عن هذا الموقع
خارطة الموقع
مشاريع برمجة متنوعة مفتوحة المصدر
مواضيع ودروس تعليمية
 
 
نظام YAZ الجيل الثالث
مركز الدعم
تابعنا على فيسبوك
برنامج مبيعات ونقاط البيع وجرد المستودعات ومحاسبة خارطة الموقع
 
 
 
تحميل نظام المبيعات