夏目动漫周边进销存管理系统方案

1、 . . . 课 程 设 计题目 夏目动漫周边进销存管理系统 目录一、系统分析1 1、业务流程分析1 2、功能分析2二、可行性分析4三、数据库设计4 1、数据字典设计4四、系统定义说明11五、系统窗口分析111、应用对象、窗口设计说明11六、 系统运行效果481、介绍482、 详细介绍4953 / 54一、系统分析 1、业务流程分析进销存管理模块，填写采购订单商品的基本信息会相应出现，商品采购单可以选择采购订单，然后进入库存管理，入库单可以选择商品采购单并达到库存表数量改变，填写销售订单，商品销售当可以选择销售订单，出库单可以选择商品销售单并达到库存表改变。然后填写盘存表，可以选择对应的商品，

2、出现现在的库存数量，填写实际盘存数量出现盈亏数量，并达到库存表改变。 2、功能分析 （1）登录界面管理模块：主要包括系统登录功能。 （2）基础数据资料模块：主要包括职工信息管理、部门信息管理、供应商信息管理、商品单位功能。 （3）库存管理模块：主要是时刻了解各种商品的库存动态信息，方便对商品的管理。有销售单功能包括商品库存信息的录入、查询。（4）采购管理模块：主要是对商品的采购进行管理。有采购单功能包括采购入库、采购查询功能。(5) 销售管理模块：主要是对商品的销售进行管理。有销售单包括商品销售、销售单查询功能 。(6) 报表分析管理模块：主要包括库存分析、采购报表、销售报表、采购报表、盘存分

3、析。(7) 退出模块：退出系统。二、可行性分析 可行。通过一学期的会计信息化会计软件开发课程的学习与研究，我已经具备了开发进销存系统的能力。同时在信息化技术下，一个信息化管理软件是很有必要的。信息化管理为企业商品信息管理带来革命式的改变，关系数据库的应用使得会计信息系统对数据的处理大为加强。财务人员在进行帐务处理、分析检查等工作时事半功倍、大大提升了工作效率。会计的信息化功能使得各种数据能够清晰看见有助于监督与核算，会计人员有更多的时间参企业管理活动。最终通过一种先进的管理模式使企业能够高速运转，为企业带来明显的经济效益三、数据库设计 1、数据字典设计1、 码表：（1）码表中文名称：部门表表名

4、：c_dept关键字：c_dept_code备注：描述部门具体容中文名称列名类型与长度空否说明部门编号dept_codeinteger否部门名称dept_nameChar(10)是（2）码表中文名称：职员表表名：c_operator关键字：c_operator_code备注：确定系统所涉与的职员信息中文名称列名类型与长度空 否说明职员编码oper_codeChar(10)否职员名称oper nameChar(50)是职员密码passwordChar(10)是所属部门dept_codeChar(10)是权限powerchar（10）是（3） 码表中文名称：税率码表（4） 表名：税率码表关键字：l

5、q_tax_code备注：确定系统所涉与的商品税率中文名称列名类型与长度空 否说明税率号tax_codeinteger否税率Tax_namedecimal是4（5） 码表中文名称：仓位码表表名:：货位码表关键字：goods_warehouse_code备注：确定系统所涉与的商品仓位中文名称列名类型与长度空 否说明仓位号goods_warehouse_codeint否仓位goods_warehouse_name是（6）码表中文名称：部门码表表名：C_dept关键字：Dept_code备注：设定企业部的部门列名中文名称类型与长度空 否说明Dept_code部门编码char(10)否Dept_nam

6、e部门名称char(50)是2、 基本信息表：（1）基本表中文名称：操作员表表名：C_OPERATOR关键字：OPER_CODE备注：记录系统的操作员信息，包括编码、密码、部门、权限等列名中文名称类型与长度空否说明OPER_CODE操作员编码char(10)否OPER_NAME操作员char(20)是PASSWORD密码char(10)是设定操作员登录系统的密码，避免非法用户进入系统DEPT_CODE部门char(10)是操作员所属部门POWER权限char(20)是操作员所具有的权限（2）基本表中文名称：商品信息表表名：lq_goods关键字：goods_CODE备注：系统的所有商品信息中文

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)是产地goods_areaChar(30)是公司地址goods_addrChar(30)是

