關於學生資訊管理系統的知識點-mysql教程-PHP中文網

關於學生資訊管理系統的知識點

一个新手

發布： 2017-09-19 09:43:07

原創

2266 人瀏覽過

一、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
                &#39;移动到下一条记录
                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

登入後複製

五、對於一些屬性的重新學習