第一步：獲取本計算機使用者名
private
sub form_load()重點內容
dim sbuffer as
string
'緩衝器
dim lsize as
long
sbuffer = space$(255) '緩衝器容量255byte，sbuffer為255個空格字串
lsize = len(sbuffer) 'sbuffer串的長度
call getusername(sbuffer, lsize) '讀取使用者名稱到sbuffer中
if lsize > 0
then
txtusername.text = ""
else
private
sub cmdok_click()
dim txtsql as
string
dim mrc as adodb.recordset
dim msgtext as
string
username = ""
if trim(txtusername.text = "") then
msgbox "沒有這個使用者，請重新輸入使用者名稱！", vbokonly + vbexclamation, "警告"
txtusername.setfocus
else
txtsql = "select*from user_info where user_id='" & txtusername.text & "'"
set mrc = executesql(txtsql, msgtext)
public
function executesql(byval sql as
string, msgstring as
string) as adodb.recordset
'execute sql and return recordset
dim cnn as adodb.connection
dim rst as adodb.recordset
dim stokens() as
string
onerror
goto executesql_error
stokens = split(sql)
set cnn = new adodb.connection
cnn.open connectstring
public
function connectstring() as
string
'以檔案dsn標記，訪問odbc資料來源
connectstring = "filedsn=student.dsn;uid=sa;pwd=123456"
'連線檔案dsn
endfunction
if
instr("insert,delete,update", ucase$(stokens(0))) then
cnn.execute sql
msgstring = stokens(0) & " query successful"
else
set rst = new adodb.recordset
rst.open trim$(sql), cnn, adopenkeyset, adlockoptimistic
set executesql = rst
msgstring = "查詢到" & rst.recordcount & "條記錄"
endif
executesql_exit:
set rst = nothing
set cnn = nothing
exit
function
if mrc.eof then
msgbox
"沒有這個使用者，請重新輸入使用者名稱!", vbokonly + vbexclamation, "警告"
txtusername.setfocus
else
iftrim(mrc.fields(1)) = trim(txtpassword.text) then
ok = true
mrc.close
me.hide
username = trim(txtusername.text)
else
msgbox
"輸入密碼不正確，請重新輸入!", vbokonly + vbexclamation, "警告"
txtpassword.setfocus
txtpassword.text = ""
endif
系統登入使用者表
已生成 2015 05 16 12 04 40 伺服器 postgresql 9.4 localhost 5432 資料庫 v9 架構 public 名稱 資料型別 非空主鍵 預設注釋 autoid integer是是 nextval b operator autoid seq regclass 自...
學生資訊管理系統中系統登入問題
在實現學生資訊管理系統中，我們會經常遇到不能正常登入的問題，那麼這到底是怎麼回事呢？我認為這裡有幾點主要原因 1 資料庫連線不成功 只有正確的連線資料庫，是保證系統正常登入的必要條件！2 在編寫 時出現語法錯誤 在這裡最常見的就屬在資料庫中txtsql語句了吧，它是錯誤頻出的地方 舉個例子 txts...
學生資訊管理系統
學生資訊管理系統，顧名思義就是為了管理學生的相關資訊做的一款軟體。雖然這次有原始碼供我們參考，但是從中我學習到了如何從開始到完工去做一款軟體，下邊我從做一項軟體專案的前後順序來總結我的學生資訊管理系統。一，分析需求 首先在做這款軟體是，我們先想象乙個成品，他的功能有哪些，每個功能完成哪項任務，這就是...