如何顯示程式的使用者名稱？
private sub form_load()
label3.caption = "當前使用者：" & username
end sub
vba.environ("username")
為什麼**號碼只能打到10位就報錯了？
其實在sql中就已經設定過了，改過之後就好了。
如何簡單的選擇日期？
工程——部件——microsoft windows common -2 6.0
選擇dtpicker 和
為何資料全部刪除就會報錯？
private sub cmddelete_click()
dim intmsgbox as integer
mybookmark = mrc.bookmark
intmsgbox = msgbox("是否刪除當前記錄？", vbokcancel, "刪除當前記錄")
if intmsgbox = vbok then
mrc.movenext
if mrc.eof = true then
mrc.moveprevious
mrc.moveprevious
if mrc.bof = true then
mrc.movenext
mrc.delete
msgbox "最後一條記錄刪除，記錄為空！", vbokonly + vbexclamation, "警告"
unload me
else
mrc.movefirst
mybookmark = mrc.bookmark
mrc.movelast
mrc.delete
mrc.bookmark = mybookmark
call viewdata
end if
else
mybookmark = mrc.bookmark
mrc.moveprevious
mrc.delete
mrc.bookmark = mybookmark
call viewdata
end if
else
mrc.bookmark = mybookmark
call viewdata
end if
end sub
txtsql = "select * from class_info"
set mrc = executesql(txtsql, msgtext)
for i = 1 to mrc.recordcount
comboclassno.additem mrc.fields(0)
mrc.movenext
next i
mrc.close
if trim(mrc.fields(1)) = trim(txtpassword.text) then
ok = true
mrc.close
me.hide
frmmain.show
username = trim(txtusername.text)
else
micount = micount + 1
if micount < 3 then
msgbox "輸入密碼不正確，請重新輸入！", vbokonly + vbexclamation, "警告"
txtpassword.setfocus
txtpassword.text = ""
else
msgbox "您多次輸入錯誤，即將退出程式！", vbokonly + vbexclamation, "警告"
endend if
end if
學生優化總結
經過三天的學生優化，問題從越來越多，到越來越少的過程，也是獲得更多知識的過程。在此感謝明慧，春麗等的部落格，對我提供的巨大的幫助。站在巨人的肩膀上 這次我對學生的優化基本上就是功能上的完善，經過這次優化，只能說是比剛開始更好了，不過仍有許多要完善 之處，希望大家在此多多提議，感激不盡。學生具體優化過...
學生資訊管理系統優化（一）
任何的系統在完成之前必須得優化，首先你的保證你做出來的軟體得沒有正常的邏輯問題，還得提高使用者體驗，讓別人用著比較舒服對吧！所以優化就是乙個不斷完善的過程！下邊我為大家分享一下我的優化心得！1.登入介面 首先你的保證你的登入介面不能隨意亂輸入，控制字元長度，而且要注意特殊字元的問題，防止別人輸入特殊...
學生總結（一）
由於我剛剛開始學生，積累了一部分問題，就簡單的寫下來。1 trim的作用 很多句 都出 現了trim，出現的頻率很高於是我就查了查！還是舉個例子吧，舉個例子一下就都能懂！trim的作用是刪除字串符的空格。dim word as string abc trim word word abc 2 exit...