8、图片goods_picChar(100)是3、单据表：（1）单据表中文名称：采购订单表名：sheet_cg_dd 关键字：sheetid_cgdd ，sheetid 备注：采购单由主项与明细项组成中文名称列名类型与长度 空 否说明单据号sheetid_cgdd integer否在新增采购单时，采购单据号由系统自动生成序号sheetid integer是商品编码goods_codeChar（10）是商品名称goods_nameChar（10）是采购商品总金额日期sheetdate date是采购单的制单日期供应商supp_codeChar（10）是部门编号dept_codeinteger 是采购

9、人员buyerChar（10）是计量单位unitChar（10）是数量goods_amountinteger是含税单价tax_price dec是税率taxratedec是含税金额tax_monedec是制单makerChar（10）是默认为登录系统的操作员，不可修改审核auditerChar（10）是备注noteChar（10）是（2）单据表中文名称：商品采购单表名：sheet_cg_d 关键字：sheetid_cgd，sheetid 备注：采购单由主项与明细项组成中文名称列名类型与长度 空 否说明单据号sheetid_cgdinteger否在新增采购单时，采购单据号由系统自动生成序号she

10、etid integer是商品编码goods_codeChar（10）是商品名称goods_nameChar（10）是日期sheetdatedate是货位goods_warehoseChar（10）是采购订单号sheetid_cgdd integer是计量单位unitChar（10）是数量goods_amountint是含税单价tax_price dec是税率taxratedec是含税金额tax_monedec是部门编号dept_codeinteger是采购人员buyerChar（10）是制单makerChar（10）是审核auditerChar（10）是供应商supplierChar（10）

11、对方负责人dutyChar（10）（3）单据表中文名称：入库单表名：goods_in关键字：sheetid_rk，sheetid备注：入库单由主项与明细项组成中文名称列名类型与长度 空 否说明单据号sheetid_rkint否在新增采购单时，采购单据号由系统自动生成序号sheetidint是商品编号goods_codeChar（10）是商品名称goods_nameChar（10）是入库日期sheetdatedate是采购单据号sheetid_cgd Char（10）是填写采购单据号自动出现信息货位goods_warehouseChar（10）是计量单位unitChar（10）是数量goods_

12、amountint是单价tax_price dec是金额tax_monedec是库管员keeperChar（10）是制单makerChar（10）是审核auditerChar（10）是备注notesChar（10）是（3）单据表中文名称：销售订单表名：sheet_xs_dd关键字：sheetid_xsdd ，sheetid 备注：入库单由主项与明细项组成中文名称列名类型与长度 空 否说明单据号sheetid_xsdd int否序号sheetid int是商品编码goods_codeChar（10）是商品名称goods_nameChar（10）是日期sheetdatedate是客户custome

13、rChar（10）是部门编号dept_codeChar（10）是销售人员salemanChar（10）是计量单位unitChar（10）是数量goods amountint是含税单价tax_price dec是税率taxratedec是含税金额tax_monedec是制单makerChar（10）是审核auditerChar（10）是（4）单据表中文名称：商品销售表名：sheet_xs_d关键字：sheetid_xsd，sheetid 备注：销售单由主项与明细项组成中文名称列名类型与长度 空 否说明单据号sheetid_xsdChar（10）否序号sheetid int是商品编码goods_c

14、odeChar（10）是商品名称goods_nameChar（10）是日期sheetdatedate是销售订单号sheetid_xsdd int是货位good_warehoseChar（10）是数量goods_amountint是含税单价tax_price dec是税率taxratedec是含税金额tax_monedec是客户customerChar（10）是销售人员salemanChar（10）是制单makerChar（10）是审核auditerChar（10）是（5）单据表中文名称：出库单表名：goods_out关键字：sheetid_ck，sheetid备注：销售单由主项与明细项组成中文

15、名称列名类型与长度 空 否说明商品编号goods_codeChar（10）否商品名称goods_nameChar（10）是出库日期datedate是销售单据号sheetid_xsd int是货位good_warehoseChar（10）是计量单位unitChar（10）是数量goods_amountint是单价tax_price dec是金额tax_monedec是库管员keeperChar（10）是制单makerChar（10）是审核auditerChar（10）是（6）单据表中文名称：出库单表名：goods_out关键字：sheetid_ck，sheetid备注：销售单由主项与明细项组成中

