الإعــلام الآلي والرياضيــات يشتمل على جميع مبادئ الإعلام الآلي والرياضيــات

إضافة رد
قديم 21-02-2010, 05:05 PM
  #1
laoubi_adel
VIP_MEMBRE
 الصورة الرمزية laoubi_adel
 
La spécialité: Télécommunications
مؤسسة تعليم ثانوي ( ثانوية)
تاريخ التسجيل: 19-07-2008
الدولة: الجزائر
المشاركات: 333
laoubi_adel عضو محترف الابداعlaoubi_adel عضو محترف الابداعlaoubi_adel عضو محترف الابداعlaoubi_adel عضو محترف الابداعlaoubi_adel عضو محترف الابداعlaoubi_adel عضو محترف الابداعlaoubi_adel عضو محترف الابداعlaoubi_adel عضو محترف الابداع
dares dbase3+ par laoubi adel


programme de consultation par dbase3+
set talk on
clear
xcode=space(6)
store space(20) to xnom,xpren,xadr
date=date()
*4,10 say "CONSULTATION"
*6,15 say "entrer votre code de recherche" get xcode
read
use table1
locate for code =xcode
if eof()
*20,12 say "donnees non trouvables"
else
*20,12 say "donnees trouvables"
xcode=code
xnom=nom
xpren=pren
xadre=adres
xdate=daten
*10,12 say "NOM :"+xnom
*11,12 say "PRENOM :"+xPREN
*12,12 say "ADRESSE :"+ADRE
*13,12 say "Date de naissance :"+dtoc(xdate)
wait""


laoubi_adel غير متواجد حالياً  
رد مع اقتباس
إضافة رد

الكلمات الدلالية (Tags)
dbase3+

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
Dbase3+ laoubi_adel لغة الدالفي delphi 0 16-02-2010 03:19 PM


الساعة الآن 01:40 AM.