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

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

2、間和物品信息進(jìn)行添加、修改刪除了，從而完成對(duì)家庭物品的整理，使各家庭成員更加方便地了解自己家里的物品信息關(guān)鍵字：家庭物品整理方便文案大全實(shí)用標(biāo)準(zhǔn)文檔目錄1系統(tǒng)功能概述 .22數(shù)據(jù)庫(kù)設(shè)計(jì) .21.1需求分析 .21.2關(guān)系模型 .21.3 E-R 模型 .31.4表結(jié)構(gòu)設(shè)計(jì) .43系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì) .63.1主窗體 .63.2登錄 .83.3查詢 .103.4用戶信息 .123.5物品信息 .173.6房間信息 .244參考文獻(xiàn) .27文案大全實(shí)用標(biāo)準(zhǔn)文檔1 系統(tǒng)功能概述為該家庭物品管理系統(tǒng)設(shè)計(jì)一個(gè) MDI窗體作為主界面，在菜單欄創(chuàng)建了四個(gè)菜單：文件、查詢、添加、用戶名。（1）文件中有兩

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

4、 需求分析（ 1) 根據(jù)家庭成員的身份，為每個(gè)成員分配有一個(gè)專(zhuān)門(mén)的賬號(hào)。(2) 此家庭物品系統(tǒng)管理能夠添加、 刪除、修改、查詢家庭成員的信息以及與房間、物品之間的聯(lián)系。（ 3）在進(jìn)入到家庭物品管理系統(tǒng)之后，不需要登陸就可以直接查詢屬于某個(gè)人的物品信息，也可以查詢某個(gè)日期之后所購(gòu)買(mǎi)的物品。（ 4）當(dāng)用戶成功登錄時(shí)，菜單欄上能夠顯示該用戶的名稱，此時(shí)，用戶才能對(duì)物品信息和家庭成員信息進(jìn)行添加、修改、刪除1.2 關(guān)系模型（ 1）家庭成員信息表Uuser：userName、password、sex、age、birthday 、status 、profession、hobby、wage（ 2）物品信息表

5、Item： itemDate 、 purchaseDate 、 price 、 usedTime 、 quantity、publicItem、roomNumber、category（ 3）房間表Room： roomNumber、roomName（ 4）歸屬表Belong：itemName、userName、itemNumber文案大全實(shí)用標(biāo)準(zhǔn)文檔1.3 E-R 模型整體 E-R 圖ItemmnBelongUusern1saveRoom圖 2-1用戶信息：userNameUuserpasswordsexstatusage圖 2-2物品信息：purchaseDateItemusedTimeitem

