سيف الدين 2

http://www.softandco.com/redir.html?u=http...nload/fr3d9.exe :rolleyes: والله اعلم

الف الف مبروك للاخ العزيز( romanof ) وأتمنى لك التوفيق :rolleyes: :lol: :rolleyes: :lol: :rolleyes: :lol: :rolleyes: :lol:

أتمنى أن استبعد من الاشراف :rolleyes: وبارك الله فيكم والف مبروك للعزيز romanof

ألف مبروووووووووووووووووووووووووووووووووووووووووووووووووووووووووووك يا romanof :lol: :lol: وأتمنى لك مزيدا من التقدم والنجاح :lol:

لن خبرتي بسيطة جدا جداجدا جداجدا جداجدا جداجدا جداجدا جدا :( وانت تستحق ان تكون مشرف اخي ( romanof ) :lol:

بالتوفيق اخي ( romanof ) :rolleyes: :rolleyes: :rolleyes:

with Query2 do begin Close; SQL.Clear; SQL.Add('select Sum(EmpNo) As ppp From employee'); Open; end; Sum.rar

حلوة منك :lol: :lol: وبعدين انا أوفق عروة على ان تكون مشرف ( romanof ) :rolleyes: :rolleyes: :rolleyes:

السلام عليكم وانا اوفق الاخ أبو محمد على هذا

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin If (Key=#13)And (Edit1 . Text <>'') Then Begin With Query1 Do Begin Close; SQL . Clear; SQL . Add('select* from employee '); SQL . Add('Where EmpNo = '+QuotedStr(Edit1 . Text)); Open; If Eof…

:rolleyes: T1.rar

البحث عن طريق Query with Query1 do begin Close; SQL.Clear; SQL.Add('Select * from Employee where LastName='+ QuotedStr( Edit1.Text)); Open; If Eof Then begin ShowMessage('ÇáÇÓã ÛíÑ ãæÌæÏ'); Close; Edit1 . SetFocus; End; end; وهذا يقوم بي البحث حسب الحاجة(LINK)…

فعلاً ان الاخو يستحقون الاشراف مثل 02/11/2004 و romanof و ikossan . :rolleyes: فعلاً يستحق :rolleyes: الله يوفقكم والسلام عليكم ورحمة الله وبركاته

:rolleyes: :rolleyes: :rolleyes:

بارك الله فيك ( romanof ) على هذا الموضوع وشكرا على المجهود الطيب :rolleyes: :rolleyes: :rolleyes:

حصر تايخ...... Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('Select * from MyTable'); Query1.SQL.Add('where MYDATE Between :RangeStart and :RangeEnd'); Query1.ParamByName('RangeStart').AsDate := StrToDate(Edit1.Text); Query1.ParamByName('RangeEnd').AsDate :=…

انا أوفق على هذا الفكرة.... حتى يسع الجميع رفع الحمل على الاخ عروة وكذلك لتنشيط المنتدى وتفعيل القسم... وحتى يكون افضل قسم في النشاط والردود ... ويجب أختيار الأعضاء والخبر والمشرف واعضاء الشرف وانا اختار اخي مراد( ikossan ) مشرف ثاني وبارك الله فيك اخي عروة وا…

اولاً الذهاب إلى قائمة Component > Install Pakages > Add وتختار الملف المسمى( dclqrt70.bpl ) C:\Program Files\Borland\Delphi7\Bin\dclqrt70.bpl

select * from employee where Lastname like '[a-b]%' وجرب هذا ايضاً with Query1 do begin Close; SQL.Clear; SQL.Add('Select * from Employee where lastname like'+ QuotedStr( Edit1.Text+'%')); Open; If Eof Then begin ShowMessage('C?C?? U?? ????I'); Close; Edit1 . …