vb結(jié)合sql開發(fā)網(wǎng)上書店管理系統(tǒng)-全文預(yù)覽
【正文】 b Command2_Click() select * from 圖書信息表 where 圖書編號(hào) =39。, conn, adOpenDynamic, adLockPessimistic Set = rs End Sub Private Sub Form_Load() Provider=。, conn, adOpenKeyset, adLockOptimistic, adCmdText (購(gòu)買者編號(hào) ) = (購(gòu)買時(shí)間 ) = (購(gòu)買數(shù)量 ) = Set = rs End Sub Private Sub Command3_Click() select*from 購(gòu)買信息表 where 圖書編號(hào) =39。Persist Security Info=False。 Trim() amp。, conn, adOpenDynamic, adLockPessimistic Set = rs End Sub ⑤ 調(diào)試運(yùn)行結(jié)果 購(gòu)買者信息管理界面： 6 Dim conn As New Dim rs As New Private Sub Command1_Click() (購(gòu)買者編號(hào) ) = (購(gòu)買者姓名 ) = If Len() 0 And Len() 0 Then Set = rs MsgBox 信息添加成功！ End If End Sub//添加信息語(yǔ)句 Private Sub Command2_Click() select * from 購(gòu)買者信息表 where 購(gòu)買者編號(hào) =39。, conn, adOpenKeyset, adLockOptimistic, adCmdText (圖書名稱 ) = (單價(jià) ) = Set = rs End Sub ④ 對(duì)查詢功能的實(shí)現(xiàn) 通過(guò)圖書編號(hào)查詢圖書的信息 Private Sub Command3_Click() select*from 圖書信息表 where 圖書編號(hào) =39。Persist Security Info=False。 某某 學(xué)院 計(jì)算機(jī)科學(xué)與技術(shù) 系 課 程
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1