منظومة صدلية

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

اخي العزيز بارك الله فيك وفي مجهودك الطيب هذه طريقة مشابهة لطريقة إستخدمتها سابقا في الحدث on show للفورم ولم تنجح معي بمجرد كتابه الكود التالي

procedure TForm5.FormShow(Sender: TObject);
begin
edit10.Text:=DateToStr(DATE);
With DataModule2.ADQ3 Do
Begin
       Close;
       SQL.Clear;
       SQL.Add('Select quantity From mar_medicine ');
       SQL.Add('Where medicine_nom='+Edit1.text+'  ');
       Open;
          If Fields[0].asInteger = 0 Then
          Begin
        ShowMessege('نفيدكم علماً بأن الدواء رقم '+Edit1.text+' قد نفذ');
          Exit;
          End;
          End;
End;

يمشي الحال عند عمل الـ run ولكن بمجرد أن أصل لشاشة بيانات الادوية لغرض إستعراضها يقف البرنامج ويعطيني الرسالة الآتية :

فهل هناك معرف معين يجب إضافته ؟؟؟ أقصد هل الكود ينقصه معرفات تضاف في الــ var مثلا ؟؟؟ كالمثال السابق

 VAR D_MED:TDATETIME;
begin
D_MED:=(DATE);
WITH datamodule2.ADQ3 DO
BEGIN
CLOSE;
SQL.Clear;
SQL.Add('SELECT * FROM mar_medicine');
SQL.Add(FORMAT('WHERE (mar_medicine.END_DATE - 20 <:ME)',[D_MED]));
Parameters.ParamByName('ME').Value:=D_MED;
OPEN;
END;

دمتم في رعاية الرحمن

بطريقة أخرى

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

هذه محاولة ثانية شبيه بمحاولة الاخ swift يتنفذ البرنامج على طول ولكن عند عرض الفورم المعنية لا يعطيني أي رسالة فما الحل بارك الله فيكم

with datamodule2.ADOTable3 do
  begin
  Edit;
 datamodule2.DataSource3.AutoEdit:=TRUE;
 if fieldbyname('quantity').Value='0' then
 begin
 showmessage ('Quantity Runaway');
end;

أخي كأن الكود ناقص :resentful:

kombarji كتب:

with datamodule2.ADOTable3 do
begin
Edit;
datamodule2.DataSource3.AutoEdit:=TRUE;
if fieldbyname('quantity').Value='0' then
begin
showmessage ('Quantity Runaway');
end;

rober كتب:

أخي كأن الكود ناقص :resentful:

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

أخي كيف ناقص ؟؟؟؟؟

إيش المطلوب مني وأنا جاهز بغذن الله

Swift كتب:

بطريقة أخرى

انسخ الكود

 

[color= #000000; font-weight: bold;]procedure TForm1[color= #000066;].[color= #006600;]FormShow[color= #000066;](Sender[color= #000066;]: [color= #000066; font-weight: bold;]TObject[color= #000066;])[color= #000066;]; 

[color= #000000; font-weight: bold;]begin 

[color= #000000; font-weight: bold;]if Table1[color= #000066;].[color= #006600;]FieldByName[color= #000066;]([color= #ff0000;]'quantity'[color= #000066;])[color= #000066;].[color= #006600;]AsString [color= #000066;]= [color= #ff0000;]'0' [color= #000000; font-weight: bold;]then 

[color= #000000; font-weight: bold;]begin 

showmessage [color= #000066;]([color= #ff0000;]'Quantity Runaway'[color= #000066;])[color= #000066;]; 

[color= #000000; font-weight: bold;]end[color= #000066;]; 

[color= #000000; font-weight: bold;]end[color= #000066;];

ياريت ترفق المشروع أو مثال على ما تقوم به

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

أخي بارك الله فيك بالنسبة لإرفاق الملفات عندي فيه مشكلة لأن الملف حجمه كبير

ولكن على كل حال ساحاول إرفاق هذا الجزء المتعلق بالموضوع لاحقا بإذن الله

بالنسبة لحلك اخي الكريم بارك الله فيك جربته مع إختلاف بسيط هو إنني أستعمل الــــ adotable الموجودة في datamodule وليس table1 عادي ولهذا لزم على أن أذكر الصيغة التي ذكرت

أعلاها في حدث onshow للفورم بارك الله فيك .... ولكن المشكلة لازالت قائمة

لاحظ المرفق

أرجو أن يكون ما تريد

أعذرني فقاعدة البيانات لسيت مناسبة للموضوع لكنها وافية بالغرض مؤقتا

قم بوضع المجلد في القرص E أو قم بتغيير مسار قاعدة البيانات في المكون ADOCONNECTION

procedure TForm1.Button1Click(Sender: TObject);
begin
adotable1.Filtered := false;
adotable1.filter := 'empno = '''+edit1.Text+'''';
adotable1.Filtered := true;
if adotable1.FieldByName('salary').asstring = '0' then
begin
showmessage('you don't have this material');
adotable1.Filtered := false;
end;
end;

quantity.rar

:wacko: والله يا أخوي بارك الله فيك لكن الكلام والفكرة التي طرحتها توا لم أفهمها وكأنني ادرس صيني :D

إيش معنى Filtered لم أفهم ماذا تعمل :blush:

ثاني شيء كيف أغير الكونكشن ما فهمت إيش الوظيفة منها

ثالث شيء مسار قاعدة البيانات في حياتي ماغيرته دائما أتعامل على أساس إن الsql تنزل في القرص سي

وبياناتي كلها هناك ......

فياريت إن كان في توضيح بارك الله فيك

جزاكم الله خيرا

أخي الكريم

Filter هي أحد الأحداث التي يمكن تنفيذها على الجدول و هي إحدى طرق البحث في الجداول في قواعد البيانات حيث :

تقوم بأختيار السجلات التي تحتوي على ما نبحث عنه و تخفي ما هو غير مطلوب دعنا نتكلم بالصور لعل الأمر يتوضح أكثر و لاحظ ماذا يحصل

1- في الصورة الأولى الجدول كامل دون أي تعديل أو أي أجراء

2 - في الصورة الثانية قام المستخدم بإدخال رقم المادة و ضغط زر البحث الذي قام بتنفيذ أمر الفلترة filter و الذي بدوره بحث في الحقل empno الذي يحتوي على أرقام المواد و وقام بإظهار السجل الذي يحتوي على ما أدخله المستخدم في مربع الأدخال و أخفى باقي السجلات ثم قام الزر بأختبار كمية المادة في الحقل salary فإذا كانت 0 يعطي رسالة بأن المادة رصيدها صفر و إلا فيظهر المادة دون أي رسالة

و بالنسبة لـ filtered فهي تأخذ إما true أو false فإن كانت true فهذا يعني بأن الحدث filter مطبق على الجدول و إذا كانت false فهذا يعني بإن الحدث filter غير مطبق على الجدول

أتركك مع الصور و المرفق لرؤية النتيجة

أرجو أن تكون الفكرة قد و صلت و إن لم تصل أحاول أن أبسطها أكثر

quantity.rar