评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

免费图书管理系统(一)毕业论文(7)

2013-06-30 01:00 录入过程中输入错误书籍信息。就可以通过这里进行补救。对图书信息的作者，出版社，定价，出版日期进行修改修改完成后还是通过“更新”按钮来确认修改信息
 “更新”按钮主要代码：
 If mycon.State = ConnectionState.Closed Then
                 mycon.Open()
             End If
             Dim ID2 As New SqlParameter("@ID2", SqlDbType.Int, 4)
             ID2.Value = ID1
             Dim sqlstr As String = "update Book set Name='" & ComboBox1.Text & "' ,Anchor='" & TextBox1.Text & "',Publisher='" & TextBox2.Text & "',Price='" & TextBox3.Text & "',PublishDate='" & TextBox4.Text & "' Where and Flag='0'"
             Dim mycom As New SqlCommand(sqlstr, mycon)
             mycom.Parameters.Add(ID2)
             mycom.ExecuteNonQuery()
             MessageBox.Show("更新成功！", "恭喜", MessageBoxButtons.OK, MessageBoxIcon.Information)
             mycon.Close()
 7读者增加窗口实现如下：
 
 
 
 
 
 
 
 
 
 
 

 图8读者增加窗口界面
 在此窗口中管理员可以受动输入读者信息来增加读者
 新增读者中包含的项目如下： 本文来自中国科教评价网
 学号   姓名  性别 最大借阅册数  最大借阅天数
 在“增加”按钮中的主要代码为：
   If IsCheckSno() = False Then
                 MessageBox.Show("你输入的学号不正确,请重新输入", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                 TextBox1.Text = ""
                 Exit Sub
             End If
             If mycon.State = ConnectionState.Closed Then
                 mycon.Open()
             End If
             Dim sqlstr As String = "insert into Students(SID,Sno,SName,Sex,MaxNumber,MaxDays,RemainNumber) Values(@ID,'" & TextBox1.Text & "','" & TextBox2.Text & "',@Sex,'" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox3.Text & "')"
             Dim mycom1 As New SqlCommand(sqlstr, mycon)
             mycom1.Parameters.Add(ID)