介面
當前卡號登入上機,label顯示當前登入的卡號,各個文字框設定成不可編輯
流程圖
**實現
private sub form_load()
lblcardno.caption = "卡號:" & username
dim mrc as adodb.recordset
dim txtsql as string
dim msgtext as string
'設定窗體的位置和大小
me.left = 0
me.top = 700
me.height = 16000
me.width = 18000
'從學生表和卡號表中查詢資訊顯示在文字框中
txtsql = "select * from student_info,card_info where cardno='" & username & _
"'and student_info.studentno=card_info.studentno"
set mrc = executesql(txtsql, msgtext)
txtsno.text = mrc!studentno
txtbalance.text = mrc!cash
txtname.text = mrc!studentname
txt***.text = mrc!***
txtdepartment.text = mrc!department
txtgrade.text = mrc!grade
txtclass.text = mrc!class
txtcomment.text = mrc!explain
'設定各個文字框不可以編輯修改
txtsno.enabled = false
txtbalance.enabled = false
txtname.enabled = false
txt***.enabled = false
txtdepartment.enabled = false
txtgrade.enabled = false
txtclass.enabled = false
txtcomment.enabled = false
end sub
機房收費系統之一般使用者修改密碼窗體
介面設計 流程圖 實現 private sub cmdok click dim mrc as adodb.recordset dim txtsql as string dim msgtext as string 判斷各個文字框的內容是否為空 if testtxt txtoldcode.text fa...
第一次機房收費系統之一般使用者修改密碼
輸入原密碼,查詢是否正確,不正確提示,否則輸入新密碼,確認密碼,兩者對比是否相同,相同則將密碼設定為新密碼,退出系統重新登陸,否則提示兩者不同,無法修改。user info 存放使用者資訊 private sub cmdcancel click unload me end sub private s...
機房搬遷的一般步驟方案
隨著企業 單位的不斷深入發展,現有的涉及辦公 生產場所已經不能滿足,新的廠房及辦公大樓逐漸籌建,那麼機房搬遷或機房改建服務應運而生,而機房搬遷作為一項非常重要的工作,涉及許多裝置 重要資料 核心資產等,對企業來說,機房搬遷可以說是一項細緻而精密且頭等重要的大事。機房搬遷不僅僅是把機房的裝置遷移到新機...