vfp商品进销存管理系统论文

vfp商品进销存管理系统论文内容摘要：

enu to default set sysmenu on set status bar on use jh pack use jh1 pack use fk pack 25 use fk1 pack use mcb pack use jbrb pack use dwb pack close all clear all return pass 表单设计： 确认命令代码： IF (N2) =MESSAGEBOX(口令三次输入错误 ,不能使用本系统 ,48,信息提示 ) =.F. ELSE IF ALLTRIM()==ALLTRIM() =.T. ELSE =MESSAGEBOX(口 令 不 正 确 , 重 新 输 入 ,48,信息提示 ) =SPACE(10) N=N+1 ENDIF ENDIF 进货管理表单设计： 进货管理表单不仅包括添加、删除、修改、存储、取消、上一个、第一个、下一个、最后一个等命令，还包括查找进销单、付款、打印付款等命令。 26 查找进销单命令代码： public fchar(11),fname(11),ftype(11) fchar(1)=进货编号 fname(1)=no ftype(1)=C fchar(2)=进货日期 fname(2)=rq ftype(2)=D fchar(3)=进货单位 fname(3)=dw ftype(3)=C fchar(4)=品名 fname(4)=mc ftype(4)=C fchar(5)=单价 fname(5)=dj ftype(5)=N fchar(6)=数量 fname(6)=sl ftype(6)=N fchar(7)=金额 fname(7)=jr ftype(7)=N fchar(8)=剩余数量 fname(8)=ysl ftype(8)=N fchar(9)=经办人 fname(9)=jbr ftype(9)=C fchar(10)=保管人 fname(10)=bgr 27 ftype(10)=C fchar(11)=发货人 fname(11)=fhr ftype(11)=C do form jh12 付款命令代码： ??CHR(7) IF =0 =MESSAGEBOX(本次进货余款已全部付清 ,不能选择本按钮 ,48,信息提示 ) ELSE PUBLIC BYR SELECT JH BYR=YR amp。 amp。 为本次进货记录的余额 SELECT FK SET FILTER TO NO= COUNT TO BH DO FORM JH11 WITH BH SELECT JH REPL YF WITH YF+BYR,YR WITH YRBYR ENDIF 第一个命令代码： ??CHR(7) IF =0 =MESSAGEBOX(本次进货余款已全部付清 ,不能选择本按钮 ,48,信息提示 ) ELSE PUBLIC BYR SELECT JH 28 BYR=YR amp。 amp。 为本次进货记录的余额 SELECT FK SET FILTER TO NO= COUNT TO BH DO FORM JH11 WITH BH SELECT JH REPL YF WITH YF+BYR,YR WITH YRBYR ENDIF 上一个命令代码： skip 1 if bof() go top endif =reo() (enabled,.F.,textbox) (enabled,.F.,bobox) 下一个命令代码： skip if eof() go bottom endif =reo() (enabled,.F.,textbox) (enabled,.F.,bobox) 最后一个命令代码： go bottom =reo() (enabled,.F.,textbox) 29 (enabled,.F.,bobox) 添加命令代码： append blank =+1 (enabled,.T.,textbox) (enabled,.T.,bobox) =.T. =.T. =1 amp。 amp。 指定操作模式 删除命令代码： if messagebox(记录一旦删除便不能恢复 ,而且涉及很多相关数据删除 ,真的要删除吗 ?,48+4,信息提示 )=6 amp。 amp。 回答 是 delete = =2 amp。 amp。 指定操作模式 select fk delete for no= select jh1 delete for no= select fk1 delete for no= endif select jh 修改命令代码： (enabled,.T.,textbox) 30 (enabled,.T.,bobox) =.T. =.T. =3 amp。 amp。 指定操作模式 取消命令代码： if messagebox(是否放弃当前操作 ?, 48+4,信息提示 )=6 amp。 amp。 回答 是 =tablerevert(.F.) amp。 amp。 将数据恢复 =.F. =.F. if =1 amp。 amp。 添加操作 = if 0 amp。 amp。 若存在记录 ,则转向 取消 操作前的记录 go endif endif (enabled,.F.,textbox) (enabled,.F.,bobox) () endif 存储命令代码： if tableupdate(.F.)=.F. =messagebox(数据保存不成功 ,48,信息提示 ) else =.F. =.F. endif 打印命令代码： SELECT JH 31 THISREC=RECNO() REPO FORM JH3 FOR RECNO()=THISREC PREVIEW 进货付款表单： 付款确认命令代码： ??CHR(7) IF MESSAGEBOX(输入的付款正确吗 [一旦付款 ,不能再改动 ]?,4+32,提示信息 )=6 SELECT FK APPEND BLANK REPL NO WITH REPL NO1 WITH REPL RQ WITH REPL JR WITH REPL JBR WITH REPL YR WITH REPL BZ WITH BYR= amp。 amp。 为本次付款金额 ENDIF 查询进货单表单： 确定命令代码： if =0 if messagebox(没有设置任何条件 ,查询所有的记录 ,48+1,信息提示)=1 set filter to .t. endif return else if 0 and =0 =messagebox(设置的查询条件 2不完整 ,48,信息提示 ) 32 return endif endif cond=fname()++。 (,) do case case = 0 lcOperand = case = 1 cond=cond+ AND case = 2 cond=cond+ OR endcase if 0 cond=cond+fname()+。 +(,thi) endif testcond=0 on error testcond=1 amp。 amp。 当过滤语句不正确时 ,执行 testcond=1 set filter to amp。 cond if testcond=1 =messagebox(设置的查询条件不正确 ,48,信息提示 ) return endif go top 重置命令代码： = 33 = = = = = =.F. =.F. =.F. =0 =.F. 取消命令代码： 进货查询表单设计：该表单只能用于查找，不能输入、修改和删除进货单 查找进货表单命 令代码： public fchar(11),fname(11),ftype(11) fchar(1)=进货编号 fname(1)=no ftype(1)=C fchar(2)=进货日期 fname(2)=rq ftype(2)=D fchar(3)=进货单位 fname(3)=dw ftype(3)=C fchar(4)=品名 fname(4)=mc ftype(4)=C fchar(5)=单价 fname(5)=dj ftype(5)=N fchar(6)=数量 34 fname(6)=sl ftype(6)=N fchar(7)=金额 fname(7)=jr ftype(7)=N fchar(8)=剩余数量 fname(8)=ysl ftype(8)=N fchar(9)=经办人 fname(9)=jbr ftype(9)=C fchar(10)=保管人 fname(10)=bgr ftype(10)=C fchar(11)=发货人 fname(11)=fhr ftype(11)=C do form jh12 打印资金表命令代码： public fchar(11),fname(11),ftype(11) fchar(1)=进货编号 fname(1)=no ftype(1)=C fchar(2)=进货日期 fname(2)=rq ftype(2)=D fchar(3)=进货单位 fname(3)=dw ftype(3)=C fchar(4)=品名 35 fname(4)=mc ftype(4)=C fchar(5)=单价 fname(5)=dj ftype(5)=N fchar(6)=数量 fname(6)=sl ftype(6)=N fchar(7)=金额 fname(7)=jr ftype(7)=N fchar(8)=剩余数量 fname(8)=ysl ftype(8)=N fchar(9)=经办人 fname(9)=jbr ftype(9)=C fchar(10)=保管人 fname(10)=bgr ftype(10)=C fchar(11)=发货人 fname(11)=fhr ftype(11)=C do form jh12 排序确认命令代码： SELECT JH SEL= DO CASE CASE SEL=1 INDEX ON NO TO TEMPIDX 36 CASE SEL=2 INDEX ON RQ TO TEMPIDX CASE SEL=3 INDEX ON DW TO TEMPIDX CASE SEL=4 INDEX ON MC TO TEMPIDX CASE SEL=5 INDEX ON XH TO TEMPIDX CASE SEL=6 INDEX ON JBR TO TEMPIDX ENDCASE GO TOP 返回命令代码： close data 商品销售管理表单设计： 确实。