夏目動(dòng)漫周邊進(jìn)銷存管理系統(tǒng)方案

1、 . . . 課 程 設(shè) 計(jì)題目 夏目動(dòng)漫周邊進(jìn)銷存管理系統(tǒng) 目錄一、系統(tǒng)分析1 1、業(yè)務(wù)流程分析1 2、功能分析2二、可行性分析4三、數(shù)據(jù)庫設(shè)計(jì)4 1、數(shù)據(jù)字典設(shè)計(jì)4四、系統(tǒng)定義說明11五、系統(tǒng)窗口分析111、應(yīng)用對(duì)象、窗口設(shè)計(jì)說明11六、 系統(tǒng)運(yùn)行效果481、介紹482、 詳細(xì)介紹4953 / 54一、系統(tǒng)分析 1、業(yè)務(wù)流程分析進(jìn)銷存管理模塊，填寫采購訂單商品的基本信息會(huì)相應(yīng)出現(xiàn)，商品采購單可以選擇采購訂單，然后進(jìn)入庫存管理，入庫單可以選擇商品采購單并達(dá)到庫存表數(shù)量改變，填寫銷售訂單，商品銷售當(dāng)可以選擇銷售訂單，出庫單可以選擇商品銷售單并達(dá)到庫存表改變。然后填寫盤存表，可以選擇對(duì)應(yīng)的商品，

2、出現(xiàn)現(xiàn)在的庫存數(shù)量，填寫實(shí)際盤存數(shù)量出現(xiàn)盈虧數(shù)量，并達(dá)到庫存表改變。 2、功能分析 （1）登錄界面管理模塊：主要包括系統(tǒng)登錄功能。 （2）基礎(chǔ)數(shù)據(jù)資料模塊：主要包括職工信息管理、部門信息管理、供應(yīng)商信息管理、商品單位功能。 （3）庫存管理模塊：主要是時(shí)刻了解各種商品的庫存動(dòng)態(tài)信息，方便對(duì)商品的管理。有銷售單功能包括商品庫存信息的錄入、查詢。（4）采購管理模塊：主要是對(duì)商品的采購進(jìn)行管理。有采購單功能包括采購入庫、采購查詢功能。(5) 銷售管理模塊：主要是對(duì)商品的銷售進(jìn)行管理。有銷售單包括商品銷售、銷售單查詢功能 。(6) 報(bào)表分析管理模塊：主要包括庫存分析、采購報(bào)表、銷售報(bào)表、采購報(bào)表、盤存分

3、析。(7) 退出模塊：退出系統(tǒng)。二、可行性分析 可行。通過一學(xué)期的會(huì)計(jì)信息化會(huì)計(jì)軟件開發(fā)課程的學(xué)習(xí)與研究，我已經(jīng)具備了開發(fā)進(jìn)銷存系統(tǒng)的能力。同時(shí)在信息化技術(shù)下，一個(gè)信息化管理軟件是很有必要的。信息化管理為企業(yè)商品信息管理帶來革命式的改變，關(guān)系數(shù)據(jù)庫的應(yīng)用使得會(huì)計(jì)信息系統(tǒng)對(duì)數(shù)據(jù)的處理大為加強(qiáng)。財(cái)務(wù)人員在進(jìn)行帳務(wù)處理、分析檢查等工作時(shí)事半功倍、大大提升了工作效率。會(huì)計(jì)的信息化功能使得各種數(shù)據(jù)能夠清晰看見有助于監(jiān)督與核算，會(huì)計(jì)人員有更多的時(shí)間參企業(yè)管理活動(dòng)。最終通過一種先進(jìn)的管理模式使企業(yè)能夠高速運(yùn)轉(zhuǎn)，為企業(yè)帶來明顯的經(jīng)濟(jì)效益三、數(shù)據(jù)庫設(shè)計(jì) 1、數(shù)據(jù)字典設(shè)計(jì)1、 碼表：（1）碼表中文名稱：部門表表名

