VF空调售后服务管理系统(任务书+论文+源程序) 第6页
c1=alltrim(ThisForm.text1.value)
c2=alltrim(ThisForm.Combo2.value)
c3=alltrim(ThisForm.Combo4.value)
c4=val(alltrim(thisform.text4.value))
c5=alltrim(ThisForm.Combo3.value)
c6=thisform.text6.value
IF len(c1)=0 or c4=0 or len(c2)=0 or len(c3)=0 or len(c6)=0
MESSAGEBOX('请把信息补充完整！',48,"信息")
thisform.text1.setfocus
ELSE
SELE 出库
c7={^&c6}
INSERT into 出库 (出材料单号,职工号,材料号,领用量,管理员,时间) value(c1,c2,c3,c4,c5,c7)
MESSAGEBOX('已添加到表中！',48,"信息")
ENDIF
ThisForm.text1.value=""
ThisForm.Combo2.value=""
ThisForm.Combo4.value=""
thisform.text4.value=""
ThisForm.Combo3.value=""
thisform.text6.value=""
2.出库浏览表单界面如下：
在这一界面中所要说明的是，想要浏览哪个表只需要将表单的数据环境换成要浏览的表即可实现该功能。
3.库存表单
现在可以看到上面两张截然不同的图，他们可以通过以下代码来实现：
Set talk off
Set safety off
sele 库存量1
d1=allt(thisform.Text1.value)
Loca for 材料号=d1
If foun()
Thisform.Text2.enabled=.t.
Sele 库存量 as b from 库存量1 where 材料号=d1 into dbf aaaa
Thisform.Text2.value=b
Thisform.Text2.fontsize=18
If b<10
Thisform.Text2.backcolor=Rgb(255,0,0)
Thisform.Text2.forecolor=RGB(0,0,255)
Thisform.Text2.fontsize=18
Thisform.Text2.fontbold=.t.
Messagebox('请您尽快补足货源！',48,'提示')
Endif
Thisform.refresh
Else
Messagebox("您查询的结果不存在!",48,"信息提示")
ThisForm.Text2.value=""
ThisForm.Text2.enabled=.f.
Thisform.Text1.value=""
Thisform.Text1.setfocus
Thisform.refresh
Endi
Thisform.Text1.value=""
Thisform.Text1.setfocus
Thisform.Text2.backcolor=Rgb(255,255,255)
Thisform.Text2.forecolor=RGB(0,0,0)
Set talk on
Set safety on
4.入库管理表单界面图及代码：
需要说明的是当textbox中为空时，系统会给出让您把资料填写完整的提示框，它的功能的实现以及出现以上界面的代码如下：
c1=alltrim(thisform.text1.value)
c2=alltrim(ThisForm.Combo1.value)
c3=val(alltrim(thisform.text3.value))
c4=alltrim(ThisForm.Combo2.value)
c5=alltrim(ThisForm.text5.value)
If len(c1)=0 or len(c2)=0 or c3=0 or len(c4)=0 or len(c5)=0
Messagebox("请把信息补充完整!",48,"警告")
Else Sele 入库
c6={^&c5}
Insert into 入库 (入材料单号,材料号,入库量,管理员,时间) value (c1,c2,c3,c4,c6)
Messagebox("您已成功添加入库到表!",48,"信息提示")
EndIF
ThisForm.Text1.value=""
ThisForm.Combo1.value=""
ThisForm.Text3.value=""
ThisForm.Combo2.value=""
ThisForm.Text5.value=""
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页
VF空调售后服务管理系统(任务书+论文+源程序) 第6页下载如图片无法显示或论文不完整，请联系qq752018766
