📄 frmborrowedit.frm
字号:
BackStyle = 0 'Transparent
Caption = "书 号"
Height = 180
Left = 120
TabIndex = 30
Top = 480
Width = 720
End
Begin VB.Label Label8
Caption = "所属类别"
Height = 255
Left = 120
TabIndex = 29
Top = 930
Width = 735
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "已借数量"
Height = 180
Left = 6360
TabIndex = 25
Top = 960
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "当前库存"
Height = 180
Left = 4680
TabIndex = 7
Top = 960
Width = 720
End
End
Begin VB.CommandButton Cmd_OK
Caption = "确 定"
Default = -1 'True
Height = 375
Left = 7080
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 0
Top = 6120
Width = 1095
End
Begin VB.CommandButton Cmd_Cancel
Cancel = -1 'True
Caption = "取 消"
Height = 375
Left = 7080
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 1
Top = 6720
Width = 1095
End
Begin VB.Frame Frame1
Caption = "借阅信息"
Height = 735
Left = 120
TabIndex = 2
Top = 240
Width = 8055
Begin VB.TextBox txtBorrowNo
BeginProperty DataFormat
Type = 1
Format = "yyyy-MM-dd"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
Height = 330
Left = 1080
TabIndex = 33
Top = 285
Width = 1575
End
Begin VB.TextBox txtReturnDate
BeginProperty DataFormat
Type = 1
Format = "yyyy-MM-dd"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
Height = 330
Left = 6720
TabIndex = 23
Top = 285
Width = 1215
End
Begin VB.TextBox txtBorrowDate
BeginProperty DataFormat
Type = 1
Format = "yyyy-MM-dd"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
Height = 330
Left = 3960
TabIndex = 8
Top = 285
Width = 1335
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "借阅编号"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 180
Left = 180
TabIndex = 32
Top = 360
Width = 720
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "应归还日期"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 180
Left = 5640
TabIndex = 4
Top = 360
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "借阅日期"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 180
Left = 3000
TabIndex = 3
Top = 360
Width = 720
End
End
End
Attribute VB_Name = "FrmBorrowEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Modify As Boolean '插入=false,修改=true
Public OriId As Integer
Private Sub Cmd_Add_Click()
'添加记录
If Len(Trim(txtBookNo)) = 0 Then
MsgBox ("请输入图书编号")
txtBookNo.SetFocus
Exit Sub
End If
If Len(Trim(txtBookName)) = 0 Then
MsgBox ("请输入图书名称")
txtBookNo.SetFocus
Exit Sub
End If
'相同的图书编号不能借阅2次
If MyBorrowList.IsBorrow(Trim(txtBookNo), Trim(txtBorrowNo)) = True Then
MsgBox ("此图书已经借阅")
txtBookNo.SetFocus
Exit Sub
End If
'判断已经借阅数量加上本次借阅数量是否大于最大借阅数量
If Val(txtBCount) + 1 > Val(txtMaxCount) Then
MsgBox ("借阅数量已经超过最大借阅数量")
Exit Sub
End If
With MyBorrowList
.BookNo = Trim(txtBookNo)
.BorrowNo = Trim(txtBorrowNo)
.BCount = 1
.Status = "借阅"
.Forfeit = 0
.GDate = ""
.ReturnDate = Trim(txtReturnDate)
.RealReturnDate = ""
.Insert
'更改已经借阅数量
txtBCount = Val(txtBCount) + 1
txtLCount = Val(txtLCount) + 1
End With
GridRefresh
End Sub
Private Sub Cmd_Cancel_Click()
If MsgBox("是否取消当前的借阅", vbYesNo, "请确定") = vbYes Then
MyBorrow.Delete (txtBorrowNo)
Else
Exit Sub
End If
Unload Me
End Sub
Private Sub Cmd_Del_Click()
'使用Adodc1.Recordset.EOF判断当前是否选择了记录
If Adodc1.Recordset.EOF = True Then
MsgBox "请选择记录"
Exit Sub
End If
'通过Adodc1.Recordset.Fields()读取Adodc1记录源中的当前数据
TmpId = Adodc1.Recordset.Fields(0)
'询问用户是否确认删除
If MsgBox("是否删除当前行?", vbYesNo, "确认") = vbYes Then
Call MyBorrowList.Delete(TmpId)
End If
'更改已经借阅数量
txtBCount = Val(txtBCount) - 1
txtLCount = Val(txtLCount) - 1
MsgBox "删除成功"
'刷新DataGrid表格的内容
GridRefresh
End Sub
Private Sub Cmd_OK_Click()
If Adodc1.Recordset.EOF Then
MsgBox "请选择要借阅的图书"
Exit Sub
End If
'确认后借阅记录将不能更改和删除
If MsgBox("是否借阅这些图书?", vbYesNo, "确认") = vbYes Then
'更改此借阅单中的所有借阅的图书的库存数量
MyBorrowList.UpdateTotal (Trim(txtBorrowNo))
End If
'关闭窗口
Unload Me
End Sub
Private Sub Cmd_Save_Click()
'保存借阅信息到数据库
If Len(Trim(txtBorrowNo)) <= 2 Then
MsgBox ("请输入借阅编号")
txtBorrowNo.SetFocus
Exit Sub
End If
If Len(Trim(txtBorrowDate)) = 0 Then
MsgBox ("请输入借阅日期")
txtBorrowDate.SetFocus
Exit Sub
End If
If Len(Trim(txtCardNo)) = 0 Then
MsgBox ("请输入借阅证编号")
txtCardNo.SetFocus
Exit Sub
End If
With MyBorrow
.BorrowNo = Trim(txtBorrowNo)
.BorrowDate = Trim(txtBorrowDate)
.Cardno = Trim(txtCardNo)
'判断此借阅证号是否存在
If .In_DB(Trim(txtBorrowNo)) = True Then
MsgBox ("此借阅编号已经存在")
Exit Sub
End If
.Insert
End With
'借阅编号不能修改
txtBorrowNo.Enabled = False
'设置添加图书按钮不能用
FrmBorrowEdit.Cmd_Add.Enabled = True
FrmBorrowEdit.Cmd_Del = True
FrmBorrowEdit.Cmd_OK.Enabled = True
'设置图书信息不能用
FrmBorrowEdit.Frame2.Enabled = True
txtCount = 1
End Sub
Private Sub Cmd_SchBook_Click()
'查找图书信息
If Len(Trim(txtBookNo)) = 0 Then
MsgBox ("请输入图书编号")
txtBookNo.SetFocus
Exit Sub
End If
'判断此图书编号是否存在
If MyBookInfo.GetInfo(Trim(txtBookNo)) = False Then
MsgBox ("没有这个图书编号，请重新输入")
txtBookNo.SetFocus
Exit Sub
Else
txtBookName = MyBookInfo.BookName
txtTotal = MyBookInfo.Total
'根据分类编号取得图书分类信息
txtBookType = MyBookType.GetUpperName(MyBookInfo.TypeId) + " - " + MyBookType.GetName(MyBookInfo.TypeId)
'计算此图书已经借阅数量
txtLCount = MyBorrowList.GetBookCount(Trim(txtBookNo))
End If
End Sub
Private Sub Cmd_SchCard_Click()
'根据输入的借阅证号查找相关信息
If Len(Trim(txtCardNo)) = 0 Then
MsgBox ("请输入借阅证号")
txtCardNo.SetFocus
Exit Sub
End If
'判断此借阅证号是否存在
If MyCards.GetInfo(Trim(txtCardNo)) = False Then
MsgBox ("没有这个借阅证号，请重新输入")
txtCardNo.SetFocus
Exit Sub
Else
txtName = MyCards.Name
'根据类型查找类型信息
If MyCardType.GetInfo(MyCards.TypeId) = True Then
txtCardType = MyCardType.TypeName
txtMaxCount = MyCardType.MaxCount
txtMaxDays = MyCardType.MaxDays
'根据最大天数计算应归还日期
txtReturnDate = Str(DateAdd("d", Val(txtMaxDays), DateValue(txtBorrowDate)))
Else
MsgBox ("此借阅证的类型已经不存在，请重新输入")
Exit Sub
End If
'在借阅记录中查找该借阅证借阅数量
txtBCount = MyBorrowList.GetBorrowCount(Trim(txtCardNo))
End If
End Sub
Private Sub Form_Load()
GridRefresh
End Sub
Private Sub GridRefresh()
'设置ADO控件的连接字符串
Adodc1.ConnectionString = conn
'设置数据源
Adodc1.RecordSource = "SELECT l.Id AS 编号,l.BookNo AS 图书编号,b.BookName AS 图书名称," _
+ "l.BorrowCount AS 借阅数量,l.ReturnDate AS 应归还日期 FROM BorrowList l,BookInfo b " _
+ " WHERE l.BookNo=b.BookNo AND BorrowNo='" + Trim(txtBorrowNo) + "'"
Adodc1.Refresh
DataGrid1.Columns(0).Width = 800
DataGrid1.Columns(1).Width = 1200
DataGrid1.Columns(2).Width = 1400
DataGrid1.Columns(3).Width = 1200
DataGrid1.Columns(4).Width = 1200
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -