PB超市管理系统_课程设计说明书

课程设计任务书设计题目超市管理系统一、课程设计目的该课程设计是信息管理本科集中实践性环节之一，是学习完《数据库基础与应用》和《程序设计方法》课程后进行的一次全面的综合练习。其目的是通过本课程设计使学生对具体问题应用《程序设计方法》课程中所学的方法与技术，进行需求分析及软件设计的过程，不仅对程序设计方法课程中的所有知识点进行一个全面的复习巩固，更重要的是增强学生解决实际问题的能力。二、设计内容、技术条件和要求内容：1、可对学生信息及权限进行管理；2、用户根据不同的权限可对学生信息进行添加、删除、修改等操作；3、可对学生的信息进行各种查询；4、可对学生信息等进行报表打印和统计功能；技术条件：powerbuilder开发工具的熟练运用，数据库理论知识和实际操作能力。要求：1、本课程设计要求学生独立设计完成。包括规划后台数据库、程序代码的编写以及软件界面的设计。3、数据库中不能少于两个表。4、程序应功能完善，界面友好，容错性好，操作方便。三、时间进度安排系统分析与规划半周系统设计与调试一周撰写课程设计说明书半周四、主要参考文献郑阿奇．PowerBuilder实用教程．第2版．北京：电子工业出版社，2004．孙秋冬主编．PowerBuilder应用开发实用教程．第1版．北京：高等教育出版社，2005．费雅洁主编．PowerBuilder程序设计教程．第1版．北京：人民邮电出版社，2006．1.创建进入窗口按钮“进入”下的代码open(w_login)close(w_main)2.创建登录窗口按钮“登陆”下的代码stringuid_lr,pwd_lrstringuid_db,pwd_dbintiuid_lr=sle_1.textpwd_lr=sle_2.textselectcount(*)into:ifromglywhereid=:uid_lrusingsqlca;ifi1thenmessagebox(对不起,该用户不存在！)sle_1.text=sle_2.text=sle_1.setfocus()returnendifselectpasswordinto:pwd_dbfromglywhereid=:uid_lrusingsqlca;ifpwd_dbpwd_lrthenmessagebox(对不起,密码错误！)sle_2.text=sle_2.setfocus()returnendifopen(w_manage)close(w_login)3.创建进出口货窗口4.创建商品信息窗口按钮“上一条”下的代码intkkkk=dw_1.getrow()ifkk=1thenmessagebox(提示信息,已到达第一条!)elsedw_1.scrollpriorrow()endif按钮“下一条”下的代码ifdw_1.getrow()=dw_1.rowcount()thenmessagebox(提示,已经是最后一条！)elsedw_1.scrollnextrow()endif按钮“第一条”下的代码dw_1.scrolltorow(1)按钮“最后一条”下的代码intkkkk=dw_1.rowcount()dw_1.scrolltorow(kk)按钮“添加”下的代码//intkk//kk=dw_1.insertrow(0)//dw_1.scrolltorow(kk)//dw_1.setcolumn(goods)//dw_1.setfocus()//intii=dw_1.insertrow(0)dw_1.scrolltorow(i)dw_1.setfocus()按钮“更新”下的代码intkk,countdw_1.accepttext()count=dw_1.modifiedcount()+dw_1.deletedcount()ifcount0thenifdw_1.update()=1thencommitusingsqlca;messagebox(提示信息,已保存+string(count)+条数据!)elserollbackusingsqlca;messagebox(提示信息,数据更新失败!)endifendif按钮“删除”下的代码intkkkk=messagebox(提示信息,确定要删除该数据吗?,exclamation!,yesno!)ifkk=1thendw_1.deleterow(0)dw_1.update()endif5.创建供应商信息窗口按钮“上一页”下的代码dw_1.scrollpriorrow()按钮“下一页”下的代码ifdw_1.getrow()=dw_1.rowcount()thenmessagebox(提示,已经是最后一条！)elsedw_1.scrollnextrow()endif按钮“保存”下的代码longrtninti_counti_count=dw_1.modifiedcount()+dw_1.deletedcount()ifi_count0thenIFdw_1.update()=1THENCOMMITUSINGSQLCA;messagebox(提示,您已经成功保存+string(i_count)+条数据！)ELSEROLLBACKUSINGSQLCA;messagebox(提示,保存失败！)ENDIFendif按钮“添加”下的代码intii=dw_1.insertrow(0)dw_1.scrolltorow(i)dw_1.setfocus()按钮“删除”下的代码intii=messagebox(提示,你真的要删除该条记录吗？,question!,yesno!,1)ifi=1thendw_1.deleterow(0)endif6.创建查询窗口按钮“查询”下的代码stringkkkk=sle_1.textdw_1.settransobject(sqlca)dw_1.retrieve(kk)创建增减删除记录窗口查找下的代码stringuid_seekuid_seek=sle_1.textselectid,passwordinto:sle_1.text,:sle_2.textfromglywhereid=:uid_seekusingsqlca;ifsqlca.sqlcode=100thenmessagebox(对不起,该用户不存在！)sle_1.text=sle_2.text=sle_1.setfocus()returnendif添加下的代码stringuid_lr,pwd_lrintiuid_lr=sle_1.textpwd_lr=sle_2.textiftrim(uid_lr)=ortrim(pwd_lr)=thenmessagebox(对不起,请输入用户名和密码！)returnendifselectcount(*)into:ifromglywhereid=:uid_lrusingsqlca;ifi=1thenmessagebox(对不起,该用户已经存在！)sle_1.setfocus()returnendifinsertintogly(id,password)values(:uid_lr,:pwd_lr)usingsqlca;ifsqlca.sqlnrows0thenmessagebox(提示,添加成功！)commitusingsqlca;sle_2.setfocus()elsemessagebox(提示,添加失败！)rollbackusingsqlca;sle_2.setfocus()endif删除下的代码stringuid_delinti,netuid_del=sle_1.textnet=MessageBox(删除,是否真的要删除+uid_del+?,Exclamation!,OKCancel!,2)ifnet=2thenreturnendifselectcount(*)into:ifromglywhereid=:uid_delusingsqlca;ifi1thenmessagebox(删除失败,该用户不存在！)sle_1.setfocus()returnendifdeletefromglywhereid=:uid_delusingsqlca;ifsqlca.sqlcode0thenmessagebox(数据库错误,删除失败！)rollback;elsemessagebox(删除成功,uid_del+用户的信息已经被删除！)sle_1.text=sle_2.text=commit;endif更新下的代码stringuid_lr,pwd_lrintiuid_lr=sle_1.textpwd_lr=sle_2.textmessagebox(,string(sle_1.taborder))sle_2.taborder=20iftrim(uid_lr)=ortrim(pwd_lr)=thenmessagebox(对不起,请输入用户名和密码！)returnendifselectcount(*)into:ifromglywhereid=:uid_lrusingsqlca;ifi1thenmessagebox(对不起,该用户不存在，无法修改其密码！&+~n要修改用户名，请先删除再添加！)sle_1.setfocus()returnendifupdateglysetpassword=:pwd_lrwhereid=:uid_lrusingsqlca;ifsqlca.sqlnrows0thenmessagebox(提示,密码修改成功！)commitusingsqlca;sle_2.setfocus()elsemessagebox(提示,密码修改失败！)rollbackusingsqlca;sle_2.setfocus()endif