مشروع تسيير مخازن بسيط

أخ طلال الكتاب المرفق فيه شرح لدوال الـ SQL

أنظر الصفحة رقم 10 تحتوي على شرح لتعليمة order by و كيفية أستخدامها

أرجو أن يفيدك

_____________________SQL_.pdf

شكرأ أخ روبير

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

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

Query1.Clear;
Query1.SQL.add('select*from stock order by code_article');
query1.Open;

ماهي طريقة كتابة order by ضمن SQL , في أوراكل يكفي أن نكتب

select*from stock
order by code_article

أما هنا لم تنجح معي

بالتوفيق

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

الطريقة نفسها سواء كانت في اوركل او دلفي او SQL SERVER او MYSQL او في اي لغة برمجة تستخدم الاستعلامات

الاستعلام يكتب بنفس الطريقة

طريقة كتابة الكود صحيحة 100/100

كما انه لا يجوز كتابة استعلام بدون مكون Query

انا متاكد ان الخطا في عرض التقرير وجدول المخزون

لنبدا في العرض على DBgrid

لكي تعرض النتيجة على DBgrid عليك ان تقوم بربط DBgrid بـ Data Sourece المربوطة بالاستعلام

اما في التقرير فعليك ربط مكونات TQRDBText بالQuery مباشرة

بالتعديل مثال على ذلك ارجو ان تعمل وفقه وانا مدرك ان النتيجة ستكون ايجابية ان شاء الله

وفقنا الله واياكم

Stock1.rar

اقتباس

كا انه لا يجوز كتابة استعلام بدون مكون Query

لا انصح بوضع مكوناة انشا objectاحسن

اسف لحد الان لم اطلع عل السورس

VAR	   
	   vQuery   :   TCpbADOQuery;
BEGIN
   vQuery := TCpbADOQuery.Create(nil);
   TRY
	  WITH vQuery DO
		   Connection := ????????????;
		   SQL.Text   := Format('??????????');
		 TRY  
			Open;
			WHILE NOT Eof DO
			BEGIN
			   ??????????????????;
			END;
			vQuery.Close;
		 EXCEPT ON E : Exception DO
			 LOG('??????????????'+ E.Message);
		 END;
   FINALLY
   vQuery.Free;
   END;
END;		 


VAR
	 vCommand:TADOCommand;
BEGIN
	TRY	 
	 vCommand := TADOCommand.Create(nil);
			 vCommand.Connection:=dbcompubase;
			 vCommand.CommandText := Format('??????????');
			TRY
				vCommand.Execute;
			EXCEPT ON E : Exception DO
				LOG('??????????????'+ E.Message);
			END;			 
	FINALLY
		vCommand.Free;
	END;
END;

VAR
	 vStoredProc : TADOStoredProc;
BEGIN
	 vStoredProc := TADOStoredProc.Create(nil);
	 TRY
		 with vStoredProc do
		 BEGIN
			Connection := ????????;
			ProcedureName := '??????????';
			Parameters.Refresh;
			Parameters.ParamValues['@???????'] := ?????????;
			Parameters.ParamValues['@?????????'] := ???????;
			Prepared := true;
			ExecProc;
		 END;
	 FINALLY
		vStoredProc.Free;
	 END;
END;

اخيرا مشاركة صديقي واخي عبد العالي والله طولت كنت نستنى من زمان

اقتباس

اسف لحد الان لم اطلع عل السورس

وما رايك ان تطلع عليه الان وتجريب ما تم من المشروع الى الان حتى تكون معنا في الصورة

وفقنا الله واياكم

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

شكرا أخي علي

بالفعل الكود صحيح فقد كانت المشكلة إن databasename التابعة للـ Query1 هي date\. وهنا كان يعطيني الخطأ ولكن عندما عرفت قاعدت البيانات من جديد وربطت الـ Query1 مباشرة لها , حلت المشكلة

بقي التقرير أنا نفذت كلامك ولكن يعطيني ناتج واحد وهذا هي الصورة

بالتوفيق إن شاء الله

اخ طلال ارجو منك ارفاق الملف المعدل

المرفق يحتوي التعديل وهو موجود في الأمر طباعة وفي أعلى الجدول

