L'auteur
eddymaue
 Canada
Membre Simple
# 0000000075
enregistré le 26/10/2004
Maue Eddy
j8j 8j8 Gatineau
de la société Formatek
 Fiche personnelle
 Note des membres
pas de note
|
Contributions > 01 - PRG : Programmation
Bouton pour faciliter l'emploit de GenDbc.prg
# 0000000390
ajouté le 06/01/2007 20:48:42 et modifié le 06/01/2007
consulté 7875 fois
Niveau
débutant
Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
|
| Description |
|---|
tout est dans le titre
|
| Code source : |
|---|
#define cr2 CHR(13)+CHR(13)
Public oTlbGD As Toolbar
oTlbGD = Createobject("oTlbGD")
oTlbGD.Show()
Define Class oTlbGD As Toolbar
pPath = ""
DataSession = 1
Add Object btnGD As CommandButton With Caption = "Gen Dbc"
Procedure btnGD.Init
This.Parent.Dock(0)
ENDPROC
Procedure btnGD.Click
With This.Parent
SET STEP ON
.pPath = ADDBS(JUSTPATH(SUBSTR(SYS(16),IIF(SYS(16)="PROCEDURE",AT(" ",SYS(16),2),1))))
CD (JUSTPATH(SUBSTR(SYS(16),IIF(SYS(16)="PROCEDURE",AT(" ",SYS(16),2),1))))
cDbcFile= IIF(EMPTY(DBC())=.f. and 7==MESSAGEBOX("C'est bien la bonne BD"+cr2 +DBC(),4+32),;
Getfile("dbc","Selectionner la Dbc","Accepter"),;
DBC())
OPEN DATABASE (cDbcFile)
cOut = ADDBS(JUSTPATH(cDbcFile))
cOut = IIF(7== MESSAGEBOX("Voulez-vous placer les fichiers de sorties ici"+cr2+cOut,4+32),;
GETDIR(cOut,"Où voulez-vous placer les fichiers ?","Sortie",64),;
cOut)
Do (Home()+"tools\Gendbc\gendbc.prg") WITH cOut
cd(.pPath)
Endwith
Endproc
Enddefine
|
| Commentaires |
|---|
Aucun commentaire enregistré ...
|
Retour à la liste