ابو حصه

بسم الله الرحمن الرحيم على حسب فهمي للسؤال الاجابه كالاتي : db.append; dbField1.value :=Edit1.Text; dbField2.value :=Label1.Text; db.post; او db.append; db.FieldByName('Field1').Value := Edit1.Text; db.FieldByName('Field2').Value := Label1.Text; db.post; مثال …

السلام عليكم الرابط غير شغال . لو ما فيها ازعاج ترسله لي على الايميل وشكرا :> DelphiProgs@hotmail.com

اهلا وسهلا بك يا اخ رامز :>

كل عام وانتي بخير :> وانا كان عيد ميلادي قبل يومين

بسم الله الرحمن الرحيم اعتقد يا اخ فادي اعتقد انه يجب عليك استخدام " Query " مثال procedure TForm1.Button2Click(Sender: TObject); var s:string; begin s:='select * From MYTABLE '; s:=s+' where MYFIeld Like "%مح%" '; Query1.SQL.Clear; Query1.SQL.Add(s); Query1.O…

بسم الله الرحمن الرحيم اخواني يمكنك ان تضيف على "النافيقيتر" Navigator الوصف الذي تريده من خلال اولاً :- اضافه كلاس ويوزس uses Buttons; type TDBNewNavigator = class ( TDBNavigator ); ثانياً :- و من ثم اضف هذا الكود procedure TForm1.FormCreate(Sender: TObject);…

بسم الله ارحمن الرحيم ارجو ان يكون هذا ما تريد Function function sndPlaySound(lpszSoundName: PChar; uFlags: UINT): BOOL; stdcall; external 'winmm.dll' name 'sndPlaySoundA'; و للتنفيذ استخدم sndPlaySound(PChar(FileName),SND_ASYNC); او sndPlaySound(PChar(FileNam…