VFP 形式でフォームにデータを追加するコードを記述するにはどうすればよいですか?

VFP のフォームを使用してテーブルにデータを追加する方法のコードは何ですか

フォーム内を右クリックし、[データ環境...] を選択して、必要なテーブルを選択します。

次に、[追加] ボタンに次のコードを入力します:

SELECT シチュエーションテーブル

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

=MESSAGEBOX (「名前とその他の情報を入力してください」、48、「メッセージプロンプト」)

＃＃＃戻る＃＃＃

ENDIF

IF MESSAGEBOX ('入力された情報が完全かつ正確であることを注意深く確認してください! ' CHR(13) CHR(13) '上記の情報は正しいですか?', 48 4, '情報プロンプト') =6

空白を追加

名前を THISFORM.text1.VALUE に、性別を THISFORM.text2.VALUE に置き換えます

自宅の住所を THISFORM.text3.VALUE に、生年月日を THISFORM.text4.VALUE に置き換えます

携帯電話を THISFORM.text5.VALUE に置き換え、QQ を THISFORM.text6.VALUE に置き換えます

郵便番号をこのFORM.text7.VALUEに置き換え、電子メールをこのFORM.text8.VALUEに置き換えてください

黄道帯を THISFORM.text9.VALUE に、国籍を THISFORM.text10.VALUE に置き換えます

メモをこのFORM.text11.VALUEに置き換えてください

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

ストア '' を THISFORM.text4.VALUE,THISFORM.text5.VALUE,THISFORM.text6.VALUE

ストア '' を THISFORM.text7.VALUE,THISFORM.text8.VALUE,THISFORM.text9.VALUE

ストア '' を THISFORM.text10.VALUE,THISFORM.text11.VALUE

ENDIF

VFP フォームデザインにテキストボックスを追加する方法。リスト ボックスにコンテンツを入力する場合はどうすればよいですか?

質問するときは、できれば写真を使って明確に表現してください。

1. リスト ボックスでは、additem メソッドと addlistitem メソッドの両方でリスト ボックスにデータを追加できます。additem メソッドはインデックス番号でレコードを追加でき、addlistitem メソッドは ID 番号でレコードを追加できます。データを追加するには、これら 2 つのメソッドを使用します。 ROWSOURCETYPE 属性値は 0 または 1 である必要があります。

control.additem(cItem [,nIndex] [,nColumn]) このうち、cItemは追加するデータ項目の内容、nIndexはインデックス番号です。有効な nIndex 値が指定されている場合、cItem はコントロール内の正しい位置に配置されます。指定された nIndex が既に存在する場合、データ項目はこの位置に挿入され、このデータ項目の後の他のすべてのデータ項目はコンボ ボックスまたはリスト ボックス コントロール。リスト領域内で 1 つ下の位置に移動します。 nColumn は、データ項目が追加される列を指定します。デフォルト値は 1.

です。

addlistiem メソッドの構文は次のとおりです

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

このうち、cItemとnColumnは追加するデータ項目の内容と追加する列です。 nItemID は追加するデータ項目の一意の ID 番号です。指定した nItemID が既に存在する場合は、cItem を使用して現在の ID データ項目の内容を上書きします。

2.テキストボックス

thisform.text1.value=＂こんにちは＂

コマンドを使用して上記を追加するか、直接追加することもできます

テキスト ボックスのデータ型を設定できます。

thisform.text1.value=＂＂&文字タイプに設定

thisform.text1.value=0 & 数値型に設定

thisform.text1.value={} & 日付タイプに設定

VFP データのインポートの問題について

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

eole=CREATEOBJECT('Excel.application')

eole.Workbooks.Open(KK​​KK) & 指定されたワークブックを開きます

**eole.visible=.t. & Excel ウィンドウを表示

eole.visible=.F. & Excel ウィンドウを表示しない

eole.selection.WrapText = .T.

xlSheet=eole.Sheets(1)

i=1

***注: 変数 I は最初の行または N 番目の行にすることができます。データがどの行から始まるかを決めるのはユーザー次第です。

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

***EXECL の現在のデータは最初の列であり、任意の N 列に変更できます

IF TYPE('XMH')

'C'

***注: 文字型かどうかを確認してください。数値型の場合は、'C' を 'N' に置き換えてください。

=MESSAGEBOX ('商品番号は文字データではありません!ロードできません', 0, 'プロンプトメッセージ')

eole.ActiveWorkbook.Close(.T.)

eole.Workbooks.close & ワークブックを閉じる

eole.quit & Excel を終了

＃＃＃戻る＃＃＃

ENDIF

!空(XMH)のときに実行してください

***変数XMHが空の場合、読み取りプログラムは終了します

SELE SVC

*** SVC はターゲット テーブルであり、他の名前のテーブルとしても使用できます

アッペ・ブラン

REPL プロジェクト番号 WITH TRIM(XMH)

***商品番号が対象フィールドです

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

I=私1

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

IF TYPE('XMH')='C'

＃＃＃それ以外＃＃＃

=MESSAGEBOX ('商品番号は文字データではありません!ロードできません', 0, 'プロンプトメッセージ')

eole.ActiveWorkbook.Close(.T.)

eole.Workbooks.close & ワークブックを閉じる

eole.quit & Excel を終了

＃＃＃戻る＃＃＃ ＃＃＃出口＃＃＃

ENDIF

ENDDO

eole.ActiveWorkbook.Close(.T.)

eole.Workbooks.close & ワークブックを閉じる

eole.quit & Excel を終了

以上がVFP 形式でフォームにデータを追加するコードを記述するにはどうすればよいですか?の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。