欢迎来到淘文阁 - 分享文档赚钱的网站! | 帮助中心 好文档才是您的得力助手!
淘文阁 - 分享文档赚钱的网站
全部分类
  • 研究报告>
  • 管理文献>
  • 标准材料>
  • 技术资料>
  • 教育专区>
  • 应用文书>
  • 生活休闲>
  • 考试试题>
  • pptx模板>
  • 工商注册>
  • 期刊短文>
  • 图片设计>
  • ImageVerifierCode 换一换

    2022年程序源代码清单 .pdf

    • 资源ID:33393213       资源大小:107.96KB        全文页数:15页
    • 资源格式: PDF        下载积分:4.3金币
    快捷下载 游客一键下载
    会员登录下载
    微信登录下载
    三方登录下载: 微信开放平台登录   QQ登录  
    二维码
    微信扫一扫登录
    下载资源需要4.3金币
    邮箱/手机:
    温馨提示:
    快捷下载时,用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)。
    如填写123,账号就是123,密码也是123。
    支付方式: 支付宝    微信支付   
    验证码:   换一换

     
    账号:
    密码:
    验证码:   换一换
      忘记密码?
        
    友情提示
    2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
    3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
    4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
    5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。

    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

    注意事项

    本文(2022年程序源代码清单 .pdf)为本站会员(H****o)主动上传,淘文阁 - 分享文档赚钱的网站仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知淘文阁 - 分享文档赚钱的网站(点击联系客服),我们立即给予删除!

    温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载不扣分。




    关于淘文阁 - 版权申诉 - 用户使用规则 - 积分规则 - 联系我们

    本站为文档C TO C交易模式,本站只提供存储空间、用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。本站仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知淘文阁网,我们立即给予删除!客服QQ:136780468 微信:18945177775 电话:18904686070

    工信部备案号:黑ICP备15003705号 © 2020-2023 www.taowenge.com 淘文阁 

    收起
    展开