基于PowerBuilder环境管理信息系统通用主控程序设计

1、基于powerbu订der环境管理信息系统通用主控程序设计摘 要：利用powerbuilder可以开发各种实用的管理信 息系统，用户初次使用系统时，通常是由系统设计者提供系 统管理员的编码及口令，进入身份验证模块，系统确认合法 后，进入主控程序，主控程序显示本管理系统的功能菜单。 本文详细介绍一种适合各种管理信息系统的通用主控程序 的设计方法。关键词：powerbu订der；管理信息系统1;主控程序 中图分类号：tp311. 38powerbuilder是一个适用于c/s结构的数据库前端开发 工具，主控程序功能包括应用程序、身份验证程序以及窗口 和菜单，开发的风格和功能实现也参差不齐，本文提供

2、一个 通用主控程序的设计方法，实现信息管理系统二级用户管 理，为用户提供一个良好的运行界面，保证系统数据的安全。1应用分析应用程序对象是保存用户应用程序最高层住息的非可 视对象°0pen事件是一个比较重要的事件，应用程序对象从 此开始执行，必须为其编写脚本代码。1. 1应用程序对象（）的open事件应用程序对象的open事件代码功能是：连接数据库， 打开应用程序的身份验证窗口 dl (如图1)。1.2定义全局变量本系统设置二级用户：管理员和普通用户。调用每个模 块时都需要判断登录用户的使用权限，因此保存登录用户权 限的变量必须是全局变量。string tya /字符串型变量tya保存

3、登录用户的使用 权限1.3声明全局外部函数在备份数据库窗口 w_backup中用到了外部函数 findwindowa ()和 iswindow ()。findwindowa ()的功能 是根据窗口标题查找窗口，iswindow ()的功能是用来判断 run语句执行的应用程序窗口是否结束。function long findwindowa (string ipciassname , string lpwindowname ) library "user32. dll"function boolean iswindow (long hwnd ) library “user32.

4、 dll”2身份验证模块为了增强系统的保密性，一般应用程序都应当设置身份 验证程序模块。本系统给用户3次机会，如果密码输入正确 后，同时将该登录用户的权限送给全局变量tya中保存。窗 口如图1所示。图1身份验证模块窗口 dl登录窗口(1) 定义实例变量integer times /限制口令输入的次数(2) 登录窗口 dl的open事件脚本本事件代码的主要特点是使用了游标操作。打开游标检 索用户表id中的全部用户名，利用循环语句和fetch语句 配合将游标中的数据行添加到下拉列表中。st ring ls_trmnitimes=ldeclare get_table cursor forselect

5、 “id” ” name” from “id” ；/声明游标open get_table； /打开游标fetch £et_table into : ls_tnam；do while sqlca sqlcode = 0ddlb_tableadditem (ls_tnam)fetch get_table into : ls_tnam；loopclose get_table； /关闭游标关闭游标close get_table；ddlb_table. text二ddlb_table. text (1)3主窗口及菜单3. 1设计主窗口 w_main(1) 创建一个child类型窗口 w_bac

6、k2,在窗口中添 加一个图片控件p_1 (暂不和图片文件关联)，取消 originalsize属性的复选框，并将窗口的enabled的属性设 为 falseo(2 )在窗口 w_back中创建自定义函数3 wf_set_background (string as_bmp) returns integer, 此函数用于设置背景图片。(3) 为窗口对象w_back的active事件编写代码如下:this. bringtotop=false /指定窗口 w_back 不能移到其他控件的前面。(4) 为窗口对象w_back的resize事件编写代码如下: p_l. resize (t his. wid

7、 th, t his .heigh t) /图片与窗口大小同步。(5) 创建mdi主窗口 w_maino设置属性：title属性 值为：学生信息管理系统，tag属性值为：学生信息管理系 统，menu name 值为：m_ma in, win dowtype 值为：mdihelp!, windowstate值为：maximized !,并在open事件中编写脚本 程序：opensheet (w_back, this, 0, layered!)/打开背景窗口/设置背景图片，fj056. jpg图片文件在当前文件夹下 w back. wf_set_background (， fj056jpg?)th

8、is, setmicrohelp (this, tag) /将 tag 属性值设为 主窗口的微帮助如果不是管理员，系统菜单下的用户管理菜单项不可 用if integer (tya) 1 then /全局变量tya保存登录用 户的权限，值为1是管理员，值为0是普通用户m_main. m_4. m_41. enabled=falseend if3. 2设计主菜单m_main在菜单画笔中设计应用程序主窗口所连接的主菜单 m_maino其中"系统”菜单项name值为：m_4,其子菜单"用 户管理” name值为：m_41,其余各菜单项名称不做要求。各个菜单中的程序脚本如下：opensheet(w_xnzc, w_main, 1, original!) /w_xnzc 为各菜单要打开的窗口名称4结束语用户初次运行系统时，管理员和普通用户自行修改登录 口令。系统管理员具有插入、删除、保存、查询的权限，而 普通用户只有查询的权限。参考文献：1任云峰.我国中小企业管理信息系统的现状及思考 j.现代经济信息，2010 (07).2 柯建勋，蔡毅，邓格林.powerbuilder. 0基础篇m