Wie schreibe ich den Code zum Hinzufügen von Daten zum Formular im VFP-Formular?

Was ist der Code zum Hinzufügen von Daten zur Tabelle mithilfe eines Formulars in VFP?

Klicken Sie mit der rechten Maustaste in das Formular und wählen Sie „Datenumgebung...“, um die gewünschte Tabelle auszuwählen.

Geben Sie dann den folgenden Code in die Schaltfläche „Hinzufügen“ ein:

Situationstabelle AUSWÄHLEN

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

=MESSAGEBOX („Bitte geben Sie Ihren Namen und andere Informationen ein“, 48, „Nachrichtenaufforderung“)

RÜCKKEHR

ENDIF

IF MESSAGEBOX („Bitte überprüfen Sie sorgfältig, ob die eingegebenen Informationen vollständig und korrekt sind! '+CHR(13)+CHR(13)+'Sind die oben genannten Informationen korrekt?', 48+4, 'Informationsaufforderung') = 6

LEER ANhängen

Ersetzen Sie den Namen durch THISFORM.text1.VALUE, das Geschlecht durch THISFORM.text2.VALUE

ERSETZEN Sie die Privatadresse DURCH THISFORM.text3.VALUE, das Geburtsdatum DURCH THISFORM.text4.VALUE

ERSETZEN Sie das Mobiltelefon DURCH THISFORM.text5.VALUE, QQ DURCH THISFORM.text6.VALUE

PLZ-CODE DURCH THISFORM.text7.VALUE, E-Mail DURCH THISFORM.text8.VALUE ERSETZEN

Ersetzen Sie Sternzeichen durch THISFORM.text9.VALUE, Nationalität durch THISFORM.text10.VALUE

NOTIZ DURCH THISFORM.text11.VALUE ERSETZEN

SPEICHERN '' TO THISFORM.text1.VALUE,THISFORM.text2.VALUE,THISFORM.text3.VALUE

SPEICHERN '' TO THISFORM.text4.VALUE,THISFORM.text5.VALUE,THISFORM.text6.VALUE

SPEICHERN '' TO THISFORM.text7.VALUE,THISFORM.text8.VALUE,THISFORM.text9.VALUE

SPEICHERN '' TO THISFORM.text10.VALUE,THISFORM.text11.VALUE

ENDIF

So fügen Sie Textfelder im VFP-Formulardesign hinzu. Geben Sie den Inhalt in das Listenfeld ein

Bitte drücken Sie sich bei Fragen deutlich aus, am besten mit Bildern,

1. Sowohl die Additem- als auch die Addlistitem-Methode können Datensätze nach Indexnummer hinzufügen, während die Addlistitem-Methode Datensätze nach ID-Nummer hinzufügt Der Attributwert muss 0 oder 1 sein.

control.additem(cItem [,nIndex] [,nColumn]) Unter diesen ist cItem der Inhalt des hinzuzufügenden Datenelements und nIndex die Indexnummer. Wenn ein gültiger nIndex-Wert angegeben wird, wird das cItem an der richtigen Position im Steuerelement platziert. Wenn der angegebene nIndex bereits vorhanden ist, wird das Datenelement an dieser Position eingefügt, und alle anderen Datenelemente nach diesem Datenelement werden eingefügt Das Kombinationsfeld- oder Listenfeld-Steuerelement wird im Listenbereich um eine Position nach unten verschoben. nColumn gibt die Spalte an, zu der das Datenelement hinzugefügt werden soll. Der Standardwert ist 1.

Die Syntax der addlistiem-Methode lautet wie folgt

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

Unter diesen sind cItem und nColumn der Inhalt des hinzuzufügenden Datenelements und der hinzuzufügenden Spalte. nItemID ist die eindeutige ID-Nummer des hinzuzufügenden Datenelements. Wenn die angegebene nItemID bereits vorhanden ist, überschreiben Sie mit cItem den Inhalt des aktuellen ID-Datenelements.

2. Textfeld

thisform.text1.value=＂Hallo＂

Das Obige wird mithilfe von Befehlen hinzugefügt, oder Sie können es direkt hinzufügen

Sie können den Datentyp des Textfelds festlegen,

thisform.text1.value=＂＂&Auf Zeichentyp setzen

thisform.text1.value=0 & auf numerischen Typ eingestellt

thisform.text1.value={} & auf Datumstyp setzen

Über das VFP-Datenimportproblem

DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING,STRING lpszFile, STRING, STRING, INTEGER

eole=CREATEOBJECT('Excel.application')

eole.Workbooks.Open(KKKK) & Öffnen Sie die angegebene Arbeitsmappe

**eole.visible=.t. & Excel-Fenster anzeigen

eole.visible=.F. & zeigt das Excel-Fenster nicht an

eole.selection.WrapText = .T.

xlSheet=eole.Sheets(1)

i=1

***Hinweis: Die Variable I kann die erste Zeile oder die N-te Zeile sein. Es liegt am Benutzer, zu entscheiden, in welcher Zeile die Daten beginnen.

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

*** Derzeit wird die erste Datenspalte in EXECL verwendet und Sie können sie selbst in beliebige N Spalten ändern

IF TYPE('XMH')'C'

***Hinweis: Stellen Sie fest, ob es sich um einen numerischen Typ handelt, ersetzen Sie „C“ durch „N“

=MESSAGEBOX („Die Artikelnummer ist keine Zeichendaten! Kann nicht geladen werden“, 0, „Prompt-Nachricht“)

eole.ActiveWorkbook.Close(.T.)

eole.Workbooks.close & Arbeitsmappe schließen

eole.quit & Excel beenden

RÜCKKEHR

ENDIF

DO WHILE !EMPTY(XMH)

***Wenn die Variable XMH leer ist, endet das Leseprogramm

SELE SVC

*** SVC ist die Zieltabelle, es kann sich aber auch um eine Tabelle mit anderen Namen handeln

APPE BLAN

REPL-Projektnummer MIT TRIM(XMH)

***Die Projektnummer ist das Zielfeld

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

I=I+1

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

IF TYPE('XMH')='C'

SONST

=MESSAGEBOX („Die Artikelnummer ist keine Zeichendaten! Kann nicht geladen werden“, 0, „Prompt-Nachricht“)

eole.ActiveWorkbook.Close(.T.)

eole.Workbooks.close & Arbeitsmappe schließen

eole.quit & Excel beenden

RÜCKKEHR

EXIT

ENDIF

ENDDO

eole.ActiveWorkbook.Close(.T.)

eole.Workbooks.close & Arbeitsmappe schließen

eole.quit & Excel beenden

Das obige ist der detaillierte Inhalt vonWie schreibe ich den Code zum Hinzufügen von Daten zum Formular im VFP-Formular?. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!