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

..摘要隨著現(xiàn)代生活的發(fā)展,我國經(jīng)濟(jì)迅速發(fā)展,人民生活水平越來越好,家家戶戶都買了各種家電和生活用品,家庭物品也就越來越豐富了。但是,我們的家庭總是有限的,對于這些家庭物品我們需要有一個系統(tǒng)的整理。通過對數(shù)據(jù)庫的學(xué)習(xí),學(xué)習(xí)了一些對數(shù)據(jù)的整理,對此,為家庭物品做了一個管理系統(tǒng)。用VisualBasic6.0作為前端開發(fā)工具,利用其提供的集成開發(fā)環(huán)境及支持面向?qū)ο蟮母鞣N標(biāo)準(zhǔn)化的控件,尤其是對ADO的支持完成對數(shù)據(jù)庫的各種操作。使這個系統(tǒng)能夠添加、修改、刪除家庭各成員與物品的信息相關(guān)信息,當(dāng)進(jìn)入到系統(tǒng)時,可以直接通過查詢用戶名或購買日期來瀏覽物品的信息,登陸到系統(tǒng)之后,就可以對房間和物品信息進(jìn)行添加、修改刪除了,從而完成對家庭物品的整理,使各家庭成員更加方便地了解自己家里的物品信息關(guān)鍵字：家庭物品整理方便..目錄TOC\o"1-2"\u1系統(tǒng)功能概述32數(shù)據(jù)庫設(shè)計31.1需求分析31.2關(guān)系模型31.3E-R模型41.4表結(jié)構(gòu)設(shè)計53系統(tǒng)各功能模塊的詳細(xì)設(shè)計73.1主窗體73.2登錄93.3查詢113.4用戶信息133.5物品信息183.6房間信息254參考文獻(xiàn)28..1系統(tǒng)功能概述為該家庭物品管理系統(tǒng)設(shè)計一個MDI窗體作為主界面,在菜單欄創(chuàng)建了四個菜單：文件、查詢、添加、用戶名。文件中有兩個子菜單：登錄和退出。這兩個子菜單分別控制登錄用戶和退出整個程序。查詢中有兩個子菜單：按用戶名查詢和按日期查詢。按用戶名查詢可以在用戶輸入某個用戶名之后,顯示該用戶的物品情況；按日期查找可以在輸入一個日期之后,顯示該日期之后購買的所有物品。添加中有三個子菜單：添加用戶、添加房間、添加物品。點擊添加用戶,可以對用戶信息進(jìn)行增刪改查；點擊添加房間,可以對房間信息進(jìn)行增刪改查操作；點擊添加物品,則可以對物品信息進(jìn)行增刪改查操作。用戶名按鈕有一個子菜單：注銷。用來注銷已經(jīng)成功登錄的用戶,如沒有登錄用戶,該子菜單顯示無用戶,成功登錄之后即顯示已登錄用戶的名稱。2數(shù)據(jù)庫設(shè)計1.1需求分析〔1>根據(jù)家庭成員的身份,為每個成員分配有一個專門的賬號。<2>此家庭物品系統(tǒng)管理能夠添加、刪除、修改、查詢家庭成員的信息以及與房間、物品之間的聯(lián)系?！?在進(jìn)入到家庭物品管理系統(tǒng)之后,不需要登陸就可以直接查詢屬于某個人的物品信息,也可以查詢某個日期之后所購買的物品?！?當(dāng)用戶成功登錄時,菜單欄上能夠顯示該用戶的名稱,此時,用戶才能對物品信息和家庭成員信息進(jìn)行添加、修改、刪除1.2關(guān)系模型〔1家庭成員信息表Uuser：userName、password、sex、age、birthday、status、profession、hobby、wage〔2物品信息表Item：itemDate、purchaseDate、price、usedTime、quantity、publicItem、roomNumber、category〔3房間表Room：roomNumber、roomName〔4歸屬表Belong：itemName、userName、itemNumber1.3E-R模型UuserBelongItem整體E-R圖UuserBelongItem m n nRoomsave 1Roomsave圖2-1用戶信息：userNamehobbyUuseruserNamehobbyUuserprofessionpasswordprofessionpasswordbirthdaysexbirthdaysexwageagestatuswageagestatus圖2-2物品信息：ItemroomNumberpurchaseDateItemroomNumberpurchaseDatequantityusedTimequantityusedTimepublicItemitemDatapublicItemitemDatapricecategorypricecategory圖2-3房間信息：RoomRoomroomNumberroomNameroomNumberroomName圖2-4歸屬信息：BelongBelonguserNameitemNumberitemNameuserNameitemNumberitemName圖2-51.4表結(jié)構(gòu)設(shè)計Uuser表：createtableUuser<userNamevarchar<6>primarykey,passwordchar<6>notnull,sexchar<2>check<sexin<'男','女'>>,agesmallintcheck<age>0andage<150>,birthdaydatetime,statusvarchar<10>,professionvarchar<20>,hobbyvarchar<30>,wageint>圖2-6Item表：createtableItem<itemNamevarchar<20>primarykey,purchaseDatedatetime,priceint,usedTimedatetime,quantitysmallint,publicItemchar<2>check<publicItemin<'是','否'>>,roomNumbervarchar<3>,categoryvarchar<10>>圖2-7Room表：createtableRoom<roomNumbervarchar<3>primarykey,roomNamevarchar<10>,>圖2-8Belong表：createtableBelong<itemNamevarchar<20>,userNamevarchar<6>,itemNumbersmallint,primarykey<itemName,userName>,foreignkey<itemName>referencesItem<itemName>ondeletecascadeonupdatecascade,foreignkey<userName>referencesUuser<userName>ondeletecascadeonupdatecascade,>圖2-93系統(tǒng)各功能模塊的詳細(xì)設(shè)計3.1主窗體主窗口設(shè)計進(jìn)入主窗體之后,用戶只能有查詢的權(quán)限,用戶只有登錄成功之后才能擁有添加的權(quán)限。在添加菜單欄可以對物品、用戶、房間進(jìn)行增刪改查功能。圖3-1代碼如下：PrivateSubMDIForm_load<>'設(shè)置加載主窗口是在電腦中間顯示,且添加按鈕不可用Move<Screen.Width-Width>/2,<Screen.Height-Height>/2添加.Enabled=FalseEndSubPrivateSub按日期_Click<IndexAsInteger>按日期查找.ShowEndSubPrivateSub按用戶_Click<IndexAsInteger>按用戶查找.ShowEndSubPrivateSub登陸_Click<IndexAsInteger>’檢查是否有用戶已經(jīng)登錄IfNot用戶.Caption="無用戶"ThenMsgBox"以檢測到登錄用戶！請先注銷再登錄！",vbDefaultButton1,"警告"ExitSubEndIf登錄.Show登錄.ScaleTop=<MDIForm1.ScaleHeight-登錄.ScaleHeight>/2EndSubPrivateSub添加房間_Click<IndexAsInteger>房間.Show‘顯示房間信息窗口EndSubPrivateSub添加物品_Click<IndexAsInteger>物品.Show‘顯示物品信息窗口EndSubPrivateSub添加用戶信息_Click<IndexAsInteger>賬戶.Show‘顯示用戶信息窗口EndSubPrivateSub退出_Click<IndexAsInteger>UnloadMe’退出系統(tǒng)EndSubPrivateSub用戶_Click<>If用戶.Caption="無用戶"ThenMsgBox"請先登錄,謝謝！",vbDefaultButton1,"提示"登錄.ShowEndIfEndSubPrivateSub注銷_Click<>‘將主界面還原成無用戶登錄狀態(tài)用戶.Caption="無用戶"添加.Enabled=FalseEndSub3.2登錄登錄窗口設(shè)計用戶只有在成功登錄之后才能點擊添加按鈕,當(dāng)輸入的用戶名與數(shù)據(jù)庫中的用戶名和密碼一樣時即登錄成功,在主窗體菜單欄上顯示在線用戶的名稱,而且主窗體只能登錄一個用戶,若要切換用戶,可以在主窗體點擊注銷即可。圖3-2代碼如下：PrivateSubCommand1_Click<>DimaAsString’定義一個常量以記錄用戶名a=Text1.TextIfText1.Text=""ThenMsgBox"請輸入用戶名！",vbOKOnly,"提示"Text1.SetFocusExitSubElseIfText2.Text=""ThenMsgBox"請輸入密碼！",vbOKOnly,"提示"Text2.SetFocusExitSubEndIfEndIfDimsqlstrAsString‘定義sql語句的常量sqlstr="SelectpasswordFromUuserWhereuserName='"&Text1.Text&"'"Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.BOFThenMsgBox"用戶名錯誤,重新輸入",vbExclamation,"警告"Text1.Text=""Text1.SetFocusExitSubElse'判斷密碼是否正確IfNotAdodc1.Recordset.Fields<"password">=Text2.TextThenMsgBox"密碼錯誤,重新輸入",vbExclamation,"警告"Text2.Text=""Text2.SetFocusExitSubEndIfEndIfMDIForm1.用戶.Caption=aIfNotMDIForm1.用戶.Caption="無用戶"ThenMDIForm1.添加.Enabled=True’用戶成功登錄后修改主窗體EndIfUnloadMeEndSubPrivateSubCommand2_Click<>UnloadMeEndSubPrivateSubForm_Load<>Move<MDIForm1.Width-Width>/2,<MDIForm1.Height-Height>/2EndSub3.3查詢按用戶名查詢窗口設(shè)計在用戶輸入一個日期之后,點擊查詢,在datagrid控件里就會顯示所輸入日期之后的所有物品的信息。圖3-3代碼如下：PrivateSubCommand1_Click<>Dimsqlstr3AsStringIfText1.Text=""ThenMsgBox"請輸入查詢用戶名！",vbDefaultButton1,"提示"ExitSubEndIfsqlstr3="Select*frombyUserWherepurchaseDate>='"&Text1.Text&"'"Adodc1.RecordSource=sqlstr3Adodc1.RefreshDataGrid1.Visible=True‘顯示所查詢的結(jié)果EndSubPrivateSubCommand2_Click<>UnloadMe’退回主窗體EndSubPrivateSubForm_Load<>Move<Screen.Width-Width>/2,<Screen.Height-Height>/2EndSub按日期查詢窗口設(shè)計在用戶輸入一個用戶名之后,在datagrid控件里就會顯示此用戶的所有物品信息。圖3-4代碼如下：PrivateSubCommand1_Click<>Dimsqlstr2AsStringIfText1.Text=""ThenMsgBox"請輸入查詢用戶名！",vbDefaultButton1,"提示"ExitSubEndIfsqlstr2="Select*frombyUserWhereuserName='"&Text1.Text&"'"Adodc2.RecordSource=sqlstr2Adodc2.RefreshDataGrid1.Visible=TrueEndSubPrivateSubCommand2_Click<>UnloadMeEndSubPrivateSubForm_Load<>Move<Screen.Width-Width>/2,<Screen.Height-Height>/2EndSub3.4用戶信息用戶窗口設(shè)計從主界面進(jìn)入用戶信息界面后,可以在每個文本框里填寫新用戶的基本信息,填寫完成后,點擊添加按鈕,彈出添加成功,即成功添加。也可以在此界面里通過輸入用戶名查找每個家庭成員的基本信息,可以點擊上一個、下一個進(jìn)行瀏覽。查找之后對結(jié)果也可以進(jìn)行修改、刪除操作。圖3-5代碼如下：PrivateSubCommand1_Click<>IfText1.Text=""OrText2.Text=""ThenMsgBox"請輸入完整的添加信息！",vbCritical,"提醒"Else‘將輸入的信息寫進(jìn)數(shù)據(jù)庫中Adodc1.Recordset.Fields<"userName">=Text1.TextAdodc1.Recordset.Fields<"password">=Text2.TextIfOption1.Value=TrueThenAdodc1.Recordset.Fields<"sex">=Label6.CaptionElseAdodc1.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.TextAdodc1.Recordset.Fields<"wage">=Text8.TextAdodc1.RefreshMsgBox"添加用戶成功！",vbDefaultButton1,"提示"EndIfEndSubPrivateSubCommand2_Click<>IfText1.Text=""OrText2.Text=""ThenMsgBox"請輸入完整的添加信息！",vbCritical,"提醒"ElseIfNotText2.Text=Adodc1.Recordset.Fields<"password">ThenMsgBox"密碼不正確！您無權(quán)修改！",vbCritical,"錯誤"ElseIfOption1.Value=TrueThenAdodc1.Recordset.Fields<"sex">=Label6.CaptionElseAdodc1.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.Fields<"wage">=Text8.TextEndIfAdodc1.Recordset.Update’更新后臺數(shù)據(jù)庫Adodc1.RefreshMsgBox"修改成功！",vbDefaultButton1,"提醒"EndIfEndIfEndSubPrivateSubCommand3_Click<>IfText1.Text=""OrText2.Text=""ThenMsgBox"請輸入完整的添加信息！",vbCritical,"提醒"Else’判斷是否有刪除的權(quán)限IfNotText2.Text=Adodc1.Recordset.Fields<"password">ThenMsgBox"密碼不正確！您無權(quán)刪除此用戶！",vbCritical,"錯誤"ElseAdodc1.RefreshText1.Text=""Text2.Text=""Option1.Value=FalseOption2.Value=FalseText3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""MsgBox"用戶刪除成功！",vbDefaultButton1,"提醒"EndIfEndIfEndSubPrivateSubCommand4_Click<>UnloadMeEndSubPrivateSubCommand5_Click<>IfAdodc1.Recordset.EOFThen‘判斷記錄指針的位置AdoCommand5.Enabled=FalseCommand6.Enabled=TrueMsgBox"已經(jīng)是最后一個用戶了！",vbDefaultButton1,"提示"ExitSubEndIfText1.Text=Adodc1.Recordset.Fields<"userName">Text2.Text=Adodc1.Recordset.Fields<"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">lds<"profession">Text7.Text=Adodc1.Recordset.Fields<"hobby">Text8.Text=Adodc1.Recordset.Fields<"wage">EndSubPrivateSubCommand6_Click<>Adodc1.Recordset.MovePrevious‘將記錄指針向上移IfAdodc1.Recordset.BOFThenCommand6.Enabled=FalseCommand5.Enabled=TrueMsgBox"已經(jīng)是第一個用戶了！",vbDefaultButton1,"提示"ExitSubEndIfText1.Text=Adodc1.Recordset.Fields<"userName">Text2.Text=Adodc1.Recordset.Fields<"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<"hobby">Text8.Text=Adodc1.Recordset.Fields<"wage">IfAdodc1.Recordset.EOFThenCommand5.Enabled=FalseEndIfEndSubPrivateSubCommand7_Click<>Command5.Enabled=TrueCommand6.Enabled=TrueDimsqlAsStringsql="select*fromUuser"IfText1.Text=""OrText2.Text=""ThenMsgBox"請輸入用戶名和密碼！",vbCritical,"提醒"ExitSubEndIfAdodc1.RecordSource=sqlAdodc1.RefreshIfAdodc1.Recordset.BOFThenMsgBox"無此用戶,請重新輸入",vbExclamation,"警告"Text1.Text=""Text1.SetFocusExitSubElse'判斷密碼是否正確IfNotAdodc1.Recordset.Fields<"password">=Text2.TextThenMsgBox"密碼錯誤,重新輸入",vbExclamation,"警告"Text2.Text=""Text2.SetFocusExitSubElseIfAdodc1.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<"hobby">Text8.Text=Adodc1.Recordset.Fields<"wage">EndIfEndIfEndSubPrivateSubForm_Load<>Move<Screen.Width-Width>/2,<Screen.Height-Height>/2Command5.Enabled=FalseCommand6.Enabled=FalseEndSub3.5物品信息物品窗口設(shè)計進(jìn)入物品信息窗口之后,可以在文本框中輸入要添加的物品信息,然后點擊添加按鈕,彈出添加成功的對話框,即添加物品信息成功！也可以通過輸入物品名稱、購買日期、是否是公用品、所有者來精確查找某條或某類物品信息。上一個、下一個可以瀏覽物品信息。修改完信息之后,也可以點擊修改按鈕來修改此物品信息。點擊刪除按鈕即可直接刪除此物品信息。退出即可直接返回主界面。圖3-6代碼如下：PrivateFunctionsetNull<>’構(gòu)造一個置空的函數(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.Visible=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<"price">=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.RefreshsetNullMsgBox"添加成功！",vbDefaultButton1,"提示"ExitSubEndIfIfCombo1.Text="否"ThenDimsqlsAsStringsqls="select*fromItem"Adodc1.RecordSource=sqlsAdodc1.Recordset.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.TextAdodc1.Recordset.Fields<"publicItem">=Combo1.TextAdodc1.RefreshDimsqlAsStringsql7="select*fromBelong"Adodc1.RecordSource=sql7Adodc1.Recordset.Fields<"itemName">=Text1.TextAdodc1.Recordset.Fields<"userName">=Text8.TextAdodc1.Recordset.Fields<"itemNumber">=Text5.TextAdodc1.RefreshsetNullMsgBox"添加成功！",vbDefaultButton1,"提示"ExitSubEndIfEndSubPrivateSubCommand2_Click<>IfCombo1.Text="是"ThenAdodc1.Recordset.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.TextAdodc1.Recordset.Fields<"publicItem">=Combo1.TextAdodc1.RefreshsetNull’調(diào)用置空函數(shù)MsgBox"修改成功！",vbDefaultButton1,"提示"ExitSubEndIfEndSubPrivateSubCommand3_Click<>Adodc1.Recordset.Delete‘刪除物品信息Adodc1.RefreshMsgBox"刪除成功！",vbDefaultButton1,"提示"EndSubPrivateSubCommand4_Click<>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.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=Adodc1.Recordset.Fields<"publicItem">IfCombo1.Text="否"ThenText8.Text=Adodc1.Recordset.Fields<"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.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<"userName">EndIfExitSubEndIfIfNotText6.Text=""ThenDimsql3AsStringsql3="Select*FromitemsWherecategory='"&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.Recordset.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.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<"category">Text7.Text=Adodc1.Recordset.Fields<"roomnumber">Combo1.Text=Adodc1.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.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">ExitSubEndIfIfCombo1.Text="否"ThenDimsql6AsStringsql6="Select*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">Text6.Text=Adodc1.Recordset.Fields<"category">Text7.Text=Adodc1.Recordset.Fields<"roomnumber">Text8.Text=Adodc1.Recordset.Fields<"userName">ExitSubEndIfEndSubPrivateSubCommand6_Click<>IfAdodc1.Recordset.EOFThenMsgBox"已經(jīng)是最后一條了！",vbDefaultButton1,"提示"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.Recordset.Fields<"category">Text7.Text=Adodc1.Recordset.Fields<"roomnumber">IfCombo1.Text="否"ThenText8.Text=Adodc1.Recordset.Fields<"userName">EndIfEndSubPrivateSubCommand7_Click<>IfAdodc1.Recordset.BOFThenMsgBox"已經(jīng)是第一條了！",vbDefaultButton1,"提示"Command7.Enabled=FalseCommand6.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<"category">Text7.Text=Adodc1.Recordset.Fields<"roomnumber">IfCombo1.Text=