4、：c_dept關(guān)鍵字：c_dept_code備注：描述部門具體容中文名稱列名類型與長度空否說明部門編號(hào)dept_codeinteger否部門名稱dept_nameChar(10)是（2）碼表中文名稱：職員表表名：c_operator關(guān)鍵字：c_operator_code備注：確定系統(tǒng)所涉與的職員信息中文名稱列名類型與長度空 否說明職員編碼oper_codeChar(10)否職員名稱oper nameChar(50)是職員密碼passwordChar(10)是所屬部門dept_codeChar(10)是權(quán)限powerchar（10）是（3） 碼表中文名稱：稅率碼表（4） 表名：稅率碼表關(guān)鍵字：l

5、q_tax_code備注：確定系統(tǒng)所涉與的商品稅率中文名稱列名類型與長度空 否說明稅率號(hào)tax_codeinteger否稅率Tax_namedecimal是4（5） 碼表中文名稱：倉位碼表表名:：貨位碼表關(guān)鍵字：goods_warehouse_code備注：確定系統(tǒng)所涉與的商品倉位中文名稱列名類型與長度空 否說明倉位號(hào)goods_warehouse_codeint否倉位goods_warehouse_name是（6）碼表中文名稱：部門碼表表名：C_dept關(guān)鍵字：Dept_code備注：設(shè)定企業(yè)部的部門列名中文名稱類型與長度空 否說明Dept_code部門編碼char(10)否Dept_nam

6、e部門名稱char(50)是2、 基本信息表：（1）基本表中文名稱：操作員表表名：C_OPERATOR關(guān)鍵字：OPER_CODE備注：記錄系統(tǒng)的操作員信息，包括編碼、密碼、部門、權(quán)限等列名中文名稱類型與長度空否說明OPER_CODE操作員編碼char(10)否OPER_NAME操作員char(20)是PASSWORD密碼char(10)是設(shè)定操作員登錄系統(tǒng)的密碼，避免非法用戶進(jìn)入系統(tǒng)DEPT_CODE部門char(10)是操作員所屬部門POWER權(quán)限char(20)是操作員所具有的權(quán)限（2）基本表中文名稱：商品信息表表名：lq_goods關(guān)鍵字：goods_CODE備注：系統(tǒng)的所有商品信息中文

7、名稱列名類型與長度空 否說 明商品編號(hào)goods_codeChar(10)否商品名稱goods_nameChar(30)是商品類型goods_typeChar(10)是含稅單價(jià)tax_price decimal是計(jì)量單位unitChar(10)是材料goods_matChar(10)是顏色goods_colorChar(10)是動(dòng)漫人物Cartoon_manChar(10)是所屬動(dòng)漫CartoonChar(10)是品牌goods_brandChar(10)是設(shè)計(jì)師goods_desinerChar(10)是產(chǎn)地goods_areaChar(30)是公司地址goods_addrChar(30)是

8、圖片goods_picChar(100)是3、單據(jù)表：（1）單據(jù)表中文名稱：采購訂單表名：sheet_cg_dd 關(guān)鍵字：sheetid_cgdd ，sheetid 備注：采購單由主項(xiàng)與明細(xì)項(xiàng)組成中文名稱列名類型與長度 空 否說明單據(jù)號(hào)sheetid_cgdd integer否在新增采購單時(shí)，采購單據(jù)號(hào)由系統(tǒng)自動(dòng)生成序號(hào)sheetid integer是商品編碼goods_codeChar（10）是商品名稱goods_nameChar（10）是采購商品總金額日期sheetdate date是采購單的制單日期供應(yīng)商supp_codeChar（10）是部門編號(hào)dept_codeinteger 是采購

9、人員buyerChar（10）是計(jì)量單位unitChar（10）是數(shù)量goods_amountinteger是含稅單價(jià)tax_price dec是稅率taxratedec是含稅金額tax_monedec是制單makerChar（10）是默認(rèn)為登錄系統(tǒng)的操作員，不可修改審核auditerChar（10）是備注noteChar（10）是（2）單據(jù)表中文名稱：商品采購單表名：sheet_cg_d 關(guān)鍵字：sheetid_cgd，sheetid 備注：采購單由主項(xiàng)與明細(xì)項(xiàng)組成中文名稱列名類型與長度 空 否說明單據(jù)號(hào)sheetid_cgdinteger否在新增采購單時(shí)，采購單據(jù)號(hào)由系統(tǒng)自動(dòng)生成序號(hào)she

