變數定義的一種變體類型
意思是:我現在定義了這個變量,但我並不確定將來對他賦予什麼類型來操作,所以就先暫時向內存借一個位置(空間)放下變量.等將來實際操作的時候動態的根據需要為該變量賦予相應類型
exit sub 的作用是結束目前的過程,不再執行後續程式。
在此程式碼中的意義是:如果偵測到文字方塊為空,則不再執行後續進程,並返回初始,並且遊標定在使用者名稱文字方塊中。
Call語句用來呼叫函數或子程序。
viewdata是函數名或子過程名來的。
呼叫函數或子過程式的三種方法:
直接寫該函數或子過程名稱;
#利用變數或物件賦值呼叫;
Dim Mrc as ADODB.Record
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
windowstate——設定窗體首次顯示時的尺寸(若設定為Maximized或Minimized後,無法 透過Size屬性設定窗體的大小)
MDIChild-將窗體的SDI(單一文件介面)轉換為MDI(多重文件介面)
##ScrollBars.Vertical(垂直滾動條),
以上是關於學生資訊管理系統的知識點的詳細內容。更多資訊請關注PHP中文網其他相關文章!