固定资产管理系统

毕 业 论 文 目 录第一章 绪论21.1 系统概述21.2 系统特点2第二章 系统设计32.1 需求分析32.1.1系统功能32.1.2 开发工具的选择32.2 系统的功能模块设计42.3 系统流程分析42.4 系统结构分析6第三章 数据库设计63.1 E-R图73.2 数据字典8第四章 详细设计84.1 界面设计84.1.1 登录界面84.1.2 系统主界面104.1.3 固定资产管理界面114.1.4 人员信息管理界面124.1.5 修改密码界面134.2 代码实现144.2.1 登录代码144.2.3 人员信息添加和删除代码154.2.4 修改密码代码17第五章 总结18全文共 20 页 5560 字固定资产管理系统摘要 固定资产管理系统旨在取代传统的人工管理方式，用计算机进行信息控制，不仅提高了管理水平，而且也提高了工作效率和信息的安全性。本系统主要包括固定资产的管理、人员信息的管理等模块。本文主要介绍了固定资产管理系统的数据库设计与实现，包括表的设计、界面的设计和功能的实现。关键词 固定资产管理系统；数据库；Visual Basic 6.0 第一章 绪论1.1 开发背景人类在发展，社会在进步，经济发展又是社会发展的一个重要标志和保障。随着经济的发展，企业的竞争也越来越强,而信息化发展进一步促进企业更好的发展，怎样把科技应用与企业的发展，成为社会的一大趋势。只有更好的利用信息的发展成果，让企业更好的发展、更高科技的发展，为社会节省大量的人力、财力，而且保障企业信息的快捷、准确、达到高效率才是当前社会前进的步伐。1.2 系统特点（1） 本系统采用人机交互方式，界面美观友好，信息查询和更新灵活方便，数据库存储安全可靠。（2） 本系统灵活简单，操作简单，方便用户使用。第二章 系统设计2.1 需求分析2.1.1系统功能（1） 管理员登录要使用本系统必须先登录，并且只有固定资产管理员能够登录。登录的时候需要输入正确的用户名和密码，管理员可以修改自己的密码。系统允许有多个固定资产的管理员，每个管理员的权限都相同。（2） 固定资产管理固定资产管理又分为固定资产类别管理和固定资产信息管理。固定资产的类别在录入信息之前就定义好，录入资产信息后可以增加新的类别。类别分为两级，如大类可以是办公外设、数码产品、计算机等；小类分为办公外设传真机、复印机、打印机、其他；数码产品数码相机、投影仪；计算机笔记本电脑、台式机、服务器等。类别可以进行添加和删除操作。固定资产的信息包括编号、名称、类别、型号、价值、购买日期、状态、使用者、备注等。资产型号是文本信息，资产的状态分为：正常、维修、报废。使用者为空表示资产未被使用。资产可以进行添加、修改和删除操作。（3） 人员信息管理人员是指可能领用固定资产的人，人员信息包括编号、姓名、性别、联系方式、职务、备注等（4） 资产的领用（5） 资产的归还（6） 资产信息浏览和查询2.1.2 开发工具的选择本系统后台数据库采用Microsoft Access 2003，前台采用Visual Basic 6.0作为主要的开发工具，Visual Basic 6.0通过ADO控件和DataGrid控件可实现与Access数据库的无缝连接。2.2 系统的功能模块设计根据上面的分析，可以得到如图2-1所示的系统功能模块图：固定资产管理系统管理员登录窗体资产的领用人员信息管理资产的归还固定资产管理资产浏览查询修改密码退出查询资产信息按类别浏览固定资产信息管理按资产类别管理按大类管理按小类管理图2-1系统功能模块图2.3 系统流程分析本系统流程比较简单，用户登录检验成功以后，就可进入系统主界面。用户可选择不同的操作，对数据库进行相应的操作。系统流程图如图2-2所示：进行相应的操作结束开始成功？资产的领用资产的管理资产的归还人员信息管理资产浏览查询修改密码退出选择菜单登录 否 是图2-2 系统流程图2.4 系统结构分析本系统主要分为登录、资产管理、人员信息管理、资产的领用、资产的归还、资产的浏览和查询、修改密码几个部分。系统结构设计图如图2-3所示：固定资产管理系统登录资产的领用资产的归还人员的管理浏览和查询修改密码数据库资产的管理图2-3 系统结构设计图第三章 数据库设计本系统采用Access 2003作为后台数据库，数据库名称为固定资产管理系统.mdb，其中包含了7张数据表，分别是：登录表、按大类管理表、按小类管理表、固定资产信息表、资产领用表、资产归还表、人员信息管理表。3.1 E-R图根据所要实现功能的要求，固定资产管理系统可以划分的实体有：管理员信息实体、固定资产信息实体、人员信息实体。用以下的E-R图来描述这些实体。管理员信息实体用户名密码日期图3-1 管理员信息实体E-R图固定资产信息实体编号名称类别型号价值备注状态使用者购买日期图3-2 固定资产信息实体E-R图人员信息实体姓名性别编号备注职务联系方式图3-3 人员信息实体E-R图3.2 数据字典表3-1 登录数据表字段名字段类型主键字段说明用户名Varchar(20)Y用户名密码Varchar(20)N密码日期Varchar(15)N登录的日期表3-2 固定资产数据表字段名字段类型主键字段说明编号IntY编号名称Varchar(10)N名称类别Varchar(15)N类别型号Varchar(15)N型号价值Varchar(15)N价值状态intN分为正常、维修、报废使用者Varchar(10)N该资产的领用人购买日期dataN购买该资产的日期表3-3 人员信息数据表字段名字段类型主键字段说明编号IntY编号姓名Varchar(10)N姓名性别Varchar(10)N性别职务Varchar(10)N职务联系方式IntN联系方式备注Varchar(20)N备注第四章 详细设计4.1 界面设计4.1.1 登录界面 图4-1 登录界面描述：如图4-1所示的是本系统的登录界面。此界面中用了2个Image控件、2个Label控件、1个ComboBox控件、1个TextBox控件和2个CommandButton控件。其中，（1） 2个Label控件的“Caption”属性分别改为“用户名”和“密码”；（2） TextBox控件的“text”属性改为“空”，“TabIndex”属性分别改为“0”和“1”；（3） ComboBox控件的“text”属性改为空，“passwordChar”属性改为“*”；（4） 2个CommandButton控件的“Caption”属性分别改为“登录（&T）”和“取消”,CommandButton2的“Default”属性改为“True”。用户登录的时候首先在ComboBox中输入用户名，在TextBox中输入密码，单击【登录】按钮，若用户名和密码都正确，则进入到系统主界面，如图4-2所示。4.1.2 系统主界面图4-2 系统主界面描述：如图4-2所示的是系统的主界面。此界面用的是“MDI”窗体，在窗体中用“菜单编辑器”制作了本系统的菜单选项，还用了1个StatusBar控件。其中，将StatusBar的“窗格”属性中的“文本”选项修改为“这事一款用VB实现的固定资产管理系统！欢迎使用”。用户在主界面的菜单中选择相应的选项，就可以进入到不同的界面，进行相应的操作，如下图所示。4.1.3 固定资产管理界面图4-3 固定资产信息管理界面描述：如图4-3所示的是本系统的固定资产管理界面。此界面中用了9个Label控件、3个ComboBox控件、6个TextBox控件和3个CommandButton控件1个ADO控件和1个DataGrid控件。其中，（1） 9个Label控件的“Caption”属性分别改为“编号”、“名称”、“类别”、“型号”、“价值”、“状态”、“使用者”、“购买日期”和“备注”；（2） 3个ComboBox控件的“text”属性都改为“空”，“DataSource”属性都改为“Adodc1”,“DataField”属性分别改为“类别”、“状态”、“备注”；（3） 6个TextBox控件的“text”属性都改为“空”，“DataSource”属性改为“Adodc1”,“DataField”属性分别改为“编号”、“名称”、“型号”、“价值”、“使用者”、“购买日期”；（4） 3个CommandButton控件的“Caption”属性分别改为“添加”、“删除”和“退出”；（5） ADO控件中，右击【ADODC属性】【生成字符串】【记录源】；（6） DataGrid控件中的“允许添加”和“允许删除”属性都改为有效，“datasource”属性改为“adodc1”。用户需要添加固定资产的时候，只要输入要添加的信息，然后按【添加】按钮，就可以将信息添加到人员信息管理表中。当用户在信息表里面选中要删除的内容，并且按【删除】按钮，就可以将所选中的信息从人员信息表中删除。4.1.4 人员信息管理界面图4-4 人员信息管理界面描述：如图4-4所示的是本系统的人员信息管理界面。此界面中，用了6个Lable控件、5个TextBox控件、1个ComboBox控件、3个CommandButton控件、1个ADO控件和1个DataGrid控件。其中，（1） 6个Lable控件的“Caption”属性分别改为“编号”、“姓名”、“性别”、“职务”、“联系方式”、“备注”；（2） 5个TextBox控件和1个ComboBox控件的“text”属性都改为“空”，“DataSource”属性都改为“Adodc1”,“DataField”属性分别改为“编号”、“姓名”、职务”、“联系方式”、“备注”、“性别”；（3） 3个CommandButton控件的“Caption”属性分别改为“添加”、“删除”和“退出”；（4） ADO控件中，右击【ADODC属性】【生成字符串】【记录源】；（5） DataGrid控件中的“允许添加”和“允许删除”属性都改为有效，“datasource”属性改为“adodc1”。用户需要添加人员信息的时候，只要输入要添加的信息，然后按【添加】按钮时，就可以将信息添加到人员信息管理表中。当用户在信息表里面选中要删除的内容，并且按【删除】按钮时，就可以将所选中的信息从人员信息表中删除。4.1.5 修改密码界面图4-5 修改密码界面描述：如图4-5所示的是本系统的修改密码界面。此界面中，用了1个ListBox控件、5个Lable控件、4个TextBox控件和2个CommandButton控件。其中，（1） 5个Lable控件的“Caption”属性分别改为“系统现有用户”、“用户名”、“请输入旧密码”、“请输入新密码”和“请确认新密码”；（2） 4个TextBox控件的“text”属性都改为空，TextBox2、TextBox3和TextBox4的“passwordchar”属性都改为“*”；（3） 2个CommandButton控件的“Caption”属性分别改为“修改”和“取消”。在修改密码的时候，要求用户重新输入密码，只有原来的旧密码正确的情况下才允许修改密码。当用户需要修改密码时，输入所要求的信息，信息正确的情况下，按【修改】按钮，就可以修改自己的密码。4.2 代码实现4.2.1 登录代码读数据库：Private Sub Form_Load() conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:毕业设计固定资产管理系统固定资产管理系统.mdb;Persist Security Info=False 打开数据库 conn.Open rs.Open select * from 登录, conn, adOpenKeyset, adLockOptimistic 打开数据集 rs.MoveFirst While Not rs.EOF Combo1.AddItem rs.Fields(用户名) rs.MoveNext j = j + 1 Wend rs.MoveFirstEnd Sub判断用户名和密码是否正确：Private Sub Command1_Click() If Trim(Combo1.Text = ) Then 判断用户名是否为空 MsgBox 用户名不能为空！, , 提示信息 Combo1.SetFocus Text1.Text = Exit Sub End If Dim i As Integer For i = 0 To j + 1If Trim(rs.Fields(用户名) = Trim(Combo1.Text) Then 判断用户名和密码是否正确If Trim(rs.Fields(1) = Trim(Text1.Text) ThenOkf = Truers.Fields(日期) = Date 日期等于系统的当前日期a = Trim(Combo1.Text)Combo1 = Trim(Combo1.Text)Okf = False 退出 Me.Hide MainForm.ShowElseMsgBox 输入的密码不正确，请重新输入！, , 警告Text1.SetFocusText1.Text = End If Exit For End If rs.MoveNextIf rs.EOF = True ThenMsgBox 该用户不存在，请重新输入！, , 警告Combo1.Text = Text1.Text = Exit For End IfNext i rs.MoveFirstEnd Sub4.2.2 人员信息添加和删除代码删除代码：Private Sub Command2_Click() Dim str As Integer str = MsgBox(确定删除吗？, vbYesNo, 退出) If str = vbYes Then Adodc1.Recordset.Delete If str = vbYes Then MsgBox 删除成功！, , 提示信息 Command1.Enabled = True 添加按钮有效 Text1(0).Enabled = True Text1(1).Enabled = True Text1(2).Enabled = True Text1(3).Enabled = True Text1(4).Enabled = True Combo1.Enabled = True 添加按钮有效 Command2.Enabled = False 删除按钮无效 Set DataGrid1.DataSource = Adodc1End Sub添加代码：Private Sub Command1_Click() If Text1(1).Text = Then 判断姓名是否为空 MsgBox 请输入需要添加人员的姓名！, , 提示信息 Text1(1).SetFocus Text1(1).Text = Exit Sub End If If Combo1.Text = Then 判断性别是否为空 MsgBox 请选择添加人员的性别！, , 提示信息 Combo1.SetFocus Combo1.Text = Exit Sub End If If Text1(2).Text = Then 判断职务是否为空 MsgBox 请输入添加人员的职务！, , 提示信息 Text1(2).SetFocus Text1(2).Text = Exit Sub End If If Text1(3).Text = Then 判断联系方式是否为空 MsgBox 请输入添加人员的联系方式, , 提示信息 Text1(3).SetFocus Text1(3).Text = Exit Sub ElseIf IsNumeric(Text1(3).Text) And Len(Text1(3).Text) 11 Then MsgBox (必须是数字且为11位1) Text1(3).SetFocus Text1(3).Text = Exit Sub End If If Text1(0).Text = Then 保证主键不为空 MsgBox 编号不能为空, 48, 提示信息 Text1(0).SetFocus Text1(0).Text = Else If Len(Trim(Text1(0).Text) 3 Then 判断编号的范围 MsgBox 编号长度超出范围！请重新输入！, , 提示信息 Text1(0).SetFocus Text1(0).Text = Exit Sub Else conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:毕业设计固定资产管理系统固定资产管理系统.mdb;Persist Security Info=False 打开数据库 conn.Open Set rs = conn.Execute(insert into 人员信息管理 values( + Text1(0) + , + Text1(1) + , + Combo1 + , + Text1(2) + , + Text1(3) + , + Text1(4) + ) 执行插入语句 conn.Close MsgBox 添加成功！, , 提示信息 End If End If 清空界面 Text1(0).Text = Text1(1).Text = Combo1.Text = Text1(2).Text = Text1(3).Text = Text1(4).Text = Set DataGrid1.DataSource = Adodc1End SubPrivate Sub DataGrid1_Click()Command2.Enabled = True 判断控件的有效性Text1(0).Enabled = TrueText1(1).Enabled = TrueText1(2).Enabled = TrueText1(3).Enabled = TrueText1(4).Enabled = TrueCombo1.Enabled = TrueEnd Sub4.2.3 修改密码代码Private Sub Command1_Click() Dim i As Integer If Text1 = Then 判断用户名是否为空 MsgBox 请先选择用户！, , 提示 List1.SetFocus Text2.Text = Text3.Text = Text4.Text = Exit Sub End If If Text2 = Then 判断旧密码是否为空 MsgBox 修改密码时需要旧密码，请输入！, , 警告 Text2.SetFocus Text3.Text = Text4.Text = Exit Sub End If If Text3 = Then 判断新密码是否为空 MsgBox 新密码不能为空！, , 提示 Text3.SetFocus Exit Sub End If For i = 0 To j + 1 If Trim(rs.Fields(用户名) = Trim(Text1.Text) Then 判断旧密码是否正确 If Trim(rs.Fields(密码) Trim(Text2.Text) Then MsgBox 输入的密码不正确，请重新输入！, , 警告 Text2.SetFocus Text2.Text = Text3.Text = Text4.Text = Else If Trim(Text3.Text) Trim(Text4.Text) Then 判断是密码是否相同 MsgBox 您两次输入的新密码不同，请重新输入！, , 警告 Text2.SetFocus Text2.Text = Text3.Text = Text4.Text = Else rs.Fields(密码) = Trim(Text3.Text) 密码修改成功 rs.Fields(日期) = Date MsgBox 用户信息已经修改成功！, , 提示 Text1.Text = Text2.Text = Text3.Text = Text4.Text = End If End If Exit For End If rs.MoveNext Next i rs.Update rs.Requery rs.MoveFirstEnd Sub第五章 总结这次毕业设计让我体会了很多。虽然说我们组只有两个人，但是在整个系统的设计中却没有一个人退缩、放弃，这是一个值得我们高兴的地方。因为我们相信我们一定能够顺利地完成整个毕业设计。而在这次毕业设计的过程中让我认识到三个东西的重要性：团队、细致、慎重。通过这次毕业设计，我深深地体会到了一个团队的重要性。我也认识到：在做一件事情时如果没有团队精神和合作精神，就算你一个人做出来东西，它也是不完美的。因为只有团结一心，互相交流才会有最好的作品诞生。在毕业设计的过程中细致也是非常重要的。因为做一个软件你需要对客户的需求进行细致的分析，我们做毕业设计也不能例外，不仅在需求分析时要细致，在整个设计过程中也要细致，绝对不能马虎，这样才能做出更好的毕业设计。第三个我觉得非常重要的是，不论做什么事切记要慎重。就比如说设计数据库：一个程序，一个项目，数据库是至关重要的东西。因为整个数据库设计的好与坏，直接影响到你之后设计的好坏。如果数据库设计不好，可能会导致你的设计根本就无法下手，所以在设计数据库时切记要慎重、仔细。对于这次的毕业设计我也有不少的收获：（1）它提高了我的自学能力，让我学到了许多书本上根本就没有的知识。（2）它也进一步提高了我对VB软件和Access