+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية التحقق من أسم المستخدم وكلمة المرور المخزنة في قاعدة البيانات (/showthread.php?tid=2328)
كيفية التحقق من أسم المستخدم وكلمة المرور المخزنة في قاعدة البيانات - gkaled2004 - 19-08-2010
السلام عليكم ورحمة الله وبركاته
رمضان كريم للجميع
وجدت كود ولكنه اول ليس بالدلفى وايضاء ضعيف بعض الشئ
كود :
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
وعرض صورة من موقع عليه ليس الاسقاط بل الاستعراض وشكر جزيل
كيفية التحقق من أسم المستخدم وكلمة المرور المخزنة في قاعدة البيانات - abedroof2001 - 24-08-2010
السلام عليكم جرب sql
كيفية التحقق من أسم المستخدم وكلمة المرور المخزنة في قاعدة البيانات - gkaled2004 - 24-08-2010
abedroof2001 كتب :السلام عليكم جرب sql
ممكن توضح اخى كريم
كيفية التحقق من أسم المستخدم وكلمة المرور المخزنة في قاعدة البيانات - kachwahed - 24-08-2010
وعليكم السلام ورحمة الله وبركاته
إقتباس :و**** كود عرض خليه فى جدول فقط فى مكان معين باستخدام الادارة memoلم أفهم شيئا!
وعرض صورة من موقع عليه ليس الاسقاط بل الاستعراض وشكر جزيل
حدد إصدار دلفي/محرك قواعد البيانات
ثم أرفق محاولتك.
كيفية التحقق من أسم المستخدم وكلمة المرور المخزنة في قاعدة البيانات - abedroof2001 - 25-08-2010
السلام عليكم هذا مثال علي ماتريد
يجب نسخ ملف login ألي داخل القرص المحلي c
كلمة المرور رقم 1 أو 2
كيفية التحقق من أسم المستخدم وكلمة المرور المخزنة في قاعدة البيانات - maosalah - 28-08-2010
السلام عليكم
اسهل طرقة للتحقق من أسم المستخدم وكلمة المرور المخزنة في قاعدة البيانات
PHP كود :
if table1.Locate('user', Edit1.text,[]) then
if table1.FieldByName('pass').AsString = edit2.Text then
begin
ShowMessage('مبرووووووك لقد تم تسجيل دخولك للبرنامج');
end else
ShowMessage('Wrong Passowrd !!')
else
ShowMessage('Wrong User !!')
end;
كيفية التحقق من أسم المستخدم وكلمة المرور المخزنة في قاعدة البيانات - gkaled2004 - 11-11-2010
maosalah كتب :السلام عليكم
اسهل طرقة للتحقق من أسم المستخدم وكلمة المرور المخزنة في قاعدة البيانات
PHP كود :if table1.Locate('user', Edit1.text,[]) then
if table1.FieldByName('pass').AsString = edit2.Text then
begin
ShowMessage('مبرووووووك لقد تم تسجيل دخولك للبرنامج');
end else
ShowMessage('Wrong Passowrd !!')
else
ShowMessage('Wrong User !!')
end;
مشكور اخى كريم
PHP كود :
SqlConnection con;
SqlCommand cmd;
SqlDataReader reader;
DialogResult dr;
private void button2_Click(object sender, EventArgs e)
{
Application.Exit();
}
public void get_connection()
{
try
{
con = new SqlConnection();
con.ConnectionString = "database=Ink_manager";
//“Data Source=(local);Initial Catalog=ashraftest;user id=sa;password=faisal”;
}
catch
{
dr = MessageBox.Show(" There is no Connection", "Connection Error", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error);
}
}
public void login_to_DB()
{
try
{
get_connection();
cmd = new SqlCommand();
con.Open();
cmd.Connection = con;
cmd.CommandText = "select password from users where user_name=@U";
cmd.Parameters.Add("@U", textBox1.Text);
reader = cmd.ExecuteReader();
if (reader.HasRows == false)
{
MessageBox.Show("Please Enter your Username and Password to Login");
}
if (reader.Read())
{
if (textBox2.Text == reader["password"].ToString())
{
//MessageBox .Show ("yes");
main mainfrm = new main();
this.Hide();
mainfrm.ShowDialog();
}
else
{
MessageBox.Show("Invalid Username or Password");
}
}
con.Close();
}
catch
{
MessageBox.Show("Error");
}
}
private void button1_Click_1(object sender, System.EventArgs e)
{
login_to_DB();
}
private void button2_Click_1(object sender, System.EventArgs e)
{
Application .Exit();
}
لدى كود سابق وهذا كود
PHP كود :
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
الكود الاول على لغة sql
والثانى على فيجوال
لم اجد كود مشروح بالعربية على دلفى ولكن سوف اعرب احد الاكواد(رسائل خطاء ونجاح)
كل سنة وانتم طيبين