1.sub與function的區別：（1）sub:過程，不需要返回值；
function:函式,可以帶返回值
（2）語法：
sub subname(引數1, 引數2,...)
end sub
function functionname(引數1, 引數2,...)
functionname = 返回值
end function
2.如何讓滑鼠在控制項上暫停時提示輸入型別，如下圖的效果
設定控制項的屬性，在tooltiptext中輸入自己想要提示的文字
3.ascii碼限制輸入符號
事件為：keypress
（1）限制特殊字元
if keyascii = 8 then exit sub
if (keyascii >= 0 and keyascii <= 47) or (keyascii >= 58 and keyascii <= 64) or (keyascii >= 91 and keyascii <= 96) or (keyascii >= 123 and keyascii <= 127) then keyascii = 0if keyascii = 8 then exit sub
select case keyascii
case 48 to 57
case else
keyascii = 0
end select
if (keyascii < 0) or (keyascii >= 65 and keyascii <= 90) or(keyascii >= 97 and keyascii <= 122) or (keyascii = 8) then
else
msgbox "請輸入字母或漢字", vbokonly,"提示"
keyascii = 0
end if
用屬性colwidth可隨意更改任意列的寬度
如：設定第三列列寬為3000：.colwidth(3)= 2000
（2）一種是明明還空著很大的地方卻任然顯示不完整
這是因為空格的存在，用trim去掉空格即可
如：trim(mrc.fields(0))
5.根據條件從資料庫中呼叫資訊
（1）找到對應操作員的使用者
txtsql = "select * from user_info where level='" & "操作員" & "'"
set mrc4 = executesql(txtsql, msgtext)
for i = 1 to mrc4.recordcount
combouserid.additem mrc4.fields(0)
mrc4.movenext
next i
txtsql = "select * from user_info where userid='" & combouserid.text & "'"
set mrc4 = executesql(txtsql, msgtext)
while (mrc4.eof = false)
txtusername.text = trim(mrc4.fields(3)) '從表user_info中選擇userid對應的名字顯示
' combousername.additem mrc4!username
mrc4.movenext
wend
mrc4.close
private sub combousername_keypress(keyascii as integer)
keyascii = 0
end sub
機房收費系統文件（第一次）總結
這段時間結合機房收費系統對文件的編寫進行了學習，可能是由於之前沒有接觸過文件編寫的相關知識，寫起來感覺特別費勁，都不知道怎麼去描述各部分的內容。結合文件的樣本站在巨人的肩膀上一步步的 艱難的 前行。慢慢的通過查閱資料，看的多了就對各個階段的文件有了一定的了解。通過寫文件我個人感覺只有結合實際的例子寫...
第一次機房收費系統 總結 概括
機房收費系統，是我們在不看源 的情況下做出的第乙個系統。在此我要寫一下我的製作歷程。首次進行機房收費系統，經過分析得知，本系統共有三類使用者 管理員，操作員，一般使用者。並且他們分別有如下功能 經過更深層的分析得知 他們各自有管理的許可權。一般使用者許可權最低。他只能執行他用於的五項功能。對其他員工...
第一次機房收費系統 幽夢
經過了分析需求 基本配置。終於開始敲機房了。第一步就是敲模組，我只能按照學生資訊管理系統的模組照葫蘆畫瓢。稍微改改，雖然當時整學生時把模組的 一句一句的查了一遍，但到現在還是不懂。不管怎樣，接著進行吧。於是，正式開始了！0.0 登入 在敲登入窗體時，還是要參考學生資訊管理系統。這第一句 就讓我一頭霧...