图4-19系统程序流程图
4.4.1 模块功能的详细设计
(1) 登录模块
系统登录模块是整个系统的开始，也是本系统权限设置的开始，其界面如下图：若图片无法显示请联系QQ752018766,PowerBuilder+SQL Server医药GSP管理系统 第9页免费,转发请注明源于www.youerw.com
图4-20 登录失败和成功界面图
具体实现步骤为：
选择操作员，凭口令进入系统，若口令错误三次，将退出应用程序。系统登录窗口的运行结果如4-20图所示。
开发流程如下：图4-21登录界面流程图
登录界面中，“确认”按钮代码：
string ls_pw,ls_id,ls_sf
ls_sf=trim(ddlb_1.text)
ls_id=trim(sle_1.text)
ls_pw=trim(sle_2.text)
if isnull(sle_1.text) then
messagebox("提示！"，"请输入用户名称！")
end if
//检查密码
string is_pw
select pw into :is_pw from yonghu
where name=:ls_id and shenfen=:ls_sf;
if is_pw <> ls_pw then
i++
if i=3 then
messagebox('提示信息','3次错误，系统退出')
halt close
else
messagebox('提
return
else
messagebox('提示信息','登录成功，欢迎进入系统')
gs_login=ls_sf;
open(w_main)
close(w_login)
end if
(2) 不同身份登录和其操作界面
A、GSP管理员登录界面和操作界面
图4-22 GSP管理员登录界面
图4-23 GSP管理员操作窗口
图4-24仓管员登录和操作界面图界面图
C、管理员登录界面和操作界面图
图4-25管理员登录界面图
图4-26管理员操作界面图
在系统的w_main窗口中的open事件中对用户的权限进行了定义，非超级用户的操作界面中的其他操作是通过代码进行了隐藏，具体代码如下：
if gs_login="GSP管
m_mdi_main.item[2].visible=false
m_mdi_main.item[3].visible=false
m_mdi_main.item[4].visible=false
m_mdi_main.item[6].visible=false
end if
if gs_login="仓管员" then
m_mdi_main.item[1].visible=false
m_mdi_main.item[5].visible=false
m_mdi_main.item[6].visible=false
end if
(3) 药品档案管理模块的详细设计
本模块的界面如图所示
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>