顶昌铸业信息系统实验报告

1、湘南学院经济与管理系信息系统课程设计实验报告设计题目： 顶昌铸业信息系统 专 业： 信息管理与信息系统 年级班级： 2009级 姓 名： 石少玲 指导教师： 唐小刚 小组成员： 石少玲、田文帅、陈凯、李梦较、吴倩娟、潘四红、邹水兰 指导教师评阅：指导教师（签字） 成绩：二O一二年 月 日目录第一章：系统分析31.1需求分析31.2 可行性分析31.3 功能分析与组织结构3第二章：系统设计42.1功能结构图设计42.2功能模块设计52.4 数据库设计73.1 登陆界面103.2 主操作界面123.3库存管理界面133.4采购管理界面143.5销售管理界面153.6绩效管理界面173.7用户管理界

2、面193.8数据管理界面213.9 资料管理界面233.10 帮助界面24第四章系统测试24第五章 结束语26第一章：系统分析1.1需求分析通过对顶昌铸业实际情况的调查与研究，系统要求表现为以下几个方面：(1)统一友好的操作界面，功能操作简捷，用以保证系统的易用性(2)规范的资料管理如：客户资料、员工基本资料等 (3)实现绩效考勤管理，以绩效分来确定员工的排班优先级、约束员工的迟到、早退等现象。 (4)提供数据的备份与恢复功能。(5)基本的采购、库存管理。1.2 可行性分析1.21 技术可行性 顶昌铸业管理信息系统是基于顶昌铸业基本的业务开发的，各项功能模块没有较复杂的设计过程，且采用较为易懂

3、的visual basic工具进行开发，所以在技术上是可行的1.22 经济可行性 顶昌铸业管理信息系统的开发是以低成本为前提的，且需要的相关设施如计算机、交换机等市场价较为合适，所以顶昌铸业MIS在经济上是可行的。 1.23 管理可行性 顶昌铸业管理信息系统的各功能模块设计较为简便，操作简单快捷，管理人员不需要具备较高的专业知识，即顶昌铸业MIS在管理上是可行的。 1.24可行性研究总结 建立先进的管理系统是实现管理现代化的必由之路。而企业管理信息系统的推广和运用，是提高企业高效管理的重要举措。企业管理信息系统有效的缓解了相关企业的繁重工作，提高了管理水平、提高了后勤的服务质量。现今，已有很多

4、企业实施企业管理信息系统的应用。 1.3 功能分析与组织结构1.31 系统功能设计在需求分析的基础上，根据系统的设计原则，对系统的各项功能进行设计为：能够查看一些基本资料如：供应商资料、客户资料、员工基本资料等；对数据进行备份与恢复；根据销售单号查询销售信息如：销售数量、日期、总金额等；根据用户的身份证可以查询找回忘记的密码与用户名；用户的密码修改等功能。1.32 功能结构图顶昌铸业管理信息系统从功能上可以按下图4-1划分：第二章：系统设计系统总体结构设计包括功能结构图设计、功能模块设计和信息系统流程图设计。2.1功能结构图设计功能结构图就是将系统的功能进行分解，按功能从属关系表示的图表。愈上

5、层功能愈笼统，愈下层功能愈具体。功能分解的过程就是一个由抽象到具体、由复杂到简单的过程2.2功能模块设计将功能模块按高内聚，低耦合，影响范围在控制范围之内的原则分成若干个子模块。各模块间关系：3.3系统流程图设计：2.4 数据库设计数据库在一个信息系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整性和一致性。根据数据库的需求分析设计了顶昌铸业管理信息系统的数据库。该数据库主要包括以下几个表：表2-1 用户信息表字段名类型空值PK备注用户类型VARCHAR2(20)NY用户的类型用户名称VARCHA

