ホームページ >データベース >mysql チュートリアル >学生情報管理システムに関する知識のポイント

学生情報管理システムに関する知識のポイント

一个新手
一个新手オリジナル
2017-09-19 09:43:072287ブラウズ


1. バリアントデータ型の説明:

変数定義のバリアント型
意味: 今はこの変数を定義しましたが、今後どのような型を割り当てて操作すればよいかわからないので、一時的にメモリから場所 (スペース) を借りて変数を置きます。将来実際の操作が実行されるときに、変数には必要に応じて対応する型が動的に割り当てられます

学生情報管理システムに関する知識のポイント

2. exit サブルーチンプロセス

exit sub の機能は現在のプロセスを終了することであり、後続のプロシージャは実行されません。このコードの

学生情報管理システムに関する知識のポイント

の意味は、テキストボックスが空であることが検出された場合、以降の処理は実行されず、ユーザー名のテキストボックスにカーソルが設定されます。

3. call viewdate

Call ステートメントは、関数またはサブプロセスを呼び出すために使用されます。
viewdata は関数名またはサブプロセス名から取得されます。

関数またはサブルーチンを呼び出す 3 つの方法:

  1. 関数またはサブルーチンの名前を直接記述します。

  2. Call ステートメントを使用して呼び出します。

    4. mrc と mrcc
  3. Dim Mrc as ADODB.Record
  4. Dim mrcc as ADODB.Record

    これらは、コードの実行中に独自のノード位置を持ち、相互に干渉しません。ただし、1 つのレコード セットの論理内容を判断することにより、別のレコード セットがその判断と一致するイベントを作成することができます。

    以下のコードは、mrccレコードのループにより入力内容がコード要件を満たしているか判定し、コード要件を満たしている場合は以前のmrcレコードを削除し、新しいレコードを更新します。ここでの mrcc は入力内容が正しいかどうかを判断する基準としてのみ使用され、mrc とは関係ありません。 (理解度はあまり高くありませんが、説明してくれた Lian Kang に感謝します。)
  5. 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
5. いくつかのプロパティを再学習する

フォーム プロパティ:


windowsstate - 最初に表示されるフォームのサイズを設定します (if最大化に設定するか、最小化後は、フォームのサイズを Size プロパティで設定できません)
MDIChild - フォームの SDI (単一ドキュメント インターフェイス) を MDI (複数ドキュメント インターフェイス) に変換します

ドキュメント プロパティ:

passwordchar -テキストの統一文字を設定します

ScrollBars - スクロール バー モードの設定に使用されます。オプションは 4 つあります:


ScrollBars.None (スクロール バーなし)、


ScrollBars.horizo​​ntal (水平スクロール バー)、

  • ScrollBars.Vertical (垂直スクロールバー)、

  • ScrollBars. Both (水平スクロールバーと垂直スクロールバー)。

  • 注: この属性値は、MultiLine 属性が true の場合にのみ有効です。 WordWrap プロパティの値が true の場合、

    水平スクロール バーは機能しません
  • MultiLine - TextBox コントロールが複数行のテキストを受け入れて表示できるかどうかを示す値を返すか、設定します

以上が学生情報管理システムに関する知識のポイントの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。

声明:
この記事の内容はネチズンが自主的に寄稿したものであり、著作権は原著者に帰属します。このサイトは、それに相当する法的責任を負いません。盗作または侵害の疑いのあるコンテンツを見つけた場合は、admin@php.cn までご連絡ください。