10、etid integer是商品編碼goods_codeChar（10）是商品名稱goods_nameChar（10）是日期sheetdatedate是貨位goods_warehoseChar（10）是采購訂單號(hào)sheetid_cgdd integer是計(jì)量單位unitChar（10）是數(shù)量goods_amountint是含稅單價(jià)tax_price dec是稅率taxratedec是含稅金額tax_monedec是部門編號(hào)dept_codeinteger是采購人員buyerChar（10）是制單makerChar（10）是審核auditerChar（10）是供應(yīng)商supplierChar（10）

11、對(duì)方負(fù)責(zé)人dutyChar（10）（3）單據(jù)表中文名稱：入庫單表名：goods_in關(guān)鍵字：sheetid_rk，sheetid備注：入庫單由主項(xiàng)與明細(xì)項(xiàng)組成中文名稱列名類型與長度 空 否說明單據(jù)號(hào)sheetid_rkint否在新增采購單時(shí)，采購單據(jù)號(hào)由系統(tǒng)自動(dòng)生成序號(hào)sheetidint是商品編號(hào)goods_codeChar（10）是商品名稱goods_nameChar（10）是入庫日期sheetdatedate是采購單據(jù)號(hào)sheetid_cgd Char（10）是填寫采購單據(jù)號(hào)自動(dòng)出現(xiàn)信息貨位goods_warehouseChar（10）是計(jì)量單位unitChar（10）是數(shù)量goods_

12、amountint是單價(jià)tax_price dec是金額tax_monedec是庫管員keeperChar（10）是制單makerChar（10）是審核auditerChar（10）是備注notesChar（10）是（3）單據(jù)表中文名稱：銷售訂單表名：sheet_xs_dd關(guān)鍵字：sheetid_xsdd ，sheetid 備注：入庫單由主項(xiàng)與明細(xì)項(xiàng)組成中文名稱列名類型與長度 空 否說明單據(jù)號(hào)sheetid_xsdd int否序號(hào)sheetid int是商品編碼goods_codeChar（10）是商品名稱goods_nameChar（10）是日期sheetdatedate是客戶custome

13、rChar（10）是部門編號(hào)dept_codeChar（10）是銷售人員salemanChar（10）是計(jì)量單位unitChar（10）是數(shù)量goods amountint是含稅單價(jià)tax_price dec是稅率taxratedec是含稅金額tax_monedec是制單makerChar（10）是審核auditerChar（10）是（4）單據(jù)表中文名稱：商品銷售表名：sheet_xs_d關(guān)鍵字：sheetid_xsd，sheetid 備注：銷售單由主項(xiàng)與明細(xì)項(xiàng)組成中文名稱列名類型與長度 空 否說明單據(jù)號(hào)sheetid_xsdChar（10）否序號(hào)sheetid int是商品編碼goods_c

14、odeChar（10）是商品名稱goods_nameChar（10）是日期sheetdatedate是銷售訂單號(hào)sheetid_xsdd int是貨位good_warehoseChar（10）是數(shù)量goods_amountint是含稅單價(jià)tax_price dec是稅率taxratedec是含稅金額tax_monedec是客戶customerChar（10）是銷售人員salemanChar（10）是制單makerChar（10）是審核auditerChar（10）是（5）單據(jù)表中文名稱：出庫單表名：goods_out關(guān)鍵字：sheetid_ck，sheetid備注：銷售單由主項(xiàng)與明細(xì)項(xiàng)組成中文

15、名稱列名類型與長度 空 否說明商品編號(hào)goods_codeChar（10）否商品名稱goods_nameChar（10）是出庫日期datedate是銷售單據(jù)號(hào)sheetid_xsd int是貨位good_warehoseChar（10）是計(jì)量單位unitChar（10）是數(shù)量goods_amountint是單價(jià)tax_price dec是金額tax_monedec是庫管員keeperChar（10）是制單makerChar（10）是審核auditerChar（10）是（6）單據(jù)表中文名稱：出庫單表名：goods_out關(guān)鍵字：sheetid_ck，sheetid備注：銷售單由主項(xiàng)與明細(xì)項(xiàng)組成中