6、R2(20)Y用户的名称密码VARCHAR2(6)Y用户的密码身份证号VARCHAR2(18)N用户的身份证号表2-2 产品资料表字段名类型空值PK备注产品编号VARCHAR2(20)NY产品的ID编号产品名称VARCHAR2(20)Y产品的名称产品型号VARCHAR2(20)Y产品的型号备注VARCHAR2(50)N产品的备注表2-3 供应商资料表字段名类型空值PK备注供应商编号VARCHAR2(20)NY供应商的ID编号供应商名称VARCHAR2(20)Y供应商的名称供应商类型VARCHAR2(20)Y供应商的类型地址VARCHAR2(30)N供应商的地址电话VARCHAR2(11)N电话

7、号码QQVARCHAR2(20)NQQ号码备注VARCHAR2(50)N备注表2-4 客户资料表字段名类型空值PK备注客户编号VARCHAR2(20)NY客户的ID编号客户名称VARCHAR2(20)Y客户的名称客户类型VARCHAR2(20)Y客户的类型地址VARCHAR2(30)N客户的地址电话VARCHAR2(11)N电话号码QQVARCHAR2(20)NQQ号码备注VARCHAR2(50)N备注表2-5 采购单表字段名类型空值PK备注采购单号VARCHAR2(20)NY采购单ID编号供应商编号VARCHAR2(20)Y供应商的名称采购日期VARCHAR2(20)Y采购的日期采购员VAR

8、CHAR2(20)N采购员名称是否核销VARCHAR2(11)Y是否核销入库操作人员VARCHAR2(20)N操作员编号总金额INTEGERY采购总金额表2-6 采购单明细表字段名类型空值PK备注IDVARCHAR2(20)NY自动ID编号采购单号VARCHAR2(20)Y采购单的编号产品编号VARCHAR2(20)Y所采购产品的编号采购数量INTEGERN采购的数量采购单价INTEGERY采购的单价总金额INTEGERY采购总金额表2-7 销售单表字段名类型空值PK备注销售单号VARCHAR2(20)NY销售单ID编号客户编号VARCHAR2(20)Y客户的名称销售日期VARCHAR2(20

9、)Y销售的日期销售员VARCHAR2(20)N销售员名称是否核销VARCHAR2(11)Y是否核销出库操作员VARCHAR2(20)N操作员编号总金额INTEGERY销售总金额表2-8 销售单明细表字段名类型空值PK备注IDVARCHAR2(20)NY自动ID编号销售单号VARCHAR2(20)Y销售单的编号产品编号VARCHAR2(20)Y售出产品的编号销售数量INTEGERN售出的数量成本单价INTEGERY产品销售成本单价销售单价INTEGERY产品销售单价总金额INTEGERY销售总金额销售日期VARCHAR2(20)Y销售日期表2-9 绩效考勤表字段名类型空值PK备注员工编号VARC

10、HAR2(20)NY员工ID编号姓名VARCHAR2(20)Y员工的名称部门VARCHAR2(20)Y员工所在的部门考勤状态VARCHAR2(20)N如：迟到、早退、旷工等考勤人VARCHAR2(20)Y考勤人员的名称销售日期VARCHAR2(20)Y考勤的日期表2-10 产品库存表字段名类型空值PK备注产品编号VARCHAR2(20)NY产品的ID编号产品状态VARCHAR2(20)Y如正常、待报废、积压等销售价INTEGERY产品的销售价格库存数量INTEGERN库存的数量最低储备INTEGERY该产品的最低储备正常储备INTEGERY该产品的正常储备最高储备INTEGERY该产品的最高储

11、备备注VARCHAR2(50)Y产品备注信息第三章 顶昌铸业MIS的实现3.1 登陆界面相关源代码如下：Private Sub cmdLogin_Click() '检验输入内容并存入内存 If Me.Combo.Text = "" Then MsgBox "请选择用户类别！", , "请重新输入" Me.Combo.SetFocus Exit Sub End If If Len(Trim(Me.txtName.Text) <= 0 Then MsgBox "请输入用户ID！", , "请重新

