📄 frmreturn.frm
字号:
VERSION 5.00
Begin VB.Form FrmReturn
Caption = "返还处理"
ClientHeight = 4305
ClientLeft = 60
ClientTop = 345
ClientWidth = 5520
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 4305
ScaleWidth = 5520
Begin VB.Data DatBorrow
Caption = "Data2"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 375
Left = 3240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 2880
Width = 1575
End
Begin VB.ListBox LstBookName
Height = 1230
Left = 3240
TabIndex = 15
Top = 1200
Width = 1575
End
Begin VB.CommandButton CmdNext
Caption = "下一个"
Height = 375
Left = 1440
TabIndex = 8
Top = 3360
Width = 1095
End
Begin VB.CommandButton CmdPrevious
Caption = "上一个"
Height = 375
Left = 240
TabIndex = 7
Top = 3360
Width = 1095
End
Begin VB.CommandButton CmdExit
Caption = "关闭"
Height = 375
Left = 3960
TabIndex = 0
Top = 3360
Width = 1095
End
Begin VB.CommandButton CmdOK
Caption = "返还处理"
Height = 375
Left = 2640
TabIndex = 6
Top = 3360
Width = 1095
End
Begin VB.TextBox TxtReturnTime
Height = 375
Left = 1200
Locked = -1 'True
TabIndex = 5
Top = 2640
Width = 1575
End
Begin VB.TextBox TxtBookIndex
Height = 375
Left = 1200
TabIndex = 4
Top = 1200
Width = 975
End
Begin VB.TextBox TxtReaderName
Height = 375
Left = 3240
TabIndex = 3
Top = 360
Width = 1575
End
Begin VB.TextBox TxtBorrowTime
Height = 375
Left = 1200
Locked = -1 'True
TabIndex = 1
Top = 1920
Width = 1575
End
Begin VB.TextBox TxtReaderindex
Height = 375
Left = 1200
TabIndex = 2
Top = 360
Width = 975
End
Begin VB.Label Label3
BorderStyle = 1 'Fixed Single
Height = 375
Left = 2160
TabIndex = 17
Top = 3960
Visible = 0 'False
Width = 3375
End
Begin VB.Label Label2
BorderStyle = 1 'Fixed Single
Caption = "无此读者"
Height = 375
Left = 0
TabIndex = 16
Top = 3960
Visible = 0 'False
Width = 2175
End
Begin VB.Label Label1
Caption = "返还时间"
Height = 375
Index = 6
Left = 240
TabIndex = 14
Top = 2760
Width = 1095
End
Begin VB.Label Label1
Caption = "借阅时间"
Height = 375
Index = 5
Left = 240
TabIndex = 13
Top = 2040
Width = 1095
End
Begin VB.Label Label1
Caption = "图书编号"
Height = 375
Index = 4
Left = 240
TabIndex = 12
Top = 1200
Width = 1095
End
Begin VB.Label Label1
Caption = "读者姓名"
Height = 375
Index = 3
Left = 2400
TabIndex = 11
Top = 480
Width = 855
End
Begin VB.Label Label1
Caption = "图书列表"
Height = 375
Index = 2
Left = 2400
TabIndex = 10
Top = 1200
Width = 1095
End
Begin VB.Label Label1
Caption = "读者编号"
Height = 375
Index = 0
Left = 240
TabIndex = 9
Top = 480
Width = 855
End
End
Attribute VB_Name = "FrmReturn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private recRs As Recordset
'Public lst() As Variant
'Public Btime() As Variant '通过申明一数组一暂存数据库的值 ，这种怎样做？
Public blnTextChange As Boolean
Public i, n As Integer
Private Sub CmdOK_Click()
' recRs.Edit
' recRs.Fields("returntime") = TxtReturnTime
' recRs.Update
' DatBorrow.RecordSource = "select borrowmessage.bookindex,borrowmessage.returntime from borrowmessage where borrowmessage.bookindex = " & TxtBookIndex & ""
' DatBorrow.Refresh
' Set recRs = DatBorrow.Recordset
With recRs
.Edit
.Fields("returntime") = Date
.Update
End With
LstBookName.RemoveItem (LstBookName.ListIndex)
TxtBookindex.Text = ""
TxtBorrowTime.Text = ""
End Sub
Private Sub Form_Activate()
CmdExit.SetFocus
End Sub
Private Sub Form_Load()
On Error Resume Next
Me.Left = (Screen.Width - Me.ScaleWidth) * 1 / 2
Me.Top = (Screen.Height - Me.ScaleHeight) * 1 / 2
InitializeDataPath
DatBorrow.DatabaseName = DataPath
End Sub
Private Sub LstBookName_Click()
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("librarydb.mdb")
Set rs = db.OpenRecordset(" SELECT bookmessage.bookindex, bookmessage.bookname ,borrowmessage.returntime" _
& " From borrowmessage, bookmessage " _
& "WHERE borrowmessage.bookindex = bookmessage.bookindex and returntime = #1/1/1111# and bookname = '" & LstBookName.List(LstBookName.ListIndex) & "'")
With rs
TxtBookindex.Text = .Fields("bookindex")
End With
'在From ，少一空格也错 ，
'这里的Bookindex为自动编号，是只读的不能用Edit 对所生成的表进行编辑
DatBorrow.RecordSource = " SELECT bookmessage.bookname, borrowmessage.borrowtime , borrowmessage.returntime" _
& " From borrowmessage, bookmessage " _
& "WHERE borrowmessage.bookindex = bookmessage.bookindex and returntime = #1/1/1111# and bookname = '" & LstBookName.List(LstBookName.ListIndex) & "'"
DatBorrow.Refresh
Set recRs = DatBorrow.Recordset
With recRs
'
' .Edit 为什么还是不能编辑啊？
TxtBorrowTime.Text = .Fields("borrowtime")
End With
End Sub
Private Sub TxtReaderindex_Change()
Label2.Visible = False
Label3.Visible = False
blnTextChange = True
LstBookName.Clear
TxtReaderName = ""
TxtBookindex.Text = ""
TxtReturnTime.Text = ""
TxtBorrowTime.Text = ""
End Sub
Private Sub TxtReaderindex_LostFocus()
On Error Resume Next
' If TxtReaderIndex.Text = "" Then
' MsgBox "请输入读者的编号！", vbOKOnly + vbInformation, ""
' TxtReaderIndex.SetFocus
' Exit Sub
' End If
DatBorrow.RecordSource = "select readermessage.readerindex,readermessage.readername,borrowmessage.bookindex,bookmessage.bookname,borrowmessage.borrowtime ,borrowmessage.returntime " _
& " From readermessage, borrowmessage, bookmessage " _
& "Where readermessage.readerindex = borrowmessage.readerindex And borrowmessage.bookindex = bookmessage.bookindex and borrowmessage.readerindex = " & TxtReaderindex & " and borrowmessage.returntime = #1/1/1111#"
DatBorrow.Refresh
Set recRs = DatBorrow.Recordset
recRs.MoveLast
With recRs
TxtReaderName.Text = .Fields("readername")
End With
If TxtReaderindex.Text <> "" And TxtReaderName.Text = "" Then
Label2.Visible = True
Label3.Visible = True
Exit Sub
End If
n = recRs.RecordCount
recRs.MoveFirst
' TxtBorrowTime.Text = .Fields("borrowtime")
If blnTextChange = True Then
With recRs
For i = 1 To n
LstBookName.AddItem .Fields("bookname")
' LstBookindex.AddItem .Fields("bookindex")
' LstBorrowtime.AddItem .Fields("borrowtime")
'
.MoveNext
Next
End With
End If
blnTextChange = False
If LstBookName.List(0) <> "" Then
TxtReturnTime.Text = Date
End If
End Sub
Private Sub DateToText()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -