最新PB超市管理系统课程设计说明书Word文件下载.docx
《最新PB超市管理系统课程设计说明书Word文件下载.docx》由会员分享，可在线阅读，更多相关《最新PB超市管理系统课程设计说明书Word文件下载.docx（12页珍藏版）》请在冰豆网上搜索。
撰写课程设计说明书半周
四、主要参考文献
郑阿奇．PowerBuilder实用教程．第2版．北京：
电子工业出版社，2004．
孙秋冬主编．PowerBuilder应用开发实用教程．第1版．北京：
高等教育出版社，2005．
费雅洁主编．PowerBuilder程序设计教程．第1版．北京：
人民邮电出版社，2006．
1.创建进入窗口
按钮“进入”下的代码
open（w_login）
close（w_main）
2.创建登录窗口
按钮“登陆”下的代码
stringuid_lr,pwd_lr
stringuid_db,pwd_db
inti
uid_lr=sle_1.text
pwd_lr=sle_2.text
selectcount（*）
into:
i
fromgly
whereid=:
uid_lr
usingsqlca;
ifi<
1then
messagebox（"
对不起"
"
该用户不存在！
"
）
sle_1.text="
sle_2.text="
sle_1.setfocus（）
return
endif
selectpassword
pwd_db
ifpwd_db<
>
pwd_lrthen
密码错误！
sle_2.setfocus（）
open（w_manage）
close（w_login）
3.创建进出口货窗口
4.创建商品信息窗口
按钮“上一条”下的代码
intkk
kk=dw_1.getrow（）
ifkk=1then
messagebox（"
提示信息"
已到达第一条!
else
dw_1.scrollpriorrow（）
endif
按钮“下一条”下的代码
ifdw_1.getrow（）=dw_1.rowcount（）then
提示"
已经是最后一条！
else
dw_1.scrollnextrow（）
按钮“第一条”下的代码
dw_1.scrolltorow
（1）
按钮“最后一条”下的代码
kk=dw_1.rowcount（）
dw_1.scrolltorow（kk）
按钮“添加”下的代码
//intkk
//kk=dw_1.insertrow（0）
//dw_1.scrolltorow（kk）
//dw_1.setcolumn（"
goods"
//dw_1.setfocus（）
//
i=dw_1.insertrow（0）
dw_1.scrolltorow（i）
dw_1.setfocus（）
按钮“更新”下的代码
intkk,count
dw_1.accepttext（）
count=dw_1.modifiedcount（）+dw_1.deletedcount（）
ifcount>
0then
ifdw_1.update（）=1then
commitusingsqlca;
messagebox（"
"
已保存"
+string（count）+"
条数据!
rollbackusingsqlca;
数据更新失败!
按钮“删除”下的代码
kk=messagebox（"
确定要删除该数据吗?
exclamation!
yesno!
dw_1.deleterow（0）
dw_1.update（）
5.创建供应商信息窗口
按钮“上一页”下的代码
dw_1.scrollpriorrow（）
按钮“下一页”下的代码
按钮“保存”下的代码
longrtn
inti_count
i_count=dw_1.modifiedcount（）+dw_1.deletedcount（）
ifi_count>
0then
IFdw_1.update（）=1THEN
COMMITUSINGSQLCA;
您已经成功保存"
+string（i_count）+"
条数据！
ELSE
ROLLBACKUSINGSQLCA;
保存失败！
ENDIF
i=messagebox（"
你真的要删除该条记录吗？
question!
1）
ifi=1then
6.创建查询窗口
按钮“查询”下的代码
stringkk
kk=sle_1.text
dw_1.settransobject（sqlca）
dw_1.retrieve（kk）
创建增减删除记录窗口
查找下的代码
stringuid_seek
uid_seek=sle_1.text
selectid,password
sle_1.text,:
sle_2.text
whereid=:
uid_seek
ifsqlca.sqlcode=100then
添加下的代码stringuid_lr,pwd_lr
iftrim（uid_lr）="
ortrim（pwd_lr）="
then
请输入用户名和密码！
ifi>
=1then
该用户已经存在！
insertintogly（id,password）
values（:
uid_lr,:
pwd_lr）
ifsqlca.sqlnrows>
添加成功！
commitusingsqlca;
添加失败！
rollbackusingsqlca;
删除下的代码
stringuid_del
inti,net
uid_del=sle_1.text
net=MessageBox（"
删除"
是否真的要删除"
+uid_del+"
?
Exclamation!
OKCancel!
2）
ifnet=2then
i
uid_del
删除失败"
deletefromgly
ifsqlca.sqlcode<
数据库错误"
删除失败！
rollback;
删除成功"
uid_del+"
用户的信息已经被删除！
commit;
更新下的代码
messagebox（"
string（sle_1.taborder））
sle_2.taborder=20
该用户不存在，无法修改其密码！
&
+"
~n要修改用户名，请先删除再添加！
updategly
setpassword=:
pwd_lr
whereid=:
密码修改成功！
密码修改失败！
升级会员 