(程序源代码清单.docVIP

编号： 自学考试计算机信息处理 综合作业源程序清单 题 目： 图书管理信息系统 院 （系）： 应科院 专 业： 信息管理 学生姓名： 颜诗琳 准考证号： 030100300233 指导教师： 梁海 职 称： 教师 系统部分源代码 1.登陆界面代码： stem.Data.SqlClient Public Class Form1 Inherits System.Windows.Forms.Form Dim conn As New SqlConnection(Server=.;Database=Library Management System;Integrated Security=SSPI) Dim comm As New SqlCommand Dim ds 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 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 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Application.Exit() End Sub End Class 2.注销模块代码： ystem.Data.SqlClient Public Class frmRegistration Inherits System.Windows.Forms.Form Dim conn As New SqlConnection(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_