16、文名稱列名類型與長度 空 否說明商品編號(hào)goods_codeChar（10）否商品名稱goods_nameChar（10）是出庫日期datedate是銷售單據(jù)號(hào)sheetid_xsd int是貨位good_warehoseChar（10）是計(jì)量單位unitChar（10）是數(shù)量goods_amountint是單價(jià)tax_price dec是金額tax_monedec是庫管員keeperChar（10）是制單makerChar（10）是審核auditerChar（10）是4、 賬表：（1）帳表中文名稱：庫存表表名：goods_amount關(guān)鍵字：goods_code列名中文名稱類型與長度空否說明

17、商品編號(hào)goods_codechar（13）否庫存amountint是（2） 帳表中文名稱：盤存表表名：table_goods_pc關(guān)鍵字：date_pc列名中文名稱類型與長度空否說明盤存日期date_pcdate否商品編號(hào)goods_codechar（13）是商品名稱goods_namechar（13）是賬面數(shù)量amount_zmint是實(shí)盤數(shù)量amount_spint是盈虧數(shù)量amount_ykint是制單人makerchar（13）是記賬標(biāo)記flag_jzchar（2）是記賬人man_jzchar（13）是備注notechar（13）是（4）帳表中文名稱：進(jìn)銷存數(shù)量報(bào)表表名：lq_rep

18、ort_amount關(guān)鍵字：lq_reportdate_sqs列名中文名稱類型與長度空否說明起始日期dqreportdate_qsdate否結(jié)束日期dqreportdate_jsdate是商品編碼goods_codechar（13）是期初庫存數(shù)量amount_qcint是采購數(shù)量amount_cgint是銷售數(shù)量amount_xsint是期末庫存賬面數(shù)量amount_qmint是盈虧數(shù)量amount_ykint是備注notechar（20）是（4）帳表中文名稱：采購數(shù)量匯總表表名：lq_cg_amount關(guān)鍵字：pro_date_start列名中文名稱類型與長度空否說明起始日期Amount_q

19、sdate否結(jié)束日期Amount_jsdate是商品編碼goods_codechar（13）是商品名稱goods_namechar（13）是采購數(shù)量amount_cginteger是（5）帳表中文名稱：銷售數(shù)量匯總表表名：lq_xs_amount關(guān)鍵字：Amount_qs列名中文名稱類型與長度空否說明起始日期Amount_qsdate否結(jié)束日期Amount_jsdate是商品編碼goods_codechar（13）是商品名稱goods_namechar（13）是銷售數(shù)量amount_xsinteger是四、系統(tǒng)定義說明 夏目的動(dòng)漫周邊進(jìn)銷存系統(tǒng)的研究的意義在于信息化的管理方式取代以前老舊的手工

20、處理，使進(jìn)銷存信息管理更加信息化、標(biāo)準(zhǔn)化、數(shù)字化，防止一切由于人為操作所造成的錯(cuò)誤。本系統(tǒng)是以合理、全面、準(zhǔn)確的動(dòng)漫周邊編碼體系為基礎(chǔ)，提供了對(duì)動(dòng)漫周邊數(shù)量、金額、功能、種類的全面管理。并實(shí)現(xiàn)采購、銷售、庫存以與相關(guān)報(bào)表的信息化查詢。五、系統(tǒng)窗口分析1、應(yīng)用對(duì)象、窗口設(shè)計(jì)說明表1 窗口w_lq登錄頁的設(shè)計(jì)說明項(xiàng) 目說 明窗口名w_lq登錄頁所在的PBL庫jinxiaocun.pbl功能登陸界面父窗口window界面設(shè)計(jì)窗口控件說明控件說明控件類型控件名控件顯示容說明日歷按鈕mc_1日期選擇登陸日期下拉框按鈕ddplb_1操作員選擇操作員文本按鈕St_4登陸打開主界面單行編輯框Sle_2輸入操作

21、員密碼圖片按鈕P_1背景圖片事件腳本st_4:Clicked!r_oper=ddplb_1.textstring r_id,r_password,r_id1r_id=ddplb_1.textr_password=sle_2.textselect oper_name into:r_id1 from c_operator where password=:r_password and oper_name=:r_id;if r_id=r_id1 thenopen (w_lq主頁)elsemessagebox('tips','密碼錯(cuò)誤請重新輸入！')sle_2.text=

