家庭物品管理系統(tǒng)(數(shù)據(jù)庫課設)

1、沈陽理工大學課程設計專用紙 # 摘要隨著現(xiàn)代生活的發(fā)展，我國經(jīng)濟迅速發(fā)展，人民生活水平越來越好，家家戶戶都買了各種家電和生活用品，家庭物品也就越來越豐富了。但是，我們的家庭總是有限的，對于這些家庭物品我們需要有一個系統(tǒng)的整理。通過對數(shù)據(jù)庫的學習，學習了一些對數(shù)據(jù)的整理，對此，為家庭物品做了一個管理系統(tǒng)。用VisualBasic6.0作為前端開發(fā)工具，利用其提供的集成開發(fā)環(huán)境及支持面向?qū)ο蟮母鞣N標準化的控件，尤其是對ADO的支持完成對數(shù)據(jù)庫的各種操作。使這個系統(tǒng)能夠添加、修改、刪除家庭各成員與物品的信息相關信息，當進入到系統(tǒng)時，可以直接通過查詢用戶名或購買日期來瀏覽物品的信息，登陸到系統(tǒng)之后，就

2、可以對房間和物品信息進行添加、修改刪除了，從而完成對家庭物品的整理，使各家庭成員更加方便地了解自己家里的物品信息關鍵字：家庭物品整理方便目錄TOC o 1-5 h z HYPERLINK l bookmark2 1系統(tǒng)功能概述2 HYPERLINK l bookmark4 2數(shù)據(jù)庫設計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系統(tǒng)各功能模

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系統(tǒng)功能概述為該家庭物品管理系統(tǒng)設計一個MDI窗體作為主界面，在菜單欄創(chuàng)建了四個菜單：文件、查詢、添加、用戶名。（1）文件中有兩個子菜單：登

4、錄和退出。這兩個子菜單分別控制登錄用戶和退出整個程序。（2）查詢中有兩個子菜單：按用戶名查詢和按日期查詢。按用戶名查詢可以在用戶輸入某個用戶名之后，顯示該用戶的物品情況；按日期查找可以在輸入一個日期之后，顯示該日期之后購買的所有物品。（3）添加中有三個子菜單：添加用戶、添加房間、添加物品。點擊添加用戶，可以對用戶信息進行增刪改查；點擊添加房間，可以對房間信息進行增刪改查操作；點擊添加物品，則可以對物品信息進行增刪改查操作。（4）用戶名按鈕有一個子菜單：注銷。用來注銷已經(jīng)成功登錄的用戶，如沒有登錄用戶，該子菜單顯示無用戶，成功登錄之后即顯示已登錄用戶的名稱。2數(shù)據(jù)庫設計需求分析（1）根據(jù)家庭成員

5、的身份，為每個成員分配有一個專門的賬號。（2）此家庭物品系統(tǒng)管理能夠添加、刪除、修改、查詢家庭成員的信息以及與房間、物品之間的聯(lián)系。（3）在進入到家庭物品管理系統(tǒng)之后，不需要登陸就可以直接查詢屬于某個人的物品信息，也可以查詢某個日期之后所購買的物品。（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)沈陽理工大學課程設計專用紙 協(xié)設計表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將輸入的信息寫進數(shù)據(jù)庫中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更新后臺數(shù)據(jù)庫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已經(jīng)是最后一個用戶了！,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已經(jīng)是第一個用戶了！,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()構造一個置空的函數(shù)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調(diào)用置空函數(shù)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已經(jīng)是最后一條了！,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已經(jīng)是第一條了！,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