6、Datacategoryprice圖 2-3hobbyprofessionbirthdaywageroomNumberquantitypublicItem文案大全實(shí)用標(biāo)準(zhǔn)文檔房間信息：RoomroomNumberroomName圖 2-4歸屬信息：BelongitemNameuserNameitemNumber圖 2-51.4 表結(jié)構(gòu)設(shè)計(jì)Uuser 表：create table Uuser(userName varchar(6) primary key,password char(6) not null ,sex char(2) check (sex in('男 ','

7、女'),age smallint check (age>0 and age<150),birthday datetime,status varchar(10),profession varchar(20),hobby varchar(30),wage int)文案大全實(shí)用標(biāo)準(zhǔn)文檔圖 2-6Item 表：create table Item(itemName varchar(20) primary key,purchaseDate datetime,price int ,usedTime datetime ,quantity smallint,publicItem char(2

8、) check(publicItem in ('是 ','否'),roomNumber varchar(3),category varchar(10)圖 2-7Room表：create table Room(roomNumber varchar(3) primary key ,roomName varchar(10),)文案大全實(shí)用標(biāo)準(zhǔn)文檔圖 2-8Belong 表：create table Belong(itemName varchar(20),userName varchar(6),itemNumber smallint,primary key (itemN

9、ame,userName),foreign key (itemName) references Item(itemName)on delete cascadeon update cascade,foreign key (userName) references Uuser(userName)on delete cascadeon update cascade,)圖 2-93 系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì)3.1 主窗體主窗口設(shè)計(jì)進(jìn)入主窗體之后， 用戶只能有查詢的權(quán)限， 用戶只有登錄成功之后才能擁有添加的權(quán)限。在添加菜單欄可以對(duì)物品、用戶、房間進(jìn)行增刪改查功能。文案大全實(shí)用標(biāo)準(zhǔn)文檔圖 3-1代碼如下：

10、Private Sub MDIForm_load()' 設(shè)置加載主窗口是在電腦中間顯示，且添加按鈕不可用Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2 添加 .Enabled = FalseEnd SubPrivate Sub按日期 _Click(Index As Integer)按日期查找 .ShowEnd SubPrivate Sub按用戶 _Click(Index As Integer)按用戶查找 .ShowEnd SubPrivate Sub登陸 _Click(Index As Integer)檢查是否

11、有用戶已經(jīng)登錄If Not用戶 .Caption = "無(wú)用戶 " ThenMsgBox "以檢測(cè)到登錄用戶！請(qǐng)先注銷(xiāo)再登錄！ ", vbDefaultButton1, " 警告 " Exit SubEnd If登錄 .Show登錄 .ScaleTop = (MDIForm1.ScaleHeight - 登錄 .ScaleHeight) / 2 End SubPrivate Sub添加房間 _Click(Index As Integer)文案大全實(shí)用標(biāo)準(zhǔn)文檔房間 .Show顯示房間信息窗口End SubPrivate Sub添加物品

12、_Click(Index As Integer)物品 .Show顯示物品信息窗口End SubPrivate Sub添加用戶信息 _Click(Index As Integer)賬戶 .Show顯示用戶信息窗口End SubPrivate Sub退出 _Click(Index As Integer)Unload Me退出系統(tǒng)End SubPrivate Sub用戶 _Click()If用戶 .Caption = "無(wú)用戶 " ThenMsgBox "請(qǐng)先登錄，謝謝！ ", vbDefaultButton1, "提示 "登錄 .Show

13、End IfEnd SubPrivate Sub注銷(xiāo) _Click()將主界面還原成無(wú)用戶登錄狀態(tài)用戶 .Caption = "無(wú)用戶 "添加 .Enabled = FalseEnd Sub3.2 登錄登錄窗口設(shè)計(jì)用戶只有在成功登錄之后才能點(diǎn)擊添加按鈕， 當(dāng)輸入的用戶名與數(shù)據(jù)庫(kù)中的用戶名和密碼一樣時(shí)即登錄成功， 在主窗體菜單欄上顯示在線用戶的名稱， 而且主窗體只能登錄一個(gè)用戶，若要切換用戶，可以在主窗體點(diǎn)擊注銷(xiāo)即可。文案大全實(shí)用標(biāo)準(zhǔn)文檔圖 3-2代碼如下：Private Sub Command1_Click()Dim a As String定義一個(gè)常量以記錄用戶名a = T

14、ext1.TextIf Text1.Text = "" ThenMsgBox " 請(qǐng)輸入用戶名！", vbOKOnly, " 提示 "Text1.SetFocusExit SubElseIf Text2.Text = "" ThenMsgBox " 請(qǐng)輸入密碼！", vbOKOnly, " 提示 "Text2.SetFocusExit SubEnd IfEnd IfDim sqlstr As String定義 sql 語(yǔ)句的常量sqlstr = "Select pa

15、ssword From Uuser Where userName= '" & Text1.Text & "' "Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF ThenMsgBox " 用戶名錯(cuò)誤，重新輸入", vbExclamation, " 警告 "Text1.Text = ""Text1.SetFocusExit SubElse' 判斷密碼是否正確If Not Adodc1.R

16、ecordset.Fields("password") = Text2.Text Then文案大全實(shí)用標(biāo)準(zhǔn)文檔MsgBox " 密碼錯(cuò)誤，重新輸入", vbExclamation, " 警告 "Text2.Text = ""Text2.SetFocusExit SubEnd IfEnd IfMDIForm1. 用戶 .Caption = aIf Not MDIForm1.用戶 .Caption = " 無(wú)用戶 " ThenMDIForm1. 添加 .Enabled = True 用戶成功登錄后修

17、改主窗體End IfUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Move (MDIForm1.Width - Width) / 2, (MDIForm1.Height - Height) / 2End Sub3.3 查詢（ 1）按用戶名查詢窗口設(shè)計(jì)在用戶輸入一個(gè)日期之后， 點(diǎn)擊查詢，在 datagrid 控件里就會(huì)顯示所輸入日期之后的所有物品的信息。文案大全實(shí)用標(biāo)準(zhǔn)文檔圖 3-3代碼如下：Private Sub Command1_Click()Dim sqlstr3 As

18、StringIf Text1.Text = "" ThenMsgBox " 請(qǐng)輸入查詢用戶名！", vbDefaultButton1, " 提示 "Exit SubEnd Ifsqlstr3 = "Select * from byUser Where purchaseDate >= '" & Text1.Text & "' "Adodc1.RecordSource = sqlstr3Adodc1.RefreshDataGrid1.Visible = True

19、顯示所查詢的結(jié)果End SubPrivate Sub Command2_Click()Unload Me退回主窗體End SubPrivate Sub Form_Load()Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2End Sub（ 2）按日期查詢窗口設(shè)計(jì)在用戶輸入一個(gè)用戶名之后， 在 datagrid 控件里就會(huì)顯示此用戶的所有物品信息。文案大全實(shí)用標(biāo)準(zhǔn)文檔圖 3-4代碼如下：Private Sub Command1_Click()Dim sqlstr2 As StringIf Text1.Text = &quo

20、t;" ThenMsgBox "請(qǐng)輸入查詢用戶名！ ", vbDefaultButton1, "提示 "Exit SubEnd Ifsqlstr2 = "Select * from byUser Where userName= '" & Text1.Text & "' "Adodc2.RecordSource = sqlstr2Adodc2.RefreshDataGrid1.Visible = TrueEnd SubPrivate Sub Command2_Click()U

21、nload MeEnd SubPrivate Sub Form_Load()Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2End Sub3.4 用戶信息用戶窗口設(shè)計(jì)文案大全實(shí)用標(biāo)準(zhǔn)文檔從主界面進(jìn)入用戶信息界面后， 可以在每個(gè)文本框里填寫(xiě)新用戶的基本 信息，填寫(xiě)完成后，點(diǎn)擊添加按鈕，彈出添加成功，即成功添加。也可以在此界面里通過(guò)輸入用戶名查找每個(gè)家庭成員的基本信息， 可以點(diǎn)擊上一個(gè)、 下一個(gè)進(jìn)行瀏覽。查找之后對(duì)結(jié)果也可以進(jìn)行修改、刪除操作。圖 3-5代碼如下：Private Sub Command1_Click()If

22、Text1.Text = "" Or Text2.Text = "" ThenMsgBox " 請(qǐng)輸入完整的添加信息！", vbCritical, " 提醒 "Else將輸入的信息寫(xiě)進(jìn)數(shù)據(jù)庫(kù)中Adodc1.Recordset.AddNewAdodc1.Recordset.Fields("userName") = Text1.TextAdodc1.Recordset.Fields("password") = Text2.TextIf Option1.Value = True T

23、henAdodc1.Recordset.Fields("sex") = Label6.CaptionElseAdodc1.Recordset.Fields("sex") = Label7.CaptionEnd IfAdodc1.Recordset.Fields("birthday") = Text3.TextAdodc1.Recordset.Fields("age") = Text4.TextAdodc1.Recordset.Fields("status") = Text5.TextAdodc1

24、.Recordset.Fields("profession") = Text6.TextAdodc1.Recordset.Fields("hobby") = Text7.TextAdodc1.Recordset.Fields("wage") = Text8.TextAdodc1.Recordset.Update文案大全實(shí)用標(biāo)準(zhǔn)文檔Adodc1.RefreshMsgBox " 添加用戶成功！", vbDefaultButton1, " 提示 "End IfEnd SubPrivate Sub Co

25、mmand2_Click()If Text1.Text = "" Or Text2.Text = "" ThenMsgBox " 請(qǐng)輸入完整的添加信息！", vbCritical, " 提醒 "ElseIf Not Text2.Text = Adodc1.Recordset.Fields("password") Then MsgBox " 密碼不正確！您無(wú)權(quán)修改！ ", vbCritical, " 錯(cuò)誤 " ElseIf Option1.Value = T

26、rue ThenAdodc1.Recordset.Fields("sex") = Label6.CaptionElseAdodc1.Recordset.Fields("sex") = Label7.CaptionEnd IfAdodc1.Recordset.Fields("birthday") = Text3.TextAdodc1.Recordset.Fields("age") = Text4.TextAdodc1.Recordset.Fields("status") = Text5.TextA

27、dodc1.Recordset.Fields("profession") = Text6.TextAdodc1.Recordset.Fields("hobby") = Text7.TextIf Not Text8.Text = "" ThenAdodc1.Recordset.Fields("wage") = Text8.TextEnd IfAdodc1.Recordset.Update更新后臺(tái)數(shù)據(jù)庫(kù)Adodc1.RefreshMsgBox " 修改成功！ ", vbDefaultButton1,

28、 " 提醒 "End IfEnd IfEnd SubPrivate Sub Command3_Click()If Text1.Text = "" Or Text2.Text = "" ThenMsgBox " 請(qǐng)輸入完整的添加信息！", vbCritical, " 提醒 "Else判斷是否有刪除的權(quán)限If Not Text2.Text = Adodc1.Recordset.Fields("password") ThenMsgBox " 密碼不正確！您無(wú)權(quán)刪除此用戶！

29、", vbCritical, " 錯(cuò)誤 "ElseAdodc1.Recordset.DeleteAdodc1.Recordset.UpdateAdodc1.RefreshText1.Text = ""Text2.Text = ""文案大全實(shí)用標(biāo)準(zhǔn)文檔Option1.Value = FalseOption2.Value = FalseText3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = "&quo

30、t;Text7.Text = ""Text8.Text = ""MsgBox " 用戶刪除成功！", vbDefaultButton1, " 提醒 "End IfEnd IfEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then判斷記錄指針的位置Adodc1.Recordset.MoveLastCommand

31、5.Enabled = FalseCommand6.Enabled = TrueMsgBox " 已經(jīng)是最后一個(gè)用戶了！", vbDefaultButton1, " 提示 "Exit SubEnd IfText1.Text = Adodc1.Recordset.Fields("userName")Text2.Text = Adodc1.Recordset.Fields("password")If Adodc1.Recordset.Fields("sex") = "男 " Th

32、enOption1.Value = TrueElseOption2.Value = TrueEnd IfText3.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.R

33、ecordset.Fields("hobby")Text8.Text = Adodc1.Recordset.Fields("wage")End SubPrivate Sub Command6_Click()Adodc1.Recordset.MovePrevious將記錄指針向上移If Adodc1.Recordset.BOF Then文案大全實(shí)用標(biāo)準(zhǔn)文檔Adodc1.Recordset.MoveFirstCommand6.Enabled = FalseCommand5.Enabled = TrueMsgBox " 已經(jīng)是第一個(gè)用戶了！"

34、;, vbDefaultButton1, "提示 "Exit SubEnd IfText1.Text = Adodc1.Recordset.Fields("userName")Text2.Text = Adodc1.Recordset.Fields("password")If Adodc1.Recordset.Fields("sex") = "男 " ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfText3.Text = Adodc1

35、.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(

36、"wage")If Adodc1.Recordset.EOF ThenCommand5.Enabled = FalseEnd IfEnd SubPrivate Sub Command7_Click()Command5.Enabled = TrueCommand6.Enabled = TrueDim sql As Stringsql = "select * from Uuser"If Text1.Text = "" Or Text2.Text = "" ThenMsgBox " 請(qǐng)輸入用戶名和密碼！&quo

37、t;, vbCritical, " 提醒 "Exit SubEnd IfAdodc1.RecordSource = sqlAdodc1.RefreshIf Adodc1.Recordset.BOF ThenMsgBox " 無(wú)此用戶 ,請(qǐng)重新輸入 ", vbExclamation, " 警告 "Text1.Text = ""Text1.SetFocusExit SubElse' 判斷密碼是否正確If Not Adodc1.Recordset.Fields("password") = Te

38、xt2.Text Then MsgBox " 密碼錯(cuò)誤，重新輸入 ", vbExclamation, " 警告 "Text2.Text = ""文案大全實(shí)用標(biāo)準(zhǔn)文檔Text2.SetFocusExit SubElseIf Adodc1.Recordset.Fields("sex") = "男 " ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfText3.Text = Adodc1.Recordset.Fields("birt

39、hday")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")End IfEnd I

40、fEnd SubPrivate Sub Form_Load()Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2Command5.Enabled = FalseCommand6.Enabled = FalseEnd Sub3.5 物品信息物品窗口設(shè)計(jì)進(jìn)入物品信息窗口之后，可以在文本框中輸入要添加的物品信息，然后點(diǎn)擊添加按鈕，彈出添加成功的對(duì)話框，即添加物品信息成功！也可以通過(guò)輸入物品名稱、購(gòu)買(mǎi)日期、 是否是公用品、 所有者來(lái)精確查找某條或某類(lèi)物品信息。上一個(gè)、下一個(gè)可以瀏覽物品信息。修改完信息之后，也可以點(diǎn)擊修改按鈕來(lái)修改

41、此物品信息。點(diǎn)擊刪除按鈕即可直接刪除此物品信息。退出即可直接返回主界面。文案大全實(shí)用標(biāo)準(zhǔn)文檔圖 3-6代碼如下：Private Function setNull()構(gòu)造一個(gè)置空的函數(shù)Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Combo1.Te

42、xt = ""End FunctionPrivate Sub Combo1_LostFocus()If Combo1.Text = " 是 " ThenLabel9.Visible = FalseText8.Visible = FalseEnd IfIf Combo1.Text = " 否 " ThenLabel9.Visible = TrueText8.Visible = TrueEnd IfEnd SubPrivate Sub Command1_Click()If Text1.Text = "" Or Comb

43、o1.Text = "" Then文案大全實(shí)用標(biāo)準(zhǔn)文檔MsgBox " 請(qǐng)輸入添加信息！", vbCritical, " 錯(cuò)誤 "Exit SubEnd IfIf Combo1.Text = " 是 " ThenAdodc1.Recordset.AddNew添加物品信息Adodc1.Recordset.Fields("itemName") = Text1.TextAdodc1.Recordset.Fields("purchaseDate") = Text2.TextAdodc

44、1.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

45、.Fields("publicItem") = Combo1.TextAdodc1.Recordset.UpdateAdodc1.RefreshsetNullMsgBox " 添加成功！ ", vbDefaultButton1, " 提示 "Exit SubEnd IfIf Combo1.Text = " 否 " ThenDim sqls As Stringsqls = "select * from Item"Adodc1.RecordSource = sqlsAdodc1.Recordset.

46、AddNewAdodc1.Recordset.Fields("itemName") = Text1.TextAdodc1.Recordset.Fields("purchaseDate") = Text2.TextAdodc1.Recordset.Fields("price") = Text3.TextAdodc1.Recordset.Fields("usedTime") = Text4.TextAdodc1.Recordset.Fields("quantity") = Text5.TextAdo

47、dc1.Recordset.Fields("category") = Text6.TextAdodc1.Recordset.Fields("roomnumber") = Text7.TextAdodc1.Recordset.Fields("publicItem") = Combo1.TextAdodc1.Recordset.UpdateAdodc1.RefreshDim sql As Stringsql7 = "select * from Belong"Adodc1.RecordSource = sql7Adodc

48、1.Recordset.AddNewAdodc1.Recordset.Fields("itemName") = Text1.TextAdodc1.Recordset.Fields("userName") = Text8.TextAdodc1.Recordset.Fields("itemNumber") = Text5.TextAdodc1.Recordset.UpdateAdodc1.Refresh文案大全實(shí)用標(biāo)準(zhǔn)文檔setNullMsgBox " 添加成功！ ", vbDefaultButton1, "

49、 提示 "Exit SubEnd IfEnd SubPrivate Sub Command2_Click()If Combo1.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.