图书管理系统程序源代码
源程序
1.主窗体
Private Sub add_back_Click() frmbackbookinfo.Show
End Sub
Private Sub add_binf_Click() frmaddbookinfo.Show
End Sub
Private Sub add_book_style_Click() frmaddbookstyle.Show
End Sub
Private Sub add_manager_Click() frmadduser.Show
End Sub
Private Sub add_rinf_Click() frmaddreaderinfo.Show
End Sub
Private Sub add_rstyle_Click() frmaddreaderstyle.Show
End Sub
Private Sub change_binf_Click() frmmodifybookinfo.Show
End Sub
Private Sub change_book_style_Click() frmmodifybookstyle.Show
End Sub
Private Sub delete_binf_Click() frmmodifybookinfo.Show
End Sub
Private Sub delete_book_style_Click() frmmodifybookstyle.Show
End Sub
Private Sub delete_rstyle_Click() frmmodifyreaderstyle.Show
End Sub
Private Sub exit_Click()
End
End Sub
Private Sub find_binf_Click() frmfindbook.Show
End Sub
Private Sub find_lend_Click() frmfindborrowinfo.Show
End Sub
Private Sub find_rinf_Click()
frmfindreader.Show
End Sub
Private Sub password_Click()
frmchangepwd.Show
End Sub
2.Login
Option Explicit
Private Sub cmdOK_Click()
Dim strUserName As String
Dim strPassword As String
Dim strTargetAsp As String
Dim conn As ADODB.Connection
Dim rsLogin As ADODB.Recordset
Dim strSQL As String
If Trim(txtUserName.Text) = "" Then
MsgBox "“用户名”不能为空！"
Exit Sub
Else
strUserName = Trim(txtUserName.Text)
End If
If Trim(txtPassword.Text) = "" Then
MsgBox "“口令”不能为空！"
Exit Sub
Else
strPassword = Trim(txtPassword.Text)
End If
'检查口令、用户身份
Set conn = New ADODB.Connection
conn.Provider = "Microsoft.jet.OLEDB.4.0"
conn.ConnectionString = "D:\图书管理系统\book.mdb"
conn.Open
strUserName = Replace(strUserName, "'", "“")
strSQL = "select*from 系统管理where 用户名='" & strUserName & "'and 密码='" & strPassword & "'"
Set rsLogin = conn.Execute(strSQL)
If rsLogin.EOF Or rsLogin.BOF Then
MsgBox "用户名或口令错误，请检查！"
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
txtPassword.SetFocus
Else
Select Case rsLogin("权限")
Case "领导"
strTargetAsp = "LeadersMain.asp"
Case "主任"
strTargetAsp = "ZhuRenMain.asp"
Case "秘书"
strTargetAsp = "MishuMain.asp"
Case "图书管理员"
strTargetAsp = "TuShuManagerMain.asp"
Case Else
strTargetAsp = "OtherMain.asp"
End Select
SaveSetting "JGYOA", "Login", "UserName", strUserName
Hyperlink.NavigateTo "HTTP://" & "/oa/" & strTargetAsp
End If
'释放变量
Set rsLogin = Nothing
Set conn = Nothing
End Sub
3.frmaddbookinfo
Private Sub Command1_Click()
Dim rs_addbook As New ADODB.Recordset
Dim sql As String
If Trim(Combo1.Text) = " " Then
MsgBox "请选择图书种类", vbOKOnly + vbExclamation, ""
Combo1.SetFocus
Exit Sub
End If
If Trim(Text1.Text) = " " Then
MsgBox "图书编号不能为空", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Exit Sub
End If
If Trim(Text2.Text) = " " Then
MsgBox "书名不能为空", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Exit Sub
End If
If Not IsDate(Text5.Text) Then
MsgBox "请按照yyy-mm-dd格式输入日期", vbOKOnly + vbExclamation, ""
Text5.SetFocus
Exit Sub
End If
If Not IsDate(Text6.Text) Then
MsgBox "请按照yyy-mm-dd格式输入日期", vbOKOnly + vbExclamation, ""
Text6.SetFocus
Exit Sub
End If
sql = "select * from 书籍信息where 书籍编号='" & Text1.Text & "'" rs_addbook.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_addbook.EOF Then
rs_addbook.AddNew
rs_addbook.Fields(0) = Trim(Text1.Text)
rs_addbook.Fields(1) = Trim(Text2.Text)
rs_addbook.Fields(2) = Trim(Combo1.Text)
rs_addbook.Fields(3) = Trim(Text3.Text)
rs_addbook.Fields(4) = Trim(Text4.Text)
rs_addbook.Fields(5) = Trim(Text5.Text)
rs_addbook.Fields(6) = Trim(Text6.Text)
rs_addbook.Fields(7) = "否"
rs_addbook.Update
MsgBox "添加图书信息成功！", vbOKOnly, ""
rs_addbook.Close
Else
MsgBox "图书编号重复！", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
rs_addbook.Close
Exit Sub
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim rs_leibie As New ADODB.Recordset
Dim sql As String
sql = "select * from 图书类别"
rs_leibie.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_leibie.MoveFirst
Do While Not rs_leibie.EOF
Combo1.AddItem rs_leibie.Fields(0)
rs_leibie.MoveNext
Loop
rs_leibie.Close
End Sub
4.frmaddbookstyle
Private Sub Command1_Click()
Dim rs_bookstyle As New ADODB.Recordset
Dim sql As String
If Trim(Text1.Text) = "" Then
MsgBox "图书种类不能为空", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Exit Sub
End If
If Trim(Text2.Text) = "" Then
MsgBox "种类编号不能为空", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Exit Sub
End If
sql = " select * from 图书类别where 类别名称='" & Text1.Text & "'" rs_bookstyle.Open sql, conn, adOpenKeyset, adLockOptimistic
If rs_bookstyle.EOF Then
rs_bookstyle.AddNew
rs_bookstyle.Fields(0) = Trim(Text1.Text)
rs_bookstyle.Fields(1) = Trim(Text2.Text)
rs_bookstyle.Update
MsgBox "添加图书类别成功！", vbOKOnly, ""
rs_bookstyle.Close
Else
MsgBox "读者类别重复！", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = " "
rs_bookstyle.Close
Exit Sub
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
5.frmaddreaderinfo
Option Explicit
Dim rs_addreader As New ADODB.Recordset
Private Sub Command1_Click()
Dim sql As String
If Trim(Combo1.Text) = "" Then
MsgBox "请选择读者种类", vbOKOnly + vbExclamation, ""
Combo1.SetFocus
Exit Sub
End If
If Trim(Text2.Text) = "" Then
MsgBox "读者姓名不能为空", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Exit Sub
End If
If Trim(Text3.Text) = "" Then
MsgBox "读者编号不能为空", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Exit Sub
End If
sql = "select * from 读者信息where 读者编号='" & Text2.Text & "'" rs_addreader.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_addreader.EOF Then
rs_addreader.AddNew
rs_addreader.Fields(0) = Trim(Text2.Text)
rs_addreader.Fields(1) = Trim(Text3.Text)
rs_addreader.Fields(2) = Trim(Combo2.Text)
rs_addreader.Fields(3) = Trim(Combo1.Text)
rs_addreader.Fields(4) = Trim(Text5.Text)
rs_addreader.Fields(5) = Trim(Text6.Text)
rs_addreader.Fields(6) = Trim(Text4.Text)
rs_addreader.Fields(7) = CDate(Text1.Text)
rs_addreader.Update
MsgBox "添加读者信息成功！", vbOKOnly, ""
rs_addreader.Close
Else
MsgBox "读者编号重复！", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
rs_addreader.Close
Exit Sub
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Combo2.AddItem "男"
Combo2.AddItem "女"
Dim rs_leibie As New ADODB.Recordset
Dim sql As String
sql = "select * from 读者类别"
rs_leibie.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_leibie.MoveFirst
Do While Not rs_leibie.EOF
Combo1.AddItem rs_leibie.Fields(0)
rs_leibie.MoveNext
Loop
rs_leibie.Close
End Sub
6.frmaddreaderstyle
Option Explicit
Dim rs_readerstyle As New ADODB.Recordset
Private Sub Command1_Click()
Dim sql As String
If Trim(Text1.Text) = "" Then
MsgBox "读者种类不能为空！", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Exit Sub
End If
If Trim(Text2.Text) = "" Then
MsgBox "借书数量不能为空！", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Exit Sub
End If
If Trim(Text3.Text) = "" Then
MsgBox "借书期限不能为空！", vbOKOnly + vbExclamation, ""
Text3.SetFocus
Exit Sub
End If
If Trim(Text4.Text) = "" Then
MsgBox "有限期限不能为空！", vbOKOnly + vbExclamation, ""
Text4.SetFocus
Exit Sub
End If
sql = "select*from 读者类别where 种类名称='" & Text1.Text & "'" rs_readerstyle.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_readerstyle.EOF Then
rs_readerstyle.AddNew
rs_readerstyle.Fields(0) = Trim(Text1.Text)
rs_readerstyle.Fields(1) = Trim(Text2.Text)
rs_readerstyle.Fields(2) = Trim(Text3.Text)
rs_readerstyle.Fields(3) = Trim(Text4.Text)
rs_readerstyle.Update
MsgBox "添加读者类别成功！", vbOKOnly, ""
rs_readerstyle.Close
Else
MsgBox "读者类别重复！", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
rs_readerstyle.Close
Exit Sub
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
7.frmadduser
Private Sub Command1_Click()
Dim sql As String
Dim rs_add As New ADODB.Recordset
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空", vbOKOnly + vbExclamation, ""
Exit Sub
Text1.SetFocus
Else
sql = "select * from 系统管理"
rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic
While (rs_add.EOF = False)
If Trim(rs_add.Fields(0)) = Trim(Text1.Text) Then
MsgBox "已有这个用户", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1.Text = ""
Exit Sub
Else
rs_add.MoveNext
End If
Wend
If Trim(Text2.Text) <> Trim(Text3.Text) Then
MsgBox "两次密码不一致", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Text2.Text = ""
Text3.Text = ""
Exit Sub
Else
If Trim(Combo1.Text) <> "system" And Trim(Combo1.Text) <> "guest" Then MsgBox "请选择正确的用户权限", vbOKOnly + vbExclamation, ""
Combo1.SetFocus
Combo1.Text = ""
Exit Sub
Else
rs_add.AddNew
rs_add.Fields(0) = Text1.Text
rs_add.Fields(1) = Text2.Text
rs_add.Update
rs_add.Close
MsgBox "添加用户成功", vbOKOnly + vbExclamation, ""
Unload Me
End If
End If
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Combo1.AddItem "system"
Combo1.AddItem "guest"
End Sub
8.frmbackbookinfo
Private Sub Combo1_Click()
Combo2.ListIndex = Combo1.ListIndex
End Sub
Private Sub Combo2_Click()
Combo1.ListIndex = Combo2.ListIndex
End Sub
Private Sub Combo3_Click()
Combo4.ListIndex = Combo3.ListIndex
End Sub
Private Sub Combo4_Click()
Combo3.ListIndex = Combo4.ListIndex
End Sub
Private Sub Command1_Click()
Dim book_num As String
Dim reader_num As String
Dim answer As String
Dim rs_back As New ADODB.Recordset
Dim sql As String
On Error GoTo delerror
book_num = DataGrid1.Columns(3).CellValue(DataGrid1.Bookmark) reader_num = DataGrid1.Columns(1).CellValue(DataGrid1.Bookmark) answer = MsgBox("确定要还这本书吗？", vbYesNo, "")
If answer = vbYes Then
sql = "select * from 借阅信息where 书籍编号='" & book_num & "'"
rs_back.CursorLocation = adUseClient
rs_back.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_back.Delete
rs_back.Update
rs_back.Close
sql = "select * from 书籍信息where 书籍编号='" & book_num & "'"
rs_back.CursorLocation = adUseClient
rs_back.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_back.Fields(7) = "否"
rs_back.Update
rs_back.Close
sql = "select * from 读者信息where 读者编号='" & reader_num & "'"
rs_back.CursorLocation = adUseClient
rs_back.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_back.Fields(8) = rs_back.Fields(8) - 1
rs_back.Update
rs_back.Close
If findform = True Then
Command1_Click
Else
Command2_Click
End If
MsgBox "成功删除！", vbOKOnly + vbExclamation, ""
DataGrid1.AllowDelete = False
Else
Exit Sub
End If
delerror:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Dim rs_reader As New ADODB.Recordset
Dim sql As String
findform = Ture
sql = "select*from 借阅信息where 读者姓名='" & Combo2.Text & "'" rs_reader.CursorLocation = adUseClient
rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs_reader
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
End Sub
Private Sub Command4_Click()
Dim rs_book As New ADODB.Recordset
Dim sql As String
findform = False
sql = "select * from 借阅信息where 书籍编号='" & Combo3.Text & "'" rs_book.CursorLocation = adUseClient
rs_book.Open sql, conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs_book
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
End Sub
Private Sub Form_Load()
Dim rs_reader As New ADODB.Recordset
Dim rs_book As New ADODB.Recordset
Dim sql As String
sql = "select * from 读者信息"
rs_reader.CursorLocation = adUseClient
rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic
If Not rs_reader.EOF Then
Do While Not rs_reader.EOF
Combo1.AddItem rs_reader.Fields(1)
Combo2.AddItem rs_reader.Fields(0)
rs_reader.MoveNext
Loop
End If
rs_reader.Close
sql = "select * from 借阅信息"
rs_book.CursorLocation = adUseClient
rs_book.Open sql, conn, adOpenKeyset, adLockPessimistic
If Not rs_book.EOF Then
Do While Not rs_book.EOF
Combo3.AddItem rs_book.Fields(3)
Combo4.AddItem rs_book.Fields(4)
rs_book.MoveNext
Loop
End If
rs_book.Close
End Sub
9.frmborrowbook
Option Explicit
Dim leibie As String
Dim qixian As Integer
Dim shumu As Integer
Dim maxnum As Integer
Private Sub Combo1_Change()
Combo2.ListIndex = Combo1.ListIndex
End Sub
Private Sub Combo2_Change()
Combo1.ListIndex = Combo2.ListIndex
End Sub
Private Sub Command1_Click()
Dim rs_borrowbook As New ADODB.Recordset
Dim sql As String
sql = "select * from读者信息where读者编号='" & Combo1.Text & "" rs_borrowbook.Open sql, conn.adOpenKeyset, adLockPessimistic leibie = rs_borrowbook.Fields(3)
shumu = rs_borrowbook.Fields(8)
rs_borrowbook.Close
sql = "select * from读者类别where种类名称='" & leibie & ""
rs_borrowbook.Open sql, conn.adOpenKeyset, adLockPessimistic qixian = rs_borrowbook.Fields(2)
maxnum = rs_borrowbook.Fields(1)
rs_borrowbook.Close
If shumu >= maxnum Then
MsgBox "该读者借书数额已满！", vbOKOnly + vbExclamation Exit Sub
End If
sql = "select * from借阅信息"
rs_borrowbook.Open sql, conn.adOpenKeyset, adLockPessimistic
rs_borrowbook.AddNew
rs_borrowbook.Fields(1) = Combo1.Text
rs_borrowbook.Fields(2) = Combo2.Text
rs_borrowbook.Fields(3) = Label8.Caption
rs_borrowbook.Fields(4) = Label9.Caption
rs_borrowbook.Fields(5) = Date
rs_borrowbook.Fields(6) = DateAdd("Ww", qixian, Date)
rs_borrowbook.Update
rs_borrowbook.Close
sql = "select * from书籍信息where书籍编号='" & book_num & ""
rs_borrowbook.Open sql, conn.adOpenKeyset, adLockPessimistic
rs_borrowbook.Fields(7) = "是"
rs_borrowbook.Update
rs_borrowbook.Close
sql = "select * from读者信息where读者编号='" & Combo1.Text & "" rs_borrowbook.Open sql, conn.adOpenKeyset, adLockPessimistic
rs_borrowbook.Fields(8) = rs_borrowbook.Fields(8) + 1
rs_borrowbook.Update
rs_borrowbook.Close
MsgBox "本书借阅成功！", vbOKOnly + vbExclamation
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim rs_borrow As New ADODB.Recordset
Dim rs_reader As New ADODB.Recordset
Dim sql As String
sql = "select * from 书籍信息where 书籍编号= '" & book_num & "'" rs_borrow.Open sql, conn, adOpenKeyset, adLockPessimistic
Label8.Caption = rs_borrow.Fields(0)
Label9.Caption = rs_borrow.Fields(1)
Label10.Caption = rs_borrow.Fields(2)
Label11.Caption = rs_borrow.Fields(3)
Label12.Caption = rs_borrow.Fields(4)
Label13.Caption = rs_borrow.Fields(5)
Label14.Caption = rs_borrow.Fields(6)
sql = "select * from 读者信息"
rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic
If Not rs_reader.EOF Then
Do While Not rs_reader.EOF
Combo1.AddItem rs_reader.Fields(1)
Combo2.AddItem rs_reader.Fields(0)
rs_reader.MoveNext
Loop
Else
MsgBox "请先登记读者", vbOKOnly + vbExclamation
Exit Sub
End If
rs_borrow.Close
rs_reader.Close
End Sub
10.frmchangepwd
Private Sub Command1_Click()
Dim rs_chang As New ADODB.Recordset
Dim sql As String
If Trim(Text1.Text) <> Trim(Text2.Text) Then
MsgBox "密码不一致", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Text1.Text = ""
Text2.Text = ""
Else
sql = "select*from 系统管理where 用户名='" & userID & "'"
rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_chang.Fields(1) = Text1.Text
rs_chang.Update
rs_chang.Close
MsgBox "密码修改成功", vbOKOnly + vbExclamation, ""
Unload Me
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
11.frmfindbook
Option Explicit
Dim panduan As String
Private Sub Command1_Click()
Dim rs_findbook As New ADODB.Recordset
Dim sql As String
If Check1.Value = vbChecked Then
sql = "书名='" & Trim(Text1.Text & "") & "'"
End If
If Check2.Value = vbChecked Then
If Trim(sql) = "" Then
sql = "类别='" & Trim(Combo1.Text & "") & "'"
Else
sql = sql & "and 书名='" & Trim(Combo1.Text & "") & "'"
End If
End If
If Check3.Value = vbChecked Then
If Trim(sql) = "" Then
sql = "作者='" & Trim(Text2.Text & "") & "'"
Else
sql = sql & "and 作者='" & Trim(Text2.Text & "") & "'"
End If
End If
If Check4.Value = vbChecked Then
If Trim(sql) = "" Then
sql = "出版社='" & Trim(Text3.Text & "") & "'"
Else
sql = sql & "and 出版社='" & Trim(Text3.Text & "") & "'"
End If
End If
If Check5.Value = vbChecked Then
If Trim(sql) = "" Then
sql = "书籍编号='" & Trim(Text4.Text & "") & "'"
Else
sql = sql & "and 书籍编号='" & Trim(Text4.Text & "") & "'"
End If
End If
If Trim(sql) = "" Then
MsgBox "请选择查询方式！", vbOKOnly + vbExclamation
Exit Sub
End If
sql = "select * from 书籍信息where " & sql
rs_findbook.CursorLocation = adUseClient
rs_findbook.Open sql, conn, adOpenKeyset, adLockPessimistic
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
Set DataGrid1.DataSource = rs_findbook
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
If Trim(book_num) = "" Then
MsgBox "请选择要借阅的图书！", vbOKOnly + vbExclamation
Exit Sub
End If
If panduan = "是" Then
MsgBox "此书已被借出！", vbOKOnly + vbExclamation
Exit Sub
End If
frmborrowbook.Show
End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) book_num = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)
panduan = DataGrid1.Columns(7).CellValue(DataGrid1.Bookmark)
End Sub
Private Sub Form_Load()
Dim rs_find As New ADODB.Recordset
Dim sql As String
sql = "select * from 图书类别"
rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_find.MoveFirst
If Not rs_find.EOF Then
Do While Not rs_find.EOF
Combo1.AddItem rs_find.Fields(0)
rs_find.MoveNext
Loop
Combo1.ListIndex = 0
End If
rs_find.Close
End Sub
12.frmfindborrowinfo
Private Sub Command1_Click()
Dim sql As String
Dim rs_find As New ADODB.Recordset
If Option1.Value = True Then
sql = "select * from 书籍信息where 是否被借出='是'"
End If
If Option2.Value = True Then
sql = "select * from 书籍信息where 是否被借出='否'"
End If
If Option3.Value = True Then
sql = "select * from 书籍信息where 读者姓名='" & Text1.Text & "'" End If
rs_find.CursorLocation = adUseClient
rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
Set DataGrid1.DataSource = rs_find
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
13.frmfindreader
Option Explicit
Private Sub Command1_Click()
Dim rs_findreader As New ADODB.Recordset
Dim sql As String
If Check1.Value = vbChecked Then
sql = "读者编号='" & Trim(Text1.Text & "") & "'"
End If
If Check2.Value = vbChecked Then
If Trim(sql) = "" Then
sql = "读者姓名='" & Trim(Text2.Text & "") & "'"
Else
sql = sql & "and读者姓名='" & Trim(Text2.Text & "") & "'" End If
End If
If Check3.Value = vbChecked Then
If Trim(sql) = "" Then
sql = "读者类别='" & Trim(Combo1.Text & "") & "'"
Else
sql = sql & "and读者类别='" & Trim(Combo1.Text & "") & "'" End If
End If
sql = "select * from 读者信息where " & sql
rs_findreader.CursorLocation = adUseClient
rs_findreader.Open sql, conn, adOpenKeyset, adLockPessimistic DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
Set DataGrid1.DataSource = rs_findreader
'rs_findreader.Close
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim rs_find As New ADODB.Recordset
Dim sql As String
sql = "select * from 读者类别"
rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic
If Not rs_find.EOF Then
Do While Not rs_find.EOF
Combo1.AddItem rs_find.Fields(0)
rs_find.MoveNext
Loop
Combo1.ListIndex = 0
End If
rs_find.Close
End Sub
14.frmmodifybookinfo
Option Explicit
Dim rs_book As New ADODB.Recordset
Private Sub cmdcancel_Click()
rs_book.CancelUpdate
DataGrid1.AllowAddNew = False
DataGrid1.AllowUpdate = False
cmdmodify.Enabled = True
cmddel.Enabled = False
cmdcancel.Enabled = False
cmdupdate.Enabled = False
End Sub
Private Sub cmddel_Click()
Dim answer As String
On Error GoTo delerror
answer = MsgBox("确定要删除吗？", vbYesNo, "")
If answer = vbYes Then
DataGrid1.AllowDelete = True
rs_book.Delete
rs_book.Update
DataGrid1.Refresh
MsgBox "成功删除！", vbOKOnly + vbExclamation, "" DataGrid1.AllowDelete = False
Else
Exit Sub
End If
delerror:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub cmdmodify_Click()
Dim answer As String
On Error GoTo cmdmodify
cmddel.Enabled = False
cmdmodify.Enabled = False
cmdupdate.Enabled = True
cmdcancel.Enabled = True
DataGrid1.AllowUpdate = True
cmdmodify:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub cmdupdate_Click()
If Not IsNull(DataGrid1.Bookmark) Then
rs_book.Update
End If
cmdmodify.Enabled = True
cmddel.Enabled = True
cmdcancel.Enabled = False
cmdupdate.Enabled = False
DataGrid1.AllowUpdate = False
MsgBox "修改成功！", vbOKOnly + vbExclamation, "" End Sub
Private Sub Form_Load()
Dim sql As String
On Error GoTo loaderror
sql = "select * from 书籍信息"
rs_book.CursorLocation = adUseClient
rs_book.Open sql, conn, adOpenKeyset, adLockPessimistic cmdupdate.Enabled = False
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
If userpow = "guest" Then
Frame2.Enabled = False
End If
Set DataGrid1.DataSource = rs_book
Exit Sub
loaderror:
MsgBox Err.Description
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set DataGrid1.DataSource = Nothing
rs_book.Close
End Sub
15.frmmodifybookstyle
Option Explicit
Dim rs_reader As New ADODB.Recordset
Private Sub cmdcancel_Click()
rs_reader.CancelUpdate
DataGrid1.AllowAddNew = False
DataGrid1.AllowUpdate = False
cmdmodify.Enabled = True
cmddel.Enabled = True
cmdcancel.Enabled = False
cmdupdate.Enabled = False
End Sub
Private Sub cmddel_Click()
Dim answer As String
On Error GoTo delerror
answer = MsgBox("确定要删除吗？", vbYesNo, "")
If answer = vbYes Then
DataGrid1.AllowDelete = True
rs_reader.Delete
rs_reader.Update
DataGrid1.Refresh
MsgBox "成功删除！", vbOKOnly + vbExclamation, ""
DataGrid1.AllowDelete = False
Else
Exit Sub
End If
delerror:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub cmdmodify_Click()
Dim answer As String
On Error GoTo cmdmodify
cmddel.Enabled = False
cmdmodify.Enabled = False
cmdupdate.Enabled = True
cmdcancel.Enabled = True
DataGrid1.AllowUpdate = True
cmdmodify:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub cmdupdate_Click()
If Not IsNull(DataGrid1.Bookmark) Then
rs_reader.Update
End If
cmdmodify.Enabled = True
cmddel.Enabled = True
cmdcancel.Enabled = False
cmdupdate.Enabled = False
DataGrid1.AllowUpdate = False
MsgBox "修改成功！", vbOKOnly + vbExclamation, ""
End Sub
Private Sub Form_Load()
Dim sql As String
On Error GoTo loaderror
sql = "select * from 图书类别"
rs_reader.CursorLocation = adUseClient
rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic
cmdupdate.Enabled = False '窗体刚刚加载时,"取消"按钮应设置为不可用，即将其Enabled属性设为False
附录(图书管理系统程序代码)
附录 主页面（MDImain）： Private Sub addbook_Click() add_book.Show End Sub Private Sub addreader_Click() add_reader.Show End Sub Private Sub adduser_Click() add_user.Show End Sub Private Sub backbook_Click() back_book.Show End Sub Private Sub borrowbook_Click() borrow_book.Show End Sub Private Sub cuibackbook_Click() cuiback_book.Show End Sub Private Sub findbook_Click() find_book.Show End Sub Private Sub findreader_Click() find_reader.Show End Sub Private Sub MDIForm_Load() End Sub Private Sub modifybook_Click() change_book.Show End Sub Private Sub modifypwd_Click()
change_pwd.Show End Sub Private Sub modifyreader_Click() change_reader.Show End Sub Private Sub delbook_Click() del_book.Show End Sub Private Sub delreder_Click() del_reader.Show End Sub Private Sub quitsys_Click() End End Sub 登陆（login）： Option Explicit Dim cnt As Integer '记录确定次数 Private Sub Command1_Click() Dim sql As String Dim rs_login As New ADODB.Recordset If Trim(txtuser.Text) = "" Then '判断输入的用户名是否为空MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" txtuser.SetFocus Else sql = "select * from 用户表where 用户名='" & txtuser.Text & "'" rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" txtuser.SetFocus Else '检验密码是否正确 If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then userID = txtuser.Text userpow = rs_login.Fields(2) rs_login.Close Unload Me MsgBox "欢迎登录到图书管理系统！", vbOKOnly + vbExclamation, "" MDImain.Show Else
图书管理系统—解决方案
图书管理系统—解决方案 一、综述 1.1 图书管理系统开发背景 在中学时发现这些图书室都藏书达六、七万余册，但其现行图书管理工作都是采用传统的手工管理，经过对其图书管理工作中的图书信息、读者管理及借阅管理工作做全面调查研究，其现行手工流程具体分析如下： 图书登记：对上级分配、学校购入和社会捐赠的图书进行图书信息登记； 读者登记：图书管理员根据学校档案室提供的教师花名册和学生花名册进行读者登记，然后填发借书证，学生毕业和教师调出时将其借书证注销。 借阅管理：读者特别是学生读者持借书证到图书室借阅图书，图书管理员将借阅日期填写在书籍卡片上，将卡片夹在借书证中间，存放在图书室，学生看完后，送还所借书籍，收回借书证或另借其它书籍。 这种传统人工的管理方式效率低、保密性差, 一方面导致教师、学生对学校图书室藏书情况不了解，图书室究竟有哪些图书也不知道；另一方面图书管理员对图书管理工作力不从心，因为时间一长,将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难，耗费劳动力大，难于避免错误的产生，更容易造成图书的外流。 然而现在，计算机的价格已经十分低廉，性能却有了长足的进步。在初级中学都装备有一定数量的电脑，中学教师都掌握了一定的计算机知识，它已经
被学校应用于学校工作的许多领域。计算机之所以在中小学发挥如此重要的作用的原因主要有以下几个方面： 首先，计算机可以代替人工进行许多繁杂的劳动； 其次，计算机可以为农村初级中学节省许多资源； 第三，计算机可以大大的提高教职工的工作效率； 第四，计算机可以使敏感文档更加安全，等等。 然而为了更好的应用计算机，广州远志资讯开发有限公司就针对目前中小学的要求，历时三年，精心研制了远制易航图书管理系统，目前广东省大约有百分之六十的中小学都一直在使用广州远志资讯开发有限公司开发的远志易航图书管理系统。 利用远志易航图书管理系统来管理图书，其好处归纳起来，大约有以下几点：1．可以存储学校图书室的图书信息、读者信息和借阅信息，安全、高效；2．只需一名图书管理员即可操作系统，节省大量人力； 3．可以迅速查到所需信息，图书管理系统可以为学校教师和学生提供充足的信息和快捷的查询手段，让教师和学生能够及时查询图书信息，更好地为读者服务。 4．可以预借想借的书本。
C++图书管理系统源代码
图书管理系统 系统功能： 1．借书：根据借书人提出的图书编号（id）查询该图书，如果该图书现存量（store）不为0，则提示输入借阅者的学号（num），为借书人办理借书手续，提示用户该书已被 借出。 2．归书：根据借书人的学号查询该读者的信息，若有该读者，则提示输入所借书籍的编号（id）,为该读者办理还书手续，提示该书已还。 3.书籍管理：弹出书籍管理界面，输入所要执行操作的号码： （1）增加书籍：弹出注册新书的窗口，按照提示输入所增加书籍的信息，最后，提示用户该书已被注册。 （2）删除书籍：弹出删除书籍的窗口，输入所要删除书籍的编号（id），输出该书的信息，确认是否删除该书，1为删除，0为放弃。 （3）修改书籍：弹出修改书籍的窗口，输入所要修改书籍的编号（id），输出该书的信息，确认是否修改该书，1为修改，0为放弃。之后按照提示重新输入书籍的信息。 4.读者管理：弹出读者管理界面，输入所要执行操作的号码： （1）增加读者：弹出注册读者的窗口，按照提示输入所增加读者的信息，最后，提示用户该读者已被注册。 （2）删除书籍：弹出删除读者的窗口，输入所要删除读者的学号（num），输出该读者的信息，确认是否删除该读者，1为删除，0为放弃。 （3）修改书籍：弹出修改读者的窗口，输入所要修改读者的学号（num），输出该读者的信息，确认是否修改该读者，1为修改，0为放弃。之后按照提示重新输入读者的信息。 5.搜索：此搜索包括两方面的搜索，书籍搜索以及读者搜索，弹出搜索的窗口，按照提示输 入所要搜索的内容，1为书籍搜索，2为读者搜索： （1）搜索书籍：弹出搜索书籍的窗口，按照提示输入所要搜索的方式，包括按<1>书名搜索， <2>书号搜索，<3>作者搜索，<4>出版社搜索，<5>出版时间搜索;根据所选方式输入相 应的内容，若是该书籍存在，则输出该书籍的信息，否则，返回主界面。 （2）搜索读者：弹出搜索读者的窗口，按照提示输入所要搜索的方式，包括按<1>名字搜索， <2>学号搜索；根据所选方式输入相应的内容，若是该读者存在，则输出该读者的信息， 否则，返回主界面。 6.退出：退出图书管理系统。 图书类设计：
图书馆管理系统用例图、活动图、类图、时序图
图书馆管理系统 一．图书馆管理系统需求分析 1、系统目标设计 系统开发的总目标是实现内部图书借阅管理的系统化、规范化和自动化。 能够对图书进行注册登记，也就是将图书的基本信息（如：书的编号、书名、作者、价格等）预先存入数据库中，供以后检索。 能够对借阅人进行注册登记，包括记录借阅人的姓名、编号、班级、年龄、性别、地址、电话等信息。 提供方便的查询方法。如：以书名、作者、出版社、出版时间（确切的时间、时间段、某一时间之前、某一时间之后）等信息进行图书检索，并能反映出图书的借阅情况；以借阅人编号对借阅人信息进行检索；以出版社名称查询出版社联系方式信息。 提供对书籍进行的预先预订的功能。 提供旧书销毁功能，对于淘汰、损坏、丢失的书目可及时对数据库进行修改。 能够对使用该管理系统的用户进行管理，按照不同的工作职能提供不同的功能授权。 提供较为完善的差错控制与友好的用户界面，尽量避免误操作。 2、系统功能需求分析 (1) 读者管理：读者信息的制定、输入、修改、查询，包括种类、性别、 借书数量、借书期限、备注等。 (2) 书籍管理：书籍基本信息制定、输入、修改、查询，包括书籍编号、 类别、关键词、备注。 (3) 借阅管理：包括借书，还书，预订书籍，续借，查询书籍，过期处 理和书籍丢失后的处理。
(4)系统管理：包括用户权限管理，数据管理和自动借还书机的管理 满足以上需求的系统主要包含有一下几个子系统 （1）基本业务功能子系统：该系统中主要包含了借书还书和预订等功能。 （2）基本数据录入功能子系统：该子系统主要包含有书籍信息和读者信息录入功能。 （3）信息查询子系统：包含了多功能的查询书籍信息和读者信息。 （4）数据库管理功能子系统：主要包含了借阅信息管理功能，书籍信息管理功能和预订信息管理功能。 （5）帮助功能子系统。 二、系统动态建模 1、用例图、
Java图书管理系统-附源码
目录 题目简述 -------------------------------- 01 需求分析 -------------------------------- 01 数据结构 -------------------------------- 01 功能模块 -------------------------------- 02 程序设计 -------------------------------- 02 运行截图 -------------------------------- 04 分析总结 -------------------------------- 08 程序源码 -------------------------------- 08
图书信息管理系统 题目简述: 题目名称：图书信息管理系统 要求：使用图形用户界面，用数据库建立1或2个图书信息表，能连接数据库并实现查询、增加、删除、修改等功能。 需求分析: 图书信息管理系统应该具备图书的信息管理功能和流通管理功能。其中，信息管理功能包括查找，增加，修改，删除，显示全部信息等模块。流通管理功能包括图书借阅，归还等模块。因此分别设计各个模块，实现不同的功能。 数据结构: 用SQL Sever 建立数据库的表，用一张表存放图书的ID号码，图书名称，图书的所有者，图书状态，图书的使用者（允许为空）。具体设计如下图所示： 图书ID，图书名称，图书所有者，图书的状态，图书使用者（允许为空）均为varchar(50)类型，在Java中可以方便的查询。图书存储信息的具体内容如下图所示：
功能模块: 程序设计: 主框架设计： 主框架上方包含三个按钮，分别是“系统管理”、“图书信息管理”和“图书流通管理”，定义JMenuBar类的对象、JMenu类的对象和JMenuItem类的对象，分别表示菜单栏、菜单组和菜单选项，然后调用初始化函数，将不同类的对象通过setText()函数设定不同的文本，然后将其添加到窗口容器中。对每个按钮分别添加不同的消息监听，响应相应的消息，调用不同的类完成不同的功能。消息监听功能详见源代码bookMain类。 图书信息管理模块包括增加图书，删除图书，编辑图书，查找图书和显示图书信息。具体的方法实现在bookBean中实现，当用户点击相应的按钮时，消息监听模块就会调用bookBean的构造函数产生一个bookBean的对象，然后通过对象调用bookBean类中的相应方法，完成事件的相应。 增加图书信息模块： 调用bookAdd类的构造函数产生一个该类的对象，在初始化函数中显示信息输入对话
图书管理系统项目计划书
图书管理系统项目计划书 1.引言 1.1编写目的 尽量采用学校现有的软硬件环境，及先进的管理系统开发方案，从而达到充分利用学校现有资源，提高系统开发水平的应用效果的目的。便于学校教师和学生图书管理，通过查询可立即定位该读者的相应的信息，可以对图书进行查询、增加、修改，读者可以预约已借图书。 1.2背景 a．产品名称：图书管理系统 b．任务提出者：项目经理 开发者：图书管理系统开发团队 用户及产品实现单位：淮海工学院图书馆 1.3术语 PM (Project Manager)----------------------------------------项目经理 Cost Estimating ----------------------------------------成本估算 Contract ----------------------------------------合同 Finish Date ---------------------------------------- 完成日期 2.项目概述 2.1工作容 本系统主要用于学校教师和学生图书管理，主要任务是通过建立图书管理系统，完善学校图书录入、租借、预约以及读者信息的管理，管理员通过查询可立即定位该读者的相应的信息，同时可以对图书进行查询、增加、修改，用户则可以预约已借图书，针对这些问题设计此系统。 2.2主要参加人员 组长：XX 该组成员：XX XXX XX XX XXX 2.3产品
2.3.1程序 提供软件安装包。 2.3.2文件 以用户操作说明书形式向用户说明文件的名称及容要点。 2.3.3服务 通过查询可立即定位该读者的相应的信息，可以对图书进行查询、增加、修改，同时读者可以预约已借图书。 2.3.4非移交的产品 项目可行性研究报告、项目开发计划书、需求规格说明书、概要设计说明书、详细设计说明书、测试计划、测试分析报告、开发进度报告、项目开发总结报告、维护手册.... 2.4验收标准 按照需求规格说明书进行验收。 2.5完成期限 3.实施计划 3.1工作任务的分解和人员分工 3.2接口人员 a、负责本项目同用户的接口人员：XX、XXX； b、负责本项目同本企业各管理机构，如计划管理部门、合同管理部门、采购部门、质量管 理部门、财务部门等的接口人员：XXX、XX； c、负责本项目同分包方的接口人员：XX、XXX。
图书管理系统含源代码可以运行
第一章需求分析 1.1设计内容 利用c++的文件操作能力设计开发一个小型的图书管信息管理系统，至少具有如下功能：查寻所有图书信息、通过输入图书编号来完成查找某一本图书信息、添加图书信息、删除图书信息以及通过学生学号实现图书借阅功能。操作界面要符合用户的一般习惯，界面易于读者明白理解，图形或文本界面都可以。 1.2 设计任务 要求：明确课程设计的目的，能根据课程设计的要求，查阅相关文献，为完成设计准备必要的知识；提高学生用高级语言进行程序设计的能力，重点提高用C++进行文件操作和绘图应用的编程技术水平；初步了解软件开发的一般方法和步骤；提高撰写技术文档的能力。掌握模块化编程的基本方法与步骤；巩固和加深学生对C++课程基本知识的理解与掌握，培养学生利用C++进行软件操作的能力和技巧。 1.3 基本要求 (1)通过提示菜单选择可以进行的操作。 (2)将图书的信息存入文件中，并命名为BookInfo.txt。 (3)将图书借阅情况信息存入文件中，并命名为SendInfo.txt。 (4)在本系统中可以进行管理系统包含的基本操作，其中包括： a)查看所有图书的信息。
b)输入一本图书的图书编号，从当前图书中进行查找，如果找到则显示该图书的相关信息，如果没有找到则给出提示信息。 c)添加一本图书的基本信息，通过输入图书编号，首先查找是否存在该图书编号的图书，如果存在则提示重新输入，否则将该图书按照顺序插入到相应位置。 d)删除一本图书的基本信息，通过输入图书编号，首先查找是否存在该图书编号的图书，如果存在则将该图书删除，否则给出提示信息，提示该图书不存在。 e)借阅一本图书，需要给出学号和图书编号，如果图书编号不存在则重新输入，直到输入正确为止，并将学号和相应的图书编号存入SendInfo.txt文件中。 (5)图书基本信息包括图书编号、书名、作者、出版社和价钱这些简单信息。 (6)图书信息文件中每一行存放一本图书的信息。 (7)借阅信息文件中每一行存放一本书的借阅情况。 (8)对老师.学生的信息进行登记处理，包括姓名、学号教师编号、学院班级等。 (9)对图书的金额进出管理，对一丢失的图书进行处罚、对超期归还的图书进行赔偿金额计算。 第二章系统功能设计
图书馆管理系统解决方案
图书馆自动化管理系统 解决方案 目录 一、系统简介............................................................... ２ 二、系统特点：............................................................. ２ 三、系统功能概述：.......................................................... ２ 四、功能详细介绍 ........................................................... ４ 五、常用配件及设备......................................................... １４ 六、图书管理步骤 .......................................................... １４
《图书馆管理系统》介绍 一、系统简介 《图书馆管理系统》适用于中小学、大中专院校以及企事业单位中小型图书馆的自动化管理需求，其功能覆盖了图书馆自动化集成管理业务流程所包括的所有环节。《图书馆管理系统》首先应该按照我国图书馆行业通用CNMARC格式及《中图法第四版》行业标准开发而成,支持CNMARC导入导出，支持Z39.50检索协议，能实现不同图书馆之间的馆际数据交流；符合教育部最新颁布的《教育管理信息化标准》规范。 二、系统特点： 功能包含了目前图书馆管理业务的每个环节，系统共分成系统管理、读者管理、编目、流通、统计、Web服务等功能。除具有一般图书馆管理系统提供的读者管理、采编、流通、预约及管理、统计、查询、设置借阅规则等功能外，我们还提供了图书查重、设置假期(适应学校放假需要)、导入导出读者等，另外还可方便地将外来MARC数据导入到本馆或辅助编目库中，可以自行升级编目库，可以暂停某些读者的借阅权等等。
图书馆管理系统程序的设计代码
1.1程序设计代码 登录模块 if(username.Text.Trim()==""||password.Text.Trim()=="") MessageBox.Show("请输入用户名和密码","提示"); else { if (radioManage.Checked == true) { string strcon = "Data Source=SIMON-VAIO;Initial Catalog=lkl2;Integrated Security=True;"; //连接数据库的字符串，用于指定数据库地址，名称，账号，密码，连接方式SqlConnection sqlCon = new SqlConnection(strcon); //实例化并定义一个数据库连接 sqlCon.Open(); //打开数据库连接 string sql = "select * from login where usernum=usernum and userpassword=suerpassword"; //定义要查询sql语句 SqlCommand cmd = new SqlCommand(sql, sqlCon); //实例化并定义sql语句和数据库路径 cmd.Parameters.Add("usernum", SqlDbType.NChar, 20); //定义cmd查询命令的字段属性，loginname sqldbtype nchar（20） cmd.Parameters.Add("suerpassword", SqlDbType.NChar, 20); //同上 cmd.Parameters["usernum"].Value = username.Text; //将username中的text保存到变量loginname cmd.Parameters["suerpassword"].Value = password.Text; //同上 SqlDataReader dr = cmd.ExecuteReader(); if (dr.Read()) { this.Visible=false; Form2 Formmain = new Form2(); //应该是实例化一个主窗体的 this.Hide(); //应该是切换到主窗口的或关闭自己的 Formmain.Show(); //应该是打开一个主窗体的 dr.Close();//关闭dr的数据库连接 } else// if (dr.Read())读取失败则执行如下代码 MessageBox.Show("密码错误,请重新输入!"); //显示提示信息 } else if (radioPerson.Checked==true)
基于java的图书管理系统源代码
基于java的图书管理系统源代码声明:本系统是基于C/S的图书管理系统，主要使用的是Oracle数据库，下面附所有实现代码 package library; import java.awt.BorderLayout; import java.awt.Container; import java.awt.GridLayout; import java.awt.event.ActionEvent; import java.awt.event.ActionListener; import java.sql.ResultSet; import javax.swing.JButton; import javax.swing.JComboBox; import javax.swing.JFrame; import javax.swing.JLabel; import javax.swing.JOptionPane; import javax.swing.JPanel; import javax.swing.JTextField; public class book_add extends JFrame implements ActionListener{ DataBaseManager db=new DataBaseManager(); ResultSet rs; JPanel panel1,panel2; JLabel book_id_label,book_name_label,author_label, press_label,press_date_label,price_label,book_num_label,borrowed_num _label,a ddress;
成都图书馆解决方案5.7
成都图书馆信息化解决方案 目录 一．数字化图书馆概述 1.1数字图书馆概念 1.1.1什么是数字图书馆 概念： 数字图书馆的技术功能 形式 基础设施建设 数字图书馆具有的基本特点 1.1.2 关于城市公共图书馆数字化的理解 （1）公共图书馆的特点 ①公共图书馆的服务对象： ②公共图书馆与地方经济建设的关系。 （2）与传统公共图书馆的比较 （3）公共图书馆数字化的目标 1.2 数字图书馆的现状与发展 （1）国外数字图书馆发展概况： （2）国内数字图书馆的发展过程： （3）国内外较成功的数字图书馆 二、成都图书馆的需求分析 2.1、概述：建设有自身特色的成都市图书馆 2.1.1、成都图书馆概况 2.2.2、项目概况 2.2.3、项目任务目标 2.3、成都图书馆的数字化发展社会需求浅析 2.3.1、数字化城市建设的需求 2.3.2、公众服务需求 2.3.3、公共图书馆现代化管理需求 三、数字化公共图书馆经营模式初探 3.1 运作模式市场化 3.2产品与服务 3.2.1产品： 3.1.2服务 四、总体设计思想
4.1、数字图书馆主要功能模块4.2、数字图书馆工程设计要求4.2.1、网络平台子系统要求 4.2.2、数据业务要求 4.2.3、图像业务要求 4.2.4、安全和管理功能要求 4.2.5、服务子系统 4.3、技术实施原则 五、系统集成方案 5.1、成都市图书馆软件解决方案5.1.1、书刊管理系统 5.1.2、文献制作及全文检索系统5.1.3、数字光盘发布系统 5.1.4、电子阅览室系统 5.2 硬件解决方案 5.2.1主机系统设计 5.2.2、主机系统总体设计 5.3、网络系统设计 5.3.1、方案设计概述 5.3.2、方案设计描述 5.3.3、网管软件的选择 5.4网络安全解决方案 5.5数据备份 5.6网络管理综述 六、系统实施及计划进度 6.1、机构设置 6.2、实施步骤 6.3、目的管理方法与制度 6.4、系统实施方式 七、技术支持与售后服务 7.1、技术培训 7.1.1、IBM技术培训 7.1.2、Cisco专业培训 7.2、技术支持及售后服务 7.2.1、和光公司技术支持的承诺
图书馆管理系统源代码
源程序清单 1、文件名 login(login.frm) 功能说明：整个系统的登陆界面，需要输入用户名和登陆密码才能进入到系统中，进行借阅等操作。 源代码： Option Explicit Dim cnt As Integer Private Sub Command1_Click() Dim sql As String Dim rs_login As New ADODB.Recordset If Trim(Combo1.Text) = "" Then MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" Combo1.SetFocus Else sql = "select * from 系统管理 where 用户名='" & Combo1.Text & "'" rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" Combo1.SetFocus Else If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then userID = Combo1.Text rs_login.Close Unload Me form1.Show Else MsgBox "密码不正确", vbOKOnly + vbExclamation, "" txtpwd.SetFocus End If
End If cnt = cnt + 1 If cnt = 3 Then Unload Me End If Exit Sub End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim connectionstring As String connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _ "data source=book.mdb" conn.Open connectionstring cnt = 0 End Sub Private Sub txtuser_Change() End Sub 2、文件名 form1(form1.frm) 功能说明：整个系统的主界面，其中包括图书管理、读者管理、图书借阅管理、系统管理、关于，以及在这下面的子菜单。 源代码： Private Sub add_admin_Click() frmadduser.Show End Sub Private Sub add_back_book_Click() frmbackbookinfo.Show
图书馆管理系统设计附带源代码
毕业设计_图书管理系统 一、数据库设计数据库设CREATE DATABASE TSGL GO USE TSGL GO CREATE TABLE Bmanage ( bId varchar(10) PRIMARY KEY, bName varchar(50), --添加图书--图书编号 --书名 bNumber varchar(10), --书数目) GO bSore varchar(50) --分类 CREATE TABLE Madmin ( mName varchar(10)PRIMARY KEY, mPwd varchar(25), mAge varchar(8), mSex varchar(4), mNumber varchar(15), mrole varchar(8) ) GO --图书员管理 --图书管理员姓名--图书管理员密码 --图书管理员年龄 --图书管理员性别 --图书管理员电话 --图书管理员角色
CREATE TABLE Reader ( rSno varchar (10) PRIMARY KEY , rName varchar (10), rPwd varchar (25), rAge varchar (8), rSex varchar (4), rState varchar (8), rNumber varchar (15), rEmail varchar (25), --读者信息表reader --读者号 --姓名 --密码 --年龄 --性别 --状态 --电话号码 --电子邮件rAdress varChar (50), --地址) GO rGrade varChar (15), rClass varchar (15), rRole varchar (8) --年级 --班级 --角色 CREATE TABLE Rrecord ( rSno varchar (10) PRIMARY KEY , rName varChar (10), bId varchar (10), bName varChar (50), bTime varchar (10), bBackTime varchar (10) ) GO CREATE TABLE SysSet ( rRole varchar (8)PRIMARY KEY , rState varchar (8), Fine float (25), rDay varchar (8) --读者编号学号 --读者姓名 --图书编号 --图书名称 --借书时间 --还书时间 --读者角色 --读者可借书数 --过期罚款设置 --可借书天数 ) 二、界面截图及说明 1) 登录窗口(实现管理员与馆长的登陆)
图书馆管理系统软件项目开发计划书.doc
图书馆管理系统项目开发计划书
修订记录
目录 1.引言 (5) 1.1.编写目的 (5) 1.2.背景 (5) 1.3.定义 (5) 1.4.参考资料 (5) 2.项目概述 (6) 2.1.工作内容 (6) 2.2.主要参加人员 (7) 2.3.产品 (7) 2.3.1.程序 (7) 2.3.2.文件 (8) 2.3.3.服务 (8) 2.3.4.非移交的产品 (8) 2.4.验收标准 (9) 2.4.1.代码的验收 (9) 2.4.2.文档验收 (9) 2.4.3.服务验收 (9) 2.5.完成项目的最迟期限 (9) 2.6.本计划的批准者和批准日期 (9) 3.实施计划 (9) 3.1.开发过程 (9) 3.1.1.需求分析 (9) 3.1.2.系统设计 (10) 3.1.3.编码及测试阶段 (10) 3.1.4.文档、产品部署 (10) 3.1.5.项目总结 (10) 3.2.工作任务的分解与人员分工 (10) 3.2.1.工作任务的分解 (10) 3.2.2.接口人员 (11) 3.3.进度 (11) 3.4.预算 (11) 3.5.关键问题 (12) 4.支持条件 (12) 4.1.开发时需要的支持条件 (12) 4.1.1.硬件条件 (12) 4.1.2.软件条件 (13) 4.2.需要用户承担的工作 (13)
4.3.由外单位提供的条件 (14) 5.专题计划要点 (14) 5.1.发人员培训计划 (14) 5.2.测试计划 (14) 5.3.质量保证计划 (14) 5.4.人员配置计划 (14) 5.5.客户培训计划 (14) 5.6.安全保密计划 (14)
图书管理系统的C 代码 完整版
C#代码清单 共1个项目，包含5个类。 项目：librarysystem 类: 主类代码： namespace librarysystem { PublicationISBN = PublicationISBN; = PublicationName; = PublicationAuthor; = PublicationType; = PublicationStatus; } } } 读者类代码： namespace librarysystem { 询图书"); ("2.借书服务"); ("3.还书服务"); ("4.新出版物入库"); ("5.录入新读者"); ("6.查询读者的借阅信息"); ("7.退出管理系统"); ("-------------------------------------------------------------------"); bool flag; do { flag = false; ("请选择："); string key = (); switch (key) { case"1": ("请输入需要查询图书的书名："); ShowPubInfo(); break; case"2": ("请输入您的姓名：");
(); ShowBorrowInfo(); break; case"3": ("请输入您的姓名："); (); ShowReturnInfo(); break; case"4": ("请按照提示逐步输入需要入库出版物的信息……"); ShowAddPublications(); break; case"5": ("请按照提示逐步输入新注册读者的信息……"); ShowAddReaders(); break; case"6": ("请输入您的姓名： "); (); ShowRedPubInfo; break; case"7": flag = false; break; default: ("无此业务，是否重新选择（y/n）？"); string answer = (); if (answer != "y") { flag = false; } else { flag = true; } break; } } while (flag); } /*显示查询到的出版物信息*/ public void ShowPubInfo() {
图书管理系统uml实验报告.doc
面向对象分析与设计大作业 学院：计算机科学与工程学院 班级：计算机软件 3 学生姓名：陈俊伟 学号：2174 指导老师：苏锦钿 提交日期：
华南理工大学 面向对象分析与设计大作业课程实验报告 实验题目 :_____ 图书管理系统 uml 图__________________________ 姓名 :___ 陈俊伟 ________学号:_ 2174_____ 班级 : ___09 软件 3 班________ 组别 : ________ 合作者 : __________________ 指导教师 : ______ 苏锦钿 __________ 实验概述 【实验目的及要求】 一．目的 1.掌握面向对象技术的基本原理和各种相关概念； Rational Rose 2003 、 IBM 2. 熟练掌握 UML的基本知识和9 种常见的 UML图形 , 并能够利 用 Software Architecture、或trufun UML工具进行建模； 3.根据问题进行学习，拓广、深化； 4.独立完成一个应用程序的分析、设计和建模，为以后软件项目的开发打下实践基础。 【实验原理】 UML建模，就是用模型元素来组建整个系统的模型，模型元素包括系统中的类、类和类 之间的关联、类的实例相互配合实现系统的动态行为等。UML提供了多种图形可视化描 述模型元素，同一个模型元素可能会出现在多个图中对应多个图形元素，人们可以从多 个视图来考察模型。UML建模主要分为结构建模、动态建模和模型管理建模 3 个方面，第 1 个方面是从系统的内部结构和静态角度来描述系统的，在静态视图、用例视图、实施视 图和配置视图中适用，采用了类图、用例图、组件图和配置图等图形。例如类图用于描述系 统中各类的内部结构（类的属性和操作）及相互间的关联、聚合和依赖等关系， 包图用于描述系统的分层结构等；第 2 个方面是从系统中对象的动态行为和组成对象间的相互 作用、消息传递来描述系统的，在状态机视图、活动视图和交互视图中适用，采 用了状态机图、活动图、顺序图和合作图等图形，例如状态机图用于一个系统或对象从 产生到结束或从构造到清除所处的一系列不同的状态；第 3 个方面描述如何将模型自身组织到高层 单元，在模型管理视图中适用，采用的图形是类图。建模的工作集中在前两 方面，而且并非所有图形元素都适用或需要采用
图书馆管理系统软件体系结构设计-图书馆管理系统软件
北方民族大学 课程设计报告 系（部、中心）计算机科学与工程学院 姓名周宇学号 20060464 专业软件工程班级二 同组人员 课程名称软件体系结构 设计题目名称图书馆管理系统体系结构设计 起止时间2009.11.23——2009.12.07 成绩 指导教师签名 北方民族大学教务处制
图书馆管理系统结构设计 1 绪论 (3) 1.1 系统开发背景 (3) 1.2 系统开发意义 (3) 1.3 系统概述 (3) 2 系统设计目标和原则 (4) 2.1 系统设计目标 (4) 2.2 系统设计原则 (4) 2.2.1 高可靠性 (4) 2.2.2 高性能 (4) 2.2.3 技术先进性和实用性 (5) 2.2.4 网络的安全性 (5) 2.2.5 标准开放性 (5) 2.2.6 具有灵活性以及可扩展性 (5) 2.2.7 可管理性 (5) 2.2.8 兼容性和经济性 (6) 3 系统需求分析 (6) 3.1 系统功能描述 (6) 3.2 各子模块的功能 (7) 3.2.1 基础信息维护 (7) 3.2.2 读者管理 (7) 3.2.3 图书管理 (8) 3.2.4 期刊管理 (9) 3.2.5 图书流通管理 (9) 3.2.6 期刊流通管理 (10) 3.2.7 统计分析管理 (11) 3.2.8 权限管理 (11) 4 系统的结构设计 (11) 4.1 系统的总体结构设计 (11) 4.1.1 概述 (11) 4.1.2 两种结构对比 (12) 4.1.3 本系统的结构 (12) 4.2 系统功能结构设计 (13) 4.2.1 功能结构图 (13) 4.3 系统功能分析 (14) 4.3.1 读者管理 (14)
图书管理系统程序代码
#i n c l u d e<> #include <> #include <> #define SIZE (struct booklist *)malloc(sizeof(struct booklist)) .(Y/N) :"); ch = getchar(); if(ch == 'y' || ch == 'Y') store(head); getchar(); break; } case 2: { if(head == NULL ) { printf("请先录入图书源信息!\n"); getchar(); break; } else { borrow_head = borrow_creat(head); .(Y/N) :" ); ch = getchar(); if(ch == 'y' || ch == 'Y') borstore(borrow_head); getchar(); break; } } case 3: { if(head == NULL ) { printf("请先录入图书源信息!\n"); getchar(); break; } else { flag = pre_creat(head); if(flag == 1)
printf("没有录入预借图书信息!\n\n"); if(flag == 2) pre_head = prebor_creat(); .(Y/N) :"); ch = getchar(); if(ch == 'y' || ch == 'Y') store(head); getchar(); break; } } case 4: .(Y/N) :"); ch = getchar(); if(ch == 'y' || ch == 'Y') store(head); getchar(); break; } } case 5: .(Y/N) :"); ch = getchar(); if(ch == 'y' || ch == 'Y') store(head); getchar(); break; } } case 9: .)\n\n"); printf("请选择功能:"); scanf("%d", &n); getchar(); if(n == 0) { x = 0; } getchar(); } else { printf("请输入学号:"); gets(c); strcpy(p -> prebook_num, a); strcpy(p -> prestu_num, c); if((fp = fopen("","a+")) == NULL)
图书标准管理系统含源代码可以运行
图书标准管理系统含源代码可以运行
组长：何关瑶学号11107200105 组员：汪芳 李玉珏 马文磊 雷盛华 第一章需求分析 1.1设计内容 利用c++的文件操作能力设计开发一个小型的图书管信息管理系统，至少具有如下功能：查寻所有图书信息、通过输入图书编号来完成查找某一本图书信息、添加图书信息、删除图书信息以及通过学生学号实现图书借阅功能。操作界面要符合用户的一般习惯，界面易于读者明白理解，图形或文本界面都可以。 1.2 设计任务 要求：明确课程设计的目的，能根据课程设计的要求，查阅相关文献，为完成设计准备必要的知识；提高学生用高级语言进行程序设计的能力，重点提高用C++进行文件操作和绘图应用的编程技术水平；初步了解软件开发的一般方法和步骤；提高撰写技术文档的能力。掌握模块化编程的基本方法与步骤；巩固和加深学生对C++课程基本知识的理解与掌握，培养学生利用C++进行软件操作的能力和技巧。 1.3 基本要求 (1)通过提示菜单选择可以进行的操作。 (2)将图书的信息存入文件中，并命名为BookInfo.txt。 (3)将图书借阅情况信息存入文件中，并命名为SendInfo.txt。 (4)在本系统中可以进行管理系统包含的基本操作，其中包括： a)查看所有图书的信息。 b)输入一本图书的图书编号，从当前图书中进行查找，如果找到则显
示该图书的相关信息，如果没有找到则给出提示信息。 c)添加一本图书的基本信息，通过输入图书编号，首先查找是否存在该图书编号的图书，如果存在则提示重新输入，否则将该图书按照顺序插入到相应位置。 d)删除一本图书的基本信息，通过输入图书编号，首先查找是否存在该图书编号的图书，如果存在则将该图书删除，否则给出提示信息，提示该图书不存在。 e)借阅一本图书，需要给出学号和图书编号，如果图书编号不存在则重新输入，直到输入正确为止，并将学号和相应的图书编号存入SendInfo.txt 文件中。 (5)图书基本信息包括图书编号、书名、作者、出版社和价钱这些简单信息。 (6)图书信息文件中每一行存放一本图书的信息。 (7)借阅信息文件中每一行存放一本书的借阅情况。 (8)对老师.学生的信息进行登记处理，包括姓名、学号教师编号、学院班级 等。 (9)对图书的金额进出管理，对一丢失的图书进行处罚、对超期归还的图书 进行赔偿金额计算。