免费图书管理系统(六)

免费图书管理系统(六)            mycom2.ExecuteNonQuery()
             MessageBox.Show("增加成功!", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Information)
             mycon.Close()
         Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
 5新增书籍窗口实现如下：
 此窗口的功能就是录入新的图书信息，在录入图书信息时需要录入的信息有 ：书籍名称，作者，出版社，书籍定价，出版日期
 
 
 
 
 
 
 
 
 
 
 
 
图6新增书籍窗口界面

 在此窗口中可以进行新增书籍的操作
 所有项必须全部添加
 添加完成后通过点击“增加”按钮来完成新增书籍
 “增加”按钮的事件代码
 If CheckData() = False Then
             Exit Sub
         End If
         Try
             If mycon.State = ConnectionState.Closed Then
                 mycon.Open()
             End If
             Dim ID As Integer
             ID = GetHeightID()
             Dim ID1 As New SqlParameter("@ID1", SqlDbType.Int, 4)
             ID1.Value = ID + 1
             Dim sqlstr As String = "insert into Book values(@ID1,'" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "',1)"
             Dim mycom As New SqlCommand(sqlstr, mycon)
             mycom.Parameters.Add(ID1)
             mycom.ExecuteNonQuery()
             MessageBox.Show("恭喜你，保存成功！", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Information)
             Call ClearData()
             mycon.Close()
         Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
 6图书信息维护实现如下
 
 
 
 
 
 
 
 
 
图7图书信息维护界面
 在此窗口中可以修改图书自身信息
 如果在

首页 上一页 3 4 5 6 7 8 9 下一页 尾页 6/9/9

免费图书管理系统(六)由毕业论文网（www.huoyuandh.com）会员上传。