ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Bouton pour faciliter l'emploit de GenDbc.prg   



L'auteur

eddymaue
Canada 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é 7541 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é ...

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3