【文章內(nèi)容簡介】 dz1=(gysbhtotal,5) =string(dz1) yzbm1=(gysbhtotal,6) =string(yzbm1) dh1=(gysbhtotal,7) =string(dh1) cz1=(gysbhtotal,8) =string(cz1) lxr1=(gysbhtotal,9) =string(lxr1) lxrdh1=(gysbhtotal,10) =string(lxrdh1) khyh1=(gysbhtotal,11) =string(khyh1) 本科畢業(yè) 自行車配件銷售管理系統(tǒng) 24 yhzh1=(gysbhtotal,12) =string(yhzh1) nsrdj1=(gysbhtotal,13) =string(nsrdj1) yxwz1=(gysbhtotal,14) =string(yxwz1) else end if =true =false 日常業(yè)務處理窗口的設計： 用戶單擊主菜單 [日常業(yè)務 ][入庫登記 ]子菜單，進入“入庫登記”界面。用戶單擊 登記 按鈕，光標將移到 供應商全稱 下拉組合框上。用戶如實填入 供應商全稱 。經(jīng)手人、操作員、產(chǎn)品編號或零件號操作方法同上。當用戶選擇 產(chǎn)品編號 或 零件號 后將自動填入對應產(chǎn)品的基本信息，光標跳到 進價 輸入框內(nèi)。用戶可以根據(jù)需要調(diào)整 進價 、 批發(fā)價 、 零售價 。在 數(shù)量 輸入框內(nèi)輸入入庫數(shù)量按按保存按鈕以后，系統(tǒng)將自動 計算金額。以上數(shù)據(jù)將存入臨時表中，光標跳到產(chǎn)品編號上繼續(xù)登記。所要入庫的產(chǎn)品全部登記完畢 ,單擊 保存 按鈕入庫登記操作完成。單擊 取消 按鈕，取消此次入庫登記操作。用戶單擊 退出 按鈕，返回到系統(tǒng)的主菜單。注： 1. 入庫票號 /入庫日期是系統(tǒng)自動生成的，不需要用戶輸入。 2. 用戶選擇 產(chǎn)品編號 將給出對應的 零件號 ；選擇 零件號 將給出對應的 產(chǎn)品編號 。 本科畢業(yè) 自行車配件銷售管理系統(tǒng) 25 圖 出庫登記窗口 (sqlca) string sql,cuckph cuckph= sql=select khqc,jsr,czy,ckph,ckrq,jsfs,cpbh,ljh,cpmc,cx,cd,dw,hw,dj,sl,je from ckth_tab where ckph=39。+cuckph+39。 (sql) () =true =true =true =true =true =true =true =true () =false =true 本科畢業(yè) 自行車配件銷售管理系統(tǒng) 26 int ckph,row,a select count(*) into :ckph from ckth_tab。 a=ckph+1 int ckph4 declare cursor7 cursor for select ckph from ckth_tab。 open cursor7。 fetch cursor7 into :ckph4。 do while =0 if ckph4=a then a=a+1 end if fetch cursor7 into :ckph4。 loop close cursor7。 =string(a) string khqc declare cursor1 cursor for select distinct khqc from khxx_tab。 open cursor1。 () fetch cursor1 into :khqc。 do while =0 (khqc) fetch cursor1 into :khqc。 loop close cursor1。 string ygxm declare cursor2 cursor for select distinct ygxm from ygxx_tab。 open cursor2。 () fetch cursor2 into :ygxm。 本科畢業(yè) 自行車配件銷售管理系統(tǒng) 27 do while =0 (ygxm) fetch cursor2 into :ygxm。 loop close cursor2。 string cpbh string cpbh1 declare cursor3 cursor for select distinct cpbh from spxx_tab。 open cursor3。 () fetch cursor3 into :cpbh。 cpbh1=string(cpbh) do while =0 (cpbh1) fetch cursor3 into :cpbh。 cpbh1=string(cpbh) loop close cursor3。 string ljh declare cursor4 cursor for select distinct ljh from spxx_tab。 open cursor4。 () fetch cursor4 into :ljh。 do while =0 (ljh) fetch cursor4 into :ljh。 loop close cursor4。 string czy declare cursor5 cursor for select distinct czy from czy_tab。 本科畢業(yè) 自行車配件銷售管理系統(tǒng) 28 open cursor5。 () fetch cursor5 into :czy。 do while =0 (czy) fetch cursor5 into :czy。 loop close cursor5。 = = = = = = = = 圖 入庫登記窗口 本科畢業(yè) 自行車配件銷售管理系統(tǒng) 29 圖 出庫退貨窗口 圖 入庫退貨窗口 =string(today()) string gysqc declare cursor1 cursor for select distinct gysqc from gysxx_tab。 本科畢業(yè) 自行車配件銷售管理系統(tǒng) 30 open cursor1。 fetch cursor1 into :gysqc。 do while =0 (gysqc) fetch cursor1 into :gysqc。 loop close cursor1。 string ygxm declare cursor2 cursor for select distinct ygxm from ygxx_tab。 open cursor2。 fetch cursor2 into :ygxm。 do while =0 (ygxm) fetch cursor2 into :ygxm。 loop close cursor2。 string cpbh string cpbh1 declare cursor3 cursor for select distinct cpbh from spxx_tab。 open cursor3。 fetch cursor3 into :cpbh。 cpbh1=string(cpbh) do while =0 (cpbh1) fetch cursor3 into :cpbh。 cpbh1=string(cpbh) loop close cursor3。 string ljh declare cursor4 cursor for select distinct ljh from spxx_tab。 本科畢業(yè) 自行車配件銷售管理系統(tǒng) 31 open cursor4。 fetch cursor4 into :ljh。 do while =0 (ljh) fetch cursor4 into :ljh。 loop close cursor4。 string czy declare cursor5 cursor for select distinct czy from czy_tab。 open cursor5。 fetch cursor5 into :czy。 do while =0 (czy) fetch cursor5 into :czy。 loop close cursor5。 =false =false =false =false =false =false =false =false =false =false =false =false =false =false 本科畢業(yè) 自行車配件銷售管理系統(tǒng) 32 =false =false =false =false =false (sqlca)。 ()。 =false 庫存管理窗口的設計 1. 用戶單擊主菜單 [庫存管理 ][庫存查詢 ]子菜單，進入“庫存查詢”界面。 2. 用戶單擊組合框后的下拉箭頭，選擇是按什么條件進行查詢：產(chǎn)品編號、零件號、產(chǎn)品名稱、產(chǎn)地、貨位；用戶單擊下一個組合框后的下拉箭頭，可以選擇按什么方式進行查詢： =、 、 。 3. 用戶輸入具體的查詢內(nèi)容 ,單擊“查詢”按鈕或直接按“回車鍵即可。 4. 用戶單擊“庫存基本信息”頁框可以以文本框的形式瀏覽庫存信息；單擊“庫存列表”頁框可以以列表的形式瀏覽庫存信息。5. 用戶單擊 第一個 、 上一個 、 下一個 、 最后一個 按鈕查看多條信息。6. 用戶單擊 退出 按鈕，返回到系統(tǒng)的主菜單。 圖 庫存查詢窗口 本科畢業(yè) 自行車配件銷售管理系統(tǒng) 33 圖 庫存盤點窗口 (sqlca)。 (integer(sl)0) filter(dw_1) ()。 int row row=() if row=0 then messagebox(,數(shù)據(jù)庫為空 !) else end if 查詢統(tǒng)計窗口的設計 1. 用戶單擊主菜單 [查詢統(tǒng)計 ][入庫查詢 ]子菜單，進入“入庫查詢”界面。 2. 按選擇的查詢條件進行查詢：用戶單擊“請選擇查詢條件”前的小方框，此功能變?yōu)橛行?，單擊組合框后的下拉箭頭，選擇是按什么條件進行查詢：入庫票號、產(chǎn)品編號、零件號、產(chǎn)品名稱、產(chǎn)地、貨位；用戶單擊下一個組合框后的下拉箭頭，可以選擇按什么方式進行查詢： =、 、 ，用戶輸入具體的查詢內(nèi)容。3. 按日期查詢：用戶單擊“按日期查詢”前的小方框，此功能變?yōu)橛行?，用戶輸入起始日期和結(jié)束日期即可 4. 用戶單擊“查詢”按鈕即可 按指定的條件進行本科畢業(yè) 自行車配件銷售管理系統(tǒng) 34 查詢，如果“請選擇查詢條件”和“按日期查詢”都變?yōu)橛行?，則按兩個條件進行查詢。 5. 用戶單擊“入庫登記信息”頁框可以以文本框的形式瀏覽入庫登記信息；單擊“入庫列表”頁框可以以列表的形式瀏覽入庫登記信息。 6. 用戶單擊 第一個 、 上一個 、 下一個 、 最后一個 按鈕查看多條信息。 7. 用戶單擊 退出 按鈕，返回到系統(tǒng)的主菜單。 圖 出庫登記查詢窗口 if =true and =true then string cpbh44,ljh44,cpmc44,ckph44,cd44,hw44,fh44,nr44 fh44=trim() nr44=trim() select cpbh,ljh,cpmc,ckph,cd,hw into :cpbh44,:ljh44,:cpmc44,:ckph44,:cd44,:hw44 from ckdj_tab。 if cpbh44 or ljh44 or cpmc44 or ckph44 or cd44 or hw44 then string lookforcondition1 string lookforitem2 string lookforhow2 string lookforwhat2 本科畢業(yè) 自行車配件銷售管理系統(tǒng) 35 lookforhow2= if =產(chǎn)品編號 then lookforitem2=cpbh lookforwhat2=39。++39。 elseif =零件號 then lookforitem2=ljh lookforwhat2=39。++39。 elseif =產(chǎn)品名稱 then lookforitem2=cpmc lookforwhat2=39。++39。 elseif =出庫票號 then lookforitem2=ckph lookforwhat2=39。++39。 elseif =產(chǎn)地