変数定義のバリアント型
意味: 今はこの変数を定義しましたが、今後どのような型を割り当てて操作すればよいかわからないので、一時的にメモリから場所 (スペース) を借りて変数を置きます。将来実際の操作が実行されるときに、変数には必要に応じて対応する型が動的に割り当てられます
exit sub の機能は現在のプロセスを終了することであり、後続のプロシージャは実行されません。このコードの
の意味は、テキストボックスが空であることが検出された場合、以降の処理は実行されず、ユーザー名のテキストボックスにカーソルが設定されます。
Call ステートメントは、関数またはサブプロセスを呼び出すために使用されます。
viewdata は関数名またはサブプロセス名から取得されます。
関数またはサブルーチンを呼び出す 3 つの方法:
関数またはサブルーチンの名前を直接記述します。
Call ステートメントを使用して呼び出します。
4. mrc と mrccこれらは、コードの実行中に独自のノード位置を持ち、相互に干渉しません。ただし、1 つのレコード セットの論理内容を判断することにより、別のレコード セットがその判断と一致するイベントを作成することができます。
以下のコードは、mrccレコードのループにより入力内容がコード要件を満たしているか判定し、コード要件を満たしている場合は以前のmrcレコードを削除し、新しいレコードを更新します。ここでの mrcc は入力内容が正しいかどうかを判断する基準としてのみ使用され、mrc とは関係ありません。 (理解度はあまり高くありませんが、説明してくれた Lian Kang に感謝します。)txtSQL = "select * from class_info"Set mrcc = ExecuteSQL(txtSQL, MsgText) If Not (mrcc.EOF Or mrcc.BOF) Then mrcc.MoveFirst While (mrcc.EOF = False) If (Trim(mrcc.Fields(0)) = Trim(txtClassno.Text) And Trim(mrcc.Fields(1)) = Trim(combograde.Text) And _ Trim(mrcc.Fields(2)) = Trim(txtDirector.Text) And Trim(mrcc.Fields(3)) = Trim(txtClassroom.Text)) Then MsgBox "班号或年级已经存在,请重新输入!", vbOKOnly + vbExclamation, "警告" mrcc.Close txtClassno.Text = "" txtClassno.SetFocus Exit Sub Else '移动到下一条记录 mrcc.MoveNext End If Wend mrc.Delete mrcc.Close mrc.AddNew mrc.Fields(0) = Trim(txtClassno.Text) mrc.Fields(1) = Trim(combograde.Text) mrc.Fields(2) = Trim(txtDirector.Text) mrc.Fields(3) = Trim(txtClassroom.Text) mrc.Update MsgBox "更新数据成功!", vbOKOnly + vbExclamation, "修改班级信息" Else Exit Sub End If
windowsstate - 最初に表示されるフォームのサイズを設定します (if最大化に設定するか、最小化後は、フォームのサイズを Size プロパティで設定できません)
MDIChild - フォームの SDI (単一ドキュメント インターフェイス) を MDI (複数ドキュメント インターフェイス) に変換します
ScrollBars.horizontal (水平スクロール バー)、
ScrollBars.Vertical (垂直スクロールバー)、
ScrollBars. Both (水平スクロールバーと垂直スクロールバー)。
注: この属性値は、MultiLine 属性が true の場合にのみ有効です。 WordWrap プロパティの値が true の場合、
水平スクロール バーは機能しません以上が学生情報管理システムに関する知識のポイントの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。