熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> PB編程 >> 正文

利用PB實現動態系統用戶登錄

2013-11-23 17:27:30  來源: PB編程 

  在多用戶的大型數據庫系統用戶對數據庫操作權限會有區別因此我們需要設計系統用戶登錄窗口來完成用戶的確認與權限控制通常我們都是在數據庫中添加一張人員表保存人員信息登錄用戶名以及口令但這種方法安全性並不是很高其它我們可以使用該方法登錄窗口時需要采用動態生成數據庫連接代碼然後連接數據庫如果用戶存在並且錄入的口令正確則數據庫連接成功這樣便可以打開系統主窗口了

  設計確定按鈕Clicked事件的代碼如下

  w_loginvisible = false

  //暫時隱藏登錄窗口

  Open(w_welcome)

  //打開歡迎或者數據庫連接等待窗口

  SetPointer(HOURGLASS!)

  //將光標變成沙漏型

  string ls_userls_pass

  //讀取用戶錄入的用戶名與口令

  ls_user = sle_usernametext

  ls_pass = sle_passwordtext

  //從注冊表中讀取所有數據庫信息並存儲在sqlca其中gs_key是你的軟件注冊位置

  RegistryGet(gs_hkey DBMS RegString! sqlcaDBMS)

  RegistryGet(gs_hkey Database RegString! sqlcaDatabase)

  //生成數據庫連接參數除了用戶名與口令外其他由系統的需要而定

  SQLCADBParm += ;UID=+ls_user+;PWD=+ls_pass+&&PBUseProcOwner=Yes

  ConnectOption=SQL_DRIVER_CONNECTSQL_DRIVER_NOPROMPT

  CONNECT using sqlca;

  //連接數據庫

  if sqlcasqlcode<> then

  //數據庫連接失敗說明用戶錄入口令不正確或者不存在該用戶

  close(w_welcome)

  //關閉等待窗口

  messagebox(登錄數據庫連接失敗!

  sle_passwordtext=

  sle_passwordsetfocus()

  success=false

  w_loginvisible=true

  else

  //數據庫連接成功!用戶驗證正確

  success=true

  open(w_main)//進入主窗口

  close(w_parent)

  end if

  使用本方法時對系統的維護(添加刪除權限設置等)必須到Sybase Central中進行對系統維護人員有一定要求

       編輯推薦

       ASP NET開發培訓視頻教程

       Microsoft NET框架程序設計視頻教程


From:http://tw.wingwit.com/Article/program/PB/201311/24618.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.