PB设计—超市货物管理系统(2)

宁波工程学院课程设计报告

4-3各功能模块的实现 4-3-1 登录模块设计

登录模块实现用户登录功能，负责验证输入的用户名和密码的正确性，涉及的数据表为users表。主要功能如下：1）登录，2）添加新用户，3）修改密码。登录模块的实现界面如图4-2、图4-3、图4-4所示。

图4-2登录界面

界面及相关控件的实现代码为：

（1）登录按钮（cb_1）的clicked事件代码为： ls_username=trim(sle_1.text) //输入的用户名和密码 ls_password=trim(sle_2.text)

if ls_username=\ messagebox(\提示\用户名和密码不能为空\else SELECT users.name, users.password INTO :gs_username, :gs_password FROM users WHERE ( users.name = :ls_username ) AND ( users.password = :ls_password ); if sqlca.sqlcode=0 then open(x_main) //密码正确，打开主窗口 close(x_login) else li_n=li_n - 1 if li_n<>0 then

5

宁波工程学院课程设计报告

messagebox(\提示\用户名或密码错误\ else messagebox(\提示\错误超过 3 次，自动退出\ halt //错误超过 3 次，退出程序 end if end if end if

（2）退出按钮的事件代码 close（parent）

图4-3添加及修改新用户

（1）添加控件的程序（图4-3-1）

图4-3-1添加控件程序

（2）保存控件的程序

if dw_1.update()=1 then commit;

messagebox(“提示”,”保存成功”) end if

6

宁波工程学院课程设计报告

图4-4密码修改界面

（1）确定按钮的程序

if trim(sle_1.text)<>ls_password then messagebox(\提示\旧密码错误\else if trim(sle_2.text)=trim(sle_3.text) then ls_password=trim(sle_2.text)

UPDATE users SET password = :ls_password

WHERE ( users.name = :gs_username ) AND ( users.password = :gs_password ) ; if sqlca.sqlcode<>0 then messagebox(\提示\密码修改不成功\ else close(parent) messagebox(\提示\密码修改完成\ end if else messagebox(\提示\两次新密码不相同\end if end if

7

宁波工程学院课程设计报告

4-3-2 价格管理模块设计

价格管理模块实现用户查询功能，负责对商品价格的查询、排序、修改等功能，涉及的数据表为sth表。主要功能如下：1）查询，2）排序，3）添加。价格管理模块的实现界面如图4-5、图4-6、图4-7、图4-8所示。 查询又分为区间查询和按id、name、price查询

图4-5区间查询图 4-6按id、name、price查询

（1）筛选控件的程序 string condition,condition1 if cbx_1.checked=true then if cbx_2.checked=false then dw_1.setfilter(\ dw_1.filter()

dw_1.setsort(\dw_1.sort() end if end if

if cbx_2.checked=true then if cbx_1.checked=false then dw_1.setfilter(\

8

宁波工程学院课程设计报告

dw_1.filter() dw_1.setsort(\dw_1.sort() end if end if

if cbx_1.checked=true then if cbx_2.checked=true then condition=\ condition1=\ dw_1.setfilter(condition+\ dw_1.filter() dw_1.setsort(\dw_1.sort() end if end if

dw_1.settransobject(sqlca) dw_1.retrieve()

（2）开始查询控件的程序 dw_1.settransobject(sqlca) dw_1.retrieve()

if rb_1.checked=true then if dw_1.rowcount()= 0 then messagebox(\提示\无效\ end if dw_1.setfilter(\ dw_1.filter() end if

if rb_2.checked=true then if dw_1.rowcount()= 0 then messagebox(\提示\无效\ end if dw_1.setfilter(\ dw_1.filter() end if

if rb_3.checked=true then if dw_1.rowcount()= 0 then messagebox(\提示\无效\ end if dw_1.setfilter(\ dw_1.filter() end if

9