【導讀】重慶理工大學畢業(yè)論文（設計）。二級學院應用技術學院。本人聲明所呈交的畢業(yè)論文是本人在導師指導下進行的。我所知，除了文中特別加以標注和致謝的地方外，論文中不包含。其他人已經發(fā)表或撰寫過的研究成果，也不包含為獲得重慶理工。大學或其他教育機構的學位或證書而使用過的材料。作的同志對本研究所做的任何貢獻均已在論文中作了明確的說

　　

【正文】 名稱 說明 命令按鈕 cb_ok 確定 登錄系統(tǒng) 命令按鈕 cb_close 退出 退出登錄窗口 單行編輯框 sle_oper_code 輸入操作員編號 st_oper_code st_password st_date sle_oper_code sle_password em_date cb_ok cb_close W_log 重慶理工大學畢業(yè)論文（設計） （ 千葉信息管理系統(tǒng) —— 批發(fā)銷售管理 ） 27 單行編輯框 sle_password 輸入操作員密碼 靜態(tài)文本框 st_oper_code 操作員編號 靜態(tài)文本框 st_password 操作員密碼 事件 腳本 w_log open！ integer r_count =string(today(),39。yyyymmdd39。) //當系統(tǒng)中無操作員時，默認添加一個名稱為 “管理員 ”的操作員，便于啟動系統(tǒng) select count(*) into :r_count from c_operator。 if r_count=0 then insert into c_operator( oper_code, oper_name,password, dept_code,power) values(39。139。, 39。管理員 39。, 39。139。, 39。39。, 39。超級用戶 39。)。 end if cb_ok clicked! string r_pass integer r_count //用戶合法性判斷 g_oper_code= r_pass= select count(*) into :r_count from c_operator where oper_code=:g_oper_code and password=:r_pass 。 if r_count0 then g_date=date() open(w_jxc) //進入進銷存管理系統(tǒng) close(parent) else messagebox(39。提示 39。,39。輸入錯誤，請重新輸入！ 39。) end if cb_close clicked! close(parent) 批發(fā)單窗口 w_sheet_insert_pf 的設計說明 項 目 說明 窗口名 w_sheet_insert_pf 所在的PBL 庫 功能 實現(xiàn)批發(fā)單的輸 入 重慶理工大學畢業(yè)論文（設計） （ 千葉信息管理系統(tǒng) —— 批發(fā)銷售管理 ） 28 界 面 設 計 窗口控件說明 控件類型 控件名 控件名稱 說明 命令按鈕 cb_insert H增加明細 增加銷售信息 命令按鈕 cb_delete S刪除明細 刪除銷售信息 命令按鈕 cb_reset F復位明細 恢復未輸入前的信息 命令按鈕 cb_updat B保存 保存單據信息 命令按鈕 cb_close T退出 退出單據系統(tǒng) 數(shù)據窗口 dw_main 輸入新增主項數(shù)據 數(shù)據窗口 dw_item 顯示 新增明細項數(shù)據 dw_main dw_item cb_insert cb_delete cb_reset cb_update cb_close 重慶理工大學畢業(yè)論文（設計） （ 千葉信息管理系統(tǒng) —— 批發(fā)銷售管理 ） 29 事件 腳本 w_sheet_insert_pf open! i_type= choose case i_type case 39。sheet_cg_main39。 //采購單 =39。dw_sheet_cg_main_free39。 =39。dw_sheet_cg_item_grid39。 i_title=39。采購單 39。 case 39。sheet_xs_main39。 //銷售單 =39。dw_sheet_xs_main_free39。 =39。dw_sheet_xs_item_grid39。 i_title=39。銷售單 39。 case 39。sheet_bs_main39。 //報損單 =39。dw_sheet_bs_main_free39。 =39。dw_sheet_bs_item_grid39。 i_title=39。報損單 39。 case 39。sheet_pf_main39。 //批發(fā)單 =39。dw_sheet_pf_main_free39。 =39。dw_sheet_pf_item_grid39。 i_title=39。批發(fā)單 39。 case 39。sheet_jm_main39。 //加盟銷售單 =39。dw_sheet_jm_main_free39。 =39。dw_sheet_jmxs_item_grid39。 i_title=39。加盟銷售單 39。 end choose (sqlca) (sqlca) =i_title+39。輸入 39。 //控制不能修改的列 (39。flag_jz39。, 0) //記賬標記 (39。man_jz39。, 0) //記賬人 //新增單據 (clicked!) //將 “新單據 ”按鈕隱藏 =false cb_insertclicked! integer r_row r_row=(0) (r_row) (0,false) (r_row,true) (r_row,39。sheetid39。,i_sheetid) //明細項單據號 (r_row,39。itemno39。,r_row) //明細項序號 (r_row,39。amount39。,0) //數(shù)量 (r_row,39。price39。,0) //單價 重慶理工大學畢業(yè)論文（設計） （ 千葉信息管理系統(tǒng) —— 批發(fā)銷售管理 ） 30 (r_row,39。mone39。,0) //金額 choose case i_type case 39。sheet_xs_main39。 (r_row,39。discount39。,1) //只有銷售單設置了折扣列 case 39。sheet_pf_main39。 (r_row,39。discount39。,1) //只有批發(fā)單設置了折扣列 end choose //聚焦商品編碼列 () ( 39。goods_code39。) cb_delete clicked! //刪除當前行 integer r_yesno,r_row r_row=() //當前行 if not r_row0 then return r_yesno=messagebox(39。 提示 39。,39。 是 否 真 要 刪 除 第 【 39。+string(r_row)+39。 】行？39。,exclamation!,yesno!,2) if r_yesno=2 then return (r_row) wf_itemno() //明細項序號處理 wf_mone() //主項中的金額處理 cb_reset clicked! () wf_mone() //主項中的金額處理 cb_updateclicked! integer r_yesno,r_1,r_2,r_row,r_rowcount string r_sheetid () () if not(()0 or ()0 amp。 or ()0 or ()0) then return//判斷數(shù)據窗口中的數(shù)據是否被更改或刪除 r_yesno = MessageBox(提示 , 是否真的保存？ , Exclamation!, yesno!, 2) if r_yesno = 2 then return r_rowcount=() //明細項單據號處理 r_sheetid=(1,39。sheetid39。) for r_row=1 to r_rowcount (r_row,39。sheetid39。,r_sheetid) next wf_itemno() //明細項序號處理 wf_mone() //主項中的金額處理 //更新 r_2=() r_1= () 重慶理工大學畢業(yè)論文（設計） （ 千葉信息管理系統(tǒng) —— 批發(fā)銷售管理 ） 31 if r_10 and r_20 then messagebox(39。提示 39。,39。保存成功！ 39。) (clicked!) else messagebox(39。提示 39。,39。保存失??！ 39。) return end if cb_close clicked close(parent) cb_8 clicked close(parent) dw_main itemchanged string r_colname,r_sheetid integer r_row () r_row=() if not r_row0 then return r_colname=() choose case r_colname case 39。sheetid39。 //判斷單據號是否可用 r_sheetid=(r_row,39。sheetid39。 ) if gf_sheetid_check(i_type,r_sheetid) then messagebox(39。提示 39。,39。單據號【 39。+r_sheetid+39?！恳呀浭褂?，建議使用單據號【 39。+i_sheetid+39?！?39。) (r_row,39。sheetid39。,i_sheetid ) return 1 end if case else return end choose dw_item clicked if row0 then (0) (0,false) (row,true) end if 、批發(fā)收款單查詢窗口 w_sheet_retrieve_pf 的設計說明 項目 說明 窗口名 w_sheet_retrieve_pf 所在 PBL 庫 功能 實現(xiàn)批發(fā) 單據，批發(fā)收款單據的查詢功能 重慶理工大學畢業(yè)論文（設計） （ 千葉信息管理系統(tǒng) —— 批發(fā)銷售管理 ） 32 界 面 設 計 窗口控件說明 控件類型 控件名 控件名稱 說明 數(shù)據窗口 dw_table 顯示單據信息 命令按鈕 cb_retrieve C查詢 查詢單據信息 命令按鈕 cb_reset F復位 刪除所顯示的數(shù)據 命令按鈕 cb_close T退出 退出操作員查詢窗口 cb_retrieve cb_reset cb_close sle_count dw_table em_mone_max em_mone_min dw_oper_code em_date_min em_date_max sle_sheetid_max sle_sheetid_min 重慶理工大學畢業(yè)論文（設計） （ 千葉信息管理系統(tǒng) —— 批發(fā)銷售管理 ） 33 單行編輯框 sle_sheetid_min 輸入單據號范圍最小值 單行編輯框 sle_sheetid_max 輸入單據號范圍最大值 格式編輯框 em_date_min 系統(tǒng)日期最小值 格式編輯框 em_date_max 系統(tǒng)日期最大值 數(shù)據窗口 dw_oper_code 選擇制單人 格式編輯框 em_mone_min 單據金額范圍最小值 格式編輯框 em_mone_max 單據金額范圍最大值 事件 腳本