كيف يمكن تمرير قيمة إلى التقرير ..؟؟!

السلام عليكم

..

- البرنامج كامل في الأسفل بالمرفقات ..

- ملاحظة/ بعد تنزيل المرفقات فك الضغط وضعه في القرص الـC: حتى يشتغل البرنامج بشكل ممتاز.

- انا استخدم لغة البرمجة دلفي 7 وقمت بعمل تقارير باستخدام QRepor ..

- في هذا البرنامج قمت بادراج جدولين هما جدول المريض (Patient) وجدول تحاليل المريص (AnPatient) وقمت بعمل تقرير

بسيط يقوم باظهار اسم المريض الذي قام بالتحليل، فالمدخلات هي رقم المريض، هذا هو الكود الخاص بـ Button ..

procedure TForm1.Button1Click(Sender: TObject);
begin
  Try
	Application.CreateForm(TForm_R1, Form_R1);
	Table_Patient.First;
	if Table_Patient.Locate('PatName',ComboBox_PatName.Text,[])Then
	ADOQuery1.Close;
	ADOQuery1.Prepared := False;
	ADOQuery1.Parameters[1].Value := Table_PatientPatNO.Text;
	ADOQuery1.ExecSQL;
	ADOQuery1.Open();
	Form_R1.QuickRep1.Preview;
  except
	ShowMessage('إدخالك غير صحيح');
	abort;
  end;
end;

- المشكلة هي كيف يمكن تمرير قيمة للباراميتر (ADOQuery1.Parameters[1].Value) .. ؟؟!

- هل توجد خصائص معينة في ADOQuery يجب تغييرها ؟

- الرجاء ارفاق البرنامج بعد التعديل..

--

مع الشكر ..

Test_Report.zip