课程设计报告齐枞安.docVIP

安徽三联学院 计算机科学与技术系 课 程 设 计 报 告 课 程 名 数据库应用 设计题目 小型书店管理系统 班 级 08本科1班 专 业 计算机科学与技术 姓 名 齐枞安 指导教师 孙海霞 2011年6月制 设计任务 编写购买者信息表和销售信息表的查询、添加、修改和删除等程序。 完成任务的思路、方法与算法： 利用VB知识编写购买者信息表和销售信息表的查询、添加、修改和删除的程序。 核心程序 购买者信息表添加： Dim con As New ADODB.Connection Dim re As New ADODB.Recordset Private Sub Command1_Click() con.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=小型书店管理系统;Data Source=F301-61 re.Open select * from 购买者信息表, con, adOpenKeyset, adLockOptimistic re.AddNew If Text1.Text = Or Text2.Text = Or Text3.Text = Then MsgBox 输入非法！！！ Else re.Fields(购买者编号) = Text1.Text re.Fields(姓名) = Text2.Text re.Fields(联系方式) = Text3.Text re.Update Set MSHFlexGrid1.DataSource = re MsgBox 添加成功！ re.Close Set re = Nothing con.Close Set con = Nothing End If End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = End Sub 购买者信息表修改： Private Sub Command1_Click() Dim updatestu As New ADODB.Connection Dim rs As New ADODB.Recordset updatestu.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=小型书店管理系统;Data Source=F301-61 rs.Open select * from 购买者信息表 where 购买者编号= Text4.Text , updatestu, adOpenKeyset, adLockOptimistic rs.Update If Len(Text1.Text) 0 And Len(Text2.Text) = 0 Then rs.Fields(0) = Text1.Text rs.Fields(1) = Text2.Text rs.Fields(2) = Text3.Text MsgBox 修改成功！！ Else MsgBox 请把数据输入完整! End If rs.Update updatestu.Close Set rs = Nothing Set updatestu = Nothing End Sub 销售信息查询 Private Sub Command1_Click() Set conn = New ADODB.Connection conn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=小型书店管理系统;Data Source=F301-61 Dim rec As New ADODB.Recordset rec.Open select * from 销售信息表 where 图书编号= Trim(Text1.Text) or 购买者编号= Trim(Text2.Text) or 数量= Trim(Text3.