日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 运维知识 > windows >内容正文

windows

药库管理系统登录界面设计

發布時間:2024/8/1 windows 38 豆豆
生活随笔 收集整理的這篇文章主要介紹了 药库管理系统登录界面设计 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

藥庫管理系統登錄界面設計
1.軟件平臺:Microsoft Office Access 2007。

2.藥庫管理系統簡介
系統的總流程圖,可以更好的說明該登錄界面的功能。

該登錄界面實現了用戶等級的劃分,管理員可以實現更多的功能。

3.登錄界面功能展示
①最終的登錄界面如下,添加了背景圖片等其他元素,對界面進行了美化。
選擇登錄類型,輸入正確的賬號和密碼即可成功登錄。

賬號和密碼以及用戶等級等信息需要提前存儲在數據表中。(我所用的表命名為“用戶管理”,后面的代碼中有體現)

②密碼錯誤提示
③密碼為空提示

④登錄類型不匹配

4.登錄界面設計過程
做完之后一直沒有機會寫出來,具體細節也有點記不清楚了(捂臉)
①首先按照需求添加相應控件。文本框、按鈕、標簽等
②登錄界面的功能實現主要是靠“登錄”按鈕的事件過程的編程。
代碼如下

Option Compare DatabasePrivate Sub Command登錄_Click()If IsNull(Me![賬號]) ThenMsgBox "請輸入登錄賬號!", 64, "系統提示" Me![賬號].SetFocusElseIf IsNull(Me![密碼]) ThenMsgBox "請輸入密碼,密碼不能為空!", 64, "系統提示"Me![密碼].SetFocusElseDim stemp As StringDim rs As ADODB.RecordsetSet rs = New ADODB.Recordsetstemp = "select*from 用戶管理 where 賬號='" & Me![賬號] & " '"rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimisticIf rs("密碼") <> Me![密碼] Then MsgBox "密碼錯誤,請重新輸入!", 64, "系統提示"Me![密碼] = ""Me![密碼].SetFocusElseIf Frame登錄類型 = 1 ThenIf rs("賬號等級") <> 1 Then MsgBox "登錄類型不匹配", 64, "系統提示"ElseDoCmd.Close DoCmd.OpenForm "導航界面" End IfElseIf rs("賬號等級") <> 2 Then MsgBox "登錄類型不匹配", 64, "系統提示"ElseDoCmd.CloseDoCmd.OpenForm "藥品資料查詢界面"End IfEnd IfEnd IfEnd If End If End Sub

5.結語
因為課程設計才來做界面,也是迫不得已才選用Access來實現,起碼登錄界面的功能實現尚可。

6.參考資料
參考資料1
http://blog.csdn.net/yxys01/article/details/102803566
參考資料2
https://blog.csdn.net/qq_42240910/article/details/80373535
Access自帶模板在界面美化時也給了我很多啟發。

備注:初次使用,并不精通,如有錯誤,還請諒解。

總結

以上是生活随笔為你收集整理的药库管理系统登录界面设计的全部內容,希望文章能夠幫你解決所遇到的問題。

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