第一次機房收費系統總結

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 = 0

if 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 登入 在敲登入窗體時，還是要參考學生資訊管理系統。這第一句 就讓我一頭霧...