【PB登陸的實現】

我是太陽啦啦啦發表於2017-09-24

前言:

為什麼開始了這篇部落格呢,因為畢業設計需要使用PowerScript語言做一個小系統,生活在於不斷學習,今天部落格的主題是使用PowerScript語言實現程式的登入功能,歡迎各位讀者給出建議!

核心:

效果圖:

首先看一眼我登入頁面的效果:

該頁面採取的是載入資料庫中的使用者,所以採取下拉框的方式,下面顯示了當前登入的日期.

程式碼實現:

string  ls_user_name
string ls_password
long ll_count
//滑鼠焦點放到ddlb_1:使用者名稱的文字框中
ddlb_1.setfocus()
//將文字框的值賦給變數
ls_user_name=trim(ddlb_1.text)
ls_password=trim(sle_password.text)
//判空
If ls_user_name= ' ' or isnull(ls_user_name) then 
	messagebox('提示','請輸入使用者編號!')
		return
	end if	
If ls_password= ' ' or isnull(ls_password) then 
	messagebox('提示','請輸入使用者密碼!')
	return
end if
	sle_password.setfocus()
//判斷使用者名稱和密碼是否正確
select count(*) into :ll_count from sys_user where username =:ls_user_name and password =:ls_password;
If ll_count<1 then
	messagebox('提示','使用者編號或密碼錯誤')
	sle_password.text = ''
	return
end if
//判斷使用者許可權
select userid into :g_user_id from sys_user where username=:ls_user_name;
select flag into :gs_flag from sys_user where userid=:g_user_id;
//設定全域性變數
g_username = ls_user_name
//定義變數
string ls_id,ls_max_id,ls_userid,ls_username,ls_login_time

//顯示時間
ls_login_time = string(today(),"yyyy-mm-dd hh:mm:ss")
//將使用者登入記錄插入使用者操作日誌表中
insert  into log(id,userid,username,login_time)  values (:ls_id,:g_user_id,:g_username,:ls_login_time);
//開啟主窗體
open(w_main)
//關閉登入窗體
close(w_login)

總結:

從小小的登入開始入門,學習就是這樣的一個過程,接下來繼續分享PB的相關內容.

相關文章