با اینتر به فیلد بعدی برویم

[مجتبی جوادی]

من از بانک اطلاعاتی Sql در دلفی استفاده می کنم . لصفا راهنمایی کنید چگونه می توانم با زدن اینتر به فیلد بعدی بروم و وقتی به آخرین فیلد رسید ، اطلاعات در بانک ذخیره شده و صفحه جدید آغاز شود . مثل بانک اطلاعاتی اکسس
با تشکر

[mzjahromi]

کجای دلفی؟
تو دلفی از چه کامپوننتی برای نمایش استفاده می کنی؟

[مجتبی جوادی]

آقای ذوالقدر با تشکر از شما
من از DBEdit برای ورودی اطلاعاتم استفاده می کنم مثل فرم های اکسس می خواهم وقتی اطلاعات را وارد می کنم دقیقا مثل اکسس با زدن اینتر به فیلدهای بعدی بروم و وقتی به فیلد آخر رسیدم ، با زدن اینتر آخر به رکورد جدید بروم با فیلدهای خالی که آماده ورود اطلاعات جدید هستند .
برای بار دوم متشکرم

[mzjahromi]

برای اینکه با Enter روی کامپوننتها حرکت کنی:


procedure Tform1.Form1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
Begin
ActiveControl:=FindNextControl(TEdit(Sender),True, True,False);
Key:=#0;
End;
end;


و خاصیت Key Preview را True کن.(البته در این مورد بحث شده)
و برای اینکه بعد از ورود آخرین فیلد عملیاتی انجام بدی توی OnExit آخرین کنترل بنویس


if MessageBox('do you want to save data?','confirm',mb_yesno)=ID_Yes then
Begin
Table1.Post;
Table1.Insert;
ActiveControl:=DBEdit1;
End;

البته مسلما طبق احتیاجاتت بایداین فرم رو تغییر بدی.

[مجتبی جوادی]

از راهنمایی شما متشکرم
بنده یک سوال دیگر دارم امیدوارم باز هم مرا راهنمایی کنی
بانک اطلاعاتی من با SQL میباشد و وقتی برنامه برای اولین اجرا می شود بطور اتوماتیک این بانک در SQL ساخته می شود . ولی وقتی بار دوم برنامه را اجرا می کنم پیام خطا ظاهر می شود که بانک مذکور قبلاًً ساخته شده است . لطفاً مرا راهنمایی کنید که چگونه می توانم اول چک کنم که بانک موجود است یا نه بعداً آنرا ایجاد کنم تا دیگر پیام خطا ظاهر نشود. با تشکر مجدد!

[mzjahromi]

چطوری بانکت رو برای اولین بار ایجاد می کنی؟

[saniak_robot]

این کار و تو sql من کردم یه قلق داره اگه بخوای کدش و واست بفرستم.

[مجتبی جوادی]

اگه ممکن است برایم بفرستید . متشکرم