Ein Variantentyp der Variablendefinition
Es bedeutet: Ich habe diese Variable jetzt definiert, tue es aber nicht Bestimmen Sie, welcher Typ ihm für zukünftige Operationen zugewiesen wird. Leihen Sie sich daher zunächst vorübergehend einen Speicherort (Leerzeichen) aus, um die Variable abzulegen. Wenn die tatsächliche Operation in der Zukunft ausgeführt wird, wird der Variable der entsprechende Typ dynamisch zugewiesen benötigt
Die Funktion von Exit Sub besteht darin, den aktuellen Prozess zu beenden und nachfolgende Prozeduren nicht mehr auszuführen. Die Bedeutung von
in diesem Code ist: Wenn festgestellt wird, dass das Textfeld leer ist, wird der nachfolgende Prozess nicht ausgeführt und der Cursor wird in gesetzt Textfeld für den Benutzernamen.
Call-Anweisung wird zum Aufrufen von Funktionen oder Unterprozessen verwendet.
Ansichtsdaten stammen aus dem Funktionsnamen oder Unterprozessnamen.
Drei Möglichkeiten, eine Funktion oder Unterroutine aufzurufen:
Schreiben Sie den Funktions- oder Unterprogrammnamen direkt;
Aufruf mithilfe einer Variablen oder Objektzuweisung;
Aufruf mit Call-Anweisung
Dies sind zwei verschiedene definierte Datensatzsätze, die während der Codeausführung ihre eigene Knotenposition haben und sich nicht gegenseitig stören. Durch die Beurteilung des logischen Inhalts eines Datensatzes kann der andere Datensatz jedoch ein Ereignis erstellen, das mit der Beurteilung übereinstimmt.
Der folgende Code dient dazu, anhand einer Schleife von mrcc-Datensätzen zu beurteilen, ob der Eingabeinhalt die Codeanforderungen erfüllt. Wenn er die Codeanforderungen erfüllt, löschen Sie den vorherigen mrc-Datensatz und aktualisieren Sie den neuen Datensatz. Hier dient mrcc nur als Grundlage für die Beurteilung, ob der Eingabeinhalt korrekt ist oder nicht, und hat nichts mit mrc zu tun. (Vielen Dank an Lian Kang für die Erklärung, obwohl das Verständnis nicht sehr gut ist.)
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
Dokumenteigenschaften:
MultiLine – Gibt einen Wert zurück oder legt einen Wert fest, der angibt, ob das TextBox-Steuerelement mehrzeiligen Text akzeptieren und anzeigen kann
Das obige ist der detaillierte Inhalt vonWissenspunkte zum Studenteninformationsmanagementsystem. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!