📄 frm_admincheckin.frm
字号:
VERSION 5.00
Begin VB.Form Frm_AdminCheckIn
Caption = "管理员"
ClientHeight = 2670
ClientLeft = 4875
ClientTop = 4335
ClientWidth = 5220
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2670
ScaleWidth = 5220
Begin VB.TextBox Txt_Pwd
Height = 375
IMEMode = 3 'DISABLE
Left = 1800
PasswordChar = "*"
TabIndex = 5
Top = 1440
Width = 1695
End
Begin VB.TextBox Txt_PwdCmp
DataField = "密码"
DataSource = "Data1"
Height = 375
Left = 1800
TabIndex = 4
Top = 600
Visible = 0 'False
Width = 1695
End
Begin VB.TextBox Txt_Admin
Height = 375
Left = 1800
TabIndex = 2
Top = 600
Width = 1695
End
Begin VB.Data Data3
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 2280
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1440
Visible = 0 'False
Width = 1215
End
Begin VB.Data Data4
Caption = "Data2"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 2280
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1440
Visible = 0 'False
Width = 1215
End
Begin VB.TextBox Txt_ReaderCmp
DataField = "借书证号"
DataSource = "Data2"
Height = 375
Left = 1800
TabIndex = 6
Top = 600
Visible = 0 'False
Width = 1695
End
Begin VB.TextBox Txt_ReaderPwdCmp
DataField = "借书证密码"
DataSource = "Data2"
Height = 375
Left = 1800
TabIndex = 7
Top = 1440
Visible = 0 'False
Width = 1695
End
Begin VB.TextBox Txt_AdminCmp
DataField = "帐号"
DataSource = "Data1"
Height = 375
Left = 1800
TabIndex = 3
Top = 600
Visible = 0 'False
Width = 1695
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 2280
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1440
Visible = 0 'False
Width = 1215
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 315
Left = 2280
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "管理员信息"
Top = 1440
Visible = 0 'False
Width = 1215
End
Begin VB.Image Image1
Height = 510
Left = 3960
Picture = "Frm_AdminCheckIn.frx":0000
Top = 1440
Width = 540
End
Begin VB.Label Lab_Pwd
AutoSize = -1 'True
Caption = "密 码"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 600
TabIndex = 1
Top = 1440
Width = 765
End
Begin VB.Label Lab_Admin
AutoSize = -1 'True
Caption = "登陆名"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 600
TabIndex = 0
Top = 600
Width = 765
End
End
Attribute VB_Name = "Frm_AdminCheckIn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim admin As String
Dim pwd As String
Dim flag As Boolean
Public Function Search(AdminField As String) As Boolean
If Frm_AdminCheckIn.Caption = "读者" Then
Data2.RecordSource = "select * from 学生情况表 where " & Txt_ReaderCmp.DataField & " = '" & AdminField & "'"
Data2.Refresh
Else
Data1.RecordSource = "select * from 管理员信息 where " & Txt_AdminCmp.DataField & " = '" & AdminField & "'"
Data1.Refresh
End If
flag = True
Search = flag
End Function
Private Sub Form_Load()
If Right(App.Path, 1) <> "\" Then
Data1.DatabaseName = App.Path & "\admin.mdb"
Data2.DatabaseName = App.Path & "\students.mdb"
Data2.RecordSource = "学生情况表"
Else
Data1.DatabaseName = App.Path & "admin.mdb"
Data2.DatabaseName = App.Path & "students.mdb"
Data2.RecordSource = "学生情况表"
End If
End Sub
Private Sub Image1_Click()
Dim strSQL As String, rtn As Integer
pwd = Txt_Pwd.Text
admin = Txt_Admin.Text
If Frm_AdminCheckIn.Caption = "读者" Then
UserName = admin
UserCardNum = admin
If flag = True Then
If (pwd <> Txt_ReaderPwdCmp.Text) Or (admin <> Trim(Txt_ReaderCmp.Text)) Then
MsgBox "帐号或密码错误！", , "提示"
Txt_Pwd.Text = ""
Txt_Pwd.SetFocus
Else
Unload Me
1 If Frm_SingleQuery.bBorrow = True Then
Frm_SingleQuery.bBorrow = False
Data3.DatabaseName = IIf(Right(App.Path, 1) = "\", App.Path & "book.mdb", App.Path & "\book.mdb")
Data4.DatabaseName = Data3.DatabaseName
Data4.RecordSource = "借书记录"
Data4.Refresh
Frm_SingleQuery.Adodc1.Refresh
Frm_SingleQuery.Adodc1.Recordset.Update
Frm_SingleQuery.Adodc1.Recordset.MoveFirst
Frm_SingleQuery.Adodc1.Recordset.Move RowPosition
strSQL = "select*from " & "书籍资料" & " where 索书号 ='" & Frm_SingleQuery.Adodc1.Recordset.Fields("索书号") & "'"
Data3.RecordSource = strSQL
Data3.Refresh
If Trim(Frm_SingleQuery.Adodc1.Recordset.Fields("在库信息")) = "在库" Then
Data4.Recordset.AddNew
Data4.Recordset.Fields("索书号") = Frm_SingleQuery.Adodc1.Recordset.Fields("索书号")
Data4.Recordset.Fields("书名") = Frm_SingleQuery.Adodc1.Recordset.Fields("书名")
Data4.Recordset.Fields("借出日期") = Format(Date)
Data4.Recordset.Fields("借书证号") = Trim(admin)
Data4.Recordset.Fields("还书日期") = Format(DateSerial(Year(Date), Month(Date) + 1, Day(Date)))
Data4.Recordset.Update
Data4.Recordset.MoveLast
Data3.Recordset.Edit
Data3.Recordset.Fields("在库信息") = "借出"
Data3.Recordset.Update
Frm_SingleQuery.Adodc1.Refresh
Frm_SingleQuery.Adodc1.Recordset.Update
MsgBox "借阅成功，还书日期是" & Data4.Recordset.Fields("还书日期"), vbInformation, "借书信息"
Else
Data4.Recordset.FindFirst "索书号 ='" & Frm_SingleQuery.Adodc1.Recordset.Fields("索书号") & "' and 借书证号 ='" & Trim(admin) & "'"
If Data4.Recordset.NoMatch Then
Data4.Recordset.FindFirst "索书号 ='" & Frm_SingleQuery.Adodc1.Recordset.Fields("索书号") & "'"
MsgBox "此书已借出，还书日期是" & Data4.Recordset.Fields("还书日期"), vbInformation, "借书信息"
Else
Data4.Recordset.Delete
On Error Resume Next
Data4.Recordset.MoveLast
Data3.Recordset.Edit
Data3.Recordset.Fields("在库信息") = "在库"
Data3.Recordset.Update
Frm_SingleQuery.Adodc1.Refresh
Frm_SingleQuery.Adodc1.Recordset.Update
rtn = MsgBox("还书成功！是否续借？", vbOKCancel + vbInformation, "还书信息")
If rtn = vbOK Then
Frm_SingleQuery.bBorrow = True
GoTo 1
End If
End If
End If
End If
Frm_Mainpage.Settings.Enabled = True
Frm_Mainpage.InfoCheck.Enabled = True
End If
Else
MsgBox "帐号或密码错误！！", , "提示"
End If
Else
If flag = True Then
If (pwd <> Txt_PwdCmp.Text) Or (admin <> Trim(Txt_AdminCmp.Text)) Then
MsgBox "帐号或密码错误！", , "提示"
Txt_Pwd.Text = ""
Txt_Pwd.SetFocus
Else
Unload Me
Frm_Mainpage.DbMan = True
End If
Else
MsgBox "帐号或密码错误！！", , "提示"
End If
End If
End Sub
Private Sub Txt_Admin_LostFocus()
admin = Txt_Admin.Text
flag = Search(admin)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -