【正文】 輸入完檢查結(jié)果無誤后，點擊“提交按鈕”，將輸入的信息提交，如果你的輸入信息有錯誤，系統(tǒng)會提示你，你的輸入錯誤，如果提交成功系統(tǒng)彈出一個對話框來提示用戶“你的數(shù)據(jù)提交成功了”，否則，會提示“數(shù)據(jù)提交失敗”。然后，在入庫單明細表中添加各個部件的數(shù)量，其中，部件的金額是自動算出來的。 1)入庫窗口的外觀如下： 第五章 系統(tǒng)的實現(xiàn) 44 2)如何操作本窗口 對于庫存管理的操作，我主要介紹入庫單的操作：在添加完入庫單后，單擊右上拐角的“下一行”按鈕，將會彈出如上圖所顯示上面的窗口，該窗口的主要功能是為了操作的方便，添加詳細信息的。 //————————————————————————————————— //向銷售檔案表中 寫數(shù)據(jù) INSERT INTO xsdd_da ( dddh, xdrq, jhrq, khmc, bmmc, jsr, slhj, jehj, ysje, zdr, bz ) VALUES ( :is_dddh, :is_xdrq, :is_jhrq, :is_khmc, :is_bmmc, 第五章 系統(tǒng)的實現(xiàn) 43 :is_jsr, :is_shuliang, :is_jine, :is_ysje, :is_czy, :is_bz ) 。 if =1 then messagebox(統(tǒng)計錯誤 ,string()+:+) else ll_djh= DO if ll_djh then is_shuliang=is_shuliang+long(ll_sl) is_jine=is_jine+long(ll_je) end if 第五章 系統(tǒng)的實現(xiàn) 42 FETCH xsdda INTO :ll_sl,:ll_je,:ll_djh。 //判斷是否數(shù)據(jù)提交成功 //****************************** if 0 then messagebox(失敗 ,數(shù)據(jù)提交失敗 +) end if //向銷售訂單明晰表中寫數(shù)據(jù) () //判斷是否數(shù)據(jù)提交成功 if 0 then 第五章 系統(tǒng)的實現(xiàn) 41 messagebox(失敗 ,數(shù)據(jù)提交失敗 +) end if //————————————————————————————————— //統(tǒng)計數(shù)據(jù) //統(tǒng)計變量 long is_shuliang,is_jine string ll_djh,ll_je,ll_sl //初始化變量 is_shuliang=0 is_jine=0 DECLARE xsdda CURSOR FOR SELECT , , FROM xsdd_mx WHERE = :is_dddh 。 loop while =0 end if if is_index9 then if is_index=1 then =XD+string(today(),yymmdd)+00+string(is_index+2) else =XD+string(today(),yymmdd)+00+string(is_index+1) end if else if is_index=9 and is_index99 then 第五章 系統(tǒng)的實現(xiàn) 39 =XD+string(today(),yymmdd)+0+string(is_index+1) else =XD+string(today(),yymmdd)+string(is_index+1) end if end if //關(guān)閉游標 close xsdd。 is_index=1 //打開游標 OPEN xsdd 。如果是你的數(shù)據(jù)提交成功了，會彈出一個對你剛才填寫信息的窗口，如果你檢查 無誤，點擊“打印”，將會打印銷售訂單報表。用戶不需要輸入，在此，用戶輸入的只有部件的數(shù)量。在該窗口中，你可以通過輸入部件的編號來直接的搜索出你要添加的部件，你也可以通過選擇部件類別來首先對表 中的數(shù)據(jù)進行過濾，然后，通過點擊選中，在點擊“下一行”將選種的信息添加到銷售訂單明細表中，點擊“返回”關(guān)閉該窗口。) () =is_bh end choose 銷售管理的實現(xiàn) 同 樣，我只是那出其中的一個做為實例進行介紹它的操作方法和它的具體實現(xiàn)代碼，其它的如：銷售單，銷售收款單，銷售扣款單等由于篇幅的限制和在操作上類同的，所以在此不做介紹了。) () sp_flag=is_bh =sp_flag case 4 //shangpin 第五章 系統(tǒng)的實現(xiàn) 36 flag=4 is_bh=right(,8) (spbh LIKE 39。) () dl_flag=is_bh =dl_flag case 3 //xiao lei flag=3 is_bh=right(,4) (spbh LIKE 39。) li_number=() =7 =8 =false for j=1 to li_number =[j]+ :+. dlbh[j]+[j]+[j] =[j] insertitemsort(handle,itvi_number) next end choose //樹型控件的 selectionchanged 事件代碼： TreeViewItem ltvi_Item string is_dl,is_xl,is_sp,is_bh 第五章 系統(tǒng)的實現(xiàn) 35 (sqlca) (False) (newhandle, ltvi_item) (True) del_flag=(currenttreeitem!,0) choose case case 1 flag=1 dl_flag= sp_flag= () case 2 //da lei flag=2 is_bh=right(,2) (spbh LIKE 39。 and xlbh = 39。) li_small=() =5 第五章 系統(tǒng)的實現(xiàn) 34 =6 =true for i=1 to li_small =[i]+ :+[i]+ids_small [i] =[i]+[i] insertitemsort(handle,itvi_small) next case 3 flag=3 is_dl=left(,2) is_xl=mid(,3,2) ( dlbh = 39。 實現(xiàn)的部分代碼如下： //樹型控件的 itempopulate 代碼： integer li_small,li_number,i,j treeviewitem itvi_clicked,itvi_small,itvi_number string is_dl,is_xl (False) if getitem(handle,itvi_clicked)=1 then return (True) choose case case 1 flag=1 case 2 flag=2 (dlbh = 39。對著三類的添加方法是一樣的，都是選擇要添加的那個類，然后，右鍵鼠標，在彈出菜單中選擇“添加”，將會彈出對應(yīng)窗口，添加詳細的信息后，提交即可。 最后，我介紹的是如何進行部件的添加。 其次，我要介紹的是給窗口的一個隱含的功能。 如何進行系統(tǒng)的部件 進行添加呢？在此我分三個問題進行闡述： 第五章 系統(tǒng)的實現(xiàn) 33 首先，我介紹的是系統(tǒng)部件添加的窗口的組成部分。我主要以添加部件為例進行分析，其余的在此不做討論，它們相對于本模塊而言在整個系統(tǒng)中，顯得稍次要一點，而且，它們的實現(xiàn)方式和操作和添加部件是類似的。,Secure=1 第五章 系統(tǒng)的實現(xiàn) 32 connect。 5． 單擊工具欄中“保存”按鈕，將窗口保存為“ w_main” 為工程編寫事件驅(qū)動代碼 1. 系統(tǒng)應(yīng)用的 open代碼主要是為了數(shù)據(jù)庫的連接和打開系統(tǒng)初始顯示的窗口，其具體的代碼如下： // Profile misdatabase = MSS Microsoft SQL Server = misdatabase = = xcf = False = AppName=39。單擊“ File”菜單，選擇下拉菜單中的“ New” 項 ,在彈出的窗口中單擊 PB Object 選項卡中的 Window 圖標，單擊 OK 按鈕。單擊“ File”菜單，選擇下拉菜單中的“ New” 項 ,在彈出的窗口中單擊 Target 選項卡中的 Application 圖標，單擊 OK 按鈕在彈出的Specify New Application and Library 對話框的 Application Name 文本框中輸入“ bysj”，單擊 Finish 按鈕。啟動 PB，單擊“ File”菜單，選擇下拉菜單中的“ New”項，再彈出的窗口中單擊 WorkSpace 選項卡中 WorkSpace 圖標，單擊 OK 按鈕，再彈出的 New WorkSpace 對話框中輸入“ bysj”，單擊“保存”按鈕。實現(xiàn)目的一樣，但是使用快捷欄更直觀，更簡潔明了、更便于操作。但是，它的外觀是我模擬 QICQ 的操作界面制作的。但是我所設(shè)計的快捷欄將會克服上述的所有缺點，我把系統(tǒng)的所有主要功能都放在了快捷欄里面，在系統(tǒng)的主窗口打開的時候，快捷欄也將會隨之打開的，這樣為系統(tǒng)的操作員又提供了一種選擇操作的方法。 對軟件的注冊次數(shù)進行編輯，如果已經(jīng)注冊，則對使用的次數(shù)不在進行限制，否則，對使用的次數(shù)要減一。 主窗口設(shè)計 快捷欄中的操作進行權(quán)限設(shè)置。 菜單標題和菜單項 的名稱設(shè)計應(yīng)當簡明扼要，具有概括和直觀性； 采用加速鍵和快捷鍵，起到加速和沒有鼠標只用鍵盤也能操作菜單的雙重效果； 如果某菜單項將打開一個對話框，則在該菜單項的標題中要使用省略號進行提示； 某一菜單項或整個菜單標題下菜單項不能使用或禁止使用時，應(yīng)該當使其變灰； 級聯(lián)菜單的層數(shù)不宜太多，菜單欄以及下拉菜單不要超過屏幕范圍，否則無法操作； 采用狀態(tài)欄對菜單的使用提供幫助和提示信息，對菜單項的功能進行詳細的 29 說明。我在菜單的設(shè)計中，參考了以下的設(shè)計原則： 菜單的整體要有統(tǒng)籌規(guī)劃，使其劃分合理，條理清晰，簡明直觀，方便易用。 open(w_main) close(w_login) is_czy=ll_yhm end if string qq int i SELECT INTO :qq FROM secret WHERE = :is_czy 。 // string is_mkm,is_jb,is_sjsj,is_kssj,is_jssj is_mkm=登錄 is_sjsj=string(today(),yyyymmdd hh:mm:ss) ll_sjsj=is_sjsj is_kssj=string(now(),hh:mm:ss) is_jssj=string(now(),hh:mm:ss) SELECT INTO :is_jb FROM secret WHERE = :ll_yhm 。 //判斷查找的結(jié) 果 if ll_yhmname and ll_mimamima and ll_zwzw then ii_entertimes=ii_entertimes+1