12、输入" Me.txtName.Text = "" Me.txtName.SetFocus Exit Sub ElseIf Len(Trim(Me.txtName.Text) > 16 Then MsgBox "您输入的用户ID过长，请重新输入！", , "请重新输入" Me.txtName.Text = "" Me.txtName.SetFocus Exit Sub End If If Len(Trim(Me.txtPwd.Text) <= 0 Then MsgBox "请输入密码！

13、", , "请重新输入" Me.txtPwd.Text = ""Me.txtPwd.SetFocus Exit Sub ElseIf Len(Trim(Me.txtPwd.Text) > 16 Then MsgBox "您输入的密码过长，请重新输入！", , "请重新输入" Me.txtName.Text = "" Me.txtName.SetFocus Exit Sub End If If Me.Combo.Text = "管理员" And Me.txtNa

14、me.Text = "admin" Then MDIForm1.Show Unload Me MsgBox "欢迎使用顶昌铸业管理信息系统！", , "欢迎使用"Else MsgBox "您的用户名或密码错误！", , "请重新输入" Me.txtName.Text = "" Me.txtPwd.Text = "" End If End Sub顶昌铸业管理信息系统的功能模块可分为采购管理、财务管理、绩效管理、库存管理、系统设置，各功能模块间有着密切的联系。

15、3.2 主操作界面相关源代码如下：Private Sub tc_Click() Dim myexit As Variant myexit = MsgBox("是否要退出程序？", vbYesNo, "退出") If myexit = vbYes Then EndEnd SubPrivate Sub xtzx_Click()Dim myexit As Variantmyexit = MsgBox("是否要注销程序？", vbYesNo, "退出")If myexit = vbYes ThenfrmLogin.Show

16、Unload MeEnd IfEnd Sub3.3库存管理界面相关源代码如下：Private Sub Form_Load() '初始化MSFlexGrid1With MSFlexGrid1 .Cols = 9 .TextMatrix(0, 1) = "产品编号" .TextMatrix(0, 2) = "产品状态" .TextMatrix(0, 3) = "销售价" .TextMatrix(0, 4) = "库存数量" .TextMatrix(0, 5) = "最低储备" .TextMa

17、trix(0, 6) = "正常储备" .TextMatrix(0, 7) = "最高储备" .TextMatrix(0, 8) = "备注" .ColWidth(1) = 1500 .ColWidth(2) = 1500 .ColWidth(3) = 1500 .ColWidth(4) = 1500 .ColWidth(6) = 1500 .ColWidth(7) = 1500 .ColWidth(8) = 1500 .FixedRows = 1 Dim i As Integer For i = 1 To 8 .ColAlignme

18、nt(i) = 0 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols - 1 .CellAlignment = 9 .Row = 1 End WithEnd Sub3.4采购管理界面相关源代码如下：Private Sub Command2_Click() Adodc1.Recordset.AddNewEnd SubPrivate Sub Command3_Click()Dim ans As String ans = MsgBox("确定要删除该记录吗?", vbQ

19、uestion + vbOKCancel, "删除记录") If ans = 1 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext End IfEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.Save Adodc1.RefreshEnd Sub3.5销售管理界面相关源代码如下：Private Sub Command1_Click()Dim strsql As String If Me.Text1.Text = "" Then MsgBox

20、"请输入销售单号！", , "提示" Me.Text1.SetFocus Exit Sub End If Set g_conn = New ADODB.Connection g_conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/顶昌铸业管理信息系统.mdb;Persist Security Info=False" strsql = "select * from 销售单表 where 销售单号 =

21、 '" & Text1.Text & "'" '数据表连接字符串 adors.Open strsql, g_conn, 2, 2 ' '打开数据表 If adors.EOF = True Then '用户名错误 MsgBox "没有该编号的销售单！请重新输入！", 16, "错误！" adors.Close Set adors = Nothing g_conn.Close Set g_conn = Nothing Exit Sub End If '对MS

22、HFlexGrid控件录入数据信息 adors.Closeadors.ActiveConnection = g_conn MSFlexGrid1.Clear With MSFlexGrid1 .Cols = 5 .TextMatrix(0, 1) = "销售单号" .TextMatrix(0, 2) = "客户编号".TextMatrix(0, 3) = "销售日期" .TextMatrix(0, 4) = "是否核销" MSFlexGrid1.Refresh adors.Open "select * f

