+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إنشاء رقم سري مع امكانية تغييره (/showthread.php?tid=8773)
إنشاء رقم سري مع امكانية تغييره - bakhcha - 23-07-2017
السلام عليكم
مستوايا في البرمجة بالدلفي ما زال تحت مستوى الصفر اولت أن أعمل برنامج بسيط جدا بقاعدة بيانات أبسوليت ولكن اعترضتني مشكلة عويصة بالنسبة لي علما أنها شيء تافه بالنسبة للمترفين لكن لا تلوموني الشيء البسيط عندكم يعتبر جبل أمام المبتدأ في خوض غمار البرمجة بأي لغة من لغات البرمجة
عندي فورم
ادرجت edit1
2- Btn
DBGRID1+ ABSDatabase1+ ABSTable1+ Datasource1
بعد اجراء طريقة الاتصال بالقاعدة وتحديدا بجدول اليوزر الذي يجتوي على حقل المخزن للرقم السري والموجود في DBEdit1
كتبت الكود بطريقة ما حيث يقوم بمقارنة القيمة الموجودة في DBEdit1مع الكلمة المدخلة في EDIT1
الكود كما يلي:
procedure TForm8.Button1Click(Sender: TObject);
begin
if (edit1.Text = dbedit1.Text) then
begin
bol:=true;
ABStable1.close;
close;
form1.Show;
end;
if (edit1.Text <> dbedit1.Text) then
begin
bol:=false;
edit1.Text:='';
messagedlg( 'تأكــد من كلمة الســر ' ,mtwarning,[mbok],0);
edit1.SetFocus;
end;
end;
هذا كود زر الاغلاق:
procedure TForm8.Button2Click(Sender: TObject);
begin
application.Terminate;
end;
أرجو من السادة الاساتذة الكرام وذوي الخبرة مساعدتي على تصحيح الكود علما أنني جربته بشتى الطرق ويعمل بطريقة عادية جدا لكن عند انهاء المقارنة يختفي فورم الباسوورد ولا يظهر فورم 1 واحد لواجهة البرنامج وفي حال توصلت لتصحيح الاشكال يلزمني كتابة كود تغيير الرقم السري المخزن في جدول الباسوورد بعد القيام بمحاولاتي أتمنى أن تنجح