22、''end if表2 窗口w_lq主頁的設(shè)計(jì)說明項(xiàng) 目說 明窗口名w_lq主頁所在的PBL庫jinxiaocun.pbl功能主頁父窗口window界面設(shè)計(jì)窗口控件說明控件類型控件名控件顯示容說明圖片按鈕pb_1采購訂單打開采購訂單圖片按鈕pb_7員工打開員工表圖片按鈕pb_8客戶打開客戶表圖片按鈕pb_11庫存表打開庫存表下拉框Ddplb_1碼表打開碼表頁簽Tabpage_1基本資料打開基本資料頁簽命令按鈕Cb_6新增新增數(shù)據(jù)圖片按鈕P_1背景事件腳本ddplb_1:Clicked! if ddplb_1.text="職員碼表" thendw_1.datao

23、bject="dw_c_oper_mb"dw_1.settransobject(sqlca)dw_1.retrieve()end if if ddplb_1.text="部門碼表" thendw_1.dataobject="dw_c_dept"dw_1.settransobject(sqlca)dw_1.retrieve()end if if ddplb_1.text="客戶碼表" thendw_1.dataobject="dw_c_cust_mb"dw_1.settransobject(sql

24、ca)dw_1.retrieve()end if if ddplb_1.text="供應(yīng)商碼表" thendw_1.dataobject="dw_gys_d"dw_1.settransobject(sqlca)dw_1.retrieve()end if if ddplb_1.text="計(jì)量單位碼表" thendw_1.dataobject="dw_c_jldw_mb"dw_1.settransobject(sqlca)dw_1.retrieve()end if if ddplb_1.text="稅率碼表

25、" thendw_1.dataobject="dw_taxrate_mb"dw_1.settransobject(sqlca)dw_1.retrieve()end if if ddplb_1.text="商品碼表" thendw_1.dataobject="dw_goods_code_mb"dw_1.settransobject(sqlca)dw_1.retrieve()end if if ddplb_1.text="貨位碼表" thendw_1.dataobject="dw_goods_war

26、ehouse_mb"dw_1.settransobject(sqlca)dw_1.retrieve()end ifpb_7:Clicked!open(w_lq部門職員)pb_8:Clicked!open(w_lq客戶)pb_14:Clicked!open (w_lq進(jìn)銷存數(shù)量報(bào)表)表3窗口w_lq_部門職員 的設(shè)計(jì)說明項(xiàng) 目說 明窗口名w_lq_部門職員 所在的PBL庫Jinxiaocun.pbl功能部門職員介紹父窗口window界面設(shè)計(jì)窗口控件說明控件類型控件名控件顯示容說明命令按鈕cb_1查詢查詢數(shù)據(jù)命令按鈕cb_2新增新增數(shù)據(jù)命令按鈕cb_3更新更新數(shù)據(jù)命令按鈕cb_4刪除刪除

27、數(shù)據(jù)命令按鈕cb_5復(fù)位數(shù)據(jù)復(fù)位數(shù)據(jù)窗口dw_1顯示數(shù)據(jù)事件腳本W(wǎng)_lq部門職員:Open! dw_1.settransobject(sqlca)dw_1.retrieve()Cb_1.clicked！dw_1.retrieve()Cb_2.clickeddw_1.insertrow(1)Cb_3.clickeddw_1.AcceptText()IF dw_1.ModifiedCount() + dw_1.DeletedCount() > 0 THENCHOOSE CASE MessageBox("操作提示","數(shù)據(jù)已經(jīng)發(fā)生變化,是否保存?",Qu

28、estion!,YesNoCancel!,1)CASE 1dw_1.update() MessageBox("操作提示","保存成功")CASE 2Return 0/不做任何操作直接關(guān)閉窗口CASE 3Return 1/不會(huì)運(yùn)行Close Event,維持原來的情況END CHOOSEEND IFCb_4.clickeddw_1.deleterow(0)Cb_5.clickeddw_1.reset()項(xiàng) 目說 明窗口名W-lq供應(yīng)商所在的PBL庫Jinxiaocun.pbl功能供應(yīng)商介紹父窗口window界面設(shè)計(jì)窗口控件說明控件類型控件名控件顯示容說明命

