商店记账管理系统

1、 2014级高级语言程序设计 石家庄铁道大学四方学院集中实践报告书课题名称商店记账管理系统姓 名学 号系、 部土木工程系专业班级指导教师刘仁芬2015年 06 月 25 日 一、 设计任务及要求：设计任务：商店记账管理系统的开发要 求：内容要求：商店记账管理系统主要功能：登记信息模块（基本货物信息、职员信息、客户信息），该模块主要是增加货物的基本信息、新职员的基本信息、新客户的基本信息；新增数据模块（新增记账单、新增结账单），该模块主要是对往来客户进行记账、结账登记等；查询统计模块（单据查询、库存查询），该模块主要是对往来单据的查询、对库存的查询等；维护设置模块（修改密码、更换用户登陆），该模

2、块主要是职员对自己密码的修改、管理员对职员权限的设置等。设计要求：建立一个工程，将完成本题目创建的所有文件添加到工程中；根据题目的要求建立数据库，库中建立所需的表。数据表之间根据需要建立必要的联系。用窗体设计一个漂亮的系统封面。将完成的全部内容生成一个.exe文件。所有的界面请尽可能设计的直观、漂亮一些。二、指导教师评语： 三、成绩 指导教师签名： 年 月 日 商店记账管理系统的开发1选题的意义随着竞争的愈加激烈，建立一个科学的管理系统能够把握客户的需求习惯，快速响应客户需求，及时给客户下单，并在恰当的时候向客户推荐合适的商品。建立一个科学的管理系统能够更好的管理员工，并分配任务，赢得更大的效

3、益；商店记账管理系统能够管理客户资料，完成销售记录等功能，为公司带来便利，赢得更大的效益；在该系统的制作过程中，我学会了数据库的创建和连接，函数过程和控件数组的使用，条件语句（If语句，Select Case语句）和循环语句的运用。2 系统功能需求分析2.1系统概述商店记账管理系统登陆界面用户管理基本信息查询管理信息查询退出图1 总体模块图2.2系统的组成及各模块的功能1.登陆界面：使工作人员、客户以及管理人员能够登录系统2.用户管理界面：部门管理（增减管理工作岗位以及部门），职位管理（增加以及减少工作职位），电话管理（对工作人员的联系方式予以管理），用户管理（对登录用户的账户以及密码进行管理

4、，管理员对职员权限的设置），数据表清空（对数据表进行清空）3.基本信息查询管理界面：员工基本信息（对员工及客户的信息进行管理和编辑），货物基本信息（对货物的进价单价数量以及库存等进行管理和编辑）4.信息查询界面：库存查询（对货物的库存进行更直观的表示），按名称，按部门（对人员资料进行显示）5.退出：退出系统2.3系统的运行环境：1.系统使用环境 操作系统:Windows 2007/XP 系统支持：Visual basic 6.0及以上版本支持库数据库：Access。硬件环境：处理器;Intel Pentium 166MX或者更高。硬盘：剩余使用空间1GB以上。内存：32MB以上。显卡：SVGA

5、显示适配器。 2.系统开发环境 操作系统：Windows 2007/XP。系统支持：Visual Basic 6.03系统设计3.1数据库实现表1 登陆账号密码表字段名称数据类型字段大小登陆账号文本50登录密码数字长整型 表2 客户及人员资料表字段名称数据类型字段大小用户姓名用户性别所在部门人员职位用户电话出生日期文本文本文本文本数字日期时间50505050长整型表3 库存查询表字段名称数据类型 字段大小货物名称 文本 50剩余库存 数字 长整型表4 货物信息表字段名称数据类型 字段大小货物名称 文本 50购买数量 数字 长整型进货单价 数字 长整型出货单价 数字 长整型销售日期 日期时间剩余

6、库存 数字 长整型销售人员 文本 50购买人员 文本 504系统实现4.1其他模块的设计与实现Form2.ShowEnd SubPrivate Sub k1_Click()Form9.ShowEnd SubPrivate Sub p1_Click()Form11.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)If Button.Index = 1 Then Form2.ShowIf Button.Index = 2 Then Form12.ShowEnd SubPrivate Sub x

