一、variant數(shù)據(jù)類型解釋:
變量定義的一種變體類型
意思是:我現(xiàn)在定義了這個(gè)變量,但是我并不確定將來對(duì)他賦予什么類型來操作,所以就先暫時(shí)向內(nèi)存借一個(gè)位置(空間)放下變量.等將來實(shí)際操作的時(shí)候動(dòng)態(tài)的根據(jù)需要為該變量賦予相應(yīng)類型
二、過程中的exit sub
exit sub 的作用是結(jié)束當(dāng)前的過程,不再執(zhí)行后續(xù)程序。
在此代碼中的含義是:如果檢測(cè)到文本框?yàn)榭?,則不再執(zhí)行后續(xù)進(jìn)程,返回初始,光標(biāo)定在用戶名文本框。
三、call viewdate
Call語句用于調(diào)用函數(shù)或子過程。
viewdata是函數(shù)名或子過程名來的。
調(diào)用函數(shù)或子過程序的三種方法:
-
直接寫該函數(shù)或子過程名;
-
利用變量或?qū)ο筚x值調(diào)用;
-
用Call語句調(diào)用;
四、mrc與mrcc
Dim Mrc as ADODB.Record
Dim mrcc as ADODB.Record
這是定義的兩個(gè)不同的記錄集,每個(gè)記錄集自在代碼運(yùn)行中都有各自的節(jié)點(diǎn)位置,互不干擾。但是可以通過對(duì)其中一個(gè)記錄集邏輯內(nèi)容的判斷,使另一個(gè)記錄集做出與判斷是否相符的事件。
下面這段代碼就是通過對(duì)mrcc記錄的循環(huán)判斷,判斷輸入內(nèi)容是否符合代碼要求,如若符合,則刪除之前mrc的記錄,更新新的記錄。在這里mrcc只是作為了對(duì)輸入內(nèi)容進(jìn)行正確與否的判斷依據(jù),與mrc并沒有任何關(guān)系。(感謝連康講解,雖然理解的還不是很好。)
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?"班號(hào)或年級(jí)已經(jīng)存在,請(qǐng)重新輸入!",?vbOKOnly?+?vbExclamation,?"警告" ????????????????mrcc.Close ????????????????txtClassno.Text?=?"" ????????????????txtClassno.SetFocus???????????????? ????????????????Exit?Sub ????????????Else ????????????????'移動(dòng)到下一條記錄 ????????????????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?"更新數(shù)據(jù)成功!",?vbOKOnly?+?vbExclamation,?"修改班級(jí)信息" ????Else ?????????Exit?Sub ????End?If
五、對(duì)于一些屬性的重新學(xué)習(xí)
窗體屬性:
windowstate——設(shè)置窗體首次顯示時(shí)的尺寸(若設(shè)置為Maximized或者M(jìn)inimized后,無法 ? ?通過Size屬性設(shè)置窗體的大?。?
MDIChild——將窗體的SDI(單文檔界面)轉(zhuǎn)換為MDI(多文檔界面)
文檔屬性:
passwordchar——設(shè)置文本統(tǒng)一字符
ScrollBars——用來設(shè)置滾動(dòng)條模式, 有四種選擇:
-
ScrollBars.None (無滾動(dòng)條),
-
ScrollBars.Horizontal(水平滾動(dòng)條),
-
ScrollBars.Vertical(垂直滾動(dòng)條),
-
ScrollBars.Both(水平和垂直滾動(dòng)條)。
注意:只有當(dāng)MultiLine屬性為true時(shí),該屬性值才有效。在WordWrap屬性值為true時(shí), ?
水平滾動(dòng)條將不起作用
MultiLine——返回或設(shè)置一個(gè)值,該值指示 TextBox 控件是否能夠接受和顯示多行文本