Bagaimana untuk menulis kod untuk menambah data pada borang dalam borang VFP?

Apakah kod untuk cara menambah data pada jadual menggunakan borang dalam VFP

Klik kanan dalam borang dan pilih "Persekitaran Data..." untuk memilih jadual yang anda mahu.

Kemudian masukkan kod berikut ke dalam butang Tambah:

PILIH jadual situasi

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

=MESSAGEBOX ('Sila masukkan nama anda dan maklumat lain', 48, 'Message prompt')

PULANGAN

ENDIF

JIKA KOTAK MESEJ ('Sila semak dengan teliti untuk memastikan maklumat yang dimasukkan adalah lengkap dan tepat! '+CHR(13)+CHR(13)+'Adakah maklumat di atas betul?', 48+4, 'Maklumat segera') = 6

MASUKKAN KOSONG

GANTIKAN Nama DENGAN THISFORM.text1.VALUE, Jantina DENGAN THISFORM.text2.VALUE

GANTIKAN alamat rumah DENGAN THISFORM.text3.VALUE, tarikh lahir DENGAN THISFORM.text4.VALUE

GANTIKAN telefon mudah alih DENGAN THISFORM.text5.VALUE,QQ DENGAN THISFORM.text6.VALUE

GANTIKAN KOD ZIP DENGAN BORANG INI.text7.VALUE,E_mel DENGAN BORANG INI.text8.VALUE

GANTIKAN Zodiak DENGAN BENTUK INI.text9.VALUE, Warganegara DENGAN BORANG INI.text10.VALUE

GANTIKAN NOTA DENGAN BENTUK INI.text11.VALUE

SIMPAN '' KE THISFORM.text1.VALUE,THISFORM.text2.VALUE,THISFORM.text3.VALUE

SIMPAN '' KE THISFORM.text4.VALUE,THISFORM.text5.VALUE,THISFORM.text6.VALUE

SIMPAN '' KE THISFORM.text7.VALUE,THISFORM.text8.VALUE,THISFORM.text9.VALUE

SIMPAN '' KE THISFORM.text10.VALUE,THISFORM.text11.VALUE

ENDIF

Cara menambah kotak teks dalam reka bentuk borang VFP. Masukkan kandungan dalam kotak senarai

Sila nyatakan diri anda dengan jelas apabila bertanya soalan, sebaik-baiknya dengan gambar,

1. Kotak senarai, kedua-dua kaedah additem dan addlistitem boleh menambah data pada kotak senarai Kaedah additem boleh menambah rekod mengikut nombor indeks, manakala kaedah addlistitem menambah rekod mengikut nombor ID Apabila menggunakan dua kaedah ini untuk menambah item data The ROWSOURCETYPE nilai atribut mestilah 0 atau 1.

control.additem(cItem [,nIndex] [,nColumn]) Antaranya, cItem ialah kandungan item data yang akan ditambah, dan nIndex ialah nombor indeks. Jika nilai nIndex yang sah ditentukan, cItem akan diletakkan pada kedudukan yang betul dalam kawalan jika nIndex yang dinyatakan telah wujud, item data akan dimasukkan pada kedudukan ini dan semua item data lain selepas item data ini akan berada dalam kotak kombo atau kawalan kotak senarai Gerakkan ke bawah satu kedudukan dalam kawasan senarai. nColumn akan menentukan lajur yang akan ditambahkan item data Nilai lalai ialah 1.

Sintaks kaedah addlistiem adalah seperti berikut

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

Antaranya, cItem dan nColumn ialah kandungan item data yang akan ditambah dan lajur yang akan ditambah. nItemID ialah nombor ID unik item data yang akan ditambahkan Jika nItemID yang ditentukan sudah wujud, gunakan cItem untuk menulis ganti kandungan item data ID semasa.

2

thisform.text1.value=＂Hello＂

Di atas ditambah menggunakan arahan, atau anda boleh menambahnya terus

Anda boleh menetapkan jenis data kotak teks,

thisform.text1.value=＂＂&Tetapkan kepada jenis aksara

thisform.text1.value=0 & tetapkan kepada jenis angka

thisform.text1.value={} & tetapkan kepada jenis tarikh

Mengenai masalah import data VFP

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

eole=CREATEOBJECT('Excel.application')

eole.Buku Kerja.Buka(KKKK) & Buka buku kerja yang ditentukan

**eole.visible=.t. & Tunjukkan tetingkap Excel

eole.visible=.F & tidak memaparkan tetingkap Excel

eole.selection.WrapText = .T.

xlHelaian=eole.Helaian(1)

i=1

***Nota: Pembolehubah Saya boleh menjadi baris pertama atau baris N Terpulang kepada pengguna untuk menentukan baris mana data bermula.

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

***Pada masa ini, lajur pertama data dalam EXECL diambil, dan ia boleh diubah suai kepada mana-mana lajur N sendiri

JIKA TYPE('XMH')

'C'

***Nota: Tentukan sama ada ia adalah jenis aksara Jika ia adalah jenis angka, gantikan 'C' dengan 'N'

=MESSAGEBOX ('Nombor item bukan data aksara! Tidak boleh dimuatkan', 0, 'Mesej gesaan')

eole.ActiveWorkbook.Close(.T.)

eole.Buku kerja.tutup & Tutup buku kerja

eole.quit & Exit Excel

PULANGAN

ENDIF

BUAT SEMASA !KOSONG(XMH)

***Apabila pembolehubah XMH kosong, program bacaan tamat

SELE SVC

*** SVC ialah jadual sasaran, dan ia juga boleh menjadi jadual dengan nama lain

APPE BLAN

REPL nombor projek DENGAN TRIM(XMH)

***Nombor projek ialah medan sasaran

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

I=I+1

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

JIKA JENIS('XMH')='C'

LAINNYA

=MESSAGEBOX ('Nombor item bukan data aksara! Tidak boleh dimuatkan', 0, 'Mesej gesaan')

eole.ActiveWorkbook.Close(.T.)

eole.Buku kerja.tutup & Tutup buku kerja

eole.quit & Exit Excel

PULANGAN

KELUAR

ENDIF

ENDDO

eole.ActiveWorkbook.Close(.T.)

eole.Buku kerja.tutup & Tutup buku kerja

eole.quit & Exit Excel

Atas ialah kandungan terperinci Bagaimana untuk menulis kod untuk menambah data pada borang dalam borang VFP?. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!