婚庆公司管理系统VB系统设计报告书

1、第1章需求分析需求分析根据市场的需求，要求系统具有以下功能：1、由于婚庆公司的普遍，用户量大，所以要求本系统要要有足够的容纳性。2、具有数据备份及数据恢复的功能，确保系统的安全性。3、方便的全方位的数据查询。4、支持复杂细致的查询功能。5、在相应的权限下，可以删除或修改数据。第 2章总体分析2.1 系统主要功能婚庆公司系统一个非常有特点的管理软件，系统由婚庆公司信息状况、添加、修改、删除等部分组成基本数据模块：基本数据模块主要包括员工信息、商品信息、供货单位。日常管理模块：日常管理模块主要包括收入登记、收入总览。库存管理模块：库存管理模块主要包括订单录入、采购入库单。统计查询模块：查询统计模块

2、主要包括公司人员统计、库存商品统计、订单查询、仓库库存查询。2.2 系统功能结构图婚庆公司管理系统基本数据日常管理库存管理统计查询统查员商供收收订采计询购工品货入入单入信信单登总录库息息位记览入单公库仓司存订库人商单库员品查存统统询查计计询按按名编称号查查询询第 3章系统设计3.1 设计目标本系统是根据中小企业的实际需求而开发的，完全能够实现企业对客户的自动化管理，通过本系统可以达到以下目标：系统运行稳定，安全可靠。界面设计美观，人机交互界面友好。信息查询灵活、方便、快捷、准确，数据存储安全可靠。满足键盘和鼠标的双重操作，完全支持回车键。采用多种方式查询数据。对用户输入的数据，系统进行严格的数

3、据检验，尽可能排除人为的错误。数据保密性强，为每个用户设置相应的权限级别。3.2 开发及运行环境系统开发平台： Visual Basic 6.0运行平台： Windows xp/Windows 2000/Windows 983.3 数据库设计本系统采用 Visual FoxPro 6.0 设计数据库，本系统中包括如下数据表。下面分别给出数据表的结构。3.4 数据表结构（1）信息表信息表主要保存商品的详细信息。该数据表的结构如表3-1 所示。采购入库单字段名数据类型长度描述入库日期varchar20入库日期入库编号varchar20入库编号仓库一varchar30仓库一仓库二numeric20仓

4、库二供货单位varchar20供货单位商品编号varchar20商品编号商品名称varchar20商品名称商品类别varchar20商品类别规格型号varchar20规格型号进价varchar20进价数量varchar20数量其他方式varchar20其他方式采购入库varchar20采购入库入库总额varchar20入库总额经办人varchar20经办人备注varchar20备注（3）商品信息表商品信息表主要记录商品库存的详细信息。该数据表的结构如表3-2 所示。商品信息表字段名数据类型长度描述商品编号varchar20商品编号商品名称varchar20商品名称拼音码varchar30拼音码

5、商品类别varchar20商品类别单位varchar20单位规格型号varchar20规格型号进价varchar20进价销售价varchar20销售价上限库存varchar20上限库存下限库存varchar20下限库存当前库存量varchar20当前库存量（4）订单录入订单录入主要记录订单的详细信息。该数据表的结构如表3-3 所示。订单录入字段名数据类型长度描述订单日期varchar20商品名称订单号varchar20商品入库时间数量varchar30商品数量备注numeric20商品备注新郎姓名varcha20新郎姓名新郎电话varcha20新郎电话新房地址varcha20新房地址新娘姓名v

6、archa20新娘姓名新娘电话varcha20新娘电话娘家地址varcha20娘家地址服务日期varcha20服务日期预约时间varcha20预约时间婚礼地点varcha20婚礼地点来点原因varcha20来点原因工作单位varcha20工作单位接待姓名varcha20接待姓名订单金额varcha20订单金额生效varcha20生效失效varcha20失效第 4 章 主要功能模块设计4.1 婚庆公司管理系统窗体设计婚庆公司管理系统界面是管理员要进后台的界面。婚庆公司管理系统界面的运行结果如图4-1 所示。图 4-1代码设计：Private Sub asdda_Click(Index As In

7、teger)供货单位 .ShowEnd SubPrivate Sub bvc_Click(Index As Integer)采购入库单 .ShowEnd SubPrivate Sub ds_Click(Index As Integer)员工信息 .ShowEnd SubPrivate Sub find_xm_Click(Index As Integer)项目展示 .ShowEnd SubPrivate Sub find_zy_Click(Index As Integer)道具展示 .ShowEnd SubPrivate Sub gfg_Click(Index As Integer)商品信息 .

