2022年生产管理库房管理系统 .pdf

vfp 实例教程 库房管理软件 一、建立数据库 九.浏览修改表单llxg.scx 二、主程序 十.修改总数据库表单xgmain 三、主菜单 十一 .个人工具卡表单grgj 四.建立 logo 表单 十二 .创建本地视图ll_gjk 五.表单 systen 十三 .创建修改个人工具卡表单grgjk 六.表单 rkd（入库单） 十四 .建立报表 七.出库单 ckd 十五 .连编 八.器材明细表表单qcmx.scx 十六 .制作安装盘一、建立数据库1、新建数据库kfgl ，保存到 d：demodata目录下。2、在 kfgl 数据库中新建表systen（.dbf），五个字段： fzr、bgy、jhy、cly、mima，其标题分别为：负责人、保管员、计划员、材料员、密码。（图5-1）可以在其 ,输入掩码 ? 文本框内输入其掩码，其作用是：在你浏览此表时只显示掩码，而不显示其内容。例如：你的密码是“wyc”，你输入掩码为 “ok”，在你浏览表时，显名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 33 页 - - - - - - - - - 示密码为 “ok”，可以起到一定的保密作用，而在程序中调用表显示其内容时，不显示掩码。3、新建表 main.dbf： ckbh c(10), rq d(8),qcmc c(16),ggxh c(20),lb c(6),dw c(4), djn(8,2),pzbh c(10),rksl n(8,2),rkje n(10,2), cksl n(8,2), ckje n(10,2),gcmc c(30),bz c(6),cly c(6),bgy c(6),jhy c(6),llr c(6),fzr c(6),lh c(6),yt c(20),qu c(2),jia c(2),hao c(2),ku c(2)。其标题分别为：出库编号，日期，器材名称，规格型号，类别，单位，单价，凭证编号，入库数量，入库金额，出库数量，出库金额，工程名称，班组，材料员，保管员，计划员，领料人，负责人，料号，用途，区，架，号，库。说明：c-字符型； d-日期型； n-数值型，括号内为字节长度，逗号后面的数值为几位小数。4、 新建表 grgjk.dbf: ckbh c(10), rq d(8),qcmc c(16),ggxh c(20),lb c(6),dw c(4), dj n(8,2), cksl n(8,2), ckje n(10,2),bz c(6),jhy c(6),llr c(6)。其标题分别为：出库编号，日期，器材名称，规格型号，类别，单位，单价，出库数量，出库金额，班组，计划员，领料人。二、主程序set talk off & 关闭对话模式set safe off set stat off set dele on & 不处理已删除的记录set cent on set date to ansi close all RELEASE WINDOW 常用& 关闭常用工具栏if mod(day(date(),2)=0 & 偶数日期_SCREEN.backcolor=rgb(80,180,150) & 窗口背景颜色MODIFY WINDOW SCREEN TITLE 库房管理应用软件ver 2.1 为齐; 鲁石化检修公司机泵车间编制今天是： +dtoc(date()+ +cdow(date() else & 奇数日期_SCREEN.backcolor=rgb(80,150,180) & 窗口背景颜色MODIFY WINDOW SCREEN TITLE 库房管理应用软件ver 2.1 ; 软件编制者：王永成今天是： +dtoc(date()+ +cdow(date() endif ZOOM WINDOW SCREEN MAX & 主窗口最大化_SCREEN.controlbox=.f. & 去掉主窗口控制按钮deactivate window 项目管理器 & 关闭项目管理器mypath=left(sys(16),rat(,sys(16) & 确定程序所在的位置set defa to (mypath) & 设置当前路径set path to data;form;pic & 指明路径名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 33 页 - - - - - - - - - open database kfgl & 打开数据库do form logo & 运行表单 logo read events quit 三、主菜单操作(BR器材入库命令： do form rkd 器材出库命令： do form ckd - 退出命令： Clea event 编辑(BR编辑浏览出入库单命令： do form llxg 浏览个人工具卡命令： do form grgj 修改个人工具卡命令： do form grgjk - 基本设置命令： do form systen 游戏(BR猜数游戏命令： do form csyx 身体状态测试命令： do form stcs - 心灵感应命令： do form xlgy 退出(BR 命令 Clea四、建立工具栏1、在,项目管理器 ?中选,类库? ，按 ,新建 ? 按钮，出现新建类对话框。2、类名输入 ,kuf?，派生于选择 ,toolbar?，存储于： ,D:demoformkuf.vcx ，按,确定?按钮，出现类设计器。3、跟建立表单一样，如图5-2，我们建立 8 个命令按钮，其 ,tooltiptext?分别为：器材入库，器材出库，修改，浏览，查找器材，身体状态测试，猜数游戏，退出。给按钮加上图片、文字（例如：,猜?字）。在各自的 ,click?方法程序中输入相应的命令（如：do form rkd），现在还没建立这些表单，可以在建完以后再输。四.建立 logo表单（图 5-3）（1）表单 logo，titlebar 为 0-关闭， height=115，width=222。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 33 页 - - - - - - - - - 其 init 过程：use systen Thisform.Label1.width =0 Thisform.Label3.Left =thisform.width public tbs,bgy1,cly1,jhy1,fzr1 thisform.top=0 thisform.left=0 bgy1=bgy cly1=cly jhy1=jhy fzr1=fzr （2）Label1 的 caption 为“ 欢迎使用库房管理软件” ，透明，楷体， 12号，黄色。（3）Label2 的 caption 为“ 输入密码 ” ，透明，黑体， 12 号，绿色。（4）Label3 的 caption 为“ 软件作者：齐鲁石化公司检修公司机泵车间王永成 ” ，透明，白色。（5）文本框 txtpassword，passworchar为,*?。（6）计时器 timer1，interval=200。其 timer 过程：if thisform.top160 & 判断 label1 的宽度是否大于160 Thisform.Label1.width =0 &label1 的宽度设为 0 Else Thisform.Label1.width = Thisform.Label1.width +16 & 宽度增加 16 EndIf *以下作用是让label3 向左移动If Thisform.Label3.Left =3 =messagebox(你不是合法用户！你不能使用！,64,提示窗口 ) thisform.release Clea event else =messagebox( 口令不正确！请重新输入！,64,提示窗口 ) thisform.txtpassword.value= thisform.txtpassword.setfocus() endif ENDIF （8）命令按钮 caecel，退出。其 click 过程：thisform.release Clea event 五.表单 systen（1）、表单的 “caption ”为“ 基本信息 ” ，“windowtype”为 1-模式。（2）、建立标签 “label1label5”、文本框 “text1text5”和命令按钮 “command1 ” 。（3）、右击表单选择 “ 数据环境 ” （图 6-1）。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 33 页 - - - - - - - - - （4）、填加表 systen.dbf。（图 6-2）（5）、text1text5 的“controlsource”分别选择 systen.fzr、systen.jhy、systen.cly、systen.bgy、systen.mima。（6）、 label1label5 的 caption 为：负责人、计划员、材料员、保管员、密码。（7）、 command1.cilck 为：thisform.release。（8）、 text5 的“inputmask ”为： “XXXXXX” ，“passwordchar”为： “*”。操作说明： 此表单让你修改一些基本数据，在材料入库时这些人的名字自动填加，在这里可以修改密码。退出表单修改自动保存。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 33 页 - - - - - - - - - 六. 表单 rkd （入库单）（1）、我们用一些标签和线条建立（如图6-3 ）表单 rkd ，你可以根据自己单位的情况设计。其“ titlebar”为： 0-关闭。（2）、建立 17 个文本框（由于我在设计时进行过修改，删掉了一些文本框，所以现在不连续），其“ backstyle ”为： 0- 透明、“ bordercolor”为： 0-无。其“ controlsource”分别为： text9为 bgy1，text12 为 fzr1 ，text17为 cly1 ，其它的均与其 name相同（例： text1为 text1.）。（3）、组合框 combo2 ，“bordercolor”为： 0-无，“controlsource”为 cbo1，“rowsource ”为： “钢材 , 管件, 配件, 工器具 , 量具, 杂品, 消耗品 , 油料, 劳保, 阀门”，“rowsourcetype ”为： 1-值。（4）、命令按钮command1 （确定）的 click过程为：tis=messagebox( 保存入库单？ ,4+64,提示窗口 ) if tis=6 if !used(main) use main else sele main endif APPEND BLANK repl lb with cbo1 repl rq with date() repl pzbh with text4 repl gcmc with text5 repl yt with text6 repl lh with text13 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 33 页 - - - - - - - - - repl qcmc with text19 repl ggxh with text20 repl dw with text7 repl rksl with text8 repl dj with text10 repl rkje with text11 repl jhy with text23 repl bgy with bgy1 repl fzr with fzr1 repl llr with cly1 use text20= text13= text4= text8=0.00 text10=0.00 text11=0.00 text1=year(date() text2=month(date() text3=day(date() bo2.setfocus thisform.refresh endif （5）、命令按钮command2 （退出）的 click过程：use thisform.release （6）、表单 form1 的 init过程： public text1,text2,text3,text4,text5,text6,text7,text8,text10,text11,; text19,text20,text23,cbo1,text9,text13 text5= text6= text7= text13= text17= text19= text20= text23= text12= text9= text4= text8=0.00 text10=0.00 text11=0.00 text1=year(date() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 33 页 - - - - - - - - - text2=month(date() text3=day(date() cbo1= bo2.setfocus （7）、表单 form1 的 destroy 过程：release text1,text2,text3,text4,text5,text6,text7,text8,text10,text11,; text19,text20,text23,cbo1,text9,text13 操作说明：根据公司的出库单逐项填写，器材类别我是根据我们车间的实际分的，你可以修改，填完后按确定按钮，将提示你是否保存，按退出按钮关闭表单。七.出库单 ckd 最初我设计的出库单象入库单一样，一次只能开一种材料，由于在车间使用就改成现在这样。图7-1 （1）、文本框 text2 的“dateformat ”为：,14-汉语?；“topstop ”为：,.F.假? ；“value ”为：,=date()?。其他略。（2）、建立表格Grid1。右击 Grid1 选择生成器选择main 表，选定如下字段： qcmc、ggxh、dw、dj、cksl、ckje、lb，按确定按钮。（图7-2）名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 33 页 - - - - - - - - - （3）、修改表格Grid1。“deletemark ”为：,.F.-假? ；“recordmark ”为： ,.F.-假?；“recordsource”为：（无）（去掉 ,main?）；“scrollbars”为：,2-垂直 ? 。（3）、Combo1 的“rowsource ”为：,一班,二班,三班,四班 ,五班 ,六班,办公室 ? ；“rowsourcetype”为：,1-值? 。（4）、表单的 init 过程：public bz1,bh1,llr1 *建立临时表 ls creat cursor ls ( ckbh c(10), rq d(8),qcmc c(16),ggxh c(20),dw c(4), ; dj n(8,2), cksl n(8,2), ckje n(10,2),gcmc c(30),bz c(6),; yt c(20),cly c(6),bgy c(6),jhy c(6),llr c(6),fzr c(6),lb c(6) with thisform.grid1 .recordsource=ls .column1.controlsource=ls.qcmc .column2.controlsource=ls.ggxh .column3.controlsource=ls.dw .column4.controlsource=ls.dj .column5.controlsource=ls.cksl .column6.controlsource=ls.ckje .column7.controlsource=ls.lb endwith （5）、打印按钮的cilck 过程：bz1=bo1.value bh1=allt(thisform.text5.value) llr1=allt(thisform.text6.value) sele ls messagebox( 请用 B5 纸！,16,提示信息 ) REPORT FORM ckdan.frx TO PRINTER thisform.refresh 其中 ckdan.frx 为出库单报表，在后面会介绍。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 33 页 - - - - - - - - - （6）、保存按钮的cilck 过程：bz1=bo1.value bh1=allt(thisform.text5.value) rq1=date() llr1=allt(thisform.text6.value) gcmc1=allt(thisform.text3.value) yt1=allt(thisform.text4.value) *检查输入是否有效sele ls count for !deleted() to zs if zs=0 messagebox( 至少要有一条记录才能保存！,16,提示信息 ) return endif if empty(bz1) messagebox( 请填写班组 ,16,提示信息 ) return endif locat for ls.cksl=0 if found() messagebox( 请填写数量 ,16,提示信息 ) return endif *加入到正式表中go top do while !eof() insert into main (ckbh,rq,qcmc,ggxh,dw,dj,cksl,ckje,gcmc,yt,llr,jhy,lb,bz) ; value (bh1,rq1,ls.qcmc,ls.ggxh,ls.dw,ls.dj,ls.cksl,ls.ckje,gcmc1,ls.yt,llr1,jhy1,ls.lb,bz1) if allt(ls.lb)= 工器具 insert into grgjk (ckbh,rq,qcmc,ggxh,dw,dj,cksl,ckje,llr,jhy) ; value (bh1,rq1,ls.qcmc,ls.ggxh,ls.dw,ls.dj,ls.cksl,ls.ckje,llr1,jhy1) endif skip enddo zap （6）、退出按钮的cilck 过程：tt=0 thisform.release （7）、 Grid1 下的 Column1 下的 Text1 的 DblClick 过程：do form qcmx sele ls this.value=main.qcmc with thisform.grid1 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 33 页 - - - - - - - - - .column2.text1.value=main.ggxh .column3.text1.value=main.dw .column4.text1.value=main.dj .column5.text1.value=0 .column6.text1.value=0 .column7.text1.value=main.lb endwith thisform.refresh thisform.grid1.column5.text1.setfocus thisform.refresh （8）、 Grid1 下的 Column5 下的 Text1 的 LostFocus 过程：if this.valuecksl1 ss=allt(str(cksl1) messagebox( 开票数量不能大于库存数量+ss,16,提示信息 ) thisform.grid1.column5.text1.value=0 thisform.grid1.column5.text1.setfocus retu endif thisform.grid1.column6.text1.value=ls.cksl*ls.dj thisform.grid1.refresh （9）、 Grid1 的 rightcilck 过程：sele ls do tjia.mpr & 调用 tjia 菜单thisform.grid1.refresh thisform.grid1.setfocus 操作说明：右击表单的表格Grid1，出现快捷菜单条，选择 “ 填加一条 ” 单击，表格中增加一条空白记录，双击器材名称的文本框调出“ 器材明细表 ” 表单（下一课介绍）。在“ 器材明细表 ” 中选择要出库的器材， 退出“ 器材明细表 ” ， 这时“ 器材名称 ” 、 “ 规格型号 ” 、 “ 单位” 、“ 单价” 等自动填加到表格中，你填上出库数量，回车，如果你填加的数值大于库存量，会弹出一个“ 提示信息 ” 窗口，提示你： “ 开票数量不能大于库存数量xx” 。如果数值符合要求，回车后自动填加金额。你可以根据以上的操作过程填加多项，也可以选中某一条右击删除它，在未保存之前还可以右击恢复所有被删除的项目。填齐其它选项，就可以打印了，按保存按钮填写的器材就出库了。附加：建立 tjia 菜单（1）、新建快捷菜单（图7-3）。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 33 页 - - - - - - - - - （2）、 “ 填加一条 ” 的,过程 ? 内容为：locat for ls.cksl=0 if found() messagebox( 请填写数量 ,16,提示信息 ) return endif append blank （3）、 “ 删除选定一条 ” 的,过程? 内容为：if messagebox( 是否真的删除该行？ ,36,提示信息 )=6 dele endif （4）、生成为 tjia。八.器材明细表表单qcmx.scx （图 8-1）名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 33 页 - - - - - - - - - （1）建立标签（按其caption 内容）： “ 在上面的文本框中输入” ，“ 器材名称或规格型号” ，“ 库存数量： ” ，“ 库存金额： ” ，“ 器 材 明 细 表” ，“ 库” ，“ 区” ，“ 架” ，“ 号” ，“ 器材名称： ” ，“ 规格型号： ” ，“ 单位： ” ，“ 单价： ” 。（2）建立文本框： ku,qu,jia,hao,qcmc,ggxh,dw,dj（以上文本框的controlsource分别为：“main.+ 其名” ），text7，text8，text10。（3）建立命令按钮command15（图 8-2）（4）建立表格 Grid1，右击选择 “ 生成器 ” ，选择表 main 的如下字段： rq,qcmc,ggxh,rkbh,rksl,rkje,ckbh,cksl,ckje,lb 。其它属性在这里就不一一介绍了。（5）form1.init: tbs.hide & 在运行此表单时隐藏快捷图标public cksl1 & 定义全局变量（6）form.destroy：tbs.show & 在关闭此表单时显示快捷图标（7）text10.interactivechange：locate for allt(qcmc)=allt(this.value) if found() go recn() thisform.refresh else locate for allt(this.value)$allt(ggxh) if found() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 33 页 - - - - - - - - - go recn() thisform.refresh endif endif 说明：当你在文本框text10 中输入字或数时，开始在器材名称和规格型号中查找与其值相同或相近的器材显示出来。（8）command1.click：mand2.enabled=.t. mand5.enabled=.t. if !RECN()=1 skip -1 else go 1 this.enabled=.f. mand4.enabled=.f. endif thisform.refresh （9）command2.click：mand1.enabled=.t. mand4.enabled=.t. if !eof() skip 1 else go bottom this.enabled=.f. mand5.enabled=.f. endif thisform.refresh （10）command3.click：THISFORM.RELEASE （11）command4.click：mand2.enabled=.t. mand5.enabled=.t. go 1 this.enabled=.f. mand1.enabled=.f. thisform.refresh （12）command5.click：mand1.enabled=.t. mand4.enabled=.t. go bottom this.enabled=.f. mand2.enabled=.f. thisform.refresh 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 33 页 - - - - - - - - - （13）grid1.refresh：thisform.grid1.recordsource=sele main.rq,qcmc,ggxh,pzbh,rksl,rkje,ckbh,cksl,ckje,lb from main into curs temp; where allt(qcmc)=allt(thisform.qcmc.value) .and. allt(ggxh)=allt(thisform.ggxh.value) sele temp sum rksl to sl1 sum cksl to sl2 sum rkje to je1 sum ckje to je2 cksl1=sl1-sl2 thisform.text7.value=sl1-sl2 thisform.text8.value=je1-je2 sele main 九.浏览修改表单llxg.scx （图 9-1）（1）、建立选择按钮组Optiongroup1。ButtonCount=3. （2）、建立选择按钮组Optiongroup2。ButtonCount=11. （3）、建立表格Grid1。DeleteMark=,.F. -假? ；RecordSourceType=,0-表?。（4）、建立形状Shape1 、Shape2 ，选择背景颜色。（5）、建立组合框Combo1。ControlSounrce=,rq1?；RowSounrce=,select rq distinctfrom main into cursor combo1?；RowSounrceType=,3-SQL 语句 ? 。（6）、建立组合框Combo2。ControlSounrce=,rq2?；RowSounrce=,select rq distinctfrom main into cursor combo2?；RowSounrceType=,3-SQL 语句 ? 。（7）、建立组合框Combo3。ControlSounrce=,bz1? ；RowSounrce=,一班,二班,三班,四班,五班 ,六班,办公室 ? ；RowSounrceType=,1-值? 。（8）、建立 Command1。Caption=,修改?；command1.click：do form xgmain。（9）、建立 Command2。Caption=,打印?；command2.click：messagebox( 请用 A4 纸！,16,提示信息 ) DO CASE 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页，共 33 页 - - - - - - - - - CASE THISFORM.OPTIONGROUP1.VALUE=1 THISFORM.OPTIONGROUP1.option1.click() report form dymain.frx to printer & 打印报表 dymain CASE THISFORM.OPTIONGROUP1.VALUE=2 THISFORM.OPTIONGROUP1.option2.click() report form dyrk.frx to printer & 打印报表 dark CASE THISFORM.OPTIONGROUP1.VALUE=3 THISFORM.OPTIONGROUP1.option3.click() report form dyck.frx to printer & 打印报表 dyck endcase thisform.refresh （10）、建立 Command3。Caption=,退出 ? ；command3.click：thisform.release （11）、建立 Command4。Caption=,清除选择 ?；command4.click：bo1.value= bo2.value= bo3.value= THISFORM.OPTIONGROUP2.interactivechange() （12）、建立 Command5。Caption=,显示 ? ；command5.click：THISFORM.OPTIONGROUP2.interactivechange() （13）、Combo2.interactivechange： if ctod(bo1.value)ctod(this.value) wait window at 16,28 后面的日期要大于前面的日期！请修改。 retu endif （14）、选择菜单栏的 “ 表单” 下的 “ 新建方法程序 ” ，填加如下方法程序：myfield1 、myfield2 、myfield3 。（15）、form1.init ：public rkhj,ckhj,kchj,BZ1,RQ1,RQ2 BZ1= RQ1= RQ2= *初始化临时表THISFORM.GRid1.RECORDSOURCE=SELE main.rq,qcmc,ggxh,lb,dj,pzbh,rksl,rkje,ckbh,cksl,ckje,bz,llr,fzr,bgy,jhy,lh ,dw FROM main INTO CURSOR TEMP THISFORM.grid1.RECORDSOURCEtype=4 thisform.refresh THISFORM.OPTIONGROUP2.interactivechange() （16）、form1.myfield1 ：thisform.grid1.column1.header1.caption=日期 thisform.grid1.column2.header1.caption=器材名称 thisform.grid1.column3.header1.caption=规格型号 thisform.grid1.column4.header1.caption=类别 thisform.grid1.column5.header1.caption=单价 thisform.grid1.column6.header1.caption=入库编号 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 17 页，共 33 页 - - - - - - - - - thisform.grid1.column7.header1.caption=入库数量 thisform.grid1.column8.header1.caption=入库金额 thisform.grid1.column9.header1.caption=出库编号 thisform.grid1.column10.header1.caption=出库数量 thisform.grid1.column11.header1.caption=出库金额 thisform.grid1.column12.header1.caption=班组 thisform.grid1.column13.header1.caption=领料人 thisform.grid1.column14.header1.caption=负责人 thisform.grid1.column15.header1.caption=保管员 thisform.grid1.column16.header1.caption=计划员 thisform.grid1.column17.header1.caption=料号 thisform.grid1.column18.header1.caption=单位 说明：因为我们在main.dbf 表中，字段名我们用的是英文代号，所以需要转换成汉字。若字段名是汉字的就不需要myfield13。（17）、form1.myfield2 ：thisform.grid1.column1.header1.caption=日期 thisform.grid1.column2.header1.caption=器材名称 thisform.grid1.column3.header1.caption=规格型号 thisform.grid1.column4.header1.caption=类别 thisform.grid1.column5.header1.caption=单价 thisform.grid1.column6.header1.caption=入库编号 thisform.grid1.column7.header1.caption=入库数量