+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : تعلم معي خطوة خطوة صنع برنامج لتسيير المخزون و التسويق (/showthread.php?tid=293)
RE: تعلم معي خطوة خطوة صنع برنامج لتسيير المخزون و التسويق - S.FATEH - 06-01-2018
السلام عليكم هل لديك حقل باسم N_Facture + اذكر رسالة الخطأ ممكن الاخ نبيل غير موجود
RE: تعلم معي خطوة خطوة صنع برنامج لتسيير المخزون و التسويق - achourmero - 10-01-2018
السلام عليكم ورحمة الله وبركاته
أخي FATEH نعم يوجد حقل باسم N_Facture ورسالة الخطأ هي :
[Error] Acueil.pas(733): Undeclared identifier: 'Table6N_Facture'
[Error] Acueil.pas(733): 'THEN' expected but identifier 'IsNull' found
[Fatal Error] STOCKAGE.dpr(15): Could not compile used unit 'Acueil.pas'
يرجى منك أخي فاتح إفادتي من فضلك وأين يكمن الخطأ وشكرا
RE: تعلم معي خطوة خطوة صنع برنامج لتسيير المخزون و التسويق - S.FATEH - 10-01-2018
السلام عليكم
ضع الكود المستعمل او ارفقه و ان شاء الله تجد حل
RE: تعلم معي خطوة خطوة صنع برنامج لتسيير المخزون و التسويق - achourmero - 10-01-2018
السلام عليكم
PHP كود :
procedure TAccueil.sButton2Click(Sender: TObject);
var DB1, DB2: Variant;
begin
if Table6N_Facture.IsNull then begin
DB1 := DBLookupCombobox3.KeyValue;
DB2 := DBLookupCombobox4.KeyValue;
DbLookupCombobox1.ReadOnly := False;
DbLookupCombobox2.ReadOnly := False;
DbLookupCombobox3.ReadOnly := False;
DbLookupCombobox4.ReadOnly := False;
DateTimePicker1.DateTime := now;
sButton2.Enabled := False; // Nouveau Produit
sButton3.Enabled := true; // Ajouter
sButton4.Enabled := False; // Imprimer
sButton5.Enabled := False; // Suprimer
sButton6.Enabled := False; // Modifier
sButton7.Enabled := False; // Valider
sButton8.Enabled := true; // Anuler
// FactureEtStatistique1.Enabled := false; // Fiche facture et Statistique
Vente1.Enabled := false; // Fiche Vente
if (Vente.Showing=True) or (Facture_Statistique.Showing=True) then
begin Vente.Close; Facture_Statistique.Close; end;
Table2.first;
table2.Insert;
DBLookupCombobox3.KeyValue := DB1;
DBLookupCombobox4.KeyValue := DB2;
end else
showmessage('Priciser une Facture ou bien Nouveau Facture D''abord');
end;
RE: تعلم معي خطوة خطوة صنع برنامج لتسيير المخزون و التسويق - S.FATEH - 10-01-2018
الكود صحيح المشكل ليس هنا اخي حاول if Table6.FieldByName('N_Facture').IsNull then
RE: تعلم معي خطوة خطوة صنع برنامج لتسيير المخزون و التسويق - achourmero - 10-01-2018
بارك الله فيك أخي فاتح الكود يعمل
وإن شاء الله سنبقى على إتصال دائم وأتمنى أن تفيدني خبرتك أخي العزيز
وشكرا مسبقا ومقدما
RE: تعلم معي خطوة خطوة صنع برنامج لتسيير المخزون و التسويق - S.FATEH - 10-01-2018
السلام عليكم لكي يعمل الكود الاول اضغط مرتين على table6 تضهر نافذة اضغط باليسار عليها ثم Add all fields
RE: تعلم معي خطوة خطوة صنع برنامج لتسيير المخزون و التسويق - achourmero - 10-01-2018
السلام عليكم
والله أخي فاتح لقد أفدتني كثيرا وكذا هذا المنتدى الرائع
جزاكم الله كل خير وشكرا لك وكل من ساهم في إنجاح هذا المنتدى وهذا العمل الرائع