家庭物品管理系统(数据库课设)

1、沈阳理工大学课程设计专用纸 # 摘要随着现代生活的发展，我国经济迅速发展，人民生活水平越来越好，家家户户都买了各种家电和生活用品，家庭物品也就越来越丰富了。但是，我们的家庭总是有限的，对于这些家庭物品我们需要有一个系统的整理。通过对数据库的学习，学习了一些对数据的整理，对此，为家庭物品做了一个管理系统。用VisualBasic6.0作为前端开发工具，利用其提供的集成开发环境及支持面向对象的各种标准化的控件，尤其是对ADO的支持完成对数据库的各种操作。使这个系统能够添加、修改、删除家庭各成员与物品的信息相关信息，当进入到系统时，可以直接通过查询用户名或购买日期来浏览物品的信息，登陆到系统之后，就

2、可以对房间和物品信息进行添加、修改删除了，从而完成对家庭物品的整理，使各家庭成员更加方便地了解自己家里的物品信息关键字：家庭物品整理方便目录TOC o 1-5 h z HYPERLINK l bookmark2 1系统功能概述2 HYPERLINK l bookmark4 2数据库设计2 HYPERLINK l bookmark6 1.1需求分析2 HYPERLINK l bookmark8 1.2关系模型2 HYPERLINK l bookmark10 E-R模型3 HYPERLINK l bookmark12 1.4表结构设计4 HYPERLINK l bookmark14 3系统各功能模

3、块的详细设计6 HYPERLINK l bookmark16 3.1主窗体6 HYPERLINK l bookmark18 3.2登录8 HYPERLINK l bookmark20 查询10 HYPERLINK l bookmark22 3.4用户信息12 HYPERLINK l bookmark24 3.5物品信息17 HYPERLINK l bookmark32 3.6房间信息244参考文献27沈阳理工大学课程设计专用纸沈阳理工大学课程设计专用纸 1系统功能概述为该家庭物品管理系统设计一个MDI窗体作为主界面，在菜单栏创建了四个菜单：文件、查询、添加、用户名。（1）文件中有两个子菜单：登

4、录和退出。这两个子菜单分别控制登录用户和退出整个程序。（2）查询中有两个子菜单：按用户名查询和按日期查询。按用户名查询可以在用户输入某个用户名之后，显示该用户的物品情况；按日期查找可以在输入一个日期之后，显示该日期之后购买的所有物品。（3）添加中有三个子菜单：添加用户、添加房间、添加物品。点击添加用户，可以对用户信息进行增删改查；点击添加房间，可以对房间信息进行增删改查操作；点击添加物品，则可以对物品信息进行增删改查操作。（4）用户名按钮有一个子菜单：注销。用来注销已经成功登录的用户，如没有登录用户，该子菜单显示无用户，成功登录之后即显示已登录用户的名称。2数据库设计需求分析（1）根据家庭成员

5、的身份，为每个成员分配有一个专门的账号。（2）此家庭物品系统管理能够添加、删除、修改、查询家庭成员的信息以及与房间、物品之间的联系。（3）在进入到家庭物品管理系统之后，不需要登陆就可以直接查询属于某个人的物品信息，也可以查询某个日期之后所购买的物品。（4）当用户成功登录时，菜单栏上能够显示该用户的名称，此时，用户才能对物品信息和家庭成员信息进行添加、修改、删除关系模型（1）家庭成员信息表Uuser：userName、password、sex、age、birthday、status、profession、hobby、wage（2）物品信息表Item:itemDate、purchaseDate、p

