免费图书管理系统(一)毕业论文(6)
2013-06-30 01:00
导读：mycom2.ExecuteNonQuery() MessageBox.Show("增加成功!", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Information) mycon.Close() Catch ex As Exception MessageBox.Show(ex.Message) End Try 5新增书籍
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()
（科教范文网http://fw.nseac.com）
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图书信息维护界面
在此窗口中可以修改图书自身信息
如果在
