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

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

2、可以對(duì)房間和物品信息進(jìn)行添加、修改刪除了，從而完成對(duì)家庭物品的整理，使各家庭成員更加方便地了解自己家里的物品信息關(guān)鍵字：家庭物品整理方便目錄TOC o 1-5 h z HYPERLINK l bookmark2 1系統(tǒng)功能概述2 HYPERLINK l bookmark4 2數(shù)據(jù)庫設(shè)計(jì)2 HYPERLINK l bookmark6 1.1需求分析2 HYPERLINK l bookmark8 1.2關(guān)系模型2 HYPERLINK l bookmark10 E-R模型3 HYPERLINK l bookmark12 1.4表結(jié)構(gòu)設(shè)計(jì)4 HYPERLINK l bookmark14 3系統(tǒng)各功能模

3、塊的詳細(xì)設(shè)計(jì)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參考文獻(xiàn)27沈陽理工大學(xué)課程設(shè)計(jì)專用紙沈陽理工大學(xué)課程設(shè)計(jì)專用紙 1系統(tǒng)功能概述為該家庭物品管理系統(tǒng)設(shè)計(jì)一個(gè)MDI窗體作為主界面，在菜單欄創(chuàng)建了四個(gè)菜單：文件、查詢、添加、用戶名。（1）文件中有兩個(gè)子菜單：登

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

5、的身份，為每個(gè)成員分配有一個(gè)專門的賬號(hào)。（2）此家庭物品系統(tǒng)管理能夠添加、刪除、修改、查詢家庭成員的信息以及與房間、物品之間的聯(lián)系。（3）在進(jìn)入到家庭物品管理系統(tǒng)之后，不需要登陸就可以直接查詢屬于某個(gè)人的物品信息，也可以查詢某個(gè)日期之后所購(gòu)買的物品。（4）當(dāng)用戶成功登錄時(shí)，菜單欄上能夠顯示該用戶的名稱，此時(shí)，用戶才能對(duì)物品信息和家庭成員信息進(jìn)行添加、修改、刪除關(guān)系模型（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房間信息：歸屬信息：表結(jié)構(gòu)設(shè)計(jì)Uuser表：createtableUuser(userNamevarchar(6)primarykey,passwordchar(6)notnull,sexchar(2)check(sexin(男,女),agesmallintcheck(age0an

7、dage150),birthdaydatetime,statusvarchar(10),professionvarchar(20),hobbyvarchar(30),wageint)沈陽理工大學(xué)課程設(shè)計(jì)專用紙 協(xié)設(shè)計(jì)表Uuse=&Text1.Text&Adodc1.RecordSource=sqlstr3Adodc1.RefreshDataGrid1.Visible=True顯示所查詢的結(jié)果EndSubPrivateSubCommand2_Click()UnloadMe退回主窗體EndSubPrivateSubForm_Load()Move(Screen.Width-Width)/2,(Scr

8、een.Height-Height)/2EndSub(2)按日期查詢窗口設(shè)計(jì)在用戶輸入一個(gè)用戶名之后，在datagrid控件里就會(huì)顯示此用戶的所有物品信息。圖3-4代碼如下：PrivateSubCommand1_Click()Dimsqlstr2AsStringIfText1.Text=ThenMsgBox請(qǐng)輸入查詢用戶名！,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用戶信息用戶窗口設(shè)計(jì)從主界面進(jìn)入用戶信息界面后，可以在每個(gè)文本框里填寫新用戶的基本信息，填寫完成后，點(diǎn)擊添加按鈕，彈出添加成功，即成功添加。也可以在此界面里通過輸入用戶名查找每個(gè)家庭成員的基本信息，可以點(diǎn)擊上一個(gè)、下一個(gè)進(jìn)行瀏覽。查找之后對(duì)結(jié)果也可以進(jìn)行修改、刪除操作。鬥用戶告息I=回圖3-5代碼如下：PrivateSubComma

10、nd1_Click()IfText1.Text=OrText2.Text=ThenMsgBox請(qǐng)輸入完整的添加信息！,vbCritical,提醒Else將輸入的信息寫進(jìn)數(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請(qǐng)輸入完整的添加信息！,vbCritical,提醒ElseIfNotText2.Text=Adodc1.Recordset.Fields(password)ThenMsgBox密碼不正確！您無權(quán)修改！,vbCritical,錯(cuò)誤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更新后臺(tái)數(shù)據(jù)庫Adodc1.RefreshMsgBox修改成功！,vbDefaultButton1,提醒EndIfEndIfEndSubPrivateSubCommand3_Click()IfText1.Text=OrText2.Text=ThenMsgBox請(qǐng)輸入完整的添加信息！,vbCritical,提醒Else判斷是否有刪除的權(quán)限IfNotText2.Text=Adodc1.Recordset.Fields(password)ThenMsgBox密碼不正確！您無權(quán)刪除此用戶！,vbCrit

15、ical,錯(cuò)誤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)是最后一個(gè)用戶了！,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)是第一個(gè)用戶了！,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請(qǐng)輸入用戶名和密碼！,vbCritical,提醒ExitSubEndIfAdodc1.RecordSource=sqlA

