商店记账管理系统.docx
- 文档编号:27475701
- 上传时间:2023-07-01
- 格式:DOCX
- 页数:20
- 大小:819.74KB
商店记账管理系统.docx
《商店记账管理系统.docx》由会员分享,可在线阅读,更多相关《商店记账管理系统.docx(20页珍藏版)》请在冰豆网上搜索。
商店记账管理系统
石家庄铁道大学四方学院
集中实践报告书
课题名称
商店记账管理系统
姓名
学号
系、部
土木工程系
专业班级
指导教师
刘仁芬
2015年06月25日
一、设计任务及要求:
设计任务:
商店记账管理系统的开发
要求:
内容要求:
商店记账管理系统主要功能:
登记信息模块(基本货物信息、职员信息、客户信息),该模块主要是增加货物的基本信息、新职员的基本信息、新客户的基本信息;新增数据模块(新增记账单、新增结账单),该模块主要是对往来客户进行记账、结账登记等;查询统计模块(单据查询、库存查询),该模块主要是对往来单据的查询、对库存的查询等;维护设置模块(修改密码、更换用户登陆),该模块主要是职员对自己密码的修改、管理员对职员权限的设置等。
设计要求:
建立一个工程,将完成本题目创建的所有文件添加到工程中;根据题目的要求建立数据库,库中建立所需的表。
数据表之间根据需要建立必要的联系。
用窗体设计一个漂亮的系统封面。
将完成的全部内容生成一个.exe文件。
所有的界面请尽可能设计的直观、漂亮一些。
二、指导教师评语:
三、成绩
指导教师签名:
年月日
商店记账管理系统的开发
1选题的意义
随着竞争的愈加激烈,建立一个科学的管理系统能够把握客户的需求习惯,快速响应客户需求,及时给客户下单,并在恰当的时候向客户推荐合适的商品。
建立一个科学的管理系统能够更好的管理员工,并分配任务,赢得更大的效益;商店记账管理系统能够管理客户资料,完成销售记录等功能,为公司带来便利,赢得更大的效益;
在该系统的制作过程中,我学会了数据库的创建和连接,函数过程和控件数组的使用,条件语句(If语句,SelectCase语句)和循环语句的运用。
2系统功能需求分析
2.1系统概述
图1总体模块图
2.2系统的组成及各模块的功能
1.登陆界面:
使工作人员、客户以及管理人员能够登录系统
2.用户管理界面:
部门管理(增减管理工作岗位以及部门),职位管理(增加以及减少工作职位),电话管理(对工作人员的联系方式予以管理),用户管理(对登录用户的账户以及密码进行管理,管理员对职员权限的设置),数据表清空(对数据表进行清空)
3.基本信息查询管理界面:
员工基本信息(对员工及客户的信息进行管理和编辑),货物基本信息(对货物的进价单价数量以及库存等进行管理和编辑)
4.信息查询界面:
库存查询(对货物的库存进行更直观的表示),按名称,按部门(对人员资料进行显示)
5.退出:
退出系统
2.3系统的运行环境:
1.系统使用环境
操作系统:
Windows2007/XP
系统支持:
Visualbasic6.0及以上版本支持库
数据库:
Access。
硬件环境:
处理器;IntelPentium166MX或者更高。
硬盘:
剩余使用空间1GB以上。
内存:
32MB以上。
显卡:
SVGA显示适配器。
2.系统开发环境
操作系统:
Windows2007/XP。
系统支持:
VisualBasic6.0
3系统设计
3.1数据库实现
表1登陆账号密码表
字段名称
数据类型
字段大小
登陆账号
文本
50
登录密码
数字
长整型
表2客户及人员资料表
字段名称
数据类型
字段大小
用户姓名
用户性别
所在部门
人员职位
用户电话
出生日期
文本
文本
文本
文本
数字
日期/时间
50
50
50
50
长整型
表3库存查询表
字段名称
数据类型
字段大小
货物名称文本50
剩余库存数字长整型
表4货物信息表
字段名称
数据类型
字段大小
货物名称文本50
购买数量数字长整型
进货单价数字长整型
出货单价数字长整型
销售日期日期/时间
剩余库存数字长整型
销售人员文本50
购买人员文本50
4系统实现
4.1其他模块的设计与实现
Form2.Show
EndSub
PrivateSubk1_Click()
Form9.Show
EndSub
PrivateSubp1_Click()
Form11.Show
EndSub
PrivateSubToolbar1_ButtonClick(ByValButtonAsComctlLib.Button)
IfButton.Index=1ThenForm2.Show
IfButton.Index=2ThenForm12.Show
EndSub
PrivateSubx_Click()
UnloadMe
EndSub
PrivateSubx1_Click()
Form15.Show
EndSub
PrivateSubxmgl_Click()
Form16.Show
EndSub
图2商店记账管理系统使用界面
PrivateSub货物信息_Click()
Form10.Show
EndSub
PrivateSub库存查询_Click()
form3.Show
EndSub
图3基本员工信息管理
PrivateSubCommand1_Click()
Adodc1.Recordset.AddNew
EndSub
PrivateSubCommand2_Click()
Adodc1.Recordset.Delete
EndSub
PrivateSubCommand3_Click()
UnloadMe
EndSub
PrivateSubCommand4_Click()
Adodc1.Recordset.Update
Adodc1.Recordset.MoveNext
EndSub
PrivateSubCommand5_Click()
CommonDialog1.ShowOpen
Dims$,s1$,s2$,i%
s=""
s2=CommonDialog1.FileName
Fori=LenB(s2)To1Step-1
s1=Mid(s2,i,1)
Ifs1<>"\"Then
s=s1+s
Else
ExitFor
EndIf
Next
Image1.Picture=LoadPicture(App.Path+"\image\"+s)
Text3=s
EndSub
PrivateSubForm_Load()
Adodc2.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="+App.Path+"\yey.mdb"
Adodc2.RecordSource="select*frombm"
Adodc2.Refresh
Combo1.Clear
DoWhileNotAdodc2.Recordset.EOF
Combo1.AddItemAdodc2.Recordset.Fields(0).Value
Adodc2.Recordset.MoveNext
Loop
Adodc2.RecordSource="select*fromzw"
Adodc2.Refresh
Combo2.Clear
DoWhileNotAdodc2.Recordset.EOF
Combo2.AddItemAdodc2.Recordset.Fields(0).Value
Adodc2.Recordset.MoveNext
Loop
Adodc2.RecordSource="select*fromzc"
Adodc2.Refresh
Combo3.Clear
DoWhileNotAdodc2.Recordset.EOF
Combo3.AddItemAdodc2.Recordset.Fields(0).Value
Adodc2.Recordset.MoveNext
Loop
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="+App.Path+"\yey.mdb"
Adodc1.RecordSource="selectxmas姓名,xbas性别,csas出生日期,bmas部门,zwas职位,zcas电话,zpas照片fromjbxx"
Adodc1.Refresh
EndSub
PrivateSubText3_Change()
IfText3<>""Then
Image1.Picture=LoadPicture(App.Path+"\image\"+Text3)
Else
Image1.Picture=LoadPicture()
EndIf
EndSub
图4货物查询
PrivateSubCommand1_Click()
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*fromhwwhere货物名称='"+Text1+"'"
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click()
Form9.Hide
Form1.Show
EndSub
图5员工查询
PrivateSubCommand3_Click()
UnloadMe
EndSub
PrivateSubCommand4_Click()
Adodc1.RecordSource="select*fromjbxxwherexm='"+Text6+"'"
Adodc1.Refresh
EndSub
PrivateSubForm_Load()
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource=yey.mdb"
EndSub
图6部门查询
PrivateSubCommand1_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Adodc2.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="+App.Path+"\yey.mdb"
Adodc2.RecordSource="select*frombm"
Adodc2.Refresh
List1.Clear
List1.AddItem"全部"
DoWhileNotAdodc2.Recordset.EOF
List1.AddItemAdodc2.Recordset.Fields(0).Value
Adodc2.Recordset.MoveNext
Loop
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="+App.Path+"\yey.mdb"
Adodc1.RecordSource="selectxmas姓名,xbas性别,csas出生日期,bmas部门,zwas职位,zcas电话,zpas照片fromjbxx"
Adodc1.Refresh
EndSub
PrivateSubList1_Click()
Dims$
s=List1.Text
Ifs="全部"Then
Adodc1.RecordSource="selectxmas姓名,xbas性别,csas出生日期,bmas部门,zwas职位,zcas电话,zpas照片fromjbxx"
Adodc1.Refresh
Else
Adodc1.RecordSource="selectxmas姓名,xbas性别,csas出生日期,bmas部门,zwas职位,zcas电话,zpas照片fromjbxxwherebm='"+s+"'"
Adodc1.Refresh
EndIf
EndSub
5设计体会
5.1总结:
VB小学期课程的完成,让我非常开心。
在制作过程中,我遇到了许许多多的困难,让我无法继续完成,这时刘仁芬老师给予我帮助,悉心指导我,再加上同学们的帮助得以让我从困境中走出。
通过这次课程设计我学到了很多东西。
从前我只知道学习课本,却不知如何把课本上的东西实践操作出来。
现在能够把所学的知识付诸于实践,感觉非常开心。
感谢学校给我这次机会把所学用于实践,感谢老师的悉心指导,感谢同学们的鼓励和帮助。
5.2存在的主要问题:
在本程序的制作过程中,对于我来说最大的问题是代码复杂,数据库的连接以及界面的设计存在问题。
参考文献
[1]王斌华,李建华等,《VisualBasic6.0中文精彩编程五十例》,电子科技大学出版社,出版日期:
2004-4-1
[2]赵学慧,赵玮,《VisualBasic6.0编程开发完整实例教程》,海洋出版社,出版日期:
2003-3-1
[3]彭永清等,《VisualBasic6.0趣味程序导学》,清华大学出版社,出版日期:
2001-10-1
[4]何旭洪等,《VisualBasic6.0数据库系统开发实例导航》,人民邮电出版社,出版日期:
2002-2-1
[5]刘韬,《VisualBasic6.0实效编程百例》人民邮电出版社,出版日期:
2002-9-1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 商店 记账 管理 系统