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

10-15 SESSION PARTAGE MIGRATION Dot net et Strataframe   



L'auteur

eric leissler
France France
Membre Simple
# 0000002784
enregistré le 06/03/2010
http://www.aumeric.fr
63 ans
leissler eric
85290 MORTAGNE SUR SEVRE
de la société AUMERIC LOGICIELS ( 0633412395 )
Fiche personnelle


Note des membres
pas de note

Contributions > 60 - AtoutFox > 2010 - Rencontres - Paris Roissy

10-15 SESSION PARTAGE MIGRATION Dot net et Strataframe
# 0000000749
ajouté le 01/04/2010 12:18:36 et modifié le 24/05/2010
consulté 5484 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0


Télécharger le PDF (992.64 Ko)
Description

Bonjour à tous

ci jont un fichier pdf relatif à ma présentation sur strataframe

Comme promis lors des rencontres, l'intégralité du code de cette application est livré à atoutfox et ses adhérents sour la forme d'un fichier zip 16 megas téléchargeable à l'adresse : http://www.aumeric.fr/atoutfox/etiquettes.zip

y compris les fonctions contenues dans le fichier baseric.vb permettant de coder avec une sytaxe très très proche de vfp .

Ainsi le code pour garder un écran affiché pendant 20 secondes puis le fermer à l'issue et aussi les fonctions de calcul de clé rib, calcul d' IBAN et conversion de chiffres en lettres.

Strataframe est téléchargeable en version évaluation ( complète pendant 20 jours)

Tous les éléments disponibles sur le site https://www.strataframe.net/

De quoi migrer en douceur autant que faire ce peut.

chaque migration reste une aventure et le temps passé à préparer les bases de données, sélectionner les bons types de champs (char à la place de varchar, numéric ou int à la place des float) , bonne gestion des Primary Key et des Foreign Key est largement récupéré par la suite.

Ce sujet pourrait faire l'objet une session tellement il est vaste.

Bon courage à tous et bon codes

Atoutfoxement

Eric LEISSLER

Code source :
 * Code pour garder le splashscreen ouvert pendant 20 secondes et le fermer en suite

Private Sub SplashScreen_Activated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        Dim i As Integer
        Dim t1 As String
        Dim t2 As String
        Dim t3 As String
        t1 = time()
        t3 = "00:00:00"
        Me.Refresh()

        Do While temvern(t3) < temvern("00:00:20")
            t2 = time()
            t3 = dift(t2, t1)

        Loop
        Me.DialogResult = DialogResult.OK
        Me.Close()
        Me.Dispose()

    End Sub




Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :

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