دخول

gkaled2004 · 19-08-2010, 11:47 PM

السلام عليكم ورحمة الله وبركاته
رمضان كريم للجميع
وجدت كود ولكنه اول ليس بالدلفى وايضاء ضعيف بعض الشئ

كود :
Dim CONN As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\MyDataProject.mdb")
    Dim DS As New DataSet
    Dim DB As New OleDbDataAdapter
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           On Error Resume Next
           DS.Clear()
           Dim Str As String = "SELECT * FROM USERS WHERE UserName='" & TextBox1.Text & "' and UserPass='" & TextBox2.Text & "'"
           DB = New OleDbDataAdapter(Str, CONN)
           DB.Fill(DS, "USERS")
           If DS.Tables("USERS").Rows.Count > 0 Then
                   DB.Dispose()
                   CONN.Dispose()
  MessageBox.Show("مبرووووووك لقد تم تسجيل دخولك للبرنامج", " برنامج التحقق من اسم المستخدم ", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button2, MessageBoxOptions.RtlReading)
                   CONN.Dispose()
           Else
  MessageBox.Show("تأكد من إدخال كلمة السر أو اسم المستخدم بشكل صحيح", "برنامج التحقق من اسم المستخدم ", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button2, MessageBoxOptions.RtlReading)
                   Me.TextBox1.Focus()
           End If

بحث فى منتدى اعطى لى
هذه مشاركه

كود :
http://www.delphi4arab.net/forum/showpost.php?p=19066&postcount=6

و**** كود عرض خليه فى جدول فقط فى مكان معين باستخدام الادارة memo
وعرض صورة من موقع عليه ليس الاسقاط بل الاستعراض وشكر جزيل

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة