PB超市管理系統(tǒng)-課程設(shè)計(jì)說(shuō)明書

1、課程設(shè)計(jì)任務(wù)書設(shè)計(jì)題目 超市管理系統(tǒng) 課程設(shè)計(jì)目的該課程設(shè)計(jì)是信息管理本科集中實(shí)踐性環(huán)節(jié)之一，是學(xué)習(xí)完數(shù)據(jù)庫(kù)基礎(chǔ)與應(yīng)用和程序設(shè)計(jì)方法課程后進(jìn)行的一次全面的綜合練習(xí)。其目的是通過(guò)本課程設(shè)計(jì)使學(xué)生對(duì)具體問(wèn)題應(yīng)用程序設(shè)計(jì)方法課程中所學(xué)的方法與技術(shù)，進(jìn)行需求分析及軟件設(shè)計(jì)的過(guò)程，不僅對(duì)程序設(shè)計(jì)方法課程中的所有知識(shí)點(diǎn)進(jìn)行一個(gè)全面的復(fù)習(xí)鞏固，更重要的是增強(qiáng)學(xué)生解決實(shí)際問(wèn)題的能力。設(shè)計(jì)內(nèi)容、技術(shù)條件和要求內(nèi)容：1、可對(duì)學(xué)生信息及權(quán)限進(jìn)行管理；2、用戶根據(jù)不同的權(quán)限可對(duì)學(xué)生信息進(jìn)行添加、刪除、修改等操作；3、可對(duì)學(xué)生的信息進(jìn)行各種查詢；4、可對(duì)學(xué)生信息等進(jìn)行報(bào)表打印和統(tǒng)計(jì)功能；技術(shù)條件：powerbuilde

2、r開(kāi)發(fā)工具的熟練運(yùn)用，數(shù)據(jù)庫(kù)理論知識(shí)和實(shí)際操作能力。要求：1、本課程設(shè)計(jì)要求學(xué)生獨(dú)立設(shè)計(jì)完成。包括規(guī)劃后臺(tái)數(shù)據(jù)庫(kù)、程序代碼的編寫以及軟件界面的設(shè)計(jì)。3、數(shù)據(jù)庫(kù)中不能少于兩個(gè)表。4、程序應(yīng)功能完善，界面友好，容錯(cuò)性好，操作方便。時(shí)間進(jìn)度安排系統(tǒng)分析與規(guī)劃 半周系統(tǒng)設(shè)計(jì)與調(diào)試 一周撰寫課程設(shè)計(jì)說(shuō)明書 半周主要參考文獻(xiàn)鄭阿奇PowerBuilder實(shí)用教程第2版北京：電子工業(yè)出版社，2004孫秋冬主編PowerBuilder 應(yīng)用開(kāi)發(fā)實(shí)用教程第1版北京：高等教育出版社，2005費(fèi)雅潔主編PowerBuilder程序設(shè)計(jì)教程第1版北京：人民郵電出版社，20061. 創(chuàng)建進(jìn)入窗口按鈕“進(jìn)入”下的代碼op

3、en(w_login)close(w_main)2. 創(chuàng)建登錄窗口按鈕“登陸”下的代碼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 i1 thenmessagebox(對(duì)不起,該用戶不存在！)sle_1.text = sle_2.text = sle_1.setfocus()returnend ifselect passwordinto :pwd_d

4、bfrom glywhere id = :uid_lrusing sqlca;if pwd_db pwd_lr thenmessagebox(對(duì)不起,密碼錯(cuò)誤！)sle_2.text = sle_2.setfocus()returnend ifopen(w_manage)close(w_login)3. 創(chuàng)建進(jìn)出口貨窗口4. 創(chuàng)建商品信息窗口按鈕“上一條”下的代碼int kkkk=dw_1.getrow()if kk=1 then messagebox(提示信息,已到達(dá)第一條!)else dw_1.scrollpriorrow()end if按鈕“下一條”下的代碼if dw_1.getrow(

5、) = dw_1.rowcount() thenmessagebox(提示,已經(jīng)是最后一條！)elsedw_1.scrollnextrow()end if按鈕“第一條”下的代碼dw_1.scrolltorow(1)按鈕“最后一條”下的代碼int kkkk=dw_1.rowcount()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.scrollto

