齐齐哈尔大学毕业设计（论文）
(5).在程序连接Microsoft SQL Server 2000数据库可以再应用（application）的open事件中编写如下脚本：
SQLCA.DBMS = \SQLCA.Database = \SQLCA.ServerName = \SQLCA.LogId = \SQLCA.AutoCommit = False SQLCA.DBParm = \connect using sqlca; if SQLCA.SQLcode<>0 then
messagebox(\错误!,数据库连接失败!\open(w_login) else end if
图4-5 pb与Microsoft SQL Server服务器连接
27
齐齐哈尔大学毕业设计（论文）
4.2 系统登录窗口及菜单设计
4.2.1 系统登录窗口
用户在进入系统前，必须通过系统登录进入主程序界面，通过系统登录界面主要实现确认用户的身份及使用权限、并且判断是否支持鼠标和键盘操作。为了保证应用程序的安全，通常要设计系统登录表单验证用户是否合法。只有合法的用户才可进入系统。系统登录模块运行结果。系统登录表单运行结果如图4-1所示。
图4-6 系统登录窗口
登录按钮的clicked事件： string g_user，g_pass，s_id string username，userpass int ret_messagebox
s_id=trim(sle_1.text) g_user=sle_1.text g_pass=sle_2.text//赋值 select logid，logpw into :username，:userpass from users
where logid=:s_id;//查表操作
if sle_1.text=\ or sle_2.text=\ then
else
if g_user=trim(username) and g_pass=trim(userpass) then
28
messagebox(\警告!\，\用户名或密码不能为空!\
齐齐哈尔大学毕业设计（论文）
open(w_main) close(w_login)
else
ret_messagebox=messagebox(\错误!\，\用户名或密码错误，请重新输入!!\，stopsign!，
okcancel!)
if ret_messagebox=1 then
sle_1.text=\sle_2.text=\close(w_login)
else end if end if end if
退出按钮的Close事件：
Close（w_login）
4.2.2 主界面设计
程序主界面的设计的好坏往往影响到软件的整体形象，因此首先要处理好程序主界面的设计问题。同时，程序主界面的设计也是程序控制的核心，操作权限、程序功能调用等都要通过主程序调用实现。程序启动后，在系统登录界面验证操作员密码后，将进入程序主界面。通过程序主界面将会执行相应的权限操作，并且还可以通过主界面的菜单，来调用相应程序，再进行相应操作。商品销售系统程序主界面设计的运行结果如图：
图4-7 商场零售系统主界面
29
齐齐哈尔大学毕业设计（论文）
新建一个窗口对象，命名为w_main，在右面的属性设置中，把menuname设置为m_main，Windowstype改为mdihelp！，这样这个窗口就可以调用菜单m_main了。
图4-8 系统主菜单（m_main）设计
4.2.3 功能菜单设计
商品销售系统中，添加了许多与此系统相关的辅助功能。 (1). 修改密码w_changepass
图4-9 口令更改设计
口令更改的设计方法参看w_login的设计。 (2). Restart()
功能：停止所有程序段的执行、关闭所有窗口、提交事务、断开与数据库的连接，然后重新启动应用程序。
返回值：Integer。函数执行成功时返回1，发生错误时返回-1 (3). PrintSetup()
功能：打开打印机设置对话框。
返回值：Integer。函数执行成功时返回1，发生错误时返回-1。如果任何参数的值为NULL，PrintSetup()函数返回NULL。
30
齐齐哈尔大学毕业设计（论文）
用 法：当系统中安装了多种打印机时，在Windows中PrintSetup()函数选择计算机的对话框，单击“Setup”按钮设置打印机各种特性。如果系统中只有一个打印机，则直接打开该打印机的打印设置对话框。需要注意的是，在Windows95和Windows NT 3.51以后的版本中，使用PrintSetup()函数设置的打印机设置只对当前应用起作用，并不影响其它应用的打印机设置。对Windows 3.1来说，使用PrintSetup()函数设置的打印机设置影响系统中的所有应用。 (4). Run()
功能：运行指定的应用程序。 语法：Run ( string {， windowstate } )
参数：string：string类型，指定要运行的应用程序的名称，其中可以包括路径以及相应的参数，就像在命令行中键入的那样；windowstate：WindowState枚举类型，可选项，指定程序运行时的窗口状态。有效取值为：Maximized! - 最大化窗口；Minimized! - 最小化窗口；Normal! - 缺省值，正常窗口。 返回值：Integer。函数执行成功时返回1，发生错误时返回-1。如果任何参数的值为NULL，Run()函数返回NULL。用 法：使用Run()函数，应用程序能够启动操作系统中的任何程序。当在Run()参数中指定了要启动应用程序的参数时，参数的意义、格式、个数等由具体的应用程序确定。如果在Run()函数的string参数中指定了文件名但没有给出扩展名时，PowerBuilder认为该文件的扩展名为.EXE。要运行扩展名不是.EXE的应用程序（比如.BAT， .COM， 或.PIF），必须在Run()函数的参数中指定文件的扩展名。 运行记事本程序:Run(“Notepad”)，运行计算器程序:Run(“calc.exe”)[9] (5). 退出：
ret_messagebox=messagebox(\提示:\，\确认退出?\，question!，yesno!，2) if ret_messagebox=1 then
close(w_main) end if
对退出进行确认。当点击退出时，弹出一个对话框默认为否。如下图所示：
图4-10 对退出系统进行确认
31