(程序源代码清单

编号：

自学考试计算机信息处理

综合作业源程序清单

题 目： 图书管理信息系统

院 (系)： 应科院

专 业： 信息管理

学生姓名： 颜诗琳

准考证号： 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 Sql