前言:

為什么開始了這篇博客呢,因為畢業設計需要使用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('提示','請輸入用戶編號!')returnend if If ls_password= ' ' or isnull(ls_password) then messagebox('提示','請輸入用戶密碼!')return end ifsle_password.setfocus()//判斷用戶名和密碼是否正確 select count(*) into :ll_count from sys_user where username =:ls_user_name and password =:ls_password; If ll_count<1 thenmessagebox('提示','用戶編號或密碼錯誤')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的相關內容.

總結

以上是生活随笔為你收集整理的【PB登陆的实现】的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。