집 >데이터 베이스 >MySQL 튜토리얼 >학생 정보 관리 시스템에 대한 지식 포인트
변수 정의의 Variant 유형
의미: 지금은 이 변수를 정의했지만 앞으로 작동하려면 어떤 유형으로 할당해야 할지 모르겠으므로 다음을 사용하겠습니다. 임시로 메모리에서 위치(공간)를 빌려서 변수를 내려 놓습니다. 나중에 실제 작업을 수행할 때 필요에 따라 변수에 해당 유형이 동적으로 할당됩니다
exit sub의 기능은 현재 프로세스를 종료하는 것이며 후속 절차는 실행되지 않습니다. 이 코드에서
의 의미는 텍스트 상자가 비어 있는 것으로 감지되면 후속 프로세스가 실행되지 않고 커서가 사용자 이름 텍스트 상자에 설정된다는 것입니다.
Call 문은 함수나 하위 프로세스를 호출하는 데 사용됩니다.
viewdata는 함수 이름이나 하위 프로세스 이름에서 나옵니다.
함수 또는 서브루틴을 호출하는 세 가지 방법:
함수 또는 서브루틴의 이름을 직접 작성합니다.
변수 또는 개체 할당을 사용하여 호출합니다.
Call 문을 사용하여 호출합니다.
4. mrc 및 mrcc다음 코드는 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
문서 속성:
MultiLine - TextBox 컨트롤이 여러 줄 텍스트를 허용하고 표시할 수 있는지 여부를 나타내는 값을 반환하거나 설정합니다
위 내용은 학생 정보 관리 시스템에 대한 지식 포인트의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!