开发的sql进销存软件会持续开发代码

.如果真 (数据库连接_产品资料管理.连接SQLServer (全局_服务器IP, 全局_数据库名称, 全局_服务器用户名, 全局_数据库密码) ≠ 真)
信息框 (“连接数据库失败！”, 0, )
返回 ()
.如果真结束
.如果真 (记录集_产品资料管理.置连接 (数据库连接_产品资料管理) ≠ 真)
信息框 (“记录集_产品资料管理.置连接 (数据库连接_产品资料管理)失败”, 0, )
返回 ()
.如果真结束
.如果真 (记录集_产品资料管理.打开 (“[ERP_gt_20131022].[dbo].[ERP_cpxx]”, #数据表名, ) ≠ 真)
信息框 (“打开数据表失败”, 0, )
返回 ()
.如果真结束
_读出所有产品资料 ()

.子程序 _检验重复项_子程序, 逻辑型, , 检查有没有从复的数据，避免数据库错误
.参数 局部_要检验的, 文本型, , 看看这个名称有没有在数据库里面
.参数 局部_在哪里检验, 文本型, 数组, 已近有的名称数组。
.局部变量 局部_有没有, 逻辑型
.局部变量 局部_n1, 整数型

.计次循环首 (取数组成员数 (局部_在哪里检验), 局部_n1)
.如果真 (局部_要检验的 ＝ 局部_在哪里检验 [局部_n1])
局部_有没有 ＝ 真
跳出循环 ()
.如果真结束
局部_有没有 ＝ 假
.计次循环尾 ()