6、rice、usedTime、quantity、publicItem、roomNumber、category（3）房间表Room：roomNumber、roomName（4）归属表Belong：itemName、userName、itemNumber13E-R模型整体E-R图图2-1用户信息：图2-2物品信息：图2-3房间信息：归属信息：表结构设计Uuser表：createtableUuser(userNamevarchar(6)primarykey,passwordchar(6)notnull,sexchar(2)check(sexin(男,女),agesmallintcheck(age0an

7、dage150),birthdaydatetime,statusvarchar(10),professionvarchar(20),hobbyvarchar(30),wageint)沈阳理工大学课程设计专用纸 協设计表Uuse=&Text1.Text&Adodc1.RecordSource=sqlstr3Adodc1.RefreshDataGrid1.Visible=True显示所查询的结果EndSubPrivateSubCommand2_Click()UnloadMe退回主窗体EndSubPrivateSubForm_Load()Move(Screen.Width-Width)/2,(Scr

8、een.Height-Height)/2EndSub(2)按日期查询窗口设计在用户输入一个用户名之后，在datagrid控件里就会显示此用户的所有物品信息。图3-4代码如下：PrivateSubCommand1_Click()Dimsqlstr2AsStringIfText1.Text=ThenMsgBox请输入查询用户名！,vbDefaultButton1,提示ExitSubEndIfsqlstr2=Select*frombyUserWhereuserName=&Text1.Text&Adodc2.RecordSource=sqlstr2Adodc2.RefreshDataGrid1.Vis

9、ible=TrueEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Move(Screen.Width-Width)/2,(Screen.Height-Height)/2EndSub用户信息用户窗口设计从主界面进入用户信息界面后，可以在每个文本框里填写新用户的基本信息，填写完成后，点击添加按钮，弹出添加成功，即成功添加。也可以在此界面里通过输入用户名查找每个家庭成员的基本信息，可以点击上一个、下一个进行浏览。查找之后对结果也可以进行修改、删除操作。鬥用户告息I=回图3-5代码如下：PrivateSubComma

10、nd1_Click()IfText1.Text=OrText2.Text=ThenMsgBox请输入完整的添加信息！,vbCritical,提醒Else将输入的信息写进数据库中Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(userName)=Text1.TextAdodc1.Recordset.Fields(password)=Text2.TextIfOption1.Value=TrueThenAdodc1.Recordset.Fields(sex)=Label6.CaptionElseAdodc1.Recordset.Fields(sex)=L

11、abel7.CaptionEndIfAdodc1.Recordset.Fields(birthday)=Text3.TextAdodc1.Recordset.Fields(age)=Text4.TextAdodc1.Recordset.Fields(status)=Text5.TextAdodc1.Recordset.Fields(profession)=Text6.TextAdodc1.Recordset.Fields(hobby)=Text7.TextAdodc1.Recordset.Fields(wage)=Text8.TextAdodc1.Recordset.UpdateAdodc1.

12、RefreshMsgBox添加用户成功！,vbDefaultButton1,提示EndIfEndSubPrivateSubCommand2_Click()IfText1.Text=OrText2.Text=ThenMsgBox请输入完整的添加信息！,vbCritical,提醒ElseIfNotText2.Text=Adodc1.Recordset.Fields(password)ThenMsgBox密码不正确！您无权修改！,vbCritical,错误ElseIfOption1.Value=TrueThenAdodc1.Recordset.Fields(sex)=Label6.CaptionEl

13、seAdodc1.Recordset.Fields(sex)=Label7.CaptionEndIfAdodc1.Recordset.Fields(birthday)=Text3.TextAdodc1.Recordset.Fields(age)=Text4.TextAdodc1.Recordset.Fields(status)=Text5.TextAdodc1.Recordset.Fields(profession)=Text6.TextAdodc1.Recordset.Fields(hobby)=Text7.TextIfNotText8.Text=ThenAdodc1.Recordset.F

14、ields(wage)=Text8.TextEndIfAdodc1.Recordset.Update更新后台数据库Adodc1.RefreshMsgBox修改成功！,vbDefaultButton1,提醒EndIfEndIfEndSubPrivateSubCommand3_Click()IfText1.Text=OrText2.Text=ThenMsgBox请输入完整的添加信息！,vbCritical,提醒Else判断是否有删除的权限IfNotText2.Text=Adodc1.Recordset.Fields(password)ThenMsgBox密码不正确！您无权删除此用户！,vbCrit

15、ical,错误ElseAdodc1.Recordset.DeleteAdodc1.Recordset.UpdateAdodc1.RefreshText1.Text=Text2.Text=Option1.Value=FalseOption2.Value=FalseText3.Text=Text4.Text=Text5.Text=Text6.Text=Text7.Text=Text8.Text=MsgBox用户删除成功！,vbDefaultButton1,提醒EndIfEndIfEndSubPrivateSubCommand4_Click()UnloadMeEndSubPrivateSubComm

16、and5_Click()Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThen判断记录指针的位置Adodc1.Recordset.MoveLastCommand5.Enabled=FalseCommand6.Enabled=TrueMsgBox已经是最后一个用户了！,vbDefaultButton1,提示ExitSubEndIfText1.Text=Adodc1.Recordset.Fields(userName)Text2.Text=Adodc1.Recordset.Fields(password)IfAdodc1.Recordset.Fiel

17、ds(sex)=男ThenOption1.Value=TrueElseOption2.Value=TrueEndIfText3.Text=Adodc1.Recordset.Fields(birthday)Text4.Text=Adodc1.Recordset.Fields(age)Text5.Text=Adodc1.Recordset.Fields(status)Text6.Text=Adodc1.Recordset.Fields(profession)Text7.Text=Adodc1.Recordset.Fields(hobby)Text8.Text=Adodc1.Recordset.Fi

18、elds(wage)EndSubPrivateSubCommand6_Click()Adodc1.Recordset.MovePrevious将记录指针向上移IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirstCommand6.Enabled=FalseCommand5.Enabled=TrueMsgBox已经是第一个用户了！,vbDefaultButton1,提示ExitSubEndIfText1.Text=Adodc1.Recordset.Fields(userName)Text2.Text=Adodc1.Recordset.Fields

19、(password)IfAdodc1.Recordset.Fields(sex)=男ThenOption1.Value=TrueElseOption2.Value=TrueEndIfText3.Text=Adodc1.Recordset.Fields(birthday)Text4.Text=Adodc1.Recordset.Fields(age)Text5.Text=Adodc1.Recordset.Fields(status)Text6.Text=Adodc1.Recordset.Fields(profession)Text7.Text=Adodc1.Recordset.Fields(hob

20、by)Text8.Text=Adodc1.Recordset.Fields(wage)IfAdodc1.Recordset.EOFThenCommand5.Enabled=FalseEndIfEndSubPrivateSubCommand7_Click()Command5.Enabled=TrueCommand6.Enabled=TrueDimsqlAsStringsql=select*fromUuserIfText1.Text=OrText2.Text=ThenMsgBox请输入用户名和密码！,vbCritical,提醒ExitSubEndIfAdodc1.RecordSource=sqlA

21、dodc1.RefreshIfAdodc1.Recordset.BOFThenMsgBox无此用户,请重新输入,vbExclamation,警告Text1.Text=Text1.SetFocusExitSubElse判断密码是否正确IfNotAdodc1.Recordset.Fields(password)=Text2.TextThenMsgBox密码错误，重新输入,vbExclamation,警告Text2.Text=Text2.SetFocusExitSubElseIfAdodc1.Recordset.Fields(sex)=男ThenOption1.Value=TrueElseOptio

22、n2.Value=TrueEndIfText3.Text=Adodc1.Recordset.Fields(birthday)Text4.Text=Adodc1.Recordset.Fields(age)Text5.Text=Adodc1.Recordset.Fields(status)Text6.Text=Adodc1.Recordset.Fields(profession)Text7.Text=Adodc1.Recordset.Fields(hobby)Text8.Text=Adodc1.Recordset.Fields(wage)EndIfEndIfEndSubPrivateSubForm

23、_Load()Move(Screen.Width-Width)/2,(Screen.Height-Height)/2Command5.Enabled=FalseCommand6.Enabled=FalseEndSub物品信息物品窗口设计进入物品信息窗口之后，可以在文本框中输入要添加的物品信息，然后点击添加按钮，弹出添加成功的对话框，即添加物品信息成功！也可以通过输入物品名称、购买日期、是否是公用品、所有者来精确查找某条或某类物品信息。上一个、下一个可以浏览物品信息。修改完信息之后，也可以点击修改按钮来修改此物品信息。点击删除按钮即可直接删除此物品信息。退出即可直接返回主界面。添加修改存放房间:

24、删除退出购买日期:使用时间:所有者:图3-6代码如下：!PrivateFunctionsetNull()构造一个置空的函数Text1.Text=Text2.Text=!Text3.Text=!Text4.Text=!Text5.Text=!Text6.Text=!Text7.Text=!Text8.Text=!Combo1.Text=EndFunctionPrivateSubCombo1_LostFocus()IfCombo1.Text=是ThenLabel9.Visible=FalseText8.Visible=FalseEndIfIfCombo1.Text=否ThenLabel9.Visi

25、ble=TrueText8.Visible=TrueEndIfEndSubPrivateSubCommand1_Click()IfText1.Text=OrCombo1.Text=ThenMsgBox请输入添加信息！,vbCritical,错误ExitSubEndIfIfCombo1.Text=是ThenAdodc1.Recordset.AddNew添加物品信息Adodc1.Recordset.Fields(itemName)=Text1.TextAdodc1.Recordset.Fields(purchaseDate)=Text2.TextAdodc1.Recordset.Fields(pr

26、ice)=Text3.TextAdodc1.Recordset.Fields(usedTime)=Text4.TextAdodc1.Recordset.Fields(quantity)=Text5.TextAdodc1.Recordset.Fields(category)=Text6.TextAdodc1.Recordset.Fields(roomnumber)=Text7.TextAdodc1.Recordset.Fields(publicItem)=Combo1.TextAdodc1.Recordset.UpdateAdodc1.RefreshsetNullMsgBox添加成功！,vbDe

27、faultButton1,提示ExitSubEndIfIfCombo1.Text=否ThenDimsqlsAsStringsqls=select*fromItemAdodc1.RecordSource=sqlsAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(itemName)=Text1.TextAdodc1.Recordset.Fields(purchaseDate)=Text2.TextAdodc1.Recordset.Fields(price)=Text3.TextAdodc1.Recordset.Fields(usedTime)=Text4

28、.TextAdodc1.Recordset.Fields(quantity)=Text5.TextAdodc1.Recordset.Fields(category)=Text6.TextAdodc1.Recordset.Fields(roomnumber)=Text7.TextAdodc1.Recordset.Fields(publicItem)=Combo1.TextAdodc1.Recordset.UpdateAdodc1.RefreshDimsqlAsStringsql7=select*fromBelongAdodc1.RecordSource=sql7Adodc1.Recordset.

29、AddNewAdodc1.Recordset.Fields(itemName)=Text1.TextAdodc1.Recordset.Fields(userName)=Text8.TextAdodc1.Recordset.Fields(itemNumber)=Text5.TextAdodc1.Recordset.UpdateAdodc1.Refresh 沈阳理工大学课程设计专用纸setNullMsgBox添加成功！,vbDefaultButton1,提示ExitSubEndIfEndSubPrivateSubCommand2_Click()IfCombo1.Text=是ThenAdodc1.R

30、ecordset.Fields(itemName)=Text1.TextAdodc1.Recordset.Fields(purchaseDate)=Text2.TextAdodc1.Recordset.Fields(price)=Text3.TextAdodc1.Recordset.Fields(usedTime)=Text4.TextAdodc1.Recordset.Fields(quantity)=Text5.TextAdodc1.Recordset.Fields(category)=Text6.TextAdodc1.Recordset.Fields(roomnumber)=Text7.T

31、extAdodc1.Recordset.Fields(publicItem)=Combo1.TextAdodc1.Recordset.UpdateAdodc1.RefreshsetNull调用置空函数MsgBox修改成功！,vbDefaultButton1,提示ExitSubEndIfEndSubPrivateSubCommand3_Click()Adodc1.Recordset.Delete删除物品信息Adodc1.Recordset.UpdateAdodc1.RefreshMsgBox删除成功！,vbDefaultButton1,提示EndSubPrivateSubCommand4_Cli

32、ck()UnloadMeEndSubPrivateSubCommand5_Click()Command6.Enabled=TrueCommand7.Enabled=TrueIfNotText1.Text=ThenDimsql1AsStringsql1=Select*FromitemWhereitemName=&Text1.Text&Adodc1.RecordSource=sql1Adodc1.RefreshText2.Text=Adodc1.Recordset.Fields(purchaseDate)沈阳理工大学课程设计专用纸沈阳理工大学课程设计专用纸 Text3.Text=Adodc1.Re

33、cordset.Fields(price)Text4.Text=Adodc1.Recordset.Fields(usedTime)Text5.Text=Adodc1.Recordset.Fields(quantity)Text6.Text=Adodc1.Recordset.Fields(category)Text7.Text=Adodc1.Recordset.Fields(roomnumber)Combo1.Text=Adodc1.Recordset.Fields(publicItem)IfCombo1.Text=否ThenText8.Text=Adodc1.Recordset.Fields(

34、userName)EndIfExitSubEndIfIfNotText2.Text=ThenDimsql2AsStringsql2=Select*FromitemsWherepurchaseDate=&Text2.Text&Adodc1.RecordSource=sql2Adodc1.RefreshText1.Text=Adodc1.Recordset.Fields(itemName)Text3.Text=Adodc1.Recordset.Fields(price)Text4.Text=Adodc1.Recordset.Fields(usedTime)Text5.Text=Adodc1.Rec

35、ordset.Fields(quantity)Text6.Text=Adodc1.Recordset.Fields(category)Text7.Text=Adodc1.Recordset.Fields(roomnumber)Combo1.Text=Adodc1.Recordset.Fields(publicItem)IfCombo1.Text=否ThenText8.Text=Adodc1.Recordset.Fields(userName)EndIfExitSubEndIfIfNotText6.Text=ThenDimsql3AsStringsql3=Select*FromitemsWher

36、ecategory=&Text6.Text&Adodc1.RecordSource=sql3Adodc1.RefreshText1.Text=Adodc1.Recordset.Fields(itemName)Text2.Text=Adodc1.Recordset.Fields(purchaseDate)Text3.Text=Adodc1.Recordset.Fields(price)Text4.Text=Adodc1.Recordset.Fields(usedTime)Text5.Text=Adodc1.Recordset.Fields(quantity)Text7.Text=Adodc1.R

37、ecordset.Fields(roomnumber)Combo1.Text=Adodc1.Recordset.Fields(publicItem)IfCombo1.Text=否ThenText8.Text=Adodc1.Recordset.Fields(userName)EndIfExitSubEndIfIfNotText8.Text=ThenDimsql4AsStringsql4=Select*FromitemsWhereuserName=&Text8.Text&Adodc1.RecordSource=sql4Adodc1.RefreshText1.Text=Adodc1.Recordse

38、t.Fields(itemName)Text2.Text=Adodc1.Recordset.Fields(purchaseDate)Text3.Text=Adodc1.Recordset.Fields(price)Text4.Text=Adodc1.Recordset.Fields(usedTime)Text5.Text=Adodc1.Recordset.Fields(quantity)Text6.Text=Adodc1.Recordset.Fields(category)Text7.Text=Adodc1.Recordset.Fields(roomnumber)Combo1.Text=Ado

39、dc1.Recordset.Fields(publicItem)IfCombo1.Text=否ThenText8.Text=Adodc1.Recordset.Fields(userName)EndIfExitSubEndIfIfCombo1.Text=是ThenDimsql5AsStringsql5=Select*FromItemWherepublicItem=&Combo1.Text&Adodc1.RecordSource=sql5Adodc1.RefreshText1.Text=Adodc1.Recordset.Fields(itemName)Text2.Text=Adodc1.Recor

40、dset.Fields(purchaseDate)Text3.Text=Adodc1.Recordset.Fields(price)Text4.Text=Adodc1.Recordset.Fields(usedTime)Text5.Text=Adodc1.Recordset.Fields(quantity)Text6.Text=Adodc1.Recordset.Fields(category)Text7.Text=Adodc1.Recordset.Fields(roomnumber)ExitSubEndIfIfCombo1.Text=否ThenDimsql6AsStringsql6=Selec

41、t*FromitemsWherepublicItem=&Combo1.Text&Adodc1.RecordSource=sql6Adodc1.RefreshText1.Text=Adodc1.Recordset.Fields(itemName)Text2.Text=Adodc1.Recordset.Fields(purchaseDate)Text3.Text=Adodc1.Recordset.Fields(price)Text4.Text=Adodc1.Recordset.Fields(usedTime)Text5.Text=Adodc1.Recordset.Fields(quantity)T

42、ext6.Text=Adodc1.Recordset.Fields(category) 沈阳理工大学课程设计专用纸Text7.Text=Adodc1.Recordset.Fields(roomnumber)Text8.Text=Adodc1.Recordset.Fields(userName)ExitSubEndIfEndSubPrivateSubCommand6_Click()Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastMsgBox已经是最后一条了！,vbDefaultButton1,

43、提示Command6.Enabled=FalseCommand7.Enabled=TrueExitSubEndIfText1.Text=Adodc1.Recordset.Fields(itemName)Text2.Text=Adodc1.Recordset.Fields(purchaseDate)Text3.Text=Adodc1.Recordset.Fields(price)Text4.Text=Adodc1.Recordset.Fields(usedTime)Text5.Text=Adodc1.Recordset.Fields(quantity)Text6.Text=Adodc1.Reco

44、rdset.Fields(category)Text7.Text=Adodc1.Recordset.Fields(roomnumber)IfCombo1.Text=否ThenText8.Text=Adodc1.Recordset.Fields(userName)EndIfEndSubPrivateSubCommand7_Click()Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveLastMsgBox已经是第一条了！,vbDefaultButton1,提示Command7.Enabled=F

45、alseCommand6.Enabled=TrueExitSubEndIfText1.Text=Adodc1.Recordset.Fields(itemName)Text2.Text=Adodc1.Recordset.Fields(purchaseDate)Text3.Text=Adodc1.Recordset.Fields(price)Text4.Text=Adodc1.Recordset.Fields(usedTime)Text5.Text=Adodc1.Recordset.Fields(quantity)Text6.Text=Adodc1.Recordset.Fields(categor

46、y)Text7.Text=Adodc1.Recordset.Fields(roomnumber)IfCombo1.Text=否Then沈阳理工大学课程设计专用纸Text8.Text=Adodc1.Recordset.Fields(userName)EndIfEndSubPrivateSubForm_Load()Move(Screen.Width-Width)/2,(Screen.Height-Height)/2Command6.Enabled=FalseCommand7.Enabled=FalseEndSub房间信息房间窗口设计通过在文本框中输入房间号和名称，再点击添加即可添加一个房间信息，也可以输入房间号然后点击查询，查看房间名称，同时可以点击删除进行删除，也可以修改房间信息之后，点击修改进行修改，退出即可返回主界面。5房闫1=1回I查找I:添加I:修改I:删除I:I:進出|bhhhhhNNNNNNi|町:|1引-施沁圈帀1图3-7代码如下：PrivateSubCo