【正文】 m CURSOR FOR SELECT FROM bmlbb 。 //使用搜查記錄 if =1 then messagebox(sql 錯誤 ,提取數(shù)據(jù)錯誤！ ) else zw= do if zw then //取消相同的內(nèi)容 is_index=(zw,0) if is_index1 then (is_index) end if //添加內(nèi)容 (zw) end if FETCH mmm INTO :zw。 //ddlb_zw for losefocus string shuming,ll_name,zw zw=trim() reset(ddlb_1) DECLARE newname CURSOR FOR SELECT FROM secret WHERE = :zw 。 if =1 then messagebox(錯誤 ,string()+:+) else ll_name= DO if ll_name then shuming=string( ll_name) (shuming) 24 end if FETCH newname INTO :ll_name。 3. 有了職務(wù)，有了用戶，下面是對輸入情況的判斷和對用戶的權(quán)限設(shè)置，其具體的代碼： //cb_ok for click //變量的定義 string ll_yhm,ll_mima,ll_zw,name,mima,zw,dlshijian ll_zw=trim() ll_yhm=trim() ll_mima=trim() //有效性檢查 if = or isnull() then MessageBox(缺少數(shù)據(jù) , 請選擇您的職務(wù)！ ) () return elseif = or isnull() then 25 MessageBox(缺少數(shù)據(jù) , 請選擇您的用戶名！ ) () return elseif = or isnull() then MessageBox(缺少數(shù)據(jù) , 請輸入輸入您的口令！ ) () return end if //查找數(shù)據(jù) SELECT , , INTO :name, :mima , :zw FROM secret WHERE ( = :ll_yhm ) AND ( = :ll_mima ) AND ( = :ll_zw ) 。 INSERT INTO rizhi ( czy, sjsj, czkssj, czmk, 27 czjssj, xjsj, dljb ) VALUES ( :ll_yhm, :is_sjsj, :is_kssj, :is_mkm, :is_jssj, null, :is_jb ) 。 //權(quán)限的設(shè)置 i=wf_opclass(qq) 4. 登陸窗口的外觀如下： 28 主窗口的菜單設(shè)計 主窗口的設(shè)計主要是為了將所有的操作集中在一起，以便于集中的操作，因此，對主窗口而言，它的菜單顯的尤為重要，對于我的系 統(tǒng)而言，我把所有大部分功能全部集中在菜單中了，所有系統(tǒng)的功能都是通過點擊菜單項目來實現(xiàn)的 ,這樣，最突出的兩大優(yōu)點是：一是節(jié)省屏幕的顯示空間，幾十上百的功能選擇集合到菜單里只占一行的空間；二是對系統(tǒng)功能的分門別類，菜單可以一級一級地展開，形成樹形結(jié)構(gòu)，條理清晰，查找快捷?；咀鞯侥軌蚋鶕?jù)前級菜單項，知道下級菜單包含的范圍；根據(jù)用戶的功能要求，知道應(yīng)該從哪一個菜單標(biāo)題以及菜單項去操作。 主窗口的菜單設(shè)計如下： 其它的菜單，如右鍵菜單、系統(tǒng)日志的菜單等的設(shè)計思想和主窗口的菜單設(shè)計思想 是一致的，它們的目的也是為了便于操作或是集中操作。在登錄的時候設(shè)置的權(quán)限是對主窗口的菜單的權(quán)限設(shè)置，但是由于菜單的操作不是十分的便捷，因此，我采用了快捷欄，對于它的操作，由于操作員的不同，也要進(jìn)行權(quán)限的設(shè)置。 快捷欄的設(shè)計 雖然，對系統(tǒng)的操作通過菜單可以實現(xiàn)，并且完成強(qiáng)大的功能，但是，操作仍然不是最簡潔的，最快捷的，因為菜單的有些項目是不通過點擊是 看不到的， 30 而且有些功能的界限并不是十分明確，因此，試圖從窗口的菜單名稱來判斷到底它放在那個菜單級下面是很難的，只有通過逐個的點擊去查找，這樣會給操作帶來很大的麻煩，而且，會浪費很多的寶貴時間。同時，在快捷欄的打開的同時，也對它里面的某些功能設(shè)置了權(quán)限，有些項目如果操作員的權(quán)限不到位的話是不能操作的。如何判斷操作員自己的權(quán)限是否可以操作呢？我在設(shè)計的時候為這種問題，提出了一種很隱蔽的方法，那就是看鼠標(biāo)放在上面的圖標(biāo)，如果是手形的則是有權(quán)限的，如果是一個箭頭的符號則是沒有權(quán)限的了。快捷欄的外觀和在主窗口中的位置如下圖左側(cè)顯示： 第五章 系統(tǒng)的實現(xiàn) 31 第五章 系統(tǒng)的實現(xiàn) 建立程序的基本框架 1． 建立工作區(qū)。 2． 建立應(yīng)用。 3． 建立窗口。 4． 建立窗口，單擊“ File”菜單，選擇下拉菜單中的“ New”項，在彈出窗口中單擊 PB Object 選項卡中的 圖標(biāo)，單擊 OK。myapp39。 if 0 then messagebox(錯誤 ,數(shù)據(jù)庫連接錯誤！ ) else open(w_splash) end if 2. 在系統(tǒng)的 systemerror 事件中是否有腳本代碼的區(qū)別如下： a) 沒有腳本時：應(yīng)用程序運行發(fā)生嚴(yán)重的錯誤時候，會顯示一個帶有PowerBuilder 錯誤號信息的消息框，并終止程序的運行，這樣可能給系統(tǒng)的操作帶來很大不利性，也有可能是操作員的非法操作，或者是某些功能出現(xiàn)錯誤，不管是什么原因，一旦有問題，就將系統(tǒng)強(qiáng)制的關(guān)閉是不好的； b) 有腳本時候：會執(zhí)行腳本，不會顯示系統(tǒng)的錯誤號，也不會強(qiáng)制的關(guān)閉系統(tǒng)，這樣給系統(tǒng)的操作帶來很大的好處，因此，應(yīng)該給系統(tǒng)附加系統(tǒng)錯誤的消息，其具體代碼如下，系統(tǒng)錯誤時候會執(zhí)行這段代碼： messagebox(警告 ,程序執(zhí)行了非法的操作！請注意！ ) 基本管理的實現(xiàn) 基本管理的實現(xiàn)包括添加倉庫、客戶管理、添加部門、添加員工等和添加部件。 添加部件功能簡述： 部件的添加是本系統(tǒng)中最核心的地方，因為在后面的操作中將會用到這里面的東西，即后面的操作將都是在這個的基礎(chǔ)上進(jìn)行的，它得添加成功與否直接關(guān)系到系統(tǒng)的運行的成敗。我所設(shè)計的本窗口是有兩個部分組成的，在左邊是一個樹型控件，在右邊是一個數(shù)據(jù)窗口。如果你對本窗口操作過，你就會發(fā)現(xiàn)隨著你的鼠標(biāo)的點擊，在右邊的數(shù)據(jù)窗口中就會出現(xiàn)顯示對應(yīng)的信息，這樣，可以便于對具體信息的瀏覽，便于正確的輸入信息。對部件的添加分為三個類別：一個是大類的添加，也即是對部件類別的添加，另一個小類的添加，對部件的類別再一次進(jìn)行劃分；最后 一個是對具體部件的添加。如果你要對某個信息，進(jìn)行“刪除”，操作是一樣的，也是選中要刪除的項目，右鍵點擊“刪除”即可。+ + 39。 + is_dl + 39。 + is_xl + 39。+is_bh+%39。+is_bh+%39。+is_bh+%39。 銷售訂單的窗口外觀如下： 1)如何操作本窗口 對于銷售管理的操作，我主要介紹銷售訂單明細(xì)表的操作：在添加完銷售訂單后，單擊右上拐角的“下一行”按鈕，將會彈出如上圖所顯示上面的窗口，第五章 系統(tǒng)的實現(xiàn) 37 該窗口的主要功能是為了操作的方便，添加詳細(xì)信息的。然后，在銷售訂單明細(xì)表中添加各個部件的數(shù)量，其中，部件的金額是自動算出來的。輸入完檢查結(jié)果無誤后，點擊“提交按鈕”，將輸入的信息提交，如果你的輸入信息有錯誤，系統(tǒng)會提示你，你的輸入錯誤，如果提交成功系統(tǒng)彈出一個對話框來提示用戶“你的數(shù)據(jù)提交成功了”，否則，會提示“數(shù)據(jù)提交失敗”。 該功能實現(xiàn)的部分代碼如下： //銷售訂單單號的生成： (0) //*********************************************** //添加銷售訂單號 string is_sp long is_index //定義游標(biāo) DECLARE xsdd CURSOR FOR SELECT FROM xsdd 。 //使用搜查記錄 if 0 then 第五章 系統(tǒng)的實現(xiàn) 38 messagebox(錯誤 ,提取數(shù)據(jù)錯誤！ ) else is_sp= do if is_sp then if mid(is_sp,3,6)=string(today(),yymmdd) then if long(right(is_sp,3))is_index then is_index=long(right(is_sp,3)) end if else is_index=1 end if end if FETCH xsdd INTO :is_sp。 =string(today(),yyyymmdd) //數(shù)據(jù)的提交功能實現(xiàn)代碼： //定義的數(shù)據(jù)存儲變量 string is_dddh,is_jhrq,is_khmc,is_xdrq,is_bmmc,is_jsr,is_bz long is_ysje //變量賦質(zhì) is_dddh=trim() is_xdrq=trim() is_ysje=long(trim()) is_jsr=trim() is_bz=trim() is_jhrq=trim() is_khmc=trim() is_bmmc=trim() //向銷售訂單表中寫數(shù)據(jù) //******************************* INSERT INTO xsdd 第五章 系統(tǒng)的實現(xiàn) 40 ( dddh, xdrq, jhrq, khmc, bmmc, jsr, ysje, bz ) VALUES ( :is_dddh, :is_xdrq, :is_jhrq, :is_khmc, :is_bmmc, :is_jsr, :is_ysje, :is_bz ) 。 open xsdda 。 LOOP while =0 if =1 then messagebox(統(tǒng)計錯誤 ,string()+:+) end if end if close xsdda。 //判斷是否數(shù)據(jù)提交成功 if 0 then messagebox(失敗 ,數(shù)據(jù)提交失敗 +) else messagebox(成功 ,數(shù)據(jù)提交成功?。?) end if //對數(shù)據(jù)的刷新 (sqlca) () //打印銷售訂單 open(w_a_xd) 倉庫管理的實現(xiàn) 本模塊的實現(xiàn)我以添加入庫單做為例子進(jìn)行分析，出庫單，轉(zhuǎn)庫單，盤點單，調(diào)撥單的操作和實現(xiàn)代碼是類似的，在此我不做介紹了。在該窗口中，你可以通過輸入部件的編號來直接的搜索出你要添加的部件，你也可以通過選擇部件類別來首先對表中的數(shù)據(jù)進(jìn)行過濾，然后，通過點擊選中，在點 擊“下一行”將選種的信息添加到入庫單明細(xì)表中，點擊“返回”關(guān)閉該窗口。用戶不需要輸入，在此，用戶輸入的只有部件的數(shù)量。 3)該功能實現(xiàn)的部分代碼如下： //提交按鈕的代碼： //提交入庫單 ************************************************ 第五章 系統(tǒng)的實現(xiàn) 45 string is_jcdh,is_lb,is_dydh,is_rq,is_ckbh,is_bmmc,is_jsr