1、收货单仓库管理员 图2.1 采购管理业务流程图2.2 数据流程分析根据数据流程图画出的业务流程图如图2.2和图2.3所示:数据流程图能全面地描述信息系统逻辑模型提货单采购处理 采购订单 图2.2 采购管理的顶层数据流程图财务账簿财务 部 退货单数据 订 单 数 据采购订单审核处理采购部 采购订单 订单数据 入 出 库 库 单 单销售部收退货处理库存处理 销售报表 出、入库数据库存台账图2.3 采购管理系统的第二层数据流程图2.3 数据字典1)数据项的定义(以采购订单的单据编号为例) 数据项编号:I02-01 数据项名称:单据编号 别名: 简述:区别采购订单唯一性的代码 类型与长度:字符型,长度
2、为11 取值范围:“20110101001”“21001231999” 2)数据结构的定义(以采购订单为例) 数据结构编号:DS02-01 数据结构名称:采购部门所填采购订单信息 数据结构组成:DS02-02 + DS02-03 + DS02-043)数据流的定义(以采购订单为例) 数据流编号:D02-02 数据流名称:合格的采购订单经审核批准的采购订单 数据流来源:采购订单审核处理模块 数据流去向:采购部门 数据项组成:单据编号+录单日期+商品编号+商品名称+型号+规格+单位+数量+单价+合计金额+供应商+到货日期+联系人+电话+业务员+摘要 数据流量:约30张/日 高峰流量:约50张/日
3、4)处理逻辑的定义(以采购订单审核为例) 处理逻辑编号:P02-01 处理逻辑名称:审核采购订单是否合格并给予批准或不批准 输入的数据流: 审核处理描述:审核采购部门送来的采购订单填写格式是否符合要求,单据上的信息是否符合采购计划,是否真实等。不合格的单据返回采购部门,合格的单据登记采购订单台账。输出的数据流:合格的采购订单,未批采购订单 处理频率:约30次/日5)数据存储的定义(以采购订单数据存储为例) 数据存储编号:F02-01 数据存储名称:采购订单台账存放采购订单信息 数据存储组成:单据编号+录单日期+商品编号+商品名称+型号+规格+单位+数量+单价+合计金额+预付账户+预付金额+供应
4、商+到货日期+联系人+电话+业务员+摘要 关键字: 相关联的处理: 6)外部实体的定义(以供应商为例) 外部实体编号:S02-01 外部实体名称:提供商品的供应商 输出的数据流:D02-013. 系统设计3.1 系统总体结构新系统的功能设计是以业务流程图和数据流程图为依据的。对该采购管理系统划分为系统设置、资料管理、采购订单、订单收货、采购开单、采购付款、采购退货、产品销售等功能模块。根据以上分析,该采购管理系统功能划分图如图3.1所示:采购管理系统系统设置采购管理产品销售采购退货采购付款订单收货修改密码权限管理添加用户 图3.1 采购管理系统功能结构图3.2 数据结构与数据库设计ER模型:概
5、念模型的最常用的表示方法是实体-联系方法。商品名称型号商品编号订单号规格日期供应商名称交给联系人编号电话名称交货商品数量仓库数量单价 图3.2 采购管理系统E-R模型图 数据表的设计:这是根据数据流程图设计的数据表主键列名数据类型长度允许空*供应商代码char3文本4产品代码6产品名称图3.1 产品销售表89单位15varchar15合计金额19入库日期datatime11业务员摘要表3.2 商品库存表3.3 代码设计 代码设计部分主要是采购订单号的设计。博宏公司的主要合作伙伴为其设计固定的编码。采购订单号是由供应商名和产品类别构成的。表3.3为采购订单编号表 :供应商代码*001A经销商N-
6、01联想电脑002B经销商N-02戴尔电脑003C经销商N-03索尼电脑004D经销商N-04华硕电脑005E经销商N-05宏基电脑006F经销商N-06三星电脑007G经销商N-07惠普电脑 表3.3 采购订单编号表 3.4 输入输出设计输出设计:输出设备:打印机、显示器 输出报告:输出设计书资料代码XS-01输出名称销售报表份数1报送库存部门项目号项目名称位数及编辑备注X(4)2X(6)销售数量X(3) 表3.4 输出设计书输入设计: 对输入信息进行校验在登陆界面: 用户名及密码不能为空,如不填写两者或两者之一,则会弹出对话框提醒用户不存在,请从新输入!如果用户输入的密码不是密码管理表中的
7、用户名及密码,则会弹出对话框提醒在产品销售中:商品编号不能为空,否则会弹出对话框提醒Sorry,未找到你所查询的数据,请查证后再试单据号录单日期到货日期预付账户预付金额 表3.5 产品销售单录入屏幕3.5系统的安全设计信息系统安全设计主要解决以下几个问题:1 止带宽资源滥用2 防止无关网络行为影响工作效率3 管控外发信息,降低泄密风险4 掌握组织动态、优化员工管理5 为网络管理与优化提供决策依据,防止病毒木马等网络风险 低成本且有效推行信息管理制度等4. 系统实施4.1 系统实施一、登录界面当输入的账号为:xiaolin密码为:xiaolin 时,焦点会自动落在确定上面,此时点击确定或按回车键
8、即可以登入系统。若错误,则会弹出对话框提醒“此用户不存在,请重新输入!”并且它的输入密码为“*”,是在属性栏中的passwordchar设置“*”。用户名及密码不能为空,如不填写两者或两者之一,则会弹出对话框提醒此用户不存在,请从新输入!此用户不在,请从新输入!图4-1 登陆窗口它的具体代码为:Dim TIM As Integer 定义一个整型变量Dim myval As String 定义一个字符串变量Private Sub Form_Load() 连接access数据库 Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;D
9、ata Source= & App.Path & 采购管理系统.mdb;Persist Security Info=False Adodc1.RecordSource = select * from 用户 Adodc1.Refresh End SubPrivate Sub Command1_Click()Static itimes As Integer Form2.StatusBar1.Panels(4).Text = Text1.Text 验证用户名及密码select * from 用户 where 用户名= + Text1.Text + If Adodc1.Recordset.Record
10、Count 0 Then 如果记录数大于零验证密码 If Text2.Text = Adodc1.Recordset.Fields(密码) Then Load Form2 Form2.Show Unload Me Else If Text2.Text Adodc1.Recordset.Fields( MsgBox 密码错误,请重新输入!, vbCritical, 系统提示 itimes = itimes + 1 Text2.Text = Text2.SetFocus End If用户不存在,请重新输入! Text1.Text = Text1.SetFocus If itimes = 3 The
11、n 错误3次,退出系统 MyMsg = MsgBox(输入错误,请向管理员查询!) If MyMsg = vbOK Then EndEnd SubPrivate Sub Command2_Click()EndPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Command1_Click 按回车键进入Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKe
12、yReturn Then Text2.SetFocus 按回车键,text2获得焦点二、主界面主界面是登陆后最基础的一个界面,内容包括采购订单,订单收获,采购开单,采购付款,采购退货,产品销售。图4-2 主界面Form3.ShowForm2.Enabled = FalsePrivate Sub 供应商资料_Click()Form21.ShowPrivate Sub 库存查询_Click()Form8.ShowPrivate Sub 权限管理_Click()Form91.ShowPrivate Sub 添加用户_Click()Form9.ShowPrivate Sub 退出系统_Click()P
13、rivate Sub 修改密码_Click()Form92.Show三添加用户图4-3 添加用户Private Sub Form_Load()自动识别数据库路径Adodc1.ConnectionString = Adodc1.RecordSource = select * from 权限设置Adodc1.RefreshAdodc2.ConnectionString = Adodc2.RecordSource = select * from 用户Adodc2.RefreshPrivate Sub Form_Activate() Text1.SetFocus text1获得焦点Private Su
14、b Form_Unload(Cancel As Integer) Form2.Enabled = True回车text2获得焦点 If KeyCode = vbKeyReturn Then Text3.SetFocus 回车text3获得焦点Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Command1.SetFocus 回车Command1获得焦点 Dim yhm 保存用户名及密码 If Text1.Text Then If Text1.Text = Adodc1.Recordset.Fields(用户名已添加该用户,请重新添加, , : Text3.Text = ElseIf Text2.Text And Text3.Text 0 Then App
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1