vb實現多使用者登入

2021-06-18 04:10:36 字數 2364 閱讀 6462

利用vb實現多使用者登入,主要是將vb與資料庫實現鏈結,這個問題在作品展中我們的軟體「天天跡錄」的登入時用到,但是當時自己只是知道有這麼個功能,但是那些**的含義並不明白,在3個月後的我又有機會接觸到它,現在敲這特別熟悉,現在也明白了其中的好多問題!,

利用資料庫儲存使用者和密碼,提高了軟體執行的速度!而且可以供更多的使用者使用!

public function connectstring() as string  '鏈結資料庫

'返回資料庫鏈結

connectstring = "provider =sqloledb;server=ip(寫執行時資料庫的存放位址);uid=sa;pwd=123456;database=charge"

end function

public function exectutesql(byval sql as string, msgstring as string) as adodb.recordset

dim cnn as adodb.connection '定義鏈結

dim rst as adodb.recordset

dim stokens() as string '定義字串

on error goto executesql_error '異常處理

stokens = split(sql) '拆分字串函式

'用split函式產生乙個包含各個子串的陣列

set cnn = new adodb.connection ' 建立連線

cnn.open connectstring

'判斷字串中是否含有指定內容

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, adlockbatchoptimistic '返回查詢結果

'adlockoptimistic 僅當呼叫update方法時,資料提供者鎖定記錄 adlockbatchoptimistic 用於批處理修改

'這個是預設值。 adopenkeyset 反映由其它使用者所做的對記錄的改變或者刪除動作,但並不反映由其它使用者做作的新增新記錄的動作。

set executesql = rst '返回記錄集物件

msgstring = "查詢到" & rst.recordcount & "記錄"

end if

executesql_exit:

set rst = nothing '清空資料集物件

set cnn = nothing '中斷連線

exit function

executesql_error: '判斷錯誤型別

messtring = "查詢錯誤:" & err.description

resume executesql_exit 'resume 語句 在錯誤處理程式結束後,恢復原有的執行。

end function

public function testtxt(txt as string) as boolean

if trim(txt) = "" then

testtxt = false

else

testtxt = true

end if

end function

'建立窗體

private sub form_load()

dim txtsql as string

dim msgtext as string

dim mrc as adodb.recordset

txtsql = "select * from 表 "

set mrc = executesql(txtsql, msgtext)

mrc.movefirst

call viewdata

mybookmark = mrc.bookmark

mcclean = true

if mrc.eof = false then

mrc.movefirst

call viewdata

mybookmark = mrc.bookmark

else

msgbox "沒有記錄!", vbokonly + vbexclamation, "警告"

exit sub

end if

end sub

多使用者金鑰登入配置

在linux伺服器上設定多個使用者的金鑰登入 參考 1 在伺服器上建立新的使用者 useradd username 2.在新使用者的home目錄下建立乙個.ssh的資料夾,該資料夾的許可權是700,owner是 username 3.將新使用者的公鑰上傳到伺服器上,拷貝到 home username...

XP多使用者登入 測試可行

一次做專案時,需要多人同步對一台機子的資料進行操作,1.起初想到區域網共享方法來解決,經測試軟體在另一台機上無法進行資料讀寫.2.找到winconnect xp 這個軟體,支援多人同時遠端控制.可惜沒找到破解版,受不了每30分鐘一次重啟.3.最終方法.啟用系統自帶的多使用者登入.方法原理如下 win...

win2008 多使用者遠端登入

在使用windows 2008遠端登入功能時,如果需要進行多使用者登入,可以採用以下配置方法 首先要啟用遠端桌面這一功能 右擊 我的電腦 屬性 遠端配置 遠端桌面,就可以配置相應的遠端桌面功能了。下面是配置多使用者登陸的方法 開啟 控制面板 管理工具 終端服務 terminal services 終...