【導(dǎo)讀】據(jù)我所知，除了文中特別加以標(biāo)注和致謝的地方外，設(shè)計(jì)。與我一同工作的同志對(duì)本研究所做的任何貢獻(xiàn)均已在論。文中作了明確的說(shuō)明并表示謝意。

　　

【正文】 l bc b _ n e w c b _ c l o s ec b _ s a v e c b _ d e l e t e c b _ f i n d 重慶理工大學(xué)畢業(yè)設(shè)計(jì)（論文） 小型超市現(xiàn)金收款管理系統(tǒng)分析與設(shè)計(jì) 28 窗口控件說(shuō)明 控件類(lèi)型 控件名 控件名稱(chēng) 說(shuō)明 命令按鈕 cb_new 新增 新增商品類(lèi)別信息 命令按鈕 cb_save 保存 保存商品類(lèi)別信息 命令按鈕 cb_delete 刪除 刪除商品類(lèi)別信息 命令按鈕 cb_find 刷新 刷新商品類(lèi)別信息 命令按鈕 cb_close 退出 退出當(dāng)前 窗口 數(shù)據(jù)窗口 dw_splb 商品類(lèi)別窗口 數(shù) 據(jù)對(duì)象 dw_base_type 事件 腳本 w_base_type: Open! (sqlca) () If g_user_id 39。00139。 then = false = false = false end if cb_new:Clicked! (0) cb_save:Clicked! long ll_row string ls_type_id,ls_type_name () ll_row =() ls_type_id=(ll_row,39。type_id39。) ls_type_name=(ll_row,39。type_name39。) if isnull(ls_type_id) or ls_type_id = 39。 39。 then messagebox(39。提示 39。,39。類(lèi)別代碼 不能為空 !39。) return end if if isnull(ls_type_name) or ls_type_name = 39。 39。 then messagebox(39。提示 39。,39。類(lèi)別名稱(chēng)不能為空 !39。) return end if if () = 1 then mit。 messagebox(39。提示 39。,39。保存成功 !39。) else rollback。 重慶理工大學(xué)畢業(yè)設(shè)計(jì)（論文） 小型超市現(xiàn)金收款管理系統(tǒng)分析與設(shè)計(jì) 29 messagebox(39。提示 39。,39。保存失敗 !39。) return end if cb_delete:Clicked! long ll_row string ls_type_id ll_row = () ls_type_id=(ll_row,39。type_id39。) if ll_row 1 then messagebox(39。提示 39。,39。請(qǐng)先選擇要?jiǎng)h除的記錄 !39。) return end if if messagebox(提示 ,確定要?jiǎng)h除 類(lèi)別代碼 為 [+ls_type_id+] 的這條記錄嗎？ , question!, okcancel!, 1) = 2 then return (ll_row) messagebox(39。提示 39。,39。請(qǐng)保存 !39。) cb_find:Clicked! () cb_close:Clicked! close(parent) 7． 商品基本信息維護(hù)窗口 w_base_sp， 如表 67 所示。 表 67 w_base_sp窗口 的設(shè)計(jì)說(shuō)明 項(xiàng) 目 說(shuō) 明 窗口名 w_base_sp 所在的 PBL 庫(kù) 主要 功能 商品基本信息維護(hù)主界面 界面設(shè)計(jì) c b _ c l o s ed w _ s pc b _ p r i n tc b _ f i n dc b _ c xc b _ n e w 重慶理工大學(xué)畢業(yè)設(shè)計(jì)（論文） 小型超市現(xiàn)金收款管理系統(tǒng)分析與設(shè)計(jì) 30 窗口控件說(shuō)明 控件類(lèi)型 控件名 控件名稱(chēng) 說(shuō)明 命令按鈕 cb_new 新增 打開(kāi)商品新增窗口 命令按鈕 cb_cx 查詢(xún) 打開(kāi)商品查詢(xún)窗口 命令按鈕 cb_find 刷新 刷新商品基本信息 命令按鈕 cb_close 退出 退出當(dāng)前窗口 數(shù)據(jù)窗口 dw_sp 商品信息主窗口 數(shù)據(jù)對(duì)象為 dw_base_sp 事件 腳本 w_base_sp:Open! string newsort newsort=39。sp_code39。 (sqlca) () (newsort) () if g_user_id 39。00139。 then = false end if cb_new:Clicked! open(w_base_sp_zj) cb_cx:Clicked! open(w_base_sp_cx) cb_find:Clicked! () cb_print:Clicked! () cb_close:Clicked! close(parent) 8． 商品新增窗口 w_base_sp_zj，如表 68 所示。 表 68 w_base_sp_zj 窗 口的設(shè)計(jì)說(shuō)明 項(xiàng) 目 說(shuō) 明 窗口名 w_base_sp_zj 所在的 PBL 庫(kù) 主要 功能 新增商品信息 重慶理工大學(xué)畢業(yè)設(shè)計(jì)（論文） 小型超市現(xiàn)金收款管理系統(tǒng)分析與設(shè)計(jì) 31 界面設(shè)計(jì) d w _ s p _ z jc b _ c l o s ec b _ s a v ec b _ n e w 窗口控件說(shuō)明 控件類(lèi)型 控件名 控件名稱(chēng) 說(shuō)明 命令按鈕 cb_new 新增 新增商品信息 命令按鈕 cb_save 保存 保存商品信息 命令按鈕 cb_close 退出 退出當(dāng)前窗口 數(shù)據(jù)窗口 dw_sp_zj 增加商品信息 數(shù)據(jù)對(duì)象為 dw_base_zj 事件 腳本 w_base_sp_zj: Open! (sqlca) (0) if g_user_id 39。00139。 then = false = false end if cb_new:Clicked! () (0) cb_save:Clicked! string ls_sp_code,ls_sp_name,ls_sp_txm dec d_sp_price long ll_count () ls_sp_code=(1,39。sp_code39。) ls_sp_name=(1,39。sp_name39。) 重慶理工大學(xué)畢業(yè)設(shè)計(jì)（論文） 小型超市現(xiàn)金收款管理系統(tǒng)分析與設(shè)計(jì) 32 ls_sp_txm=(1,39。sp_txm39。) d_sp_price=(1,39。sp_price39。) if isnull(ls_sp_code) or ls_sp_code= 39。 39。 then messagebox(39。提示 39。,39。商品代碼不能為空 !39。) return end if select count(*) into :ll_count from sp_xx where sp_code=:ls_sp_code。 If ll_count=1 then messagebox(39。提示 39。,39。商品代碼有重復(fù)，請(qǐng)重新輸入 !39。) return end if if isnull(ls_sp_name) or ls_sp_name= 39。 39。 then messagebox(39。提示 39。,39。商品名稱(chēng)不能為空 !39。) return end if select count(*) into :ll_count from sp_xx where sp_name=:ls_sp_name。 If ll_count=1 then messagebox(39。提示 39。,39。商品名稱(chēng)有重復(fù)，請(qǐng)重新輸入 !39。) return end if if isnull(ls_sp_txm) or ls_sp_txm= 39。 39。 then messagebox(39。提示 39。,39。商品條形碼不能為空 !39。) return end if select count(*) into :ll_count from sp_xx where sp_txm=:ls_sp_txm。 If ll_count=1 then messagebox(39。提示 39。,39。商品條形碼有重復(fù)，請(qǐng)重新輸入 !39。) return end if if isnull(d_sp_price) then messagebox(39。提示 39。,39。商品單價(jià)不能為空 !39。) return end if If () = 1 then mit。 messagebox(39。提示 39。,39。保存成功 !39。) else rollback。 messagebox(39。提示 39。,39。保存失敗 !39。) return end if cb_close:Clicked! close(parent) 重慶理工大學(xué)畢業(yè)設(shè)計(jì)（論文） 小型超市現(xiàn)金收款管理系統(tǒng)分析與設(shè)計(jì) 33 9． 商 品查詢(xún)窗口 w_base_sp_cx，如 表 69 所示。 表 69 w_base_sp_cx 窗口的設(shè)計(jì)說(shuō)明 項(xiàng) 目 說(shuō) 明 窗口名 w_base_sp_cx 所在的 PBL 庫(kù) 主要 功能 查詢(xún)、 修改、 刪除商品信息 界面設(shè)計(jì) c b _ c l o s ed w _ s p m c c b _ q kc b _ d e l e t ec b _ s a v ec b _ c xd w _ s p 窗口控件說(shuō)明 控件類(lèi)型 控件名 控件名稱(chēng) 說(shuō)明 命令按鈕 cb_cx 查詢(xún) 查詢(xún)商品信息 命令按鈕 cb_save 保存 保存 商品信息 命令按鈕 cb_delete 刪除 刪除商品信息 命令按鈕 cb_qk 清空 清空數(shù)據(jù)窗口 命令按鈕 cb_close 退出 退出當(dāng)前窗口 數(shù)據(jù)窗口 dw_sp 商品信息明細(xì) 數(shù)據(jù)對(duì)象為 dw_base_sp_cx 數(shù)據(jù)窗口 dw_spmc 商品名稱(chēng) 數(shù)據(jù)對(duì)象 為 dw_count_sp_name 重慶理工大學(xué)畢業(yè)設(shè)計(jì)（論文） 小型超市現(xiàn)金收款管理系統(tǒng)分析與設(shè)計(jì) 34 事件 腳本 w_base_sp_cx: Open! (sqlca) (sqlca) (0) (0) if g_user_id 39。00139。 then = false = false end if cb_cx:Clicked! string ls_sp_name ls_sp_name= (1,39。sp_name39。) if isnull(ls_sp_name) then messagebox(39。提示 39。,39。請(qǐng)選擇商品名稱(chēng) !39。) return end if (ls_sp_name) cb_save:Clicked! If () = 1 then mit。 messagebox(39。提示 39。,39。保存成功 !39。) else rollback。 messagebox(39。提示 39。,39。保存失敗 !39。) return end if cb_delete:Clicked! string ls_code ls_code = (1,sp_code) If ls_code=39。 39。 or isnull(ls_code) then messagebox(39。提示 39。,39。請(qǐng)先選擇要?jiǎng)h除的記錄 !39。) return end if If messagebox(39。 提示 39。, 確 定 刪 除 代碼為 [+ls_code+] 的商品 ?,question!,okcancel!,1) = 2 then return (1) () (0) (0) messagebox(39。提示 39。,39。請(qǐng)保存！ 39。) cb_qk:Clicked! () (0) () (0) cb_close:Clicked! close(parent) 重慶理工大學(xué)畢業(yè)設(shè)計(jì)（論文） 小型超市現(xiàn)金收款管理系統(tǒng)分析與設(shè)計(jì) 35 10． 前臺(tái)收款管理窗口 w_xjsk_sk，如表 610所示。 表 610 w_xjsk_sk 窗口的設(shè)計(jì)說(shuō)明 項(xiàng) 目 說(shuō) 明 窗口名 w_xjsk_sk 所在的 PBL 庫(kù) 主要 功能 前臺(tái)收款管理 實(shí)例變量 聲 明 變量 名稱(chēng) 類(lèi)型 說(shuō)明 is_sql string 數(shù)