vb結(jié)合sql開發(fā)網(wǎng)上書店管理系統(tǒng)(編輯修改稿)
2024-12-18 16:22 本頁面
【文章內(nèi)容簡介】 nn As New Dim rs As New Private Sub Command1_Click() (購買者編號 ) = (購買者姓名 ) = If Len() 0 And Len() 0 Then Set = rs MsgBox 信息添加成功！ End If End Sub//添加信息語句 Private Sub Command2_Click() select * from 購買者信息表 where 購買者編號 =39。 + + 39。, conn, adOpenKeyset, adLockOptimistic, adCmdText (購買者姓名 ) = Set = rs End Sub//修改信息語句 Private Sub Command3_Click() 7 select*from 購買者信息表 where 購買者編號 =39。 amp。 Trim() amp。 39。, conn, adOpenDynamic, adLockPessimistic Set = rs End Sub//查詢信息語句 Private Sub Form_Load() Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=網(wǎng)上書店管理系統(tǒng) 。Data Source=F30161 select * from 購買者信息表 , conn, 1, 3, adCmdText Set = rs End Sub//連接數(shù)據(jù)庫語句 銷售信息（購買信息）管理界面： 銷售信息（購買信息）管理代碼部分： Dim conn As New Dim rs As New Private Sub Command1_Click() (圖書編號 ) = (購買者編號 ) = (購買時間 ) = (購買數(shù)量 ) = If Len() 0 And Len() 0 And Len() 0 And Len() 0 Then 8 Set = rs MsgBox 信息添加成功！ En
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1