2022年程序源代码清单 .pdf
第 1 页 共 15 页编号:自学考试计算机信息处理综合作业源程序清单题目:图书管理信息系统院 (系) :应科院专业:信息管理学生姓名:颜诗琳准考证号: 030100300233 指导教师:梁海职称:教师名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页,共 15 页 - - - - - - - - - 第 2 页 共 15 页系统部分源代码1. 登陆界面代码:stem.Data.SqlClient Public Class Form1 Inherits System.Windows.Forms.Form Dimconn AsNewSqlConnection(Server=.;Database=Library Management System;Integrated Security=SSPI) Dim comm As New SqlCommand Dim ds As New DataSet Dim da As New SqlDataAdapter PrivateSubButton1_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button1.Click Dim user As String Dim password As String user = TextBox1.Text password = TextBox2.Text Dim str As String str = select * from 管理员信息where user_id= & user & and passwd= & password & comm.Connection = conn comm.CommandType = CommandType.Text comm.CommandText = str da.SelectCommand = comm Try conn.Open() da.Fill(ds) If ds.Tables(0).Rows.Count 0 Then Dim frm1 As New frmMain frm1.Show() Me.Hide() Else MessageBox.Show( 密码或用户名错误,请重新输入, 提示信息 ) TextBox1.Text = TextBox2.Text = TextBox1.Focus() End If Catch ex As Exception MessageBox.Show( 登陆失败 , 提示信息 ) End Try End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页,共 15 页 - - - - - - - - - 第 3 页 共 15 页PrivateSubButton2_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button2.Click Application.Exit() End Sub End Class 2. 注销模块代码:ystem.Data.SqlClient Public Class frmRegistration Inherits System.Windows.Forms.Form Dimconn AsNewSqlConnection(Server=.;Database=Library Management System;Integrated Security=SSPI) Dim comm As New SqlCommand Dim ds As New DataSet Dim ds1 As New DataSet Dim da As New SqlDataAdapter Private Sub Button3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End Sub PrivateSubButton2_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button2.Click TextBox1.Text = TextBox2.Text = End Sub PrivateSubButton1_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button1.Click Dim num As String Dim str As String num = TextBox1.Text str = delete from 图书信息表where Book_id= & num & If conn.State = ConnectionState.Closed Then conn.Open() End If ds.Clear() comm.Connection = conn comm.CommandType = CommandType.Text comm.CommandText = str da.SelectCommand = comm da.Fill(ds, 图书信息表 ) conn.Close() MessageBox.Show(该图书已注销, 提示信息 ) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页,共 15 页 - - - - - - - - - 第 4 页 共 15 页End Sub PrivateSubButton4_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button4.Click If TextBox1.Text = Then MessageBox.Show( 请输入图书编号, 提示信息 ) Else Dim num As String Dim str As String num = TextBox1.Text str = select * from 图书信息表where Book_id= & num & If conn.State = ConnectionState.Closed Then conn.Open() End If ds.Clear() comm.Connection = conn comm.CommandType = CommandType.Text comm.CommandText = str da.SelectCommand = comm da.Fill(ds, 图书信息表 ) If ds.Tables(0).Rows.Count 0 Then DataGrid1.DataSource = ds.Tables( 图书信息表 ) TextBox2.Text = ds.Tables(图书信息表).Rows(DataGrid1.CurrentRowIndex).Item(2) Else MessageBox.Show( 未找到该图书, 提示信息 ) End If End If End Sub PrivateSubButton5_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button5.Click If TextBox4.Text = Then MessageBox.Show( 请输入读者编号, 提示信息 ) Else Dim num As String Dim str As String num = TextBox4.Text str = select * from 读者信息表where Roll_No= & num & If conn.State = ConnectionState.Closed Then conn.Open() End If ds1.Clear() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页,共 15 页 - - - - - - - - - 第 5 页 共 15 页comm.Connection = conn comm.CommandType = CommandType.Text comm.CommandText = str da.SelectCommand = comm da.Fill(ds1, 读者信息表 ) If ds1.Tables(0).Rows.Count 0 Then DataGrid1.DataSource = ds1.Tables( 读者信息表 ) TextBox3.Text = ds1.Tables(读者信息表).Rows(DataGrid1.CurrentRowIndex).Item(2) Else MessageBox.Show( 未找到该读者, 提示信息 ) End If End If End Sub PrivateSubButton6_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button6.Click Me.Close() End Sub PrivateSubButton8_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button8.Click Dim num As String Dim str As String num = TextBox4.Text str = delete from 读者信息表where Roll_No= & num & If conn.State = ConnectionState.Closed Then conn.Open() End If ds.Clear() comm.Connection = conn comm.CommandType = CommandType.Text comm.CommandText = str da.SelectCommand = comm da.Fill(ds, 读者信息表 ) conn.Close() MessageBox.Show(该读者已注销, 提示信息 ) End Sub PrivateSubButton7_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button7.Click TextBox3.Text = TextBox4.Text = End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页,共 15 页 - - - - - - - - - 第 6 页 共 15 页End Class 3. 查询模块代码:ystem.Data.SqlClient Public Class frmBookDemand Inherits System.Windows.Forms.Form Dimconn AsNewSqlConnection(Server=.;Database=Library Management System;Integrated Security=SSPI) Dim comm As New SqlCommand Dim ds1 As New DataSet Dim ds5 As New DataSet Dim da As New SqlDataAdapter PrivateSubButton1_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button1.Click If TextBox1.Text = Then MessageBox.Show( 请输入图书编号, 提示信息 ) Else Dim num As String Dim str As String num = TextBox1.Text str = select 图 书 信 息 表 .Book_id as 图 书 编 号 ,ISBN as ISBN号,Book_name as 图书名称 , & _ Author as 作者 ,PublishingHouse_name as 出版社 ,Publish_time as 出版时间 , & _ Category as 图 书类别 ,图书类别关系表 .Category_id as 索书号,Money as 单价 , & _ Total_num as 馆藏数量 ,Send_num as 借出数 ,Send_count as 借出次数from 图书信息表 , & _ 图书流通统计表,图书类别关系表,图书类别表 ,图书出版社关系表,出版社信息表 & _ where 图书信息表 .Book_id= & num & and & _ 图书信息表.Book_id= 图书流通统计表.Book_id and 图书信息表.Book_id= & _ 图 书 出 版 社 关 系 表 .Book_id and 图 书 出 版 社 关 系表.PublishingHouse_id= & _ 出版社信息表.PublishingHouse_id and 图书信息表 .Book_id= & _ 图书类别关系表.Book_id and 图书类别关系表.Category_id= 图书类别表 .Category_id If conn.State = ConnectionState.Closed Then conn.Open() End If ds1.Clear() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页,共 15 页 - - - - - - - - - 第 7 页 共 15 页comm.Connection = conn comm.CommandType = CommandType.Text comm.CommandText = str da.SelectCommand = comm da.Fill(ds1, 图书信息表 ) If ds1.Tables(0).Rows.Count = 0 Then MessageBox.Show( 没有该图书 , 提示信息 ) conn.Close() Else DataGrid2.DataSource = ds1.Tables( 图书信息表 ) TextBox2.Text = ds1.Tables(图书信息表).Rows(DataGrid2.CurrentRowIndex).Item(1) TextBox3.Text = ds1.Tables(图书信息表).Rows(DataGrid2.CurrentRowIndex).Item(2) TextBox4.Text = ds1.Tables(图书信息表).Rows(DataGrid2.CurrentRowIndex).Item(3) TextBox5.Text = ds1.Tables(图书信息表).Rows(DataGrid2.CurrentRowIndex).Item(4) TextBox14.Text = ds1.Tables(图书信息表).Rows(DataGrid2.CurrentRowIndex).Item(5) TextBox6.Text = ds1.Tables(图书信息表).Rows(DataGrid2.CurrentRowIndex).Item(6) TextBox15.Text = ds1.Tables(图书信息表).Rows(DataGrid2.CurrentRowIndex).Item(7) TextBox13.Text = ds1.Tables(图书信息表).Rows(DataGrid2.CurrentRowIndex).Item(8) TextBox12.Text = ds1.Tables(图书信息表).Rows(DataGrid2.CurrentRowIndex).Item(9) TextBox11.Text = ds1.Tables(图书信息表).Rows(DataGrid2.CurrentRowIndex).Item(10) TextBox10.Text = ds1.Tables(图书信息表).Rows(DataGrid2.CurrentRowIndex).Item(11) conn.Close() End If End If End Sub PrivateSubButton2_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button2.Click Dim str As String str = If Not TextBox7.Text = Then str = select 图 书 信 息 表 .Book_id as 图 书 编 号 ,ISBN as ISBN号,Book_name as 图书名称 , & _ 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页,共 15 页 - - - - - - - - - 第 8 页 共 15 页Author as 作者 ,PublishingHouse_name as 出版社 ,Publish_time as 出版时间 , & _ Category as 图 书类别 ,图书类别关系表 .Category_id as 索书号,Money as 单价 , & _ Total_num as 馆藏数量 ,Send_num as 借出数 ,Send_count as 借出次数from & _ 图书信息表,图书流通统计表,图书类别关系表,图书类别表,图书出版社关系表 , & _ 出 版 社 信 息 表where 图 书 信 息 表 .Book_name like % & TextBox7.Text & %and & _ 图书信息表.Book_id= 图书流通统计表.Book_id and 图书信息表.Book_id= & _ 图 书 出 版 社 关 系 表 .Book_id and 图 书 出 版 社 关 系表.PublishingHouse_id= & _ 出版社信息表.PublishingHouse_id and 图书信息表 .Book_id= & _ 图书类别关系表.Book_id and 图书类别关系表.Category_id= 图书类别表 .Category_id If Not TextBox8.Text = Then str = str & and Author like % & TextBox8.Text & % If Not TextBox9.Text = Then str = str & and 图书类别关系表.Category_id like % & TextBox9.Text & % End If End If ElseIf Not TextBox8.Text = Then str = select 图 书 信 息 表 .Book_id as 图 书 编 号 ,ISBN as ISBN号,Book_name as 图书名称 , & _ Author as 作者 ,PublishingHouse_name as 出版社 ,Publish_time as 出版时间 , & _ Category as 图 书类别 ,图书类别关系表 .Category_id as 索书号,Money as 单价 , & _ Total_num as 馆藏数量 ,Send_num as 借出数 ,Send_count as 借出次数from & _ 图书信息表,图书流通统计表,图书类别关系表,图书类别表,图书出版社关系表 , & _ 出版社信息表where Author like % & TextBox8.Text & %and & _ 图书信息表.Book_id= 图书流通统计表.Book_id and 图书信息表.Book_id= & _ 图 书 出 版 社 关 系 表 .Book_id and 图 书 出 版 社 关 系表.PublishingHouse_id= & _ 出版社信息表.PublishingHouse_id and 图书信息表 .Book_id= & _ 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页,共 15 页 - - - - - - - - - 第 9 页 共 15 页图书类别关系表.Book_id and 图书类别关系表.Category_id= 图书类别表 .Category_id If Not TextBox9.Text = Then str = str & and 图 书 类 别 关 系 表 .Category_id like % & TextBox9.Text & % End If ElseIf Not TextBox9.Text = Then str = select 图 书 信 息 表 .Book_id as 图 书 编 号 ,ISBN as ISBN号,Book_name as 图书名称 , & _ Author as 作者 ,PublishingHouse_name as 出版社 ,Publish_time as 出版时间 , & _ Category as 图 书类别 ,图书类别关系表 .Category_id as 索书号,Money as 单价 , & _ Total_num as 馆藏数量 ,Send_num as 借出数 ,Send_count as 借出次数from & _ 图书信息表,图书流通统计表,图书类别关系表,图书类别表,图书出版社关系表 , & _ 出版社信息表where 图书类别关系表.Category_id like % & TextBox9.Text & %and & _ 图书信息表.Book_id= 图书流通统计表.Book_id and 图书信息表.Book_id= & _ 图 书 出 版 社 关 系 表 .Book_id and 图 书 出 版 社 关 系表.PublishingHouse_id= & _ 出版社信息表.PublishingHouse_id and 图书信息表 .Book_id= & _ 图书类别关系表.Book_id and 图书类别关系表.Category_id= 图书类别表 .Category_id Else MessageBox.Show( 请输入查询条件, 提示信息 ) End If If Not str = Then If conn.State = ConnectionState.Closed Then conn.Open() End If ds5.Clear() comm.Connection = conn comm.CommandType = CommandType.Text comm.CommandText = str da.SelectCommand = comm da.Fill(ds5, 图书信息表 ) DataGrid1.DataSource = ds5.Tables( 图书信息表 ) conn.Close() End If End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页,共 15 页 - - - - - - - - - 第 10 页 共 15 页PrivateSubButton5_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button5.Click TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = TextBox6.Text = TextBox10.Text = TextBox11.Text = TextBox12.Text = TextBox13.Text = TextBox14.Text = TextBox15.Text = ds1.Clear() ds5.Clear() End Sub PrivateSubButton3_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button3.Click TextBox7.Text = TextBox8.Text = TextBox9.Text = ds1.Clear() ds5.Clear() End Sub PrivateSubButton4_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button4.Click Me.Close() End Sub PrivateSubButton6_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button6.Click Me.Close() End Sub End Class 4. 录入模块代码:tem.Data.SqlClient Public Class frmInfMaintaining Inherits System.Windows.Forms.Form Dimconn AsNewSqlConnection(Server=.;Database=Library Management 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页,共 15 页 - - - - - - - - - 第 11 页 共 15 页System;Integrated Security=SSPI) Dim comm As New SqlCommand Dim ds1 As New DataSet Dim ds2 As New DataSet Dim ds3 As New DataSet Dim ds4 As New DataSet Dim da As New SqlDataAdapter Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = Then MessageBox.Show( 请输入图书编号, 提示信息 ) Else Dim num As String Dim str As String num = TextBox1.Text str = select 图 书 信 息 表 .Book_id as 图 书 编 号 ,ISBN as ISBN号,Book_name as 图书名称 , & _ Author as 作者 ,PublishingHouse_name as 出版社 ,Publish_time as 出版时间 , & _ 图书类别关系表.Category_id as 索书号 ,Money as 单价 , & _ Total_num as 馆藏数量 ,Send_num as 借出数 ,Send_count as 借出次数from 图书信息表 , & _ 图书流通统计表,图书类别关系表,图书类别表 ,图书出版社关系表,出版社信息表 & _ where 图书信息表 .Book_id= & num & and & _ 图书信息表.Book_id= 图书流通统计表.Book_id and 图书信息表.Book_id= & _ 图 书 出 版 社 关 系 表 .Book_id and 图 书 出 版 社 关 系表.PublishingHouse_id= & _ 出版社信息表.PublishingHouse_id and 图书信息表 .Book_id= & _ 图书类别关系表.Book_id and 图书类别关系表.Category_id= 图书类别表 .Category_id If conn.State = ConnectionState.Closed Then conn.Open() End If ds1.Clear() comm.Connection = conn comm.CommandType = CommandType.Text comm.CommandText = str da.SelectCommand = comm da.Fill(ds1, 图书信息表 ) If ds1.Tables(0).Rows.Count = 0 Then MessageBox.Show( 没有该图书 , 提示信息 ) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页,共 15 页 - - - - - - - - - 第 12 页 共 15 页conn.Close() Else DataGrid1.DataSource = ds1.Tables( 图书信息表 ) TextBox2.Text = ds1.Tables(图书信息表).Rows(DataGrid1.CurrentRowIndex).Item(0) TextBox3.Text = ds1.Tables(图书信息表).Rows(DataGrid1.CurrentRowIndex).Item(1) TextBox4.Text = ds1.Tables(图书信息表).Rows(DataGrid1.CurrentRowIndex).Item(2) TextBox5.Text = ds1.Tables(图书信息表).Rows(DataGrid1.CurrentRowIndex).Item(3) TextBox6.Text = ds1.Tables(图书信息表).Rows(DataGrid1.CurrentRowIndex).Item(4) TextBox7.Text = ds1.Tables(图书信息表).Rows(DataGrid1.CurrentRowIndex).Item(5) TextBox8.Text = ds1.Tables(图书信息表).Rows(DataGrid1.CurrentRowIndex).Item(6) TextBox9.Text = ds1.Tables(图书信息表).Rows(DataGrid1.CurrentRowIndex).Item(7) TextBox10.Text = ds1.Tables(图书信息表).Rows(DataGrid1.CurrentRowIndex).Item(8) TextBox11.Text = ds1.Tables(图书信息表).Rows(DataGrid1.CurrentRowIndex).Item(9) TextBox14.Text = ds1.Tables(图书信息表).Rows(DataGrid1.CurrentRowIndex).Item(10) conn.Close() End If End If End Sub PrivateSubButton2_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button2.Click TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = TextBox6.Text = TextBox8.Text = TextBox9.Text = TextBox10.Text = TextBox11.Text = TextBox14.Text = TextBox2.ReadOnly = True 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页,共 15 页 - - - - - - - - - 第 13 页 共 15 页TextBox3.ReadOnly = True TextBox10.ReadOnly = True TextBox11.ReadOnly = True TextBox14.ReadOnly = True ds1.Clear() ds2.Clear() ds3.Clear() ds4.Clear() End Sub PrivateSubButton3_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button3.Click TextBox2.ReadOnly = False TextBox3.ReadOnly = False TextBox10.ReadOnly = False TextBox11.ReadOnly = False TextBox14.ReadOnly = False Button4.Enabled = True End Sub PrivateSubButton4_Click( ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button4.Click Dim num As String Dim str As String num = TextBox2.Text str = update 图书信息表set Book_id= & TextBox2.Text & ,ISBN= & TextBox3.Text & where Book_id= & TextBox1.Text & conn.Open() ds2.Clear() comm.Connection = conn comm.CommandType = CommandType.Text comm.CommandText = str da.SelectCommand = comm da.Fill(ds2, 修改 ) c