السلام عليكم
اخواني الكرام
كيف يمكن استدعاء هذا الاجراء
procedure TForm8.DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
شكرا لكم
السلام عليكم
اخواني الكرام
كيف يمكن استدعاء هذا الاجراء
procedure TForm8.DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
شكرا لكم
خيركم من تعلم القرآن وعلمه
اوضح اكثر ماذا تريد ان تفعل
OnKeyUp حدث متعلق بلوحة المفاتيح وليس اجراء يستدعي مثله مثل OnKeyDown و OnKeyPress
والسلام عليكم ورحمة الله
اخي الكريم
شكرا لردك السريع
ما اريد فعله كالاتي
ادخل بيانات في ال Grid من جدول أخر
ولكن المشكلة عندما يدخل السطر الأول لا ينتقل الي السطر الثاني فيكتب السطر الثاني فوق السطر الأول
وهكذا
فمثلا اذا كان الجدول يحتوي علي 5 اسطر يكتب الأول ثم الثاني فوق الأول
ثم الثالث فوق الثاني
وهكذا ففي النهاية لا يظهر الا اخر سطر
شكرا لك
خيركم من تعلم القرآن وعلمه
ما نوع القاعدة ؟ وما تستعمل Table / Query / ADO / ... ؟
كلما اعطيت معلومات اكثر لكما امكن مساعدتك احسن
السلام عليكم
استخدم 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;خيركم من تعلم القرآن وعلمه
لما لا تستعمل 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
هذا الموضوع مغلق.