生产管理--库房管理系统.docx
《生产管理--库房管理系统.docx》由会员分享,可在线阅读,更多相关《生产管理--库房管理系统.docx(33页珍藏版)》请在三一办公上搜索。
1、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,其标题分别为:负责人、保管员、计划员、材料员、
2、密码。(图5-1)可以在其输入掩码文本框内输入其掩码,其作用是:在你浏览此表时只显示掩码,而不显示其内容。例如:你的密码是“wyc”,你输入掩码为“ok”,在你浏览表时,显示密码为“ok”,可以起到一定的保密作用,而在程序中调用表显示其内容时,不显示掩码。3、新建表main.dbf: ckbh c(10), rq d(8),qcmc c(16),ggxh c(20),lb c(6),dw c(4), dj n(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(
3、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),
4、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 offset stat off set dele on &不处理已删除的记录set cent onset date to ansiclose allRELEASE WINDOW 常用 &关闭常用工具栏if mod(day(date(),2)=0 &偶数日期_SCREEN.bac
5、kcolor=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()endifZOOM WINDOW SCREEN MAX &主窗口最大化_SCREEN
6、.controlbox=.f. &去掉主窗口控制按钮deactivate window 项目管理器 &关闭项目管理器mypath=left(sys(16),rat(,sys(16) &确定程序所在的位置set defa to (mypath) &设置当前路径set path to data;form;pic &指明路径open database kfgl &打开数据库do form logo &运行表单logoread eventsquit三、主菜单操作(BR器材入库 命令:do form rkd器材出库 命令:do form ckd-退出 命令:Clea event编辑(BR编辑浏览出入库单
7、 命令: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分别
8、为:器材入库,器材出库,修改,浏览,查找器材,身体状态测试,猜数游戏,退出。给按钮加上图片、文字(例如:猜字)。在各自的click方法程序中输入相应的命令(如:do form rkd),现在还没建立这些表单,可以在建完以后再输。四.建立logo表单(图5-3)(1)表单logo,titlebar为0-关闭,height=115,width=222。其init过程:use systenThisform.Label1.width =0Thisform.Label3.Left =thisform.widthpublic tbs,bgy1,cly1,jhy1,fzr1thisform.top=0thi
9、sform.left=0bgy1=bgycly1=clyjhy1=jhyfzr1=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.wi
10、dth =0 &label1的宽度设为0Else Thisform.Label1.width = Thisform.Label1.width +16 &宽度增加16EndIf*以下作用是让label3向左移动If Thisform.Label3.Left =3 =messagebox(你不是合法用户!你不能使用!,64,提示窗口) thisform.release Clea event else =messagebox(口令不正确!请重新输入!,64,提示窗口)thisform.txtpassword.value=thisform.txtpassword.setfocus()endifENDI
11、F(8)命令按钮caecel,退出。其click过程:thisform.releaseClea event五.表单systen(1)、表单的“caption”为“基本信息”,“windowtype”为1-模式。(2)、建立标签“label1label5”、文本框“text1text5”和命令按钮“command1”。(3)、右击表单选择“数据环境”(图6-1)。(4)、填加表systen.dbf。(图6-2)(5)、text1text5的“controlsource”分别选择systen.fzr、systen.jhy、systen.cly、systen.bgy、systen.mima。(6)、
12、label1label5的caption为:负责人、计划员、材料员、保管员、密码。(7)、command1.cilck为:thisform.release。(8)、text5的“inputmask”为:“XXXXXX”,“passwordchar”为:“*”。 操作说明:此表单让你修改一些基本数据,在材料入库时这些人的名字自动填加,在这里可以修改密码。退出表单修改自动保存。六.表单rkd(入库单)(1)、我们用一些标签和线条建立(如图6-3)表单rkd,你可以根据自己单位的情况设计。其“titlebar”为:0-关闭。(2)、建立17个文本框(由于我在设计时进行过修改,删掉了一些文本框,所以现
13、在不连续),其“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(保存入库单
14、?,4+64,提示窗口)if tis=6if !used(main)use mainelsesele mainendifAPPEND BLANKrepl lb with cbo1repl rq with date()repl pzbh with text4repl gcmc with text5repl yt with text6repl lh with text13repl qcmc with text19repl ggxh with text20repl dw with text7repl rksl with text8repl dj with text10repl rkje with t
15、ext11repl jhy with text23repl bgy with bgy1repl fzr with fzr1repl llr with cly1usetext20=text13=text4=text8=0.00text10=0.00text11=0.00text1=year(date()text2=month(date()text3=day(date()bo2.setfocusthisform.refreshendif(5)、命令按钮command2(退出)的click过程:usethisform.release(6)、表单form1的init过程: public text1,t
16、ext2,text3,text4,text5,text6,text7,text8,text10,text11,; text19,text20,text23,cbo1,text9,text13text5=text6=text7=text13=text17=text19=text20=text23=text12=text9=text4=text8=0.00text10=0.00text11=0.00text1=year(date()text2=month(date()text3=day(date()cbo1= bo2.setfocus(7)、表单form1的destroy过程:release te
17、xt1,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)、建
18、立表格Grid1。右击Grid1选择生成器选择main表,选定如下字段:qcmc、ggxh、dw、dj、cksl、ckje、lb,按确定按钮。(图7-2)(3)、修改表格Grid1。“deletemark”为:.F.-假;“recordmark”为:.F.-假;“recordsource”为:(无)(去掉main);“scrollbars”为:2-垂直。(3)、Combo1的“rowsource”为:一班,二班,三班,四班,五班,六班,办公室;“rowsourcetype”为:1-值。(4)、表单的init过程:public bz1,bh1,llr1*建立临时表lscreat cursor l
19、s ( 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.
20、column4.controlsource=ls.dj.column5.controlsource=ls.cksl.column6.controlsource=ls.ckje.column7.controlsource=ls.lbendwith(5)、打印按钮的cilck过程:bz1=bo1.valuebh1=allt(thisform.text5.value)llr1=allt(thisform.text6.value)sele lsmessagebox(请用B5纸!,16,提示信息)REPORT FORM ckdan.frx TO PRINTER thisform.refresh 其中ck
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 生产管理 库房 管理 系统
链接地址:https://www.31ppt.com/p-1957448.html