Comment écrire le code pour ajouter des données au formulaire sous forme VFP ?

Quel est le code permettant d'ajouter des données à la table à l'aide d'un formulaire dans VFP

Faites un clic droit sur le formulaire et sélectionnez "Environnement de données..." pour sélectionner le tableau souhaité.

Entrez ensuite le code suivant dans le bouton Ajouter :

SELECT tableau de situation

IF ALLTRIM(THISFORM.text1.VALUE)=''

=MESSAGEBOX ("Veuillez entrer votre nom et d'autres informations", 48, "Invite de message")

RETOUR

ENDIF

IF MESSAGEBOX ('Veuillez vérifier attentivement pour vous assurer que les informations saisies sont complètes et exactes ! '+CHR(13)+CHR(13)+'Les informations ci-dessus sont-elles correctes ?', 48+4, 'Invite d'informations')= 6

AJOUTER UN BLANC

REMPLACER le nom PAR THISFORM.text1.VALUE, le sexe PAR THISFORM.text2.VALUE

REMPLACER l'adresse du domicile PAR THISFORM.text3.VALUE, la date de naissance PAR THISFORM.text4.VALUE

REMPLACER le téléphone portable PAR THISFORM.text5.VALUE, QQ PAR THISFORM.text6.VALUE

REMPLACEZ LE CODE POSTAL PAR THISFORM.text7.VALUE, E_mail PAR THISFORM.text8.VALUE

REMPLACEZ Zodiaque PAR THISFORM.text9.VALUE, Nationalité PAR THISFORM.text10.VALUE

REMPLACER LA NOTE PAR THISFORM.text11.VALUE

STORE '' DANS THISFORM.text1.VALUE,THISFORM.text2.VALUE,THISFORM.text3.VALUE

STORE '' DANS THISFORM.text4.VALUE,THISFORM.text5.VALUE,THISFORM.text6.VALUE

STORE '' DANS THISFORM.text7.VALUE,THISFORM.text8.VALUE,THISFORM.text9.VALUE

STORE '' À THISFORM.text10.VALUE,THISFORM.text11.VALUE

ENDIF

Comment ajouter des zones de texte dans la conception d'un formulaire VFP. Entrez le contenu dans la zone de liste

Veuillez vous exprimer clairement lorsque vous posez des questions, de préférence avec des images,

1. Zone de liste, les méthodes additem et addlistitem peuvent ajouter des données à la zone de liste. La méthode additem peut ajouter des enregistrements par numéro d'index, tandis que la méthode addlistitem ajoute des enregistrements par numéro d'identification. Lorsque vous utilisez ces deux méthodes pour ajouter des éléments de données. la valeur de l'attribut doit être 0 ou 1.

control.additem(cItem [,nIndex] [,nColumn]) Parmi eux, cItem est le contenu de l'élément de données à ajouter et nIndex est le numéro d'index. Si une valeur nIndex valide est spécifiée, le cItem sera placé à la position correcte dans le contrôle ; si le nIndex spécifié existe déjà, l'élément de données sera inséré à cette position et tous les autres éléments de données après cet élément de données seront dans la zone de liste déroulante ou le contrôle de zone de liste. Descendre d’une position dans la zone de liste. nColumn spécifiera la colonne à laquelle l'élément de données doit être ajouté. La valeur par défaut est 1.

La syntaxe de la méthode addlistiem est la suivante

control.addlistiem(cItem [,nItemID] [,nColumn])

Parmi eux, cItem et nColumn sont le contenu de la donnée à ajouter et la colonne à ajouter. nItemID est le numéro d'identification unique de l'élément de données à ajouter. Si le nItemID spécifié existe déjà, utilisez cItem pour écraser le contenu de l'élément de données ID actuel.

2. Zone de texte

thisform.text1.value=＂Bonjour＂

Ce qui précède est ajouté à l'aide de commandes, ou vous pouvez l'ajouter directement

Vous pouvez définir le type de données de la zone de texte,

thisform.text1.value=＂＂&Définir sur le type de caractère

thisform.text1.value=0 et défini sur un type numérique

thisform.text1.value={} et défini sur le type de date

À propos du problème d'importation de données VFP

DÉCLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING,STRING lpszFile, STRING, STRING, INTEGER

eole=CREATEOBJECT('Excel.application')

eole.Workbooks.Open(KKKK) & Ouvrir le classeur spécifié

**eole.visible=.t. & Afficher la fenêtre Excel

eole.visible=.F & n'affiche pas la fenêtre Excel

eole.selection.WrapText = .T.

xlSheet=eole.Sheets(1)

i=1

***Remarque : la variable I peut être la première ligne ou la Nième ligne. C'est à l'utilisateur de décider de quelle ligne commencent les données.

XMH=xlSheet.Cells(I,1).value

***Actuellement, la première colonne de données dans EXECL est utilisée et elle peut être modifiée vous-même en N colonnes quelconques

SI TYPE('XMH')'C'

***Remarque : Déterminez s'il s'agit d'un type de caractère. S'il s'agit d'un type numérique, remplacez "C" par "N"

=MESSAGEBOX ("Le numéro d'article n'est pas une donnée de caractère ! Ne peut pas être chargé", 0, "Message d'invite")

eole.ActiveWorkbook.Close(.T.)

eole.Workbooks.close & Close classeur

eole.quit & Quitter Excel

RETOUR

ENDIF

FAIRE PENDANT !EMPTY(XMH)

***Lorsque la variable XMH est vide, le programme de lecture se termine

SELE SVC

*** SVC est la table cible, et elle peut aussi être une table avec d'autres noms

APPE BLAN

REPL numéro de projet AVEC TRIM(XMH)

***Le numéro de projet est le champ cible

XMMC=xlSheet.Cells(I,1).value

Je=Je+1

XMH=xlSheet.Cells(I,1).value

SI TYPE('XMH')='C'

AUTRE

=MESSAGEBOX ("Le numéro d'article n'est pas une donnée de caractère ! Ne peut pas être chargé", 0, "Message d'invite")

eole.ActiveWorkbook.Close(.T.)

eole.Workbooks.close & Close classeur

eole.quit & Quitter Excel

RETOUR

SORTIE

ENDIF

ENDDO

eole.ActiveWorkbook.Close(.T.)

eole.Workbooks.close & Close classeur

eole.quit & Quitter Excel

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!