29、令按鈕cb_1查詢查詢數(shù)據(jù)命令按鈕cb_2新增新增數(shù)據(jù)命令按鈕cb_3更新更新數(shù)據(jù)命令按鈕cb_4刪除刪除數(shù)據(jù)命令按鈕cb_5復(fù)位數(shù)據(jù)復(fù)位數(shù)據(jù)窗口dw_1顯示數(shù)據(jù)文本框St_1供應(yīng)商表名事件腳本W(wǎng)_lq供應(yīng)商:Open! dw_1.settransobject(sqlca)dw_1.retrieve()Cb_1.clicked！dw_1.retrieve()Cb_2.clickeddw_1.insertrow(1)Cb_3.clickeddw_1.AcceptText()IF dw_1.ModifiedCount() + dw_1.DeletedCount() > 0 THENCHOOS

30、E CASE MessageBox("操作提示","數(shù)據(jù)已經(jīng)發(fā)生變化,是否保存?",Question!,YesNoCancel!,1)CASE 1dw_1.update() MessageBox("操作提示","保存成功")CASE 2Return 0/不做任何操作直接關(guān)閉窗口CASE 3Return 1/不會(huì)運(yùn)行Close Event,維持原來的情況END CHOOSEEND IFCb_4.clickeddw_1.deleterow(0)項(xiàng) 目說 明窗口名w_lq客戶所在的PBL庫Jinxiaocun.pbl功能

31、客戶介紹父窗口window界面設(shè)計(jì)窗口控件說明控件類型控件名控件顯示容說明命令按鈕cb_1查詢查詢數(shù)據(jù)命令按鈕cb_2新增新增數(shù)據(jù)命令按鈕cb_3更新更新數(shù)據(jù)命令按鈕cb_4刪除刪除數(shù)據(jù)命令按鈕cb_5復(fù)位數(shù)據(jù)復(fù)位數(shù)據(jù)窗口dw_1顯示數(shù)據(jù)文本框St_1客戶表名事件腳本w-lq客戶:Open! dw_1.settransobject(sqlca)dw_1.retrieve()Cb_1.clicked！dw_1.retrieve()Cb_2.clickeddw_1.insertrow(1)Cb_3.clickeddw_1.AcceptText()IF dw_1.ModifiedCount() +

32、dw_1.DeletedCount() > 0 THENCHOOSE CASE MessageBox("操作提示","數(shù)據(jù)已經(jīng)發(fā)生變化,是否保存?",Question!,YesNoCancel!,1)CASE 1dw_1.update() MessageBox("操作提示","保存成功")CASE 2Return 0/不做任何操作直接關(guān)閉窗口CASE 3Return 1/不會(huì)運(yùn)行Close Event,維持原來的情況END CHOOSEEND IFCb_4.clickeddw_1.deleterow(0)Cb

