鉴于大家对PB毕业设计十分关注，我们编辑小组在此为大家搜集整理了“基于PB企业采购网络管理系统的开发”一文，供大家参考学习!
4.3系统菜单的设计 菜单是应用程序与用户交流的重要途径，应用程序一般都要通过菜单与用户交互。 在Windows 应用程序中，通常还把工具栏按钮和菜单命令关联起来，用户根据自己的习惯或者使用的状态选用工具按钮或者菜单项执行相同的操作。 为了便于用户操作，使用菜单还有多种方法，既可以使用鼠标，也可以使用键盘，用键盘时还可以定义热键和快捷键。 企业采购部门网络管理系统中设计了5个菜单项：基础数据，单据录入、统计报表、系统管理、帮助。各个菜单中包含的项目依次为，基础数据中包括：产品编码、供应商信息、员工信息、仓库信息、商品信息；单据录入中包括：订单管理、外销清单、内销清单、入库单、出库单；统计报表中包括：产品目录、系统日志、外销订单、库存报表；系统管理中包括：用户管理、日志管理、修改密码、注销、退出系统；帮助中仅仅包含联系我们。 图4-1 企业采购网络管理系统菜单设计结构 同时根据系统定义角色权限（系统、查询、录入、复核）的不同，当具有不同权限的用户登录系统时，启动的系统菜单是不同的，比如以具有“系统”权限的用户为例，当他登录时，启动的菜单为：系统管理、帮助菜单，其他的菜单都不显示，即为Disable。 下面是具体实现的程序代码： //不同权限的设置: 1-->录入 2-->查询 3-->复核 4-->系统 choose case rights case "1" user_first_menu.m_复核汇总.visible=false user_first_menu.m_系统管理.m_fg.visible=false user_first_menu.m_系统管理.m_用户管理.visible=false user_first_menu.m_系统管理.m_日志管理.visible=false user_first_menu.m_统计报表.visible=false user_first_menu.m_查询修改.visible=false user_first_menu.m_系统管理.m_用户管理.ToolbarItemVisible=false user_first_menu.m_系统管理.m_日志管理.ToolbarItemVisible=false user_first_menu.m_复核汇总.ToolbarItemVisible=false user_first_menu.m_查询修改.ToolbarItemVisible=false user_first_menu.m_统计报表.m_产品目录.ToolbarItemVisible=false case "2" user_first_menu.m_基础数据.visible=false user_first_menu.m_单据录入.visible=false user_first_menu.m_查询修改.visible=false user_first_menu.m_复核汇总.visible=false user_first_menu.m_系统管理.m_fg.visible=false user_first_menu.m_系统管理.m_日志管理.visible=false user_first_menu.m_系统管理.m_用户管理.visible=false user_first_menu.m_系统管理.m_用户管理.ToolbarItemVisible=false user_first_menu.m_系统管理.m_日志管理.ToolbarItemVisible=false user_first_menu.m_基础数据.m_供应商信息.ToolbarItemVisible=false user_first_menu.m_基础数据.m_员工信息.ToolbarItemVisible=false user_first_menu.m_基础数据.m_仓库信息.ToolbarItemVisible=false user_first_menu.m_单据录入.m_2.ToolbarItemVisible=false user_first_menu.m_复核汇总.ToolbarItemVisible=false user_first_menu.m_查询修改.ToolbarItemVisible=false case "3" user_first_menu.m_基础数据.visible=false user_first_menu.m_单据录入.visible=false user_first_menu.m_查询修改.visible=false user_first_menu.m_统计报表.visible=false user_first_menu.m_系统管理.m_fg.visible=false user_first_menu.m_系统管理.m_日志管理.visible=false user_first_menu.m_系统管理.m_用户管理.visible=false user_first_menu.m_系统管理.m_用户管理.ToolbarItemVisible=false user_first_menu.m_系统管理.m_日志管理.ToolbarItemVisible=false case "4" user_first_menu.m_基础数据.visible=false user_first_menu.m_单据录入.visible=false user_first_menu.m_查询修改.visible=false user_first_menu.m_复核汇总.visible=false user_first_menu.m_统计报表.visible=false user_first_menu.m_基础数据.m_供应商信息.ToolbarItemVisible=false user_first_menu.m_基础数据.m_员工信息.ToolbarItemVisible=false user_first_menu.m_基础数据.m_仓库信息.ToolbarItemVisible=false user_first_menu.m_复核汇总.ToolbarItemVisible=false user_first_menu.m_查询修改.ToolbarItemVisible=false user_first_menu.m_统计报表.m_产品目录.ToolbarItemVisible=false user_first_menu.m_单据录入.m_2.ToolbarItemVisible=false end choose 菜单对象的属性
菜单对象的事件 菜单对象的事件以及触发时机为
与菜单对象相关的函数介绍： 1．Check() 功能：在菜单对象标题的旁边显示选中符号，并将该对象的Checked属性设置为True。 2．Disable() 功能：关闭菜单对象并使其显示变为灰色，这样用户就不能选择该菜单项。函数执行成功返回1，发生错误时返回-1。 3．Enable() 功能：开放菜单对象，这样用户可以选择该菜单项，并且这个菜单项以正常颜色显示，同时把该菜单对象的Enabled属性设置为TRUE。 4．Uncheck() 去掉菜单旁边显示的选中符号，并将菜单对象的Checked属性设置为FALSE。 4.4登陆窗口设计 系统数据库连接方式选择“ODBC”方式，以下是连接方式的配置文件，通过SQLCODE来检查系统与数据库是否连接成功，如果SQLCODE为0则表明连接成功，连接成功后打开flash窗口。 // // Profile 企业采购部门网络管理系统 // SQLCA.DBMS="ODBC" SQLCA.AutoCommit = false SQLCA.DBParm = "ConnectString=''DSN=企业采购部门网络管理系统;UID=;PWD=''" CONNECT USING SQLCA; if SQLCA.SQLCODE <> 0 then messagebox("数据库连接失败",sqlca.sqlerrtext) halt end if CONNECT; // //启动flash窗口 // open(w_flash) // //控制flash显示的时间为1秒 // timer(1) 定时函数Timer()介绍 功能：在指定的时间反复触发指定窗口的定时器事件。 语法：Timer(interval{, windowsname}) 参数：interval：指定两次触发Timer事件之间的时间间隔，有效值在0~65之间，如果该参数的值指定为0，那么关闭定时器，不再触发指定窗口的Timer事件。Windowname：窗口名，指定时间间隔到时要触发哪个窗口的Timer事件。省略该参数时，则触发当前窗口的Timer事件。 系统登录界面 图4-2 系统登录界面 从用户帐号中可以选择当前系统启用的用户，同时键入相应的密码。本窗口设计的关键技术是要从用户管理表中读取当前启用的用户，帐户为1表示该用户启用，为0表示该用户未启用。因为SELECT只能做单行检索，当系统同时起用多个用户的时候，就要读取多行数据记录，所以要使用游标进行操作。实现代码如下： // //填充下拉式图片列表框ddplb_1 // string username /*************************************************** 读取多条记录时，需要用游标进行操作。典型过程： 1.用DECLARE说明游标； 2.用OPEN语句打开游标； 3.使用FETCH语句读取一行数据； 4.处理数据； 5.判断是否已经读完所有的数据，未读完时重复执行3~5部； 6.使用CLOSE语句关闭游标。 ****************************************************/ DECLARE user_cursor CURSOR FOR SELECT 用户名 FROM 用户管理 WHERE 帐户=1; OPEN user_cursor; do until sqlca.sqlcode=100 FETCH user_cursor INTO :username; ddplb_1.additem(username); loop CLOSE user_cursor; COMMIT; 4.5主窗口设计 
| ||||||||||||||||||||
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT | ||||||||||||||||||||
本文选自计算机毕业设计http://myeducs.cn
|
