查詢窗體核取方塊優化
核取方塊取消勾選之後文字框中的內容和查詢的內容也被清空
'check√取消後面的內容隨之取消
private sub check1_click()
if not check1.value then
txtsid.text = 「」
with myflexgrid
.rows = 2
.cellalignment = 4
.textmatrix(1, 0) = 「」
.textmatrix(1, 1) = 「」
.textmatrix(1, 2) = 「」
.textmatrix(1, 3) = 「」
.textmatrix(1, 4) = 「」
.textmatrix(1, 5) = 「」
.textmatrix(1, 6) = 「」
.textmatrix(1, 7) = 「」
end with
end if
end sub
文字框加限制
一、限制只能輸入數字
private sub txtsid_keypress(keyascii as integer)
if keyascii >= 33 then
if keyascii <= vbkey9 and keyascii >= vbkey0 then
else
keyascii = 0
msgbox 「請輸入數字！」
end if
end if
end sub
二、限制不能輸入數字
private sub txtname_keypress(keyascii as integer) '姓名不能輸入數字
if (keyascii >= 48 and keyascii <= 57) then
msgbox 「不允許輸入數字」, vbokonly + vbexclamation, 「警告」
keyascii = 0 '鍵盤不能用
end if
end sub
三、限制姓名字數
'設定姓名位元組的限制，由2個到4個字組成，即4-8個位元組組成
private sub txtdirector_lostfocus()
if not lenb(txtdirector) = 0 and lenb(txtdirector) < 4 or lenb(txtdirector) > 8 then
txtdirector.setfocus
txtdirector.sellength = len(txtdirector.text)
txtdirector.selstart = 0
msgbox 「姓名輸入錯誤」
end if
end sub
四、下拉框禁止輸入
private sub comboclassno_keypress(keyascii as integer)
keyascii = 0
end sub
學生資訊管理系統之
習學生資訊管理系統的時候，對於資訊的修改很多時候都用到了 書籤的功能 mybookmark 對刪除記錄顯示記錄起到了承上啟下的巨大作用。所以說書籤最懂你的心。書籤顧名思義就是做標記，讓我們更好的控制使用資料表，通過書籤我們可以隨意的跳到我們想要看的記錄下 前提是你的給你的目的記錄標記書籤 此外書籤還...
學生資訊管理系統優化（一）
任何的系統在完成之前必須得優化，首先你的保證你做出來的軟體得沒有正常的邏輯問題，還得提高使用者體驗，讓別人用著比較舒服對吧！所以優化就是乙個不斷完善的過程！下邊我為大家分享一下我的優化心得！1.登入介面 首先你的保證你的登入介面不能隨意亂輸入，控制字元長度，而且要注意特殊字元的問題，防止別人輸入特殊...
學生資訊管理系統優化限制
if keyascii 8 then exit sub if keyascii 48 or keyascii 57 then keyascii 02，限制貼上 if keycode vbkeyv and shift vbctrlmask then txtpassword.enabled false ...