+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اظهار رسالة لاضافة السلعة غير الموجودة الى قاعدة البيانات؟ (/showthread.php?tid=7378)
اظهار رسالة لاضافة السلعة غير الموجودة الى قاعدة البيانات؟ - hamadabdd - 31-12-2015
السلام عليكم
حاليا أبرمج برنامج لتسيير محل تجاري، لدي فكرة أريد تجسيدها
فمثلا في خانة البحث إذا اراد المستعمل ان يبحث عن اسم سلعة، اريد حينما يخبره البرنامج انه لا يوجد هذه السلعة تظهر له رسالة تخبره إذا اراد ان يضيف هذه السلعة الى قاعدة البيانات؟ وإذا إختار "ok" يقوم بإضافته بشكل عادي
وشكرا مسبقا
RE: مساعدة في فكرة - Effector - 31-12-2015
السلام عليكم
بالطبع تستطيع فعل ذلك بكل سهوله عبر استخدام [size=small]messagedlg[/size]
كود :
var
buttonSelected : Integer;
begin
// Show a custom dialog
buttonSelected := messagedlg('Custom dialog',mtCustom,
[mbYes,mbAll,mbCancel], 0);
// Show the button type selected
if buttonSelected = mrYes then ShowMessage('Yes pressed');
if buttonSelected = mrAll then ShowMessage('All pressed');
if buttonSelected = mrCancel then ShowMessage('Cancel pressed');
end;
[code]RE: مساعدة في فكرة - hamadabdd - 31-12-2015
السلام عليكم
اخي Effector لم أفهم الكود جيدا
إذا كان ممكن الشرح