33、_5.clickeddw_1.reset()項(xiàng) 目說 明窗口名W-lq商品信息所在的PBL庫Jinxiaocun.pbl功能商品信息介紹父窗口window界面設(shè)計(jì)窗口控件說明控件類型控件名控件顯示容說明命令按鈕cb_1查詢查詢數(shù)據(jù)命令按鈕cb_2新增新增數(shù)據(jù)命令按鈕cb_3更新更新數(shù)據(jù)命令按鈕cb_4刪除刪除數(shù)據(jù)命令按鈕cb_5復(fù)位數(shù)據(jù)復(fù)位單行文本框Sle_splw輸入商品名稱文本框St_2篩選條件篩選條件數(shù)據(jù)窗口dw_1顯示數(shù)據(jù)數(shù)據(jù)窗口Dw_spxx顯示數(shù)據(jù)事件腳本w-lq商品信息:Open! dw_spxx.settransobject(sqlca)dw_1.settransobject(

34、sqlca)dw_1.sharedata(dw_spxx)Cb_1.clicked！dw_1.retrieve()Cb_2.clickeddw_1.insertrow(1)Cb_3.clickeddw_1.AcceptText()IF dw_1.ModifiedCount() + dw_1.DeletedCount() > 0 THENCHOOSE CASE MessageBox("操作提示","數(shù)據(jù)已經(jīng)發(fā)生變化,是否保存?",Question!,YesNoCancel!,1)CASE 1dw_1.update() MessageBox("

35、;操作提示","保存成功")CASE 2Return 0/不做任何操作直接關(guān)閉窗口CASE 3Return 1/不會(huì)運(yùn)行Close Event,維持原來的情況END CHOOSEEND IFCb_4.clickeddw_1.deleterow(0)St_2.clicked！string r_goods_name r_goods_name='%'+sle_splw.text+'%' dw_1.retrieve( r_goods_name)項(xiàng) 目說 明窗口名w_lq商品采購所在的PBL庫Jinxiaocun.pbl功能商品采購單父窗口w

36、indow界面設(shè)計(jì)窗口控件說明控件類型控件名控件顯示容說明命令按鈕cb_1查詢查詢數(shù)據(jù)命令按鈕cb_2新增新增數(shù)據(jù)命令按鈕cb_3更新更新數(shù)據(jù)命令按鈕cb_4刪除刪除數(shù)據(jù)命令按鈕cb_5復(fù)位數(shù)據(jù)復(fù)位命令按鈕cb_6全選全選數(shù)據(jù)命令按鈕cb_7取消全選取消數(shù)據(jù)全選數(shù)據(jù)窗口dw_1顯示數(shù)據(jù)數(shù)據(jù)窗口Dw_2顯示數(shù)據(jù)單行文本框Sle_1行數(shù)顯示行數(shù)事件腳本W(wǎng)_lq商品采購i:Open! dw_1.settransobject(sqlca)dw_1.retrieve()dw_2.settransobject(sqlca)dw_2.retrieve()dw_1.sharedata(dw_2)cb_2.tr

37、iggerevent(clicked!)r_date=date(w_lq登錄頁.em_1.text)/制單日期dw_1.setitem(r_row,'sheetdate',r_date)Cb_1.clicked！dw_1.retrieve()dw_2.retrieve()Cb_2.clickedr_row=dw_2.insertrow(1)/r_date=today()r_date=date(w_lq登錄頁.em_1.text)dw_1.setitem(r_row,'sheetdate',r_date)dw_1.reset()dw_1.insertrow(0)s

38、tring r_makerinteger r_sheetid_cgdselect oper_name into :r_maker from c_operator where :r_oper=oper_name;dw_2.setitem(r_row,'maker',r_maker)select max(sheetid_cgd) into:r_sheetid_cgd from sheet_cg_d;r_sheetid_cgd=r_sheetid_cgd+1select max(sheetid) into :r_sheetid from sheet_cg_d;r_sheetid=r_

39、sheetid+1dw_1.setitem(r_row,'sheetid',r_sheetid)dw_2.setitem(r_row,'sheetid_cgd',r_sheetid_cgd)Cb_3.clickeddw_1.AcceptText()IF dw_1.ModifiedCount() + dw_1.DeletedCount() > 0 THENCHOOSE CASE MessageBox("操作提示","數(shù)據(jù)已經(jīng)發(fā)生變化,是否保存?",Question!,YesNoCancel!,1)CASE 1dw_1.

40、update() MessageBox("操作提示","保存成功")CASE 2Return 0/不做任何操作直接關(guān)閉窗口CASE 3Return 1/不會(huì)運(yùn)行Close Event,維持原來的情況END CHOOSEEND IFCb_4.clickeddw_1.deleterow(0)Cb_5.clickeddw_1.reset()Cb_6.clickeddw_1.selectrow(0,true)Cb_7.clickeddw_1.selectrow(0,false)dw_1:itemchangedstring r_name,r_unit,r_good

41、s_styledecimal r_price,r_money,r_taxrate,r_tax_moneinteger r_cgd,r_amount,r_dept_codestring r_column,r_warehousedw_1.accepttext()r_row=dw_1.getrow()r_goods_code=dw_1.getitemstring(r_row,'goods_code')r_dept_code=dw_1.getitemdecimal(r_row,'dept_code')select goods_name,tax_price,unit in

42、to :r_name,:r_price,:r_unit from lq_goods where goods_code=:r_goods_code;dw_1.setitem(r_row,'tax_price',r_price)dw_1.setitem(r_row,'goods_name',r_name)dw_1.setitem(r_row,'unit',r_unit) /輸入商品編碼，自動(dòng)出現(xiàn)商品名稱、價(jià)格、計(jì)量單位r_amount=dw_1.getitemdecimal(r_row,'goods_amount')r_tax_mon

43、e=r_price * r_amountdw_1.setitem(r_row,'tax_mone',r_tax_mone)/輸入數(shù)量，自動(dòng)計(jì)算出總金額r_cgd=dw_1.getitemdecimal(r_row,'sheetid_cgdd')select goods_code,goods_name,tax_price,unit,goods_amount,taxrate into :r_goods_code,:r_name,:r_price,:r_unit,:r_amount,:r_taxrate from sheet_cg_dd where sheetid_c

44、gdd=:r_cgd; dw_1.setitem(r_row,'tax_price',r_price)dw_1.setitem(r_row,'goods_name',r_name)dw_1.setitem(r_row,'unit',r_unit)dw_1.setitem(r_row,'goods_code',r_goods_code)dw_1.setitem(r_row,'goods_amount',r_amount)dw_1.setitem(r_row,'taxrate',r_taxrate)r_

45、amount=this.getitemdecimal(r_row,'goods_amount')r_money=r_amount*r_pricedw_1.setitem(r_row,'tax_mone',r_money)/輸入采購訂單號(hào)，從商品采購單選出并顯示對(duì)應(yīng)的數(shù)據(jù)r_column=this.getcolumnname() /對(duì)改變的項(xiàng)目進(jìn)行選擇dw_1:clicked!r_date=date(w_lq登錄頁.em_1.text)/制單日期dw_1.setitem(r_row,'sheetdate',r_date)/dw_1.selectro

46、w(0,false)/dw_1.selectrow(row,true)dw_2.scrolltorow(row)dw_2:clicked!string r_linkman,r_supp_namer_row=dw_2.getrow()r_supp_name=dw_2.getitemstring(r_row,'supplier')select linkman into :r_linkman from lq_supp where supp_name=:r_supp_name;dw_2.setitem(r_row,'duty',r_linkman)項(xiàng) 目說 明窗口名w_

47、lq采購訂單所在的PBL庫Jinxiaocun.pbl功能采購訂單父窗口window界面設(shè)計(jì)窗口控件說明控件類型控件名控件顯示容說明命令按鈕cb_1查詢查詢數(shù)據(jù)命令按鈕cb_2新增新增數(shù)據(jù)命令按鈕cb_3更新更新數(shù)據(jù)命令按鈕cb_4刪除刪除數(shù)據(jù)命令按鈕cb_5復(fù)位數(shù)據(jù)復(fù)位命令按鈕cb_6全選全選數(shù)據(jù)命令按鈕cb_7取消全選取消數(shù)據(jù)全選數(shù)據(jù)窗口dw_1顯示數(shù)據(jù)數(shù)據(jù)窗口Dw_2顯示數(shù)據(jù)事件腳本W(wǎng)_lq采購訂單i:Open! dw_1.settransobject(sqlca)dw_1.retrieve()dw_2.settransobject(sqlca)dw_2.retrieve()dw_1.s

48、haredata(dw_2)cb_2.triggerevent(clicked!)r_date=date(w_lq登錄頁.em_1.text)/制單日期dw_1.setitem(r_row,'sheetdate',r_date)Cb_1.clicked！dw_1.retrieve()dw_2.retrieve()Cb_2.clickedr_row=dw_2.insertrow(1)r_date=date(w_lq登錄頁.em_1.text)/制單日期為登錄輸入的時(shí)間dw_2.setitem(r_row,'sheetdate',r_date)dw_1.setite

49、m(r_row,'sheetdate',r_date)dw_1.reset()dw_1.insertrow(0)string r_makerinteger r_sheetid_cgddr_oper=w_lq登錄頁.ddplb_1.textselect oper_name into :r_maker from c_operator where :r_oper=oper_name;dw_2.setitem(r_row,'maker',r_maker) /自動(dòng)生成制單人select max(sheetid_cgdd) into:r_sheetid_cgdd from sheet_cg_dd;r_sheetid_cgdd=r_sheetid_cgdd+1/單據(jù)號(hào)自動(dòng)加一dw_2.setitem(r_row,'sheetid_cgdd',r_sheetid_cgdd)integer r_sheetidselect max(sheetid) into:r_sheetid from sheet_cg_dd;r_sheetid=r_sheetid+1dw_1.setitem(r_row,'sheetid',r_sheetid) /序號(hào)自動(dòng)加一Cb_3.clickeddw_1.AcceptTe