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

1、课程设计任务书设计题目 超市管理系统 一、 课程设计目的该课程设计是信息管理本科集中实践性环节之一，是学习完数据库基础与应用和程序设计方法课程后进行的一次全面的综合练习。其目的是通过本课程设计使学生对具体问题应用程序设计方法课程中所学的方法与技术，进行需求分析及软件设计的过程，不仅对程序设计方法课程中的所有知识点进行一个全面的复习巩固，更重要的是增强学生解决实际问题的能力。二、 设计内容、技术条件和要求内容：1、可对学生信息及权限进行管理；2、用户根据不同的权限可对学生信息进行添加、删除、修改等操作；3、可对学生的信息进行各种查询；4、可对学生信息等进行报表打印和统计功能；技术条件：power

2、builder开发工具的熟练运用，数据库理论知识和实际操作能力。要求：1、本课程设计要求学生独立设计完成。包括规划后台数据库、程序代码的编写以及软件界面的设计。3、数据库中不能少于两个表。4、程序应功能完善，界面友好，容错性好，操作方便。三、 时间进度安排系统分析与规划 半周系统设计与调试 一周撰写课程设计说明书 半周四、 主要参考文献郑阿奇PowerBuilder实用教程第2版北京：电子工业出版社，2004孙秋冬主编PowerBuilder 应用开发实用教程第1版北京：高等教育出版社，2005费雅洁主编PowerBuilder程序设计教程第1版北京：人民邮电出版社，20061. 创建进入窗口

3、按钮“进入”下的代码open(w_login)close(w_main)2. 创建登录窗口按钮“登陆”下的代码string uid_lr,pwd_lrstring uid_db,pwd_dbint iuid_lr = sle_1.textpwd_lr = sle_2.textselect count(*)into :i from glywhere id = :uid_lrusing sqlca;if i<1 thenmessagebox("对不起","该用户不存在！")sle_1.text = ""sle_2.text = &q

4、uot;"sle_1.setfocus()returnend ifselect passwordinto :pwd_dbfrom glywhere id = :uid_lrusing sqlca;if pwd_db <> pwd_lr thenmessagebox("对不起","密码错误！")sle_2.text = ""sle_2.setfocus()returnend ifopen(w_manage)close(w_login)3. 创建进出口货窗口4. 创建商品信息窗口按钮“上一条”下的代码int kkkk

5、=dw_1.getrow()if kk=1 then messagebox("提示信息","已到达第一条!")else dw_1.scrollpriorrow()end if按钮“下一条”下的代码if dw_1.getrow() = dw_1.rowcount() thenmessagebox("提示","已经是最后一条！")elsedw_1.scrollnextrow()end if按钮“第一条”下的代码dw_1.scrolltorow(1)按钮“最后一条”下的代码int kkkk=dw_1.rowcount()

6、dw_1.scrolltorow(kk)按钮“添加”下的代码/int kk/kk=dw_1.insertrow(0)/dw_1.scrolltorow(kk)/dw_1.setcolumn("goods")/dw_1.setfocus()/int ii = dw_1.insertrow(0)dw_1.scrolltorow(i)dw_1.setfocus()按钮“更新”下的代码int kk,countdw_1.accepttext()count=dw_1.modifiedcount()+dw_1.deletedcount()if count>0 thenif dw_1

7、.update()=1 then commit using sqlca; messagebox("提示信息", "已保存"+string(count)+"条数据!")elserollback using sqlca; messagebox("提示信息","数据更新失败!")end ifend if按钮“删除”下的代码int kkkk=messagebox("提示信息","确定要删除该数据吗?",exclamation!,yesno!)if kk=1 the

8、n dw_1.deleterow(0) dw_1.update()end if5. 创建供应商信息窗口按钮“上一页”下的代码dw_1.scrollpriorrow()按钮“下一页”下的代码if dw_1.getrow() = dw_1.rowcount() thenmessagebox("提示","已经是最后一条！")elsedw_1.scrollnextrow()end if按钮“保存”下的代码long rtnint i_counti_count = dw_1.modifiedcount()+dw_1.deletedcount()if i_count

9、> 0 then IF dw_1.update() = 1 THEN COMMIT USING SQLCA; messagebox("提示","您已经成功保存"+string(i_count)+"条数据！") ELSE ROLLBACK USING SQLCA; messagebox("提示","保存失败！") END IFend if按钮“添加”下的代码int ii = dw_1.insertrow(0)dw_1.scrolltorow(i)dw_1.setfocus()按钮“删除”下的

10、代码int ii = messagebox("提示","你真的要删除该条记录吗？",question!,yesno!,1)if i=1 thendw_1.deleterow(0)end if6. 创建查询窗口按钮“查询”下的代码string kkkk = sle_1.textdw_1.settransobject(sqlca)dw_1.retrieve(kk)创建增减删除记录窗口查找下的代码string uid_seekuid_seek = sle_1.textselect id,passwordinto :sle_1.text,:sle_2.textf

11、rom glywhere id= :uid_seekusing sqlca;if sqlca.sqlcode = 100 thenmessagebox("对不起","该用户不存在！")sle_1.text = ""sle_2.text = ""sle_1.setfocus()returnend if添加下的代码string uid_lr,pwd_lrint iuid_lr = sle_1.textpwd_lr = sle_2.textif trim(uid_lr) = "" or trim(pw

12、d_lr) = "" then messagebox("对不起","请输入用户名和密码！")returnend ifselect count(*)into :i from glywhere id = :uid_lrusing sqlca;if i>=1 thenmessagebox("对不起","该用户已经存在！")sle_1.setfocus()returnend ifinsert into gly(id,password)values(:uid_lr,:pwd_lr)using sql

13、ca;if sqlca.sqlnrows > 0 thenmessagebox("提示","添加成功！")commit using sqlca;sle_2.setfocus()elsemessagebox("提示","添加失败！")rollback using sqlca;sle_2.setfocus()end if删除下的代码string uid_delint i,netuid_del = sle_1.textnet = MessageBox("删除","是否真的要删除&quo

14、t;+uid_del+"?",Exclamation!,OKCancel!,2)if net = 2 thenreturnend ifselect count(*)into :ifrom glywhere id = :uid_delusing sqlca;if i<1 thenmessagebox("删除失败","该用户不存在！")sle_1.setfocus()returnend ifdelete from glywhere id = :uid_delusing sqlca;if sqlca.sqlcode <>

15、0 thenmessagebox("数据库错误","删除失败！")rollback;elsemessagebox("删除成功",uid_del + "用户的信息已经被删除！")sle_1.text = ""sle_2.text = ""commit;end if更新下的代码string uid_lr,pwd_lrint iuid_lr = sle_1.textpwd_lr = sle_2.textmessagebox("",string(sle_1.tab

16、order)sle_2.taborder = 20if trim(uid_lr) = "" or trim(pwd_lr) = "" then messagebox("对不起","请输入用户名和密码！")returnend ifselect count(*)into :i from glywhere id = :uid_lrusing sqlca;if i<1 thenmessagebox("对不起","该用户不存在，无法修改其密码！" &+"n要修改用户名，请先删除再添加！")sle_1.setfocus()returnend ifupdate