Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problem in running a prg
Message
 
À
18/08/2005 13:37:32
Chandan Chakraborty
Bangiya Gramin Vikash Bank
Raiganj, Inde
Information générale
Forum:
Visual FoxPro
Catégorie:
Installation et configuration
Versions des environnements
Visual FoxPro:
VFP 6
Divers
Thread ID:
01042025
Message ID:
01042035
Vues:
19
I am trying to develop a program for keeping records of individual student
> in respective folder. I have a database table in which the ID and Name
> of the Student will be stored. Then the next program will execute. I
>have coded it as follows:
>
>SELE A && student
> INDEX ON CODE TO mStudT
> SEEK mStudentID
> IF FOUND()
> bn=name
> bn=allt(bn)
> @12,60 SAY ALLT(NAME)
> ENDIF
> CH=0
.............
> READ
>
> IF CH=1
>
> *--------------
> BN="c:\"+allt(BN)
> if !directory(BN)
> !MD &BN
> # # [see note below]
> !cd &bn
> DO P1
> ELSE
>
> WAIT WINDOW "ALREADY EXISTS !PRESS [E]NTER TO CONTINUE"
> CLOSE ALL
> !cd &bn
> DO P12
> endif
>
>
>
>My problem: How I can run the exe from the respective folder through
>setup. P1 and P12 are the programs linked with forms, reports,
>databases. [If I don't build exe and setup I can easily copied prgs
>,databases at the # # above and run]
p01_prog = 'd:\my_exe\p1.exe'
p12_prog = 'd:\my_exe\p12.exe'

* SELE A && student
SELECT student  &&& don't need to remember that student.dbf is open in A
INDEX ON CODE TO mStudT  &&& Why you index always. Make Index on this table and then open the table with: Use Student Order mStudT
SEEK mStudentID
IF FOUND()
*  bn=name
*  bn=allt(bn)
   m.bn = ALLTRIM(name)
*  @12,60 SAY ALLT(NAME)
   @12,60 SAY m.bn
ENDIF
.....
IF ...
   ...
   DO (p01_prog)
ELSE
   ...
   DO (p12_prog)
ENDIF
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform