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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

18、ort_amount關鍵字：lq_reportdate_sqs列名中文名稱類型與長度空否說明起始日期dqreportdate_qsdate否結束日期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關鍵字：pro_date_start列名中文名稱類型與長度空否說明起始日期Amount_q

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

20、處理，使進銷存信息管理更加信息化、標準化、數(shù)字化，防止一切由于人為操作所造成的錯誤。本系統(tǒng)是以合理、全面、準確的動漫周邊編碼體系為基礎，提供了對動漫周邊數(shù)量、金額、功能、種類的全面管理。并實現(xiàn)采購、銷售、庫存以與相關報表的信息化查詢。五、系統(tǒng)窗口分析1、應用對象、窗口設計說明表1 窗口w_lq登錄頁的設計說明項 目說 明窗口名w_lq登錄頁所在的PBL庫jinxiaocun.pbl功能登陸界面父窗口window界面設計窗口控件說明控件說明控件類型控件名控件顯示容說明日歷按鈕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','密碼錯誤請重新輸入！')sle_2.text=

22、''end if表2 窗口w_lq主頁的設計說明項 目說 明窗口名w_lq主頁所在的PBL庫jinxiaocun.pbl功能主頁父窗口window界面設計窗口控件說明控件類型控件名控件顯示容說明圖片按鈕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="供應商碼表" thendw_1.dataobject="dw_gys_d"dw_1.settransobject(sqlca)dw_1.retrieve()end if if ddplb_1.text="計量單位碼表" 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進銷存數(shù)量報表)表3窗口w_lq_部門職員 的設計說明項 目說 明窗口名w_lq_部門職員 所在的PBL庫Jinxiaocun.pbl功能部門職員介紹父窗口window界面設計窗口控件說明控件類型控件名控件顯示容說明命令按鈕cb_1查詢查詢數(shù)據(jù)命令按鈕cb_2新增新增數(shù)據(jù)命令按鈕cb_3更新更新數(shù)據(jù)命令按鈕cb_4刪除刪除

27、數(shù)據(jù)命令按鈕cb_5復位數(shù)據(jù)復位數(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/不做任何操作直接關閉窗口CASE 3Return 1/不會運行Close Event,維持原來的情況END CHOOSEEND IFCb_4.clickeddw_1.deleterow(0)Cb_5.clickeddw_1.reset()項 目說 明窗口名W-lq供應商所在的PBL庫Jinxiaocun.pbl功能供應商介紹父窗口window界面設計窗口控件說明控件類型控件名控件顯示容說明命

29、令按鈕cb_1查詢查詢數(shù)據(jù)命令按鈕cb_2新增新增數(shù)據(jù)命令按鈕cb_3更新更新數(shù)據(jù)命令按鈕cb_4刪除刪除數(shù)據(jù)命令按鈕cb_5復位數(shù)據(jù)復位數(shù)據(jù)窗口dw_1顯示數(shù)據(jù)文本框St_1供應商表名事件腳本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 THENCHOOS

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

31、客戶介紹父窗口window界面設計窗口控件說明控件類型控件名控件顯示容說明命令按鈕cb_1查詢查詢數(shù)據(jù)命令按鈕cb_2新增新增數(shù)據(jù)命令按鈕cb_3更新更新數(shù)據(jù)命令按鈕cb_4刪除刪除數(shù)據(jù)命令按鈕cb_5復位數(shù)據(jù)復位數(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/不做任何操作直接關閉窗口CASE 3Return 1/不會運行Close Event,維持原來的情況END CHOOSEEND IFCb_4.clickeddw_1.deleterow(0)Cb

33、_5.clickeddw_1.reset()項 目說 明窗口名W-lq商品信息所在的PBL庫Jinxiaocun.pbl功能商品信息介紹父窗口window界面設計窗口控件說明控件類型控件名控件顯示容說明命令按鈕cb_1查詢查詢數(shù)據(jù)命令按鈕cb_2新增新增數(shù)據(jù)命令按鈕cb_3更新更新數(shù)據(jù)命令按鈕cb_4刪除刪除數(shù)據(jù)命令按鈕cb_5復位數(shù)據(jù)復位單行文本框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/不做任何操作直接關閉窗口CASE 3Return 1/不會運行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)項 目說 明窗口名w_lq商品采購所在的PBL庫Jinxiaocun.pbl功能商品采購單父窗口w

36、indow界面設計窗口控件說明控件類型控件名控件顯示容說明命令按鈕cb_1查詢查詢數(shù)據(jù)命令按鈕cb_2新增新增數(shù)據(jù)命令按鈕cb_3更新更新數(shù)據(jù)命令按鈕cb_4刪除刪除數(shù)據(jù)命令按鈕cb_5復位數(shù)據(jù)復位命令按鈕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/不做任何操作直接關閉窗口CASE 3Return 1/不會運行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) /輸入商品編碼，自動出現(xiàn)商品名稱、價格、計量單位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ù)量，自動計算出總金額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)/輸入采購訂單號，從商品采購單選出并顯示對應的數(shù)據(jù)r_column=this.getcolumnname() /對改變的項目進行選擇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)項 目說 明窗口名w_

47、lq采購訂單所在的PBL庫Jinxiaocun.pbl功能采購訂單父窗口window界面設計窗口控件說明控件類型控件名控件顯示容說明命令按鈕cb_1查詢查詢數(shù)據(jù)命令按鈕cb_2新增新增數(shù)據(jù)命令按鈕cb_3更新更新數(shù)據(jù)命令按鈕cb_4刪除刪除數(shù)據(jù)命令按鈕cb_5復位數(shù)據(jù)復位命令按鈕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)/制單日期為登錄輸入的時間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) /自動生成制單人select max(sheetid_cgdd) into:r_sheetid_cgdd from sheet_cg_dd;r_sheetid_cgdd=r_sheetid_cgdd+1/單據(jù)號自動加一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) /序號自動加一Cb_3.clickeddw_1.AcceptTe