8、ShowEnd SubPrivate Sub hghhgf_Click(Index As Integer)收入总览 .ShowEnd SubPrivate Sub hhfh_Click(Index As Integer)订单录入 .ShowEnd SubPrivate Sub hhhg_Click(Index As Integer)查询 2.ShowEnd SubPrivate Sub kkk_Click(Index As Integer)查询 1.ShowEnd SubPrivate Sub mmm_Click(Index As Integer)公司人员统计 .ShowEnd SubPriv

9、ate Sub oiuy_Click(Index As Integer)订单查询 .ShowEnd SubPrivate Sub qwerp_Click(Index As Integer)销售出库单 .ShowEnd SubPrivate Sub sdaa_Click(Index As Integer)支出登记 .ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1员工信息 .ShowCase 2收入登记 .ShowCase 3采

10、购入库单 .ShowCase 4订单查询 .ShowCase 5EndEnd SelectEnd SubPrivate Sub xxx_Click(Index As Integer)库存商品统计 .ShowEnd SubPrivate Sub zxc_Click(Index As Integer)收入登记 .ShowEnd Sub4.2 员工信息窗体设计员工信息窗体是管理员添加新员工的界面。员工信息的运行结果如图4-2 所示。图 4-2代码设计：Private Sub Command1_Click(Index As Integer)Unload MeEnd SubPrivate Sub Com

11、mand2_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)Text2 = DTPicker1.ValueEnd SubPrivate Sub DTPicker1_Change()Text2 = DTPicker1.ValueEnd SubPrivate Sub Form_Load()Adod

12、c1.Recordset.AddNewEnd Sub4.3 商品信息窗体设计商品信息窗体是管理员添加商品的界面。商品信息窗体的运行结果如图4-3 所示。图 4-3代码设计：Private Sub Command1_Click(Index As Integer)Unload MeEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub DataGrid1_Click()LJ = Adodc2.Recordset.Fields(合同编号 )Adodc1.RecordSource = select * f

13、rom 客户输入where 合同编号 = & LJ & Adodc1.RefreshEnd SubPrivate Sub Form_Load()Adodc1.Recordset.AddNewEnd Sub4.4 收入登记窗体设计收入登记窗体是管理员管理收入的界面。收入登记窗体的运行结果如图4-4 所示。图 4-4代码设计：Private Sub Command1_Click(Index As Integer)Unload MeEnd SubPrivate Sub Command2_Click()Adodc2.Recordset.AddNewEnd SubPrivate Sub DTPicker

14、1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)Text4 = DTPicker1.ValueEnd SubPrivate Sub DTPicker1_Change()Text4 = DTPicker1.ValueEnd SubPrivate Sub DTPicker2_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, By

15、Val CallbackField As String, CallbackDate As Date) Text1 = DTPicker2.ValueEnd SubPrivate Sub DTPicker2_Change()Text1 = DTPicker2.ValueEnd SubPrivate Sub Form_Load()Adodc2.Recordset.AddNewEnd Sub4.5 订单录入窗体设计订单录入窗体是管理员记录本日需要办理婚庆的详单界面收入登记窗体的运行结果如图 4-5 所示。图 4-5代码设计：Private Sub Command1_Click(Index As In

16、teger)Unload MeEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.AddNewText1(1).Text = Text2.Text = Text3.Text = Text4.Text = Text1(2).Text = Text1(3).Text = Text1(5).Text = Text1(6).Text = Text1(8).Text = Text1(9).Text = Text1(10).Text = Text1(11).Text = Text1(12).Text = Combo1(0).Text = Combo1(1

17、).Text = Text1.SetFocusEnd SubPrivate Sub Command3_Click()C = MsgBox( 确认要保存该用户吗？, 33, 婚庆公司管理系统)If C = vbOK ThenAdodc1.Recordset.UpdateEnd IfEnd SubPrivate Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)Text2 = DTPic