Copy_of_Stock.zip

أخ طلال في المرفق مثال بسيط جدا عن الطباعة أرجو أن يفيدك ( المكون المستخدم هو QuickRep5 )

بالنسبة للمشروع لايعمل عندي ؟ هل تم تغيير قاعدة البيانات لأن النسخ القديمة كانت تعمل بشكل جيد ؟؟!!

test.rar

إخي روبيرلقد عرفت قاعدت البيانات من جديد وبإسم جديد لأن Query1 التابعة للفورم 10 لم تعمل عندما كان اسم قاعدت البيانات data\.

سأتابع المثال المرفق , وأخبرك بالنتائج بإذن الله.

بالتوفيق إن شاء الله

أخي روبير لم أستطع فتح المثال يبدو إنه يحتوي مكونات لاأملكها , وعندما فتحته ظهر التقرير فارغ لايحتوي شيئ

لقد عدلت المرفق السابق أتمنى أن تتأكد منه.

rober كتب:

( المكون المستخدم هو QuickRep5 )

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

اخي طلال يبدو انك لم تنتبه ان منطقة HasPageHeader يجب ان تربط بالمكون Query لتعطي النتيجة الصحيحة

هذه هي المشكلة اخ طلال بكل بساطة

وفقنا الله واياكم

شكراً أخي علي

جاري التجريب

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

أخي علي هذه محاولة , بقي فرز كل منتج لوحدة .

حاولت بها ولم أعرف الطريقة .

بالتوفيق إن شاء الله

Copy_of_Stock.zip

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

هذه محاولة جديدة أخي علي .

بالتوفيق إن شاء الله

Copy_of_Stock.zip

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

اين بقية التقرير اخي طلال نريد ان ننتقل الى اخر نقطة في المشروع وان ننهيه في اقرب وقت

تحياتي لك اخي طلال

أخي علي بانتظار توجيهاتك , وكي تتأكد من التقرير وتصحيح مافيه من أخطاء .

سأقدمه غداً إن شاء الله

بالتوفيق

اخي طلال اردتك من البداية ان تكون صاحب الفكرة في انشاء التقارير

وهي لك ففعل ما تشاء وكما تريد لا اريد ان افرض شيئا

وفقنا الله واياكم

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

كل عام وأنتم بألف خير

أخي علي هذا هو البرنامج مع جميع التقارير ,

تحياتي لك أخ علي وعيد مبارك بإذن الله

S_tok.zip

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

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

عيد مبارك اعاده الله علينا وعليكم باليمن واليسر والبركة

بارك الله فيك اخ طلال وان شاء الله ساقوم بتفقد التقارير

اما الان فننتقل الى اخر نقطة في المشروع ان شاء الله

1- ربط الجدول Tstock بالجدول TArticle واظن انك قدمت درسا بذلك فلن يكون الامر صعبا عليك

2- ازالة كل اثر للفلترة وهنا سنستبدل الزر خروج بالزر تحديث في Form10

وبهذا نكون قد اتممنا مشروعنا ما لم تكن هناك اخطا في التقارير

ملاحظة : يجب التعديل على DataModule كما اشار الاخ محمد في مشاركته كي لا يبقى الجدول مفتوح دائما

/index.ph...70128&st=10

وفقنا الله واياكم

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

سأبدأالعمل بالمطلوب , أما عن data model سأغلق جميع الجداول ولن أفتح أي جدول إلا عند الجاجة لذلك, كما أشار الأخ محمد .

بالتوفيق إن شاء الله

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

أخي علي حاولت القيام بعملية master/detail من الجداول مباشرة , وإيقافها عند كل ترحيل إلى جدول المخزون, لكن لم أستطع بسبب عدم وجود بيانات في حقل detail

بعد ذلك حاولت القيام بعملية ربط في الحدث onshow للفورم 10 ولكن لاأعرف كيفية التكويد بشكل صحيح .

begin
dm.Tstock.Filtered:=false;
dm.Tstock.MasterSource:=dm.DArticle;
dm.Tstock.MasterFields:=' code_article -> code_article';

لاأعرف إن كنت أسير في الطريق الصحيح.

بانتظار توجيهاتك