7、_Click()Unload MeEnd SubPrivate Sub x1_Click()Form15.ShowEnd SubPrivate Sub xmgl_Click()Form16.ShowEnd Sub图2 商店记账管理系统使用界面Private Sub 货物信息_Click()Form10.ShowEnd SubPrivate Sub 库存查询_Click()form3.ShowEnd Sub图3 基本员工信息管理Private Sub Command1_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click(

8、)Adodc1.Recordset.DeleteEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.UpdateAdodc1.Recordset.MoveNextEnd SubPrivate Sub Command5_Click()CommonDialog1.ShowOpenDim s$, s1$, s2$, i%s = s2 = CommonDialog1.FileNameFor i = LenB(s2) To 1 Step -1s1 = Mid(s2,

9、 i, 1)If s1 Thens = s1 + sElseExit ForEnd IfNextImage1.Picture = LoadPicture(App.Path + image + s)Text3 = sEnd SubPrivate Sub Form_Load()Adodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= + App.Path + yey.mdbAdodc2.RecordSource = select * from bmAdod

10、c2.RefreshCombo1.ClearDo While Not Adodc2.Recordset.EOFCombo1.AddItem Adodc2.Recordset.Fields(0).ValueAdodc2.Recordset.MoveNextLoopAdodc2.RecordSource = select * from zwAdodc2.RefreshCombo2.ClearDo While Not Adodc2.Recordset.EOFCombo2.AddItem Adodc2.Recordset.Fields(0).ValueAdodc2.Recordset.MoveNext

11、LoopAdodc2.RecordSource = select * from zcAdodc2.RefreshCombo3.ClearDo While Not Adodc2.Recordset.EOFCombo3.AddItem Adodc2.Recordset.Fields(0).ValueAdodc2.Recordset.MoveNextLoopAdodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= + App.Path + yey.mdbAd

12、odc1.RecordSource = select xm as 姓名,xb as 性别,cs as 出生日期,bm as 部门,zw as 职位,zc as 电话,zp as 照片 from jbxxAdodc1.RefreshEnd SubPrivate Sub Text3_Change()If Text3 ThenImage1.Picture = LoadPicture(App.Path + image + Text3)ElseImage1.Picture = LoadPicture()End IfEnd Sub图4 货物查询Private Sub Command1_Click()Ado

13、dc1.CommandType = adCmdTextAdodc1.RecordSource = select * from hw where 货物名称 = + Text1 + Adodc1.RefreshEnd SubPrivate Sub Command2_Click()Form9.HideForm1.ShowEnd Sub图5 员工查询Private Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()Adodc1.RecordSource = select * from jbxx where xm= + Tex

14、t6 + Adodc1.RefreshEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=yey.mdbEnd Sub图6 部门查询Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load()Adodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Per

15、sist Security Info=False;Data Source= + App.Path + yey.mdbAdodc2.RecordSource = select * from bmAdodc2.RefreshList1.ClearList1.AddItem 全部Do While Not Adodc2.Recordset.EOFList1.AddItem Adodc2.Recordset.Fields(0).ValueAdodc2.Recordset.MoveNextLoopAdodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.

16、3.51;Persist Security Info=False;Data Source= + App.Path + yey.mdbAdodc1.RecordSource = select xm as 姓名,xb as 性别,cs as 出生日期,bm as 部门,zw as 职位,zc as 电话,zp as 照片 from jbxxAdodc1.RefreshEnd SubPrivate Sub List1_Click()Dim s$s = List1.TextIf s = 全部 ThenAdodc1.RecordSource = select xm as 姓名,xb as 性别,cs a

17、s 出生日期,bm as 部门,zw as 职位,zc as 电话,zp as 照片 from jbxxAdodc1.RefreshElseAdodc1.RecordSource = select xm as 姓名,xb as 性别,cs as 出生日期,bm as 部门,zw as 职位,zc as 电话,zp as 照片 from jbxx where bm= + s + Adodc1.RefreshEnd IfEnd Sub 5设计体会5.1总结：VB小学期课程的完成，让我非常开心。在制作过程中，我遇到了许许多多的困难，让我无法继续完成，这时刘仁芬老师给予我帮助，悉心指导我，再加上同学们的帮助得以让我从困境中走出。通过这次课程设计我学到了很多东西。从前我只知道学习课本，却不知如何把课本上的东西实践操作出来。现在能够把所学的知识付诸于实践，感觉非常开心。感谢学校给我这次机会把所学用于实践，感谢老师的悉心指导，感谢同学们的鼓励和帮助。5.2存在的主要问题：在本程序的制作过程中，对于我来说最大的问题是代码复杂，数据库的连接