21、dodc1.RefreshIfAdodc1.Recordset.BOFThenMsgBox無此用戶,請(qǐng)重新輸入,vbExclamation,警告Text1.Text=Text1.SetFocusExitSubElse判斷密碼是否正確IfNotAdodc1.Recordset.Fields(password)=Text2.TextThenMsgBox密碼錯(cuò)誤，重新輸入,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物品信息物品窗口設(shè)計(jì)進(jìn)入物品信息窗口之后，可以在文本框中輸入要添加的物品信息，然后點(diǎn)擊添加按鈕，彈出添加成功的對(duì)話框，即添加物品信息成功！也可以通過輸入物品名稱、購(gòu)買日期、是否是公用品、所有者來精確查找某條或某類物品信息。上一個(gè)、下一個(gè)可以瀏覽物品信息。修改完信息之后，也可以點(diǎn)擊修改按鈕來修改此物品信息。點(diǎn)擊刪除按鈕即可直接刪除此物品信息。退出即可直接返回主界面。添加修改存放房間:

24、刪除退出購(gòu)買日期:使用時(shí)間:所有者:圖3-6代碼如下：!PrivateFunctionsetNull()構(gòu)造一個(gè)置空的函數(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請(qǐng)輸入添加信息！,vbCritical,錯(cuò)誤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 沈陽理工大學(xué)課程設(shè)計(jì)專用紙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)沈陽理工大學(xué)課程設(shè)計(jì)專用紙沈陽理工大學(xué)課程設(shè)計(jì)專用紙 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) 沈陽理工大學(xué)課程設(shè)計(jì)專用紙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沈陽理工大學(xué)課程設(shè)計(jì)專用紙Text8.Text=Adodc1.Recordset.Fields(userName)EndIfEndSubPrivateSubForm_Load()Move(Screen.Width-Width)/2,(Screen.Height-Height)/2Command6.Enabled=FalseCommand7.Enabled=FalseEndSub房間信息房間窗口設(shè)計(jì)通過在文本框中輸入房間號(hào)和名稱，再點(diǎn)擊添加即可添加一個(gè)房間信息，也可以輸入房間號(hào)然后點(diǎn)擊查詢，查看房間名稱，同時(shí)可以點(diǎn)擊刪除進(jìn)行刪除，也可以修改房間信息之后，點(diǎn)擊修改進(jìn)行修改，退出即可返回主界面。5房閆1=1回I查找I:添加I:修改I:刪除I:I:進(jìn)出|bhhhhhNNNNNNi|町:|1引-施沁圈帀1圖3-7代碼如下：PrivateSubCo