18、ker1.ValueEnd SubPrivate Sub DTPicker1_Change()Text2 = DTPicker1.ValueEnd SubPrivate Sub DTPicker2_CallbackKeyDown(ByValKeyCode As Integer, ByValShift As Integer,ByVal CallbackField As String, CallbackDate As Date)Text3 = DTPicker2.ValueEnd SubPrivate Sub DTPicker2_Change()Text3 = DTPicker2.ValueEnd

19、 SubPrivate Sub DTPicker3_CallbackKeyDown(ByValKeyCode As Integer, ByVal Shift As Integer,ByVal CallbackField As String, CallbackDate As Date)Text4 = DTPicker3.ValueEnd SubPrivate Sub DTPicker3_Change()Text4 = DTPicker3.ValueEnd Sub4.6 采购入库单窗体设计采购入库单窗体是管理员管理库存商品的界面。采购入库单窗体的运行结果如图4-6 所示。图 4-6代码设计：Pri

20、vate Sub Command1_Click(Index As Integer)Unload MeEnd SubPrivate Sub Command2_Click()C = MsgBox( 确认要保存该用户吗？ , 33, 婚庆公司管理系统 )If C = vbOK ThenA = Val(Text3.Text) * Val(Text4.Text)Text5.Text = AAdodc1.Recordset.UpdateEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.AddNewText1(0).Text = Text2.

21、Text = Text3.Text = Text4.Text = Text1(1).Text = Text1(3).Text = Text5.Text = Text1(0).SetFocusEnd SubPrivate Sub DataGrid2_Click()L = Adodc2.Recordset.Fields(商品编号 )Adodc1.RecordSource = select * from 采购入库单where 商品编号 = & L & Adodc1.RefreshEnd SubPrivate Sub DataGrid3_Click()J = Adodc3.Recordset.Fiel

22、ds(供货单位 )Adodc1.RecordSource = select * from 采购入库单where 供货单位 = & J & Adodc1.RefreshEnd Sub4.7 订单查询窗体设计订单查询单窗体是管理员查看订单信息的界面。订单查询窗体的运行结果如图4-6 所示。图 4-7代码设计：Private Sub Command1_Click()If Text1 ThenAdodc1.RecordSource = select * from 订单录入where 订单号= & Text1 & 设置数据源ElseIf Text2 ThenAdodc1.RecordSource = s

23、elect * from 订单录入 where 订单日期 = & Text2 & ElseIf Combo1 ThenAdodc1.RecordSource = select * from 订单录入 where 生效 = & Combo1 & ElseIf Combo1 ThenAdodc1.RecordSource = select * from 订单录入where 失效 = & Combo1 & ElseAdodc1.RecordSource = select * from订单录入未指定配件End IfEnd IfEnd IfEnd IfAdodc1.RefreshEnd SubPriva

24、te Sub Command2_Click()Unload MeEnd SubPrivate Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date) Text2 = DTPicker1.ValueEnd SubPrivate Sub DTPicker1_Change()Text2 = DTPicker1.ValueEnd Sub4.8 公司人员统计窗体设计公司人员统计窗体是管理员查看和统

25、计公司人员信息的界面。公司人员统计窗体的运行结果如图4-8 所示。图 4-8代码设计：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click()Adodc1.RecordSource = select性别 ,count(*) as人数from员工信息group by性别 Adodc1.RefreshEnd Sub4.9 登录窗体设计登录窗体是管理员要进入登录主窗体的一个登录界面。登录窗体的运行结果如图4-9 所示。图 4-9设计代码：Private Sub Command1_Click()Dim MPassw

26、ord As StringAdodc1.RecordSource = select * from 密码表where username = & Text1.Text &Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 ThenMPassword = Adodc1.Recordset.Fields(password)If Text2.Text = MPassword Then判断数据的密码是否正确Name1 = Text1.Text婚庆公司管理系统 .Showfrm_Main.ShowUnload MeElseMsgBox 密码不正确 ,请您确认后重新输入 , , 提示信息 Text2.Text = Text2.SetFocusEnd IfElseMsgBox 对不起没有此用户的信息 , , 提示信息 Text1.Text = Text2.Text = End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate S