khalmoh1971

var i : integer ; begin for i :=strtoint(edit1.taxt) to strtoint(edit1.taxt) do begin listbox1 . items . add ( inttostr ( i )); end ; end ;

كيف استورد الاداء و لك الشكر

شكرا جدا جدا B)

اخى الكريم الرابط لا يعمل ارجو الرفع على ربط اخر و لكم جزيل الشكر

باستخدام رسورس و جعل الزار المخفية مرائية

الرابط لا يعمل ارجو رفعة على رابط اخر

اخى يوجد مثال فى الديمو بتاع الدزلفين var DB_Name : string; Username : string; Password : string; begin Username := edtUsername.Text; Password := edtPassword.Text; DB_Name := edit3.text + ':' + edtDatabase.Text; IBDatabase1.DatabaseName := DB_Name; Label5.Capt…

ارجو من حضرتك توضيح اكثر حتى افهم سلوك هذا البرنامج الجميل

بارك الله فيك

شكرا على المجهود

اين ارابط لو سمحت

with IBValidationService1 do begin ServerName := 'InterBase'; LoginPrompt := False; Params.Add('user_name=sysdba'); Params.Add('password=masterkey'); Active := True; try DatabaseName:=(edit1.Text); Options:= [ignoreChecksum] ; // IBValidationService1.Options :…

انا عدلت الكود و ايضا لا يعطى ناتج procedure TForm1.Button2Click(Sender: TObject); begin if IBValidationService1.Active then IBValidationService1.Detach(); with IBValidationService1 do begin ServerName := edit2.Text; LoginPrompt := False; Params.Add('user_name…

IBValidationService1.Detach(); with IBValidationService1 do begin ServerName := 'InterBase'; LoginPrompt := False; Params.Add('user_name=sysdba'); Params.Add('password=masterkey'); Active := True; try DatabaseName := (edit1.Text); Options := [IgnoreChecksum]; …

جميل بارك الله فيك اخوك م خالد

شكرا اخى الكريم

شكرا على المجهود اريد من الاخ ناجى يوضج لى كيف استخدم Stored procedure فى interbase و استعدائها فى الدولفن اخوك جديد فى لبرمجة

ارجو الردود او ارسال تعليقات

if condi1 then begin اكتب ما تريدة فى الحدث الول ; else if con2 then begin ; else if cond3 end; end; end;

select FELDNAME || FELDNAM2 FROM TABNAME