23、rom 销售单表 where 销售单号=" + "'" + Text1.Text + "'" Dim i As Integer With MSFlexGrid1 .Rows = 5 .Row = 1 Do While Not adors.EOF .Rows = .Rows + 1 For i = 1 To adors.Fields.Count - 1 .TextMatrix(.Row, i) = adors.Fields(i - 1) On Error Resume Next Next i If adors.Fields(3).

24、Value <> "" Then .TextMatrix(.Row, i) = adors.Fields(3).Value End If .Row = .Row + 1 adors.MoveNext Loop .Refresh End With End With adors.CloseEnd Sub3.6绩效管理界面相关源代码如下：Private Sub Command1_Click() Dim strsql As String If Me.Text1.Text = "" Then MsgBox "请输入员工编号！", ,

25、 "提示" Me.Text1.SetFocus Exit Sub End If Set g_conn = New ADODB.Connection g_conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/顶昌铸业管理信息系统.mdb;Persist Security Info=False" strsql = "select * from 绩效考勤表 where 员工编号 = '" & Tex

26、t1.Text & "'" '数据表连接字符串 adors.Open strsql, g_conn, 2, 2 ' '打开数据表 If adors.EOF = True Then '用户名错误 MsgBox "没有此员工编号！请重新输入！", 16, "错误！" adors.Close Set adors = Nothing g_conn.Close Set g_conn = Nothing Exit Sub End If '对MSHFlexGrid控件录入数据信息 adors.

27、Close adors.ActiveConnection = g_conn MSFlexGrid1.Clear With MSFlexGrid1 .Cols = 7 .TextMatrix(0, 1) = "员工编号" .TextMatrix(0, 2) = "姓名" .TextMatrix(0, 3) = "部门" .TextMatrix(0, 4) = "考勤状态" .TextMatrix(0, 5) = "考勤人" .TextMatrix(0, 6) = "考勤时间"

28、MSFlexGrid1.Refresh adors.Open "select * from 绩效考勤表 where 员工编号=" + "'" + Text1.Text + "'" Dim i As Integer With MSFlexGrid1 .Rows = 7 .Row = 1 Do While Not adors.EOF .Rows = .Rows + 1 For i = 1 To adors.Fields.Count - 1 .TextMatrix(.Row, i) = adors.Fields(i - 1)

29、 On Error Resume Next Next i If adors.Fields(3).Value <> "" Then .TextMatrix(.Row, i) = adors.Fields(3).Value End If .Row = .Row + 1 adors.MoveNext Loop .Refresh End With End With adors.CloseEnd Sub3.7用户管理界面相关源代码如下：Private Sub Command1_Click()Dim strsql As String If Me.Text1.Text = &

30、quot;" Then MsgBox "请输入身份证号码！", , "提示" Me.Text1.SetFocus Exit Sub End If Set g_conn = New ADODB.Connection g_conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/顶昌铸业管理信息系统.mdb;Persist Security Info=False" strsql = "select

31、 * from 用户信息表 where useridentify = '" & Text1.Text & "'" '数据表连接字符串 adors.Open strsql, g_conn, 2, 2 ' '打开数据表 If adors.EOF = True Then '用户名错误 MsgBox "没有以该身份证注册的用户！请重新输入！", 16, "错误！" adors.Close Set adors = Nothing g_conn.Close Set g_co

32、nn = Nothing Exit Sub End If '对MSHFlexGrid控件录入数据信息 adors.Closeadors.ActiveConnection = g_conn MSFlexGrid1.Clear With MSFlexGrid1.Cols = 5 .TextMatrix(0, 1) = "username" .TextMatrix(0, 2) = "userpwd" .TextMatrix(0, 3) = "usertpy" .TextMatrix(0, 4) = "useridentif

