vb结合sql开发网上书店管理系统内容摘要：
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=网上书店管理系统。 Data Source=F30161 select * from 购买者信息表 , conn, 1, 3, adCmdText Set = rs End Sub//连接数据库语句 销售信息（购买信息）管理界面： 销售信息（购买信息）管理代码部分： Dim conn As New Dim rs As New Private Sub Command1_Click() (图书编号 ) = (购买者编号 ) = (购买时间 ) = (购买数量 ) = If Len() 0 And Len() 0 And Len() 0 And Len() 0 Then 8 Set = rs MsgBox 信息添加成功。 En。阅读剩余 0%
本站所有文章资讯、展示的图片素材等内容均为注册用户上传(部分报媒/平媒内容转载自网络合作媒体)，仅供学习参考。
用户通过本站上传、发布的任何内容的知识产权归属用户或原始著作权人所有。如有侵犯您的版权，请联系我们反馈本站将在三个工作日内改正。