数据库课设报-家庭物品管理系统

沈阳理工大学课程设计专用纸No1沈阳理工大学第一章系统功能概述1.1系统功能系统要求：家庭的物品可谓繁多，文具，家电，交通工具等各个种类的东西，绝对有必要利用计算机管理，因此实现对家庭物品的管理，其中包括家庭成员的信息，要求能进行浏览，查询操作，家庭物品信息，要求能进行浏览，查询，添加，删除和分条件查询等等，具体包括如下：1．实现登录系统，进入系统后方可进行各种操作；2．数据管理，浏览家庭成员信息和家庭物品信息；3．查询家庭成员的信息，比如输入名字，然后出现家庭成员的各种信息；4．按物品类别、所有人、购买日期等组合查询各种物品。1.2系统结构总图家庭物品管理系统物品分类物品管理信息查询数据统计用户管理文具类交通工具类厨具类模糊查询按条件查询按状态查询用户登录查找物品删除物品添加物品家庭物品信息家庭成员信息沈阳理工大学课程设计专用纸No2沈阳理工大学第二章数据库设计2.1需求分析本系统是用于统计，添加，查找，删除家庭物品。本系统主要有两部分组成，一部分是数据库设计部分，另一部分为窗体设计部分。数据库中包含四个表，家庭成员信息（姓名，年龄，性别），物品信息(物品名，拥有者，价格，类型，存放处，购买日期),成员物品（物品名，拥有者），密码表（用户名，密码）。启动封面窗体及其主窗体的时候要求：图片背景、欢迎类文字，单击“进入”时进入主窗体，打开“登录”对话框，输入用户名和密码，若正确则可以点击主窗体的其他子窗体，若输入错误则提示输入错误，重新输入。最多允许输入3次。主控窗体设计为MDI窗体，含有主菜单：[文件]、[数据库管理]、[查询]。[文件]菜单包含以下子菜单及其功能：[登录]：显示主窗体的其他菜单[退出]：结束程序，返回封面窗体[数据库管理]菜单包含以下子菜单及其功能：[家庭成员信息]：显示家庭成员信息的窗体[物品信息]：显示物品信息的窗体[成员物品]：显示物品对应其拥有者的窗体[查询]：菜单包含以下子菜单及其功能：[家庭成员信息查询]：查询家庭成员信息的窗体[物品信息查询]：查询物品信息的窗体以上各窗体设为MDI主窗体的子窗体分别设计各个信息窗体功能：浏览和录入各信息。该窗体以文本框显示当前记录，用按钮[首记录]、[末记录]、[前一个]、[后一个]，控制记录指针的移动；用一个标签Label显示：当前记录号/记录总数；单击[表格显示]按钮，显示DataGrid控件(Visible=True)，以表格形式显示商品信息表，单击[返回]按钮，可以关闭本窗体，返回主窗体。可以对记录进行新增、确认、删除、取消操作。各种信息的查询窗体可以按各种条件查找，这些条件放在组合列表框Combo中,供用沈阳理工大学课程设计专用纸No3沈阳理工大学户选择。在文本框中输入要查询的内容，单击[查询]按钮，查询结果用网格控件显示。2.2家庭物品管理系统的E-R模型2.3家庭物品管理信息系统表的结构设计（1）表的建立createtable密码表(用户名char(20),家庭成员姓名年龄性别拥有物品物品名类型购买日期存放处价格沈阳理工大学课程设计专用纸No4沈阳理工大学密码char(6),);createtable家庭成员信息(姓名char(20)primarykey,性别char(10),年龄char(10),）；createtable物品信息(物品名char(20)primarykey,拥有者char(20),价格char(10),购买日期char(20)类型char（10）存放处char（10））；createtable成员物品(物品名char(20),拥有者char(20),);（2）基本数据如下：沈阳理工大学课程设计专用纸No5沈阳理工大学按如下步骤，根据向导配置系统数据源。开始→设置→控制面板→管理工具→数据源（ODBC）→系统DSN→添加→驱动程序选为SQLServer→成功→给出该数据源的名称、描述、服务器→更改默认数据库为（自己所建的数据库）→测试→成功→确定→确定。第三章系统各功能模块的详细设计3.1欢迎界面欢迎界面，本界面应用VB中的Label控件输入以下字符，背景设为透明。点击“点击此处进入”便可进去本系统。沈阳理工大学课程设计专用纸No6沈阳理工大学代码实现如下：PrivateSubCommand1_Click()MDIForm1.ShowEndSubPrivateSubPicture1_Click()EndSub3.2主窗体主控窗体设计为MDI窗体，含有主菜单：[文件]、[数据库管理]、[查询]，各个菜单又包含子菜单[登陆],[退出],[家庭成员信息],[物品信息],[成员物品],[家庭成员信息查询],[物品信息查询]等。[文件]菜单包含以下子菜单及其功能：[登录]：显示主窗体的其他菜单[退出]：结束程序，返回封面窗体[数据库管理]菜单包含以下子菜单及其功能：[家庭成员信息]：显示家庭成员信息的窗体[物品信息]：显示物品信息的窗体[成员物品]：显示物品对应其拥有者的窗体[查询]：菜单包含以下子菜单及其功能：[家庭成员信息查询]：查询家庭成员信息的窗体[物品信息查询]：查询物品信息的窗体沈阳理工大学课程设计专用纸No7沈阳理工大学代码实现如下：PrivateSubdenglu_Click()Form2.ShowEndSubPrivateSubfamilies_Click()Form3.ShowEndSubPrivateSubfg_Click()Form5.ShowEndSubPrivateSubgoods_Click()Form4.ShowEndSubPrivateSubjiatingchengyuanchaxun_Click()Form7.ShowEndSub沈阳理工大学课程设计专用纸No8沈阳理工大学PrivateSubMDIForm_Load()shujuguanli.Enabled=Falsechaxun.Enabled=FalseEndSubPrivateSubtuichu_Click()Form1.Showshujuguanli.Enabled=Falsechaxun.Enabled=FalseEndSubPrivateSubwupinxinxichaxun_Click()Form6.ShowEndSub3.3文件菜单文件菜单包含[登录]，[退出]两个子菜单。用户登陆界面：“用户名”、“密码”均由Label控件输入，背景设为透明，之后介绍的界面中的字符均由此方法输入，故将不做说明。给出可以输入字符的空白由TextBox控件做成，可进行字体大小与颜色的修改。按钮由CommandButton设置，添加Adodc（Visible=False），用来与数据库相连。沈阳理工大学课程设计专用纸No9沈阳理工大学代码实现如下：DimmiCountAsInteger'用于记录输入密码次数PrivateSubCmdLand_Click()DimsqlstrAsStringsqlstr=Select*From密码表Where用户名='&Text1&'Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.BOFThen'若没找到符合Where条件的记录MsgBox用户名错误，重新输入,vbExclamation,警告Text1.Text=Text1.SetFocus'Text1获得焦点Else'判断密码是否正确IfAdodc1.Recordset.Fields(密码)=Text2ThenMDIForm1.shujuguanli.Enabled=TrueMDIForm1.chaxun.Enabled=TrueMDIForm1.ShowUnloadMeElse沈阳理工大学课程设计专用纸No10沈阳理工大学MsgBox密码错误，重新输入,vbExclamation,警告Text2.Text=Text2.SetFocusEndIfEndIfmiCount=miCount+1IfmiCount=3ThenUnloadMeEndSubPrivateSubCmdCancel_Click()UnloadMeEndSubPrivateSubForm_Load()EndSub密码输入错误提示如下：用户名和密码输入正确后，显示主界面的其他菜单沈阳理工大学课程设计专用纸No11沈阳理工大学3.4数据管理数据库管理菜单包含三个子菜单，[家庭成员信息]，[物品信息]，[成员物品]。在家庭成员信息可以对数据库中的数据进行查询，前移后移等，要实现此功能则必须用Adodc（Visible=False）控件与数据库相连，在运行中隐藏此控件（1）家庭成员信息界面：代码实现如下：CmdFirst.Enabled=TrueCmdPre.Enabled=TrueIfAdodc1.Recordset.EOFThen'如果记录指针移到了末记录之后Adodc1.Recordset.MoveLast'则记录指针移到末记录上CmdNext.Enabled=FalseCmdLast.Enabled=FalseEndIfLabel4.Caption=记录：&Adodc1.Recordset.AbsolutePosition&/&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdLast_Click()Adodc1.Recordset.MoveLast'移到末记录CmdFirst.Enabled=TrueCmdPre.Enabled=TrueCmdNext.Enabled=False沈阳理工大学课程设计专用纸No12沈阳理工大学CmdLast.Enabled=FalseLabel4.Caption=记录：&Adodc1.Recordset.AbsolutePosition&/&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdN_Click()DimnAsIntegern=Text6.TextAdodc1.Recordset.MovenLabel4.Caption=记录：&Adodc1.Recordset.AbsolutePosition&/&Adodc1.Recordset.RecordCountEndSubPrivateSubForm_Load()EndSub（2）物品信息界面:在物品信息中可以对数据库中的数据进行查询，添加、修改与删除，要实现此功能则必须用Adodc（Visible=False）控件与数据库相连，在运行中隐藏此控件。沈阳理工大学课程设计专用纸No13沈阳理工大学验证添加删除截图如下：代码实现如下：PrivateSubForm_Load()CmdFirst.Enabled=False'[首记录]按钮无效CmdPre.Enabled=False'[前移]按钮无效CmdNext.Enabled=True'[后移]按钮有效CmdLast.Enabled=True'[末记录]按钮有效CmdAdd.Enabled=True'[添加]按钮有效CmdDel.Enabled=True'[删除]按钮有效CmdOk.Enabled=False'[确定]按钮无效CmdEsc.Enabled=False'[取消]按钮无效Label7.Caption=记录：&Adodc1.Recordset.AbsolutePosition&/&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdFirst_Click()Adodc1.Recordset.MoveFirst'记录指针移到首记录（显示首记录）CmdFirst.Enabled=False'让[首记录]按钮无效CmdPre.Enabled=False'让[前移]按钮无效沈阳理工大学课程设计专用纸No14沈阳理工大学CmdNext.Enabled=True'让[后移]按钮有效CmdLast.Enabled=True'让[末记录]按钮有效'在Label6上显示当