33、y" MSFlexGrid1.Refresh adors.Open "select * from 用户信息表 where useridentify =" + "'" + Text1.Text + "'" Dim i As Integer With MSFlexGrid1 .Rows = 5 .Row = 1 Do While Not adors.EOF .Rows = .Rows + 1 For i = 1 To adors.Fields.Count - 1 .TextMatrix(.Row, i) = ad

34、ors.Fields(i - 1) On Error Resume Next Next i If adors.Fields(3).Value <> "" Then .TextMatrix(.Row, i) = adors.Fields(3).Value End If .Row = .Row + 1 adors.MoveNext Loop .Refresh End With End With adors.CloseEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub3.8数据管理界面相关源代码如下：Private

35、Sub Cmd_backup_Click() Cmd_backup.Enabled = FalseMe.MousePointer = 11 Dim temp_char As String Dim char As ByteIf Text1.Text = "" Then MsgBox "请您选择数据库备份的路径!", 64, "提示信息"ElseDim connter As IntegerDim sql, workarea(6) As StringProgressBar1.Visible = TrueProgressBar1.Max =

36、UBound(workarea)ProgressBar1.Value = ProgressBar1.Min For connter = LBound(workarea) To UBound(workarea) workarea(connter) = "initial value" & connter ProgressBar1.Value = connter temp_char = App.Path & "db_kcgl.mdb" '该段代码实现的是利用二进制复制文件的方法复制数据库文件 Open temp_char For Bin

37、ary As #1 '打开源文件 Open Text1.Text For Binary As #2 '打开目标文件 Do While Not EOF(1) Get #1, , char Put #2, , char '将读出的每一个字节写入到目标文件中 Loop Close Next connter ProgressBar1.Value = ProgressBar1.Min MsgBox "数据库备份成功!", 64, "提示信息" Cmd_backup.Enabled = True Me.MousePointer = 0 End

38、 IfEnd SubPrivate Sub Cmd_Cancel_Click() Unload MeEnd SubPrivate Sub Command1_Click() CommonDialog1.Filter = "数据库文件(*.mdb)|*.mdb|文本文件(*.txt)|*.txt|ALL File(*.*)|*.*" CommonDialog1.ShowSave Text1.Text = CommonDialog1.End Sub3.9 资料管理界面相关源代码如下：Private Sub CmdAdd_Click() Adodc1.Recordset.AddNe

39、wEnd SubPrivate Sub CmdDelete_Click()Dim ans As String ans = MsgBox("确定要删除该记录吗?", vbQuestion + vbOKCancel, "删除记录") If ans = 1 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext End IfEnd SubPrivate Sub CmdExit_Click()Unload MeEnd SubPrivate Sub CmdModify_Click()text1.Enabled

40、= FalseAdodc1.Recordset.UpdateEnd SubPrivate Sub CmdSave_Click()Adodc1.Recordset.Save Adodc1.RefreshEnd Sub3.10 帮助界面此界面为帮助文档查看第四章系统测试 本系统是一款专门为顶昌铸业设计的专业系统，并非普用系统，该系统以顶昌铸业的实际情况为开发依据，实现了操作简单方便，界面美观大方且风格统一的目标。资料管理功能模块解决了该企业内客户、员工信息杂乱无条理的问题；绩效管理解决了订单淡季时产品生产的优先权问题；而数据管理（数据备份，恢复）则防止了企业内相关数据的丢失、破损等问题。系统在设计过程中不可避免地遇到了各种各样的问题，由于整个系统完全都是由个人设计的，有关access和Visual Basic许多细节问题都要靠自己去学习。受开发条件和开发时间的限制，本系统只设计成了单机方式，实用性还有待改进。同时也因为是单机版的原因，系统内数据库的安全性有待提高。由于系统主要解决绩效排班、数据管理、资料管理方面，系统财务方面的功能有待提高，如财务报表等。 随着企业管理信息化脚步的到来，企业管理信息系统也脱颖而出。对于一些小微型企业也慢慢加入了这个信息化的阵容，与此同时企业各方面的管理信息