16、文名称列名类型与长度 空 否说明商品编号goods_codeChar（10）否商品名称goods_nameChar（10）是出库日期datedate是销售单据号sheetid_xsd int是货位good_warehoseChar（10）是计量单位unitChar（10）是数量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）是账面数量amount_zmint是实盘数量amount_spint是盈亏数量amount_ykint是制单人makerchar（13）是记账标记flag_jzchar（2）是记账人man_jzchar（13）是备注notechar（13）是（4）帐表中文名称：进销存数量报表表名：lq_rep

18、ort_amount关键字：lq_reportdate_sqs列名中文名称类型与长度空否说明起始日期dqreportdate_qsdate否结束日期dqreportdate_jsdate是商品编码goods_codechar（13）是期初库存数量amount_qcint是采购数量amount_cgint是销售数量amount_xsint是期末库存账面数量amount_qmint是盈亏数量amount_ykint是备注notechar（20）是（4）帐表中文名称：采购数量汇总表表名：lq_cg_amount关键字：pro_date_start列名中文名称类型与长度空否说明起始日期Amount_q

19、sdate否结束日期Amount_jsdate是商品编码goods_codechar（13）是商品名称goods_namechar（13）是采购数量amount_cginteger是（5）帐表中文名称：销售数量汇总表表名：lq_xs_amount关键字：Amount_qs列名中文名称类型与长度空否说明起始日期Amount_qsdate否结束日期Amount_jsdate是商品编码goods_codechar（13）是商品名称goods_namechar（13）是销售数量amount_xsinteger是四、系统定义说明 夏目的动漫周边进销存系统的研究的意义在于信息化的管理方式取代以前老旧的手工

20、处理，使进销存信息管理更加信息化、标准化、数字化，防止一切由于人为操作所造成的错误。本系统是以合理、全面、准确的动漫周边编码体系为基础，提供了对动漫周边数量、金额、功能、种类的全面管理。并实现采购、销售、库存以与相关报表的信息化查询。五、系统窗口分析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新增新增数据图片按钮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进销存数量报表)表3窗口w_lq_部门职员 的设计说明项 目说 明窗口名w_lq_部门职员 所在的PBL库Jinxiaocun.pbl功能部门职员介绍父窗口window界面设计窗口控件说明控件类型控件名控件显示容说明命令按钮cb_1查询查询数据命令按钮cb_2新增新增数据命令按钮cb_3更新更新数据命令按钮cb_4删除删除

27、数据命令按钮cb_5复位数据复位数据窗口dw_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() + dw_1.DeletedCount() > 0 THENCHOOSE CASE MessageBox("操作提示","数据已经发生变化,是否保存?",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查询查询数据命令按钮cb_2新增新增数据命令按钮cb_3更新更新数据命令按钮cb_4删除删除数据命令按钮cb_5复位数据复位数据窗口dw_1显示数据文本框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() + dw_1.DeletedCount() > 0 THENCHOOS

30、E CASE MessageBox("操作提示","数据已经发生变化,是否保存?",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查询查询数据命令按钮cb_2新增新增数据命令按钮cb_3更新更新数据命令按钮cb_4删除删除数据命令按钮cb_5复位数据复位数据窗口dw_1显示数据文本框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("操作提示","数据已经发生变化,是否保存?",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查询查询数据命令按钮cb_2新增新增数据命令按钮cb_3更新更新数据命令按钮cb_4删除删除数据命令按钮cb_5复位数据复位单行文本框Sle_splw输入商品名称文本框St_2筛选条件筛选条件数据窗口dw_1显示数据数据窗口Dw_spxx显示数据事件脚本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("操作提示","数据已经发生变化,是否保存?",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查询查询数据命令按钮cb_2新增新增数据命令按钮cb_3更新更新数据命令按钮cb_4删除删除数据命令按钮cb_5复位数据复位命令按钮cb_6全选全选数据命令按钮cb_7取消全选取消数据全选数据窗口dw_1显示数据数据窗口Dw_2显示数据单行文本框Sle_1行数显示行数事件脚本W_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("操作提示","数据已经发生变化,是否保存?",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) /输入商品编码，自动出现商品名称、价格、计量单位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)/输入数量，自动计算出总金额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)/输入采购订单号，从商品采购单选出并显示对应的数据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查询查询数据命令按钮cb_2新增新增数据命令按钮cb_3更新更新数据命令按钮cb_4删除删除数据命令按钮cb_5复位数据复位命令按钮cb_6全选全选数据命令按钮cb_7取消全选取消数据全选数据窗口dw_1显示数据数据窗口Dw_2显示数据事件脚本W_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/单据号自动加一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