對于學生信息管理系統的知識點
發表時間:2023-07-19 來源:明輝站整理相關軟件相關文章人氣:
[摘要]一、variant數據類型解釋:變量定義的一種變體類型 意思是:我現在定義了這個變量,但是我并不確定將來對他賦予什么類型來操作,所以就先暫時向內存借一個位置(空間)放下變量.等將來實際操作的時候動態...
一、variant數據類型解釋:
變量定義的一種變體類型
意思是:我現在定義了這個變量,但是我并不確定將來對他賦予什么類型來操作,所以就先暫時向內存借一個位置(空間)放下變量.等將來實際操作的時候動態的根據需要為該變量賦予相應類型

二、過程中的exit sub
exit sub 的作用是結束當前的過程,不再執行后續程序。

在此代碼中的含義是:如果檢測到文本框為空,則不再執行后續進程,返回初始,光標定在用戶名文本框。
三、call viewdate
Call語句用于調用函數或子過程。
viewdata是函數名或子過程名來的。
調用函數或子過程序的三種方法:
直接寫該函數或子過程名;
利用變量或對象賦值調用;
用Call語句調用;
四、mrc與mrcc
Dim Mrc as ADODB.Record
Dim mrcc as ADODB.Record
這是定義的兩個不同的記錄集,每個記錄集自在代碼運行中都有各自的節點位置,互不干擾。但是可以通過對其中一個記錄集邏輯內容的判斷,使另一個記錄集做出與判斷是否相符的事件。
下面這段代碼就是通過對mrcc記錄的循環判斷,判斷輸入內容是否符合代碼要求,如若符合,則刪除之前mrc的記錄,更新新的記錄。在這里mrcc只是作為了對輸入內容進行正確與否的判斷依據,與mrc并沒有任何關系。(感謝連康講解,雖然理解的還不是很好。)
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(多文檔界面)
文檔屬性:
passwordchar——設置文本統一字符
ScrollBars——用來設置滾動條模式, 有四種選擇:
ScrollBars.None (無滾動條),
ScrollBars.Horizontal(水平滾動條),
ScrollBars.Vertical(垂直滾動條),
ScrollBars.Both(水平和垂直滾動條)。
注意:只有當MultiLine屬性為true時,該屬性值才有效。在WordWrap屬性值為true時,
水平滾動條將不起作用
MultiLine——返回或設置一個值,該值指示 TextBox 控件是否能夠接受和顯示多行文本
以上就是關于學生信息管理系統的知識點的詳細內容,更多請關注php中文網其它相關文章!
學習教程快速掌握從入門到精通的SQL知識。