6、row(i)dw_1.setfocus()按鈕“更新”下的代碼int kk,countdw_1.accepttext()count=dw_1.modifiedcount()+dw_1.deletedcount()if count0 thenif dw_1.update()=1 then commit using sqlca; messagebox(提示信息, 已保存+string(count)+條數(shù)據(jù)!)elserollback using sqlca; messagebox(提示信息,數(shù)據(jù)更新失敗!)end ifend if按鈕“刪除”下的代碼int kkkk=messagebox(提示信息

7、,確定要?jiǎng)h除該數(shù)據(jù)嗎?,exclamation!,yesno!)if kk=1 then dw_1.deleterow(0) dw_1.update()end if5. 創(chuàng)建供應(yīng)商信息窗口按鈕“上一頁(yè)”下的代碼dw_1.scrollpriorrow()按鈕“下一頁(yè)”下的代碼if dw_1.getrow() = dw_1.rowcount() thenmessagebox(提示,已經(jīng)是最后一條！)elsedw_1.scrollnextrow()end if按鈕“保存”下的代碼long rtnint i_counti_count = dw_1.modifiedcount()+dw_1.delete

8、dcount()if i_count 0 then IF dw_1.update() = 1 THEN COMMIT USING SQLCA; messagebox(提示,您已經(jīng)成功保存+string(i_count)+條數(shù)據(jù)！) ELSE ROLLBACK USING SQLCA; messagebox(提示,保存失??！) END IFend if按鈕“添加”下的代碼int ii = dw_1.insertrow(0)dw_1.scrolltorow(i)dw_1.setfocus()按鈕“刪除”下的代碼int ii = messagebox(提示,你真的要?jiǎng)h除該條記錄嗎？,question

9、!,yesno!,1)if i=1 thendw_1.deleterow(0)end if6. 創(chuàng)建查詢窗口按鈕“查詢”下的代碼string kkkk = sle_1.textdw_1.settransobject(sqlca)dw_1.retrieve(kk)創(chuàng)建增減刪除記錄窗口查找下的代碼string uid_seekuid_seek = sle_1.textselect id,passwordinto :sle_1.text,:sle_2.textfrom glywhere id= :uid_seekusing sqlca;if sqlca.sqlcode = 100 thenmessa

10、gebox(對(duì)不起,該用戶不存在！)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(pwd_lr) = then messagebox(對(duì)不起,請(qǐng)輸入用戶名和密碼！)returnend ifselect count(*)into :i from glywhere id = :uid_lrusing sqlca;if i=1 thenmessageb

11、ox(對(duì)不起,該用戶已經(jīng)存在！)sle_1.setfocus()returnend ifinsert into gly(id,password)values(:uid_lr,:pwd_lr)using sqlca;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.te

12、xtnet = MessageBox(刪除,是否真的要?jiǎng)h除+uid_del+?,Exclamation!,OKCancel!,2)if net = 2 thenreturnend ifselect count(*)into :ifrom glywhere id = :uid_delusing sqlca;if i1 thenmessagebox(刪除失敗,該用戶不存在！)sle_1.setfocus()returnend ifdelete from glywhere id = :uid_delusing sqlca;if sqlca.sqlcode 0 thenmessagebox(數(shù)據(jù)庫(kù)錯(cuò)誤,刪除失??！)rollback;elsemessagebox(刪除成功,uid_del + 用戶的信息已經(jīng)被刪除！)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.taborder)sle_2.taborder = 20if trim(uid_lr) = or trim(pwd_lr) = then messagebox(對(duì)不起,請(qǐng)輸入用戶名和密碼！)return