【正文】 ret=messagebox(提示,確定保存嗎？,question!,yesno!,2)if ret=1 thenMessagebox(保存,保存成功!)else if ret=2 then return end ifend if==41 / 41。//添加客戶節(jié)目信息string client_program,client_name_2,client_grade,ls_program,ls_nameint ret,client_countif =or isnull()then messagebox(提示,請(qǐng)輸入節(jié)目名!) () returnend ifclient_program=trim()client_name_2=trim()client_count=integer(trim())client_grade=trim()//檢驗(yàn)有沒有重復(fù)select into :ls_name,:ls_programfrom 客戶節(jié)目表where =:client_name_2 and =:client_program。 do while =0 (ls_client) (ls_client) fetch thing_cursor into :ls_client。 () ()//打開游標(biāo)open thing_cursor。if str_name then messagebox(提示,重名，請(qǐng)重新輸入！) () returnend ifclient_telephone1=trim()client_telephone2=trim() client_connector=trim()client_address=trim()client_memo=trim()//向數(shù)據(jù)庫寫入數(shù)據(jù)insert into 客戶表(client,telephone1,telephone2,connector,address,date1,memo)values(:client_name,:client_telephone1,:client_telephone2,:client_connector,:client_address,:client_date,:client_memo)。 loop//關(guān)閉游標(biāo) close thing_cursor。//賦值給下拉列表框 fetch thing_cursor into :ls_client。 Messagebox(刪除,刪除成功!) = () = () =false =false =falseelse if ret=2 then return end ifend if客戶訂購信息查詢代碼：//聲請(qǐng)變量 string ls_client string str_client//聲明游標(biāo) declare thing_cursor cursor for SELECT FROM 客戶表。 Messagebox(修改,修改成功!) = ()else rollback using sqlca。 Messagebox(提示,添加成功！) () (0)//添加 ()else rollback using sqlca。附 錄。第四章“系統(tǒng)的編輯與發(fā)行”是本文的重點(diǎn)展示了系統(tǒng)的運(yùn)行效果。第三章“系統(tǒng)設(shè)計(jì)”論述了概要設(shè)計(jì)的方法?？梢娦枨蠓治龅闹匾?。通過對(duì)系統(tǒng)組織機(jī)構(gòu)的分析，業(yè)務(wù)流程和數(shù)據(jù)流程的分析，相應(yīng)畫出了組織機(jī)構(gòu)圖，系統(tǒng)業(yè)務(wù)流程圖和數(shù)據(jù)流程圖。MIS 的管理對(duì)象往往是某一領(lǐng)域中大量的信息，這就要求開發(fā)人員首先必須充分調(diào)研，仔細(xì)了解用戶工作的方方面面，熟悉用戶的工作領(lǐng)域，并通過與用戶的交流，分析用戶提出的各種要求，結(jié)合系統(tǒng)開發(fā)的可行性，剔除掉用戶的不可實(shí)現(xiàn)的需求，最后確定系統(tǒng)應(yīng)向用戶提供的功能，并以這些需求為約束來規(guī)劃應(yīng)用程序的開發(fā)。MIS 之所以能夠得到廣泛的應(yīng)用，主要是由于其對(duì)復(fù)雜信息強(qiáng)大的管理功能，能夠輔助用戶管理實(shí)時(shí)數(shù)據(jù)或歷史數(shù)據(jù)，甚至可以產(chǎn)生新數(shù)據(jù)，或從大量的數(shù)據(jù)中做出統(tǒng)計(jì)，也可以根據(jù)用戶的需求做各種類型的查詢，大大方便了用戶的管理工作。 第一章“緒論”介紹了管理信息系統(tǒng)的發(fā)展與應(yīng)用，管理信息系統(tǒng)的特點(diǎn)及管理信息系統(tǒng)的開發(fā)方法與開發(fā)過程?？蛻粜畔⒐芾淼囊话阈畔⒉樵?、訂購信息瀏覽，客戶訂購查詢按物品查詢、按節(jié)目查詢客戶的信息以及客戶數(shù)據(jù)的錄入，但由于設(shè)計(jì)經(jīng)驗(yàn)較少，所以該系統(tǒng)還有許多不盡人意之處，如：用戶界面不夠美觀，功能設(shè)計(jì)不夠完善，人機(jī)交互不夠便敏等，這些都有待進(jìn)一步改善。 畢業(yè)設(shè)計(jì)小結(jié)經(jīng)過半年的設(shè)計(jì)和開發(fā)，一個(gè)完整的企業(yè)信息管理系統(tǒng)已創(chuàng)建完畢了?！?】 王珊、薩師煊，《數(shù)據(jù)庫系統(tǒng)概論》，高等教育出版社，1990年?！?】 薛華誠，《 管理信息系統(tǒng)》，清華大學(xué)出版社，1993年。這對(duì)于我以后的工作和學(xué)習(xí)都是一種莫大的幫助，非常感謝老師。老師無論在理論上還是在實(shí)踐中都給了我很大的幫助，使我的綜合技能有了很大的提高。致 謝在本次畢業(yè)設(shè)計(jì)中，我的導(dǎo)師是老師，我從老師身上學(xué)到了很多東西。 通過上面測試的可執(zhí)行文件，就可以進(jìn)行發(fā)布了。2. 將編譯好的文件拷貝到PowerBuilder庫文件放置的路徑下。編譯通過后。單擊該窗口上的“Stop”按鈕終止編譯過程。在指定完畢，單擊“Finish”按鈕，生成一個(gè)工程對(duì)象。單擊其上的“next”按鈕，在對(duì)話框中，指定庫文件名。選擇“ApplicationWizard”圖標(biāo)。單擊工具條的“new”圖標(biāo)，打開“new”對(duì)話框。本系統(tǒng)是一個(gè)數(shù)據(jù)庫應(yīng)用系統(tǒng)，需要涉及到涉及數(shù)據(jù)庫環(huán)境配置等問題。這涉及到工程對(duì)象的創(chuàng)建、可執(zhí)行應(yīng)用程序的生成以及發(fā)布環(huán)境的配置等多方面的問題。如圖所示：圖47客戶數(shù)據(jù)錄入窗口完成了企業(yè)管理信息系統(tǒng)的編程和調(diào)試工作，最后一步就是該系統(tǒng)的編譯和發(fā)行。如圖所示：圖45客戶信息管理窗口在主窗口中，選中“客戶訂購信息查詢”進(jìn)入客戶訂購信息查詢窗口，按不同的要求進(jìn)行查詢，選擇“按物品查詢”分頁，輸入物品，單擊“查詢”按鈕，定購本物品的客戶顯示在數(shù)據(jù)窗口中。如圖所示：圖43物品管理主窗口在主窗口中，選中“節(jié)目管理”進(jìn)入節(jié)目管理窗口，選擇“添加”分頁，在數(shù)據(jù)窗口中按要求輸入信息后，按“確定”按鈕用來保存。選中“查詢”頁，在文本框中輸入物品名稱，單擊“查詢”按鈕，相關(guān)的信息顯示在數(shù)據(jù)窗口中。圖41系統(tǒng)登錄窗口輸入正確的用戶名和口令，按“確定”按鈕后進(jìn)入程序的主界面，在菜單或在工具欄中選中“物品管理”進(jìn)入 物品管理窗口。至此已經(jīng)完成企業(yè)管理系統(tǒng)程序的編制。應(yīng)用程序中窗口上的數(shù)據(jù)窗口控件可以連接和使用這個(gè)創(chuàng)建好的數(shù)據(jù)窗口對(duì)象。在數(shù)據(jù)庫表中各個(gè)列的列名使用英文表示的在列標(biāo)題顯示的時(shí)候我們將它們?cè)O(shè)置為中文。單擊其上的“Finish”按鈕。單擊“next”按鈕，“Ready to Create Grid Datawindow”對(duì)話框。單擊要選中的多個(gè)列，單擊“ok”按鈕，出現(xiàn)“Select Color and Border setting”對(duì)話框。在左上方的表格列表中雙擊要連接的表。 單擊“ok”按鈕啟動(dòng)數(shù)據(jù)窗口對(duì)象向?qū)АＦ渌臄?shù)據(jù)窗口對(duì)象由于方法相似，在這里不作詳細(xì)講述。在本應(yīng)用程序中，完全采用數(shù)據(jù)窗口來實(shí)現(xiàn)讀取數(shù)據(jù)庫中的數(shù)據(jù)、修改數(shù)據(jù)庫中的數(shù)據(jù)、排序等功能。 數(shù)據(jù)窗口的設(shè)計(jì) 數(shù)據(jù)窗口對(duì)象是PowerBuilder編程的精華所在，建立數(shù)據(jù)窗口對(duì)象是程序設(shè)計(jì)中極為重要的一個(gè)部分。5.“客戶管理”菜單下“物品管理”子菜單的clicked事件程序代碼：Open(w_query)其功能打開客戶信息窗口。3.“物品節(jié)目管理”菜單下“退出”子菜單的clicked事件程序代碼：Close(w_main)其功能關(guān)閉主窗口。 菜單設(shè)計(jì)：圖37菜單設(shè)計(jì)1.“物品節(jié)目管理”菜單下“物品管理”子菜單的clicked事件程序代碼：Open(w_thing)其功能打開物品窗口。在“按節(jié)目查詢”分頁中，實(shí)現(xiàn)添加客戶訂購的物品的信息。在“按物品查詢”分頁中，可以查到訂購的該物品的客戶信息。圖36客戶訂購信息查詢?cè)O(shè)計(jì)表38 客戶訂購信息查詢窗口各個(gè)控件的屬性設(shè)置表控件屬性屬性取值St_1text客戶訂購信息查詢Tabpage_1text按客戶查詢Tabpage_2text按物品查詢Tabpage_3text按節(jié)目查詢Cb_1text退出表39 按客戶查詢頁窗口各個(gè)控件的屬性設(shè)置表控件屬性屬性取值St_1text請(qǐng)輸入客戶名稱：ddlb_1text空Cb_1text查詢Gb_2text物品信息Gb_3text節(jié)目信息Dataobjectd_query1HScrollBar選中VScrollBar選中Dataobjectd_query2HScrollBar選中VScrollBar選中Gb_1text空在“按客戶信息查詢”分頁中，可以查到該客戶訂購的物品、節(jié)目的信息。在“客戶節(jié)目錄入”分頁中，實(shí)現(xiàn)添加客戶訂購的節(jié)目的信息。在“客戶物品錄入”分頁中，實(shí)現(xiàn)添加客戶訂購的物品的信息。表37 客戶數(shù)據(jù)錄入窗口各個(gè)控件屬性設(shè)置表控件屬性屬性取值St_1text客戶數(shù)據(jù)錄入Tabpage_1text客戶信息錄入Tabpage_2text客戶物品錄入Tabpage_3text客戶節(jié)目錄入Cb_1text退出在“客戶信息錄入”分頁中，實(shí)現(xiàn)添加客戶的的信息。在“修改與刪除”分頁中，實(shí)現(xiàn)該企業(yè)的各種各樣的物品修改與刪除。在“添加”分頁中，實(shí)現(xiàn)向該企業(yè)物品表中添加各種各樣的物品。在“查詢”分頁中，可以模糊查詢?cè)撈髽I(yè)的各種各樣的物品。圖34物品管理窗口設(shè)計(jì)表33 物品管理窗口各個(gè)控件的屬性設(shè)置表控件屬性屬性取值St_1text物品管理Tabpage_1text瀏覽Tabpage_2text查詢Tabpage_3text添加Tabpage_4text修改與刪除Cb_1text退出表34 查詢頁窗口各個(gè)控件的屬性設(shè)置表控件屬性屬性取值St_1text請(qǐng)輸入物品名稱：Sle_2text空Cb_1text查詢dw_1Dataobjectd_thing1Gb_1text空表35 添加頁窗口各個(gè)控件的屬性設(shè)置表控件屬性屬性取值St_1text請(qǐng)輸入信息，按確定……Cb_1text確定Cb_2text重置dw_