非常简单的公司仓库ERP管理系统

图片字节集 ＝ 图片框_材料图片.图片
.如果真 (编辑框_材料编号.内容 ＝ “”)
信息框 (“材料编号不允许为空”, 32, “提示”)
返回 ()
.如果真结束
.如果真 (编辑框_材料名称.内容 ＝ “”)
信息框 (“材料名称不允许为空”, 32, “提示”)
返回 ()
.如果真结束
.如果真 (组合框_材料类别.内容 ＝ “”)
信息框 (“材料类别不允许为空”, 32, “提示”)
返回 ()
.如果真结束
.如果真 (组合框_默认单位.内容 ＝ “”)
信息框 (“材料默认单位不允许为空”, 32, “提示”)
返回 ()
.如果真结束
.如果真 (编辑框_期初库存.内容 ＝ “”)
编辑框_期初库存.内容 ＝ “0”
.如果真结束
.如果真 (编辑框_材料备注.内容 ＝ “”)
编辑框_材料备注.内容 ＝ “无”
.如果真结束
.如果 (全局_数据库.执行 (“insert into 材料档案管理模块 (材料编号,材料名称,材料类别,默认单位,第二单位,换算率,安全库存,期初库存,录入人员,备注,图片) values ('” ＋ 编辑框_材料编号.内容 ＋ “','” ＋ 编辑框_材料名称.内容 ＋ “','” ＋ 组合框_材料类别.内容 ＋ “','” ＋ 组合框_默认单位.内容 ＋ “','” ＋ 组合框_第二单位.内容 ＋ “','” ＋ 编辑框_换算率.内容 ＋ “','” ＋ 编辑框_安全库存.内容 ＋ “','” ＋ 编辑框_期初库存.内容 ＋ “','” ＋ 全局_用户名称 ＋ “','” ＋ 编辑框_材料备注.内容 ＋ “',?)”, 图片字节集) ＝ 真
.如果 (信息框 (“添加材料档案信息成功！是否需要再添加材料档案信息？”, #是否钮 ＋ 64, “成功提示”) ＝ #是钮)
_按钮_材料查询_被单击 ()
.否则

.如果结束

.否则
信息框 (“您添加的材料编号重复，请重新输入！”, 64, “提示”)