VF进销存管理系统论文
在Oftenbuttons1控件的_ChangeButtonClick事件下添加如下代码：
FOR m=4 TO 12
textname="text"+alltrim(str(m))
thisform.&textname..enabled=.t.
ENDFOR
thisform.combo1.enabled=.t.
thisform.command1.enabled=.f.
thisform.grid1.readonly=.f.
thisform.grid1.enabled=.f.
thisform.locatebuttons1.enabled=.f.
在Oftenbuttons1控件的AreyouOK方法程序下添加如下代码：
a=messagebox("确定要保存吗?",32+4,"系统提示")
IF a=6
DO CASE
CASE empty(thisform.text2.value)=.t.
messagebox("请添加商品名称!！",16, "系统提示")
this.sure=.f.
thisform.text2.setfocus
CASE empty(thisform.text4.value)=.t.
messagebox("请添加商品规格！",16, "系统提示")
this.sure=.f.
thisform.text4.setfocus
CASE empty(thisform.text5.value)=.t.
messagebox("请添加计量单位！",16, "系统提示")
this.sure=.f.
thisform.text5.setfocus
CASE empty(thisform.combo1.displayvalue)=.t.
messagebox("请选择供应商！",16, "系统提示")
this.sure=.f.
thisform.combo1.setfocus
CASE empty(thisform.text9.value)=.t.
messagebox("请添加商品进价！",16, "系统提示")
this.sure=.f.
thisform.text9.setfocus
CASE empty(thisform.text10.value)=.t.
messagebox("请添加商品批发价！",16, "系统提示")
this.sure=.f.
thisform.text10.setfocus
CASE empty(thisform.text11.value)=.t.
messagebox("请添加商品零售价！",16, "系统提示")
this.sure=.f.
thisform.text11.setfocus
OTHERWISE
cs=0
IF this.butstyle=1
SELECT * FROM 商品信息表 WHERE 名称 = alltrim(thisform.text2.value) ;
INTO CURSOR lssp &&查询同名商品
IF reccount()<>0
thisform.text2.value=alltrim(thisform.text2.value)+;
"("+alltrim(thisform.text4.value)+")["+;
alltrim(thisform.text6.value)+"]"
SELE lssp
FOR m=1 TO reccount()
SELE lssp
GOTO m
IF alltrim(thisform.text2.value)==alltrim(lssp.名称)
messagebox("对不起！您输入的商品在数据表中已经存在！",16;
,"添加错误")
thisform.text2.value=""
thisform.text2.setfocus
this.Sure=.f.
RETURN
ENDIF
ENDFOR
IF right(alltrim(lssp.名称),1)<>"]"
UPDATE 商品信息表 SET 名称=alltrim(lssp.名称)+;
"("+alltrim(lssp.规格)+")["+alltrim(lssp.产地)+"]" WHERE 编号=lssp.编号
ENDIF
ENDIF
this.sure=.t.
ENDIF
ENDCASE
ENDIF
在表格控件Grid1的AfterRowColChange事件下添加如下代码：
thisform.resee
在Grid1控件的Init事件下添加如下代码：
SELE 商品信息表
this.setall("DynamicBackColor","iif(recno()%2=0,rgb(188,240,209),rgb(255,255,255))","Column")
在“查询字段”组合框的Init事件下添加如下代码：
PUBLIC mygg,jlh
mygg=.f.
jlh=1
this.additem("编号")
this.additem("名称")
this.additem("简称")
this.additem("规格")
this.additem("计量单位")
this.additem("产地")
在“查询字段”组合框的InterActiveChange事件下添加如下代码：
mygg=.f.
在“查询条件”文本框的InterActivechange事件下添加如下代码：
mygg=.f.
在“查询”按钮的 Click 事件下添加如下代码：
zd=alltrim(thisform.combo2.displayvalue) &&查询字段
FOR m=1 TO 4 &&连接符号
optionmc="OPTION"+alltrim(str(m))
IF thisform.optiongroup1.&optionmc..value=1
fh=alltrim(thisform.optiongroup1.&optionmc..caption)
exit
ENDIF
ENDFOR
IF empty(thisform.combo2.displayvalue) OR empty(thisform.text13.value)
RETURN
ENDIF
IF fh="LIKE"
tj=alltrim(thisform.text13.value)+"%" &&查询条件
ELSE
tj=alltrim(thisform.text13.value)
ENDIF
SELECT * FROM 商品信息表 WHERE &zd. &fh tj INTO CURSOR lssxb &&根据条件建立查询
SELE 商品信息表
IF mygg=.f. &&记录是否更改查询条件或字段的变量
LOCA FOR 编号=lssxb.编号 &&没有更改，重新查找
ELSE &&如果并没有更改也就是说是继续查找
SELE lssxb
IF eof()=.f. &&如果没到文件尾
SELE lssxb
GOTO jlg &&记录当前记录号的变量
SKIP &&向下移动一条记录
jlh=recno() &&记录新的记录号
SELE 商品信息表
LOCA FOR 编号=lssxb.编号 &&用新的记录号在商品信息表中查找
ENDIF
ENDIF
IF found()=.f.
WAIT WINDOWS "没有查找到指定记录..." TIMEOUT 1
jlh=1
mygg=.f.
ELSE
thisform.resee
thisform.grid1.setfocus
mygg=.t.
ENDIF
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>