手工成品管理系统的设计与实现(编辑修改稿)

手工成品管理系统的设计与实现(编辑修改稿)内容摘要：

码的操作 [13]。 手工成品管理系统 ER 图如图 所示： 9 部 门拥 有员 工采 购材 料销 售商 品供 货 商买 家提 供购 买部 门 编 号 部 门 名 称 部 门 主 管 部 门 电 话工 号姓 名密 码性 别编 号编 号名 称 银 行 账 号编 号 名 称银 行 账 号名 称 材 料 属 性 编 号 姓 名 成 品 类 别 图 ER 图 数据库逻辑结构设计 本手工成品管理系统系统使用 SQL Server 2020 数据库，数据库名为 ERP1。 表的信息如下所示。 表：用于保存 员工用户的一些 基本信息 10 表 用户表 列名 数据类型 允许空值 工号 varchar(5) 不允许 姓名 varchar(10) 不允许 性别 varchar(2) 不允许 身份证号 varchar(20) 不允许 出生年月 datetime 允许 年龄 varchar(4) 允许 民族 varchar(20) 允许 婚姻状况 varchar(4) 允许 政治面貌 varchar(10) 允许 入党团时间 datetime 允许 籍贯 varchar(50) 不允许 联系电话 varchar(50) 允许 手机号码 varchar(30) 不允许 家庭地址 varchar(50) 允许 毕业院校 varchar(50) 允许 专业 varchar(20) 允许 文化程度 varchar(10) 允许 特长 varchar(50) 允许 参加工作时间 datetime 允许 总工龄 int 允许 照片 image 允许 部门 nvarchar(50) 不允许 职务 nvarchar(50) 不允许 工资 money 不允许 调入时间 datetime 不允 许 本单位工龄 int 不允许 简历 text 不允许 登记人 nvarchar(50) 允许 登记日期 datetime 不允许 ：用于保存材料的基本信息 表 材料基本信息表 列名 数据类型 允许空值 材料编号 nvarchar(50) 不允许 材料属性 nvarchar(50) 不允许 材料名称 nvarchar(50) 不允许 单位 nvarchar(50) 允许 备注 nvarchar(50) 允许 11 ：手工材料入库的信息 表 材料入库信息表 列名 数据类型 允许空值 录单日期 datetime 不允许 录单票号 nvarchar(50) 不允许 材料编号 nvarchar(50) 不允许 材料名称 nvarchar(50) 不允许 单位 nvarchar(50) 允许 单价 money 允许 数量 numeric(18, 0) 允许 金额 money 允许 供应商名称 nvarchar(50) 允许 备注 nvarchar(50) 允许 经手人 nchar(10) 允许 ： 手工成品的一些基本信息 表 成品基本信息表 列名 数据类型 允许空格 成品编号 nvarchar(50) 不允许 成品类别 nvarchar(50) 不允许 单价 nvarchar(50) 允许 单位 nvarchar(50) 允许 主要材料 nchar(10) 允许 成品类别 nvarchar(50) 不允许 备注 nchar(10) 允许 ：手工成品的入库信息 表 成品入库信息表 列名 数据类型 允许空值 录单日期 datetime 不允许 录单票号 nvarchar(50) 不允许 材料编号 nvarchar(50) 不允许 材料名称 nvarchar(50) 不允许 单位 nvarchar(50) 允许 单价 money 允许 数量 numeric(18, 0) 允许 金额 money 允许 供应商名称 nvarchar(50) 允许 备注 nvarchar(50) 允许 经手人 nchar(10) 允许 入库方式 nvarchar(50) 允许 12 ：用于保存成品买家货款信息 表 成品货款信息表 列名 数据类型 允许空值 成品出库录单日期 datetime 不允许 录单票号 nvarchar(50) 不允许 买家 nvarchar(50) 不允许 支付方式 nvarchar(50) 允许 支付情况 nchar(10) 允许 应付金额 money 允许 结账金额 money 允许 欠款金额 money 允许 ：用于保存买家的一些基本信息 表 买家信息表 列名 数据类型 允许空值 买家编号 nvarchar(50) 不允许 买家名称 nvarchar(50) 允许 地址 nvarchar(50) 允许 电话 nvarchar(50) 允许 传真 nvarchar(50) 允许 联系人 nvarchar(50) 允许 联系人电话 nvarchar(50) 允许 开户银行 nvarchar(50) 允许 银行账号 nvarchar(50) 允许 备注 nvarchar(50) 允许 ：材料账款的的信息 表 材料账款信息表 列名 允许空值 允许空值 录单日期 datetime 不允许 录单票号 nvarchar(50) 不允许 供应商名称 nvarchar(50) 不允许 支付方式 nvarchar(50) 不允许 支付情况 nchar(10) 不允许 应付金额 money 不允许 结账金额 money 不允许 欠款金额 money 不允许 13 第 5 章 系统详细设计及实现 手工成品管理系统 的基本业务模块包括： 基本信息管理模块；部门信息管理模块；与仓库管理有关的一些模块，系统管理模块 [14]。 都是为了手工工作室成品管理与成品有关的管理更方便快捷。 在对手工成品管理系统设置了 12 个权限，例如用户权限设置、入库管理 、出库管理、员工录入等，拥有用户权限设置的用户可以自由设置其他用户对这些管理模块的操作权限，不同员工用户对系统功能有不同的操作 [15]。 这些员工基本信息在部门信息里面输入，区分每个员工用户的表示符是工号。 入库管理模块主要是对材料和成品入库，入库统计，入库分析以及账款管理；出库管理模块是对材料和成品出库，出库分析，出库统计以及账款管理。 库存管理模块主要是材料和成品库存信息。 标准模块设计 标准模块的创建方法是，右击这个工程 添加窗体 Modulel,本系统的标准模块声明了一些了一些系统的全局变量， 自定义功能模块，例如数据库连接模块，标准模块内声明的变量、子函数在整个系统内都有效。 其代码如下所示。 Public Function con() As 39。 定义一个公共函数声明一个 Connection 对象，返回一个数据库 Set con = New 39。 设置连接对象的值 Provider=。 Persist Security Info=False。 User ID=sa。 Initial Catalog=ERP1。 DataSource=LenovoPC End Function 主窗体界面设计 下面是一个窗体的主窗体的界面如图 所示。 图 主窗体界面 14 供应商管理 界面如图 所示。 图 供应商管理界面 其主要代码如下： Private Sub Cmd_add_Click() Dim rs As New Dim lsph As String Dim i As Integer For i = 0 To 9 Txt_info(i).text = Next i select * from 供应商信息表 order by 供应商编号 , _con, adOpenKeyset, adLockOptimistic 39。 打开 供应商信息表 39。 创建进货票号 If 0 Then 39。 如果 rs2 的记录集不为空 If Not Then 39。 rs2 的指针移到文件尾 If (供应商编号 ) Then 39。 如果字段票号不为空 lsph = Right(Trim((供应商编号 )), 4) + 1 39。 进货票号加 1 Txt_info(0).text = Date amp。 gys amp。 Format(lsph, 0000) 39。 格式化进货票号 End If 39。 结束 If 语句 Else 39。 如果记录集为空 Txt_info(0).text = Date amp。 gys amp。 0001 39。 设置进货票号 End If 39。 结束 If 语句 Txt_info(1).Enabled = True End Sub Private Sub Cmd_del_Click() 15 Dim rs As New If MsgBox(确认删除此供应商信息。 , vbInformation + vbYesNo, 信息提示 ) = vbYes Then select * from 供应商信息表 where 供应商编号 =39。 amp。 Txt_info(0).text amp。 39。 , con, adOpenKeyset, adLockOptimistic If 0 Then Command1_Click Dim i As Integer For i = 0 To 9 Txt_info(i).text = Next i End If End Sub 买家管理模块和供应商模块类似，在此处不再赘述 成品结构信息管理 界面如图 所示。 图 成品结构信息管理界面 其主要代码如下： Private Sub Cmd_add_Click() Dim rs As New = 添加成品基本信息 select * from 成品基本信息表 order by 成品编号 , con, adOpenKeyset, adLockOptimistic If 0 Then (0).text = (成品编号 ) + 1 Else End If 16 End Sub Private Sub Cmd_del_Click() Dim rs As New If MsgBox(确定删除成品基本信息。 , vbInformation + vbYesNo, 消息提示 ) = vbYes Then select * from 成品基本信息表 where 成品编号 =39。 amp。 (, ) amp。 39。 , con, adOpenKeyset, adLockOptimistic Set rs = Nothing End If = select * from 成品基本信息表 order by 成品编号 Set = Adodc2 tree_change End Sub 材料结构信息管理与此类似，此处不再赘述。 部门管理 界面如图 所示。 图 部门管理界面 其主要代码如下： Case addnew 39。 添加同级 tlbState False blnTJ = True blnAdd = True 17 For i = 0 To Text1(i).text = Next i If 0 Then 39。 的选定的对象，未选定时属性为 null，打开部门信息表部门全称为当前选定节点的关键词 select * from 部门信息表 where 部门全称 =39。 + + 39。 order by 编码级次 , con,。