السلام عليكم انا اصمم في منظومة تخرج والصراحة مو فاهمة الدلفي كتير شوفولي هالكود
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if( edit1.text='') and (edit2.text='') then
showmessage('الرجاء إدخال بيانات اولا')
else
if edit1.text='' then
showmessage('إدخل إسم المستخدم')
else
if edit2.text='' then
showmessage('إدخل كلمة المرور')
else
begin
with ADOTable1 do
begin
open;
if locate('User_name;Password',vararrayof([Edit1.Text,Edit2.text]),[])then
begin
userid:= fieldbyname('User_no').AsInteger;
if fieldbyname('Main_files').AsInteger=0 then
begin
form2.BitBtn2.Visible:=false;
form2.n13.Visible:=false;
end
else
begin
form2.BitBtn2.Enabled:=true;
form2.n13.Enabled:=true;
end;
if fieldbyname('Del').AsInteger=0 then
begin
form4.BitBtn5.Visible:=false;
form9.BitBtn5.Visible:=false;
form10.BitBtn5.Visible:=false;
form11.BitBtn5.Visible:=false;
end
else
begin
form4.BitBtn5.Enabled:=true;
form9.BitBtn5.Enabled:=true;
form10.BitBtn5.Enabled:=true;
form11.BitBtn5.Enabled:=true;
end;
if fieldbyname('Edit').AsInteger=0 then
begin
form4.BitBtn2.Visible:=false;
//form8.BitBtn2.Visible:=false;
form9.BitBtn2.Visible:=false;
form10.BitBtn2.Visible:=false;
form11.BitBtn2.Visible:=false;
end
else
begin
form4.BitBtn2.Enabled:=true;
//form8.BitBtn2.Enabled:=true;
form9.BitBtn2.Enabled:=true;
form10.BitBtn2.Enabled:=true;
form11.BitBtn2.Enabled:=true;
end;
if fieldbyname('Ins').AsInteger=0 then
begin
form4.BitBtn1.Enabled:=false;
form5.BitBtn1.Enabled:=false;
form7.BitBtn1.Enabled:=false;
//form8.BitBtn1.Enabled:=false;
form9.BitBtn1.Enabled:=false;
form10.BitBtn1.Enabled:=false;
form11.BitBtn1.Enabled:=false;
end
else
begin
form4.BitBtn1.Enabled:=true;
form5.BitBtn1.Enabled:=true;
form7.BitBtn1.Enabled:=true;
//form8.BitBtn1.Enabled:=true;
form9.BitBtn1.Enabled:=true;
form10.BitBtn1.Enabled:=true;
form11.BitBtn1.Enabled:=true;
end;
if fieldbyname('Rep').AsInteger=0 then
begin
form2.n22.Enabled:=false;
form2.n22.Enabled:=false;
form2.n22.Enabled:=false;
form2.n22.Enabled:=false;
form2.n22.Enabled:=false;
form2.n22.Enabled:=false;
form2.n22.Enabled:=false;
form2.n22.Enabled:=false;
end
else
begin
form2.n22.Enabled:=true;
form2.n22.Enabled:=true;
form2.n22.Enabled:=true;
form2.n22.Enabled:=true;
form2.n22.Enabled:=true;
form2.n22.Enabled:=true;
form2.n22.Enabled:=true;
form2.n22.Enabled:=true;
end;
if fieldbyname('Rep').AsInteger=0 then
begin
form2.n20.Enabled:=false;
form2.n20.Enabled:=false;
form2.n20.Enabled:=false;
form2.n20.Enabled:=false;
form2.n20.Enabled:=false;
form2.n20.Enabled:=false;
form2.n20.Enabled:=false;
form2.n20.Enabled:=false;
end
else
begin
form2.n20.Enabled:=true;
form2.n20.Enabled:=true;
form2.n20.Enabled:=true;
form2.n20.Enabled:=true;
form2.n20.Enabled:=true;
form2.n20.Enabled:=true;
form2.n20.Enabled:=true;
form2.n20.Enabled:=true;
end;
if fieldbyname('Rep').AsInteger=0 then
begin
form2.n24.Enabled:=false;
form2.n24.Enabled:=false;
form2.n24.Enabled:=false;
form2.n24.Enabled:=false;
form2.n24.Enabled:=false;
form2.n24.Enabled:=false;
form2.n24.Enabled:=false;
form2.n24.Enabled:=false;
end
else
begin
form2.n24.Enabled:=true;
form2.n24.Enabled:=true;
form2.n24.Enabled:=true;
form2.n24.Enabled:=true;
form2.n24.Enabled:=true;
form2.n24.Enabled:=true;
form2.n24.Enabled:=true;
form2.n24.Enabled:=true;
end;
//edit1.Clear;
// edit2.Clear;
Form1.Hide;
Form2.Show;
end
else
begin
showmessage('إسم المستخدم أو كلمة المرور خطأ');
edit1.Clear;
edit2.Clear;
edit1.SetFocus;
exit;
end;
end;
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key in['0'..'9'])then
begin
key:=#0;
showmessage('أدخل حروف بدل الأرقام');
end;
{في حالة الضغط علي زر إنتر يتم إنتقال مؤشر الكتابه إلى العنصر التالي}
if key ='13' then
edit2.SetFocus;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
{في حالة الضغط علي زر إنتر يتم إنتقال مؤشر الكتابه إلى العنصر التالي}
if key = char( VK_Return ) then
BitBtn1.Click ;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
ADOTable1.Open;
end;
end.
بيقولي خطأ بهالاسطر
if locate('User_name;Password',vararrayof([Edit1.Text,Edit2.text]),[])then
begin
userid:= fieldbyname('User_no').AsInteger;
if fieldbyname('Main_files').AsInteger=0 then
وتحيدا هون
userid:= fieldbyname('User_no').AsInteger
انا سويت شاشة دخول فيها اسم مستخدم وكلمة سر ومعاها زرين بت بوتن دخول وخروج وطبعا مع جدول ادو تيبل وربطه بداتا بيز اللي فيها اسم مستخدم وكلمة مرور
في داتا بيز تبع سيكول جدول اسمه regist وفيها حقلين هما user_name ونوعه (varchar(30 وحقل اخر نوعه int وهو password
ارجوكم اللي يعطيني كود لهالشاشة او يصححلي خطأ بيعمل فيا اجر الله يوفقكم ويفتحها عليكم
