进销存管理系统

基于条形码的仓库管理系统源码

十.用户管理界面设计:运行效果如下

1.添加按钮代码:

ifallt(thiorm.text1.value)等于等于""

messagebox("用户名必须填写!","系统提示:")

else

locateforallt(thiorm.text1.value)等于等于allt(yh.user)

iffound()

messagebox("用户已存在!","系统提示:")

thiorm.text1.value等于""

else

ifallt(thiorm.text2.value)等于等于""

messagebox("必须填写!","系统提示:")

else

selectmax(yh.yhid)fromyhintoarraya

insertintoyhvalues(a+1,thiorm.text1.value,thiorm.text2.value,"普通用户",thiorm.text3.value,0)

messagebox("用户添加成功!","系统提示:")

endif

endif

endif

thiorm.text1.value等于""


thiorm.text2.value等于""

thiorm.text3.value等于""

thiorm.refresh

2.修改按钮:

ifthis.caption等于"修改"

thiorm.grid1.enabled等于.t.

this.caption等于"退出修改"

messagebox("你直接可以在表中修改记录了!","系统提示:")

else

thiorm.grid1.enabled等于.f.

messagebox("你作的所有操作都已经保存了!","系统提示:")

this.caption等于"修改"

endif

thiorm.refresh

这个按钮的思想是利用了表中的数据可以修改并返回到源表中这个特性

3.删除与恢复:

与管理商品信息中的思路是一样,同样是添加与删除一个标记,在退出本页面时将彻底删除添加了删除标记的数据,代码如下:

ifallt(thiorm.text1.value)等于等于""

messagebox("请输入你要删除的用户名!","系统提示:")

else

locateforallt(thiorm.text1.value)等于等于allt(yh.user)

iffound()

a等于messagebox("确实要删除此记录吗!",4+32,"系统提示:")

ifa等于6

ifreo()<,>,1

deletefromyhwhereallt(thiorm.text1.value)等于等于allt(yh.user)

messagebox("添加删除标记成功,退出页面将被彻底删除!","")

else

messagebox("第一个用户是管理员,不能删除些用户!","系统提示:")

endif

else

endif

else

messagebox("没有此用户!","系统提示:")

endif

删除:

ifallt(thiorm.text1.value)等于等于""

messagebox("请输入你要恢复删除的用户名!","系统提示:")

else

locateforallt(thiorm.text1.value)等于等于allt(yh.user)

iffound()

ifdeleted()

recall

messagebox("恢复已删除的用户成功!","系统提示:")

thiorm.text1.value等于""

else

messagebox("此用户没有添加删除标记!","系统提示:")

endif

else

messagebox("没有此用户!","系统提示:")

thiorm.text1.value等于""

endif

endif

thiorm.refresh

十一.计量单位管理页面:

保存按钮代码:

ifthiorm.co1.enabled等于.f.

this.caption等于"保存"

thiorm.co1.enabled等于.t.

thiorm.co1.setfocus

else

thiorm.co1.enabled等于.f.

this.caption等于"添加记录"

s等于allt(thiorm.co1.value)

ifs等于等于""

messagebox("计量单位为空,不能添加!","系统提示:")

else

locatefors等于等于allt(jiliangdanwei.单位)

iffound()

messagebox("此单位计量单位已经存在!","系统提示:")

else

inseintojiliangdanweivalue(s)

messagebox("成功添加信息到计量单位表!","系统提示:")

thiorm.co1.enabled等于.t.

this.caption等于"保存"

endif

endif

endif

thiorm.co1.value等于""

thiorm.co1.setfocus

thiorm.refresh

删除与恢复:与上文的思路相同代码相似,在这里不再赘述

(未完待续)

06级信息管理1班基于条形码的仓库管理系统

中州大学信息工程学院06级信息管理班

类似论文

超市进销存管理系统的设计与实现

摘 要:主要介绍超市进销存管理系统的设计与实现方法,主要包括网络规划、环境设计、系统功能设计等,同时还介绍了如何将条码和。
更新日期:2024-5-10 浏览量:69104 点赞量:15849

进销存管理系统的开发

[摘 要]进销存管理系统是面向中小企业的资源信息化管理开发的系统,以实现对企业提供信息化管理 建立了C/S管理系。
更新日期:2024-7-27 浏览量:93905 点赞量:20329

鞋店进销存管理系统的与设计

摘 要:本文主要研究在PowerBuilder9 0的开发环境下,利用PowerBuilder语言,设计一个功能齐全的鞋店进销存管理系统软件。
更新日期:2024-5-19 浏览量:69662 点赞量:15795

企业进销存管理系统的与开发

摘 要进销存管理系统就是结合中小企业的特点,为中小企业量身进销存管理系统 进销存管理系统设计的总体目标是通过对进货、销售。
更新日期:2024-3-17 浏览量:44632 点赞量:10657

进销存管理系统的设计方法

摘 要:进销存管理是商业信息管理的重要部分,面对大量的商品信息,采用人力处理将。
更新日期:2024-9-8 浏览量:17294 点赞量:4982

中小企业进销存管理系统的与设计

摘 要:随着技术发展,电脑操作及管理目趋简单化,面对市场经济的快速多变,企业采用电脑管理商品的进货、库存、销售等诸。
更新日期:2024-4-11 浏览量:56973 点赞量:13396

进销存管理系统的设计

【摘 要】随着全球经济一体化的发展和电子商务的兴起,网络及电子商务的迅猛发展突破了时间、空间的局限性,给企业。
更新日期:2024-2-8 浏览量:8043 点赞量:2909