dbase3+ par laoubi adel

laoubi_adel

  • Sr. Member
  • ****
    • مشاركة: 333
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: شباط 21, 2010, 04:05:26 مسائاً
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""