الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Dbgrid Keyup Parameter

مغلق
بدأه مقبل في 11 فبراير 2008 · 5 رد · 949 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اخواني الكرام

كيف يمكن استدعاء هذا الاجراء

procedure TForm8.DBGrid1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);

شكرا لكم

خيركم من تعلم القرآن وعلمه

#2

اوضح اكثر ماذا تريد ان تفعل

OnKeyUp حدث متعلق بلوحة المفاتيح وليس اجراء يستدعي مثله مثل OnKeyDown و OnKeyPress

والسلام عليكم ورحمة الله

d4baa0.gif
#3

اخي الكريم

شكرا لردك السريع

ما اريد فعله كالاتي

ادخل بيانات في ال Grid من جدول أخر

ولكن المشكلة عندما يدخل السطر الأول لا ينتقل الي السطر الثاني فيكتب السطر الثاني فوق السطر الأول

وهكذا

فمثلا اذا كان الجدول يحتوي علي 5 اسطر يكتب الأول ثم الثاني فوق الأول

ثم الثالث فوق الثاني

وهكذا ففي النهاية لا يظهر الا اخر سطر

شكرا لك

خيركم من تعلم القرآن وعلمه

#4

ما نوع القاعدة ؟ وما تستعمل Table / Query / ADO / ... ؟

كلما اعطيت معلومات اكثر لكما امكن مساعدتك احسن

d4baa0.gif
#5

السلام عليكم

استخدم sql server 2005

وهذا هو الكود

  // الكود الذي يدخل البيانات في الشبكة
  with qry_Grid do
  begin
	close;
	sql.Clear;
	sql.add('select * from order_Sarf_cash_details where order_id='+
	  dbedit5.Text);
	open;
	qry_Grid.First;
	while not qry_Grid.Eof do
	begin
	   dbgrid1.Fields[0].Value := qry_Gridalmablag.Value;
	   dbgrid1.Fields[1].Value := qry_Gridbian.Value;
	   dbgrid1.Fields[2].Value := qry_Gridmadeen_account.Value;
	   qry_Grid.Next;
	   showmessage('1');
	end;
  end;

خيركم من تعلم القرآن وعلمه

#6

لما لا تستعمل DataSource فهو يقوم بدلك دون كود

المهم يمكنك فعل ماتريد بما يلي

type
  DBGrid = class(TDBGrid);  
  TForm1 = class(TForm)

procedure TForm1.Button1Click(Sender: TObject);
var
DBGrid1:DBGrid;
i :integer;
begin
DBGrid1:=DBGrid.Create(Application);
DBGrid1.Parent:=Form1;
for i :=1 to table1.RecordCount-1 do
begin
   Table1.RecNo:=i;
   DBGrid1.Row:=i;
   DBGrid1.Fields[0].Value:=Table1NAME.Value;
end;
end;

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 11 فبراير 2008 في 13:06

هذا الموضوع مغلق.

مواضيع مشابهة