📄 frmlostbook.frm
字号:
Left = 120
TabIndex = 8
Top = 1680
Width = 8415
_ExtentX = 14843
_ExtentY = 5318
_Version = 393216
Rows = 1
Cols = 11
FixedCols = 0
BackColor = -2147483639
BackColorBkg = 14737632
GridColor = 14737632
GridColorFixed = 14737632
SelectionMode = 1
AllowUserResizing= 1
End
Begin MSComCtl2.DTPicker DTP罚款日期
Height = 375
Index = 2
Left = 1440
TabIndex = 12
Top = 5280
Width = 2415
_ExtentX = 4260
_ExtentY = 661
_Version = 393216
Format = 25296897
CurrentDate = 38842
End
Begin VB.PictureBox Picbg1
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1440
Left = -1200
Picture = "frmlostbook.frx":198BD
ScaleHeight = 1440
ScaleWidth = 1440
TabIndex = 17
Top = 480
Width = 1440
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "元"
Height = 180
Left = 8040
TabIndex = 41
Top = 5400
Width = 180
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "元"
Height = 180
Left = 8040
TabIndex = 40
Top = 6840
Width = 180
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "元"
Height = 180
Left = 8040
TabIndex = 39
Top = 6465
Width = 180
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "已收罚款信息查询 "
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = 600
TabIndex = 38
Top = 120
Width = 1890
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "借阅日期："
Height = 180
Left = 480
TabIndex = 36
Top = 7185
Width = 900
End
Begin VB.Shape Shape2
BorderColor = &H8000000B&
Height = 2535
Left = 240
Top = 5160
Width = 8175
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "实收金额："
Height = 180
Left = 4560
TabIndex = 34
Top = 6825
Width = 900
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "应罚金额："
Height = 180
Left = 4560
TabIndex = 33
Top = 6465
Width = 900
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "损失数量："
Height = 180
Left = 4560
TabIndex = 31
Top = 6105
Width = 900
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "借阅数量："
Height = 180
Left = 4560
TabIndex = 30
Top = 5745
Width = 900
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "图书价格："
Height = 180
Left = 4560
TabIndex = 28
Top = 5385
Width = 900
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "图书名称："
Height = 180
Left = 480
TabIndex = 26
Top = 6825
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "图书编号："
Height = 180
Left = 480
TabIndex = 24
Top = 6465
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "读者姓名："
Height = 180
Left = 480
TabIndex = 22
Top = 6105
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "读者编号："
Height = 180
Left = 480
TabIndex = 20
Top = 5745
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "罚款日期："
Height = 180
Left = 480
TabIndex = 18
Top = 5370
Width = 900
End
Begin VB.Shape Shape1
BorderColor = &H8000000B&
Height = 1335
Left = 360
Top = 240
Width = 8055
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = ">>"
Height = 180
Left = 4200
TabIndex = 16
Top = 1170
Width = 180
End
End
Attribute VB_Name = "frmlostbook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'-------------------------------------------------------
' 作者：邹雪桃
' 功能： 对丢失或损失所借书籍的读者进行罚款。
' 可以按条件查看关于某读对应书籍的已罚款信息。
'-------------------------------------------------------
Dim user As String
Public Sub clear()
'清空窗体中的数据
txt读者编号(1).Text = ""
txt图书编号(1).Text = ""
txt图书名称.Text = ""
txt读者姓名.Text = ""
txt图书价格.Text = Format(Val(""), "0.00")
txt借阅数量.Text = Val("")
txt损失数量.Text = Val("")
txt应罚金额.Text = Format(Val(""), "0.00")
txt实收金额.Text = Format(Val(""), "0.00")
DTP罚款日期(2).Value = Trim(Year(Now)) & "-" & Trim(Month(Now)) & "-" & Trim(day(Now))
End Sub
Public Function fineAllBook()
Dim rs As New ADODB.Recordset
Dim sql As String
sql = "select * from fkxxb" 'fkxxb罚款信息表(损失)
'将罚款信息表(损失)所有记录显示在fineGrid表中
Dim i As Integer
Set rs = TransactSQL(sql)
If Not rs.EOF Then
With fineGrid
.Rows = 1
While Not rs.EOF
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = rs(0)
.TextMatrix(.Rows - 1, 1) = rs(1)
.TextMatrix(.Rows - 1, 2) = rs(2)
.TextMatrix(.Rows - 1, 3) = rs(3)
.TextMatrix(.Rows - 1, 4) = rs(4)
.TextMatrix(.Rows - 1, 5) = rs(5)
.TextMatrix(.Rows - 1, 6) = rs(6)
.TextMatrix(.Rows - 1, 7) = rs(7)
.TextMatrix(.Rows - 1, 8) = rs(8)
.TextMatrix(.Rows - 1, 9) = rs(9)
.TextMatrix(.Rows - 1, 10) = rs(10)
rs.MoveNext
Wend
End With
End If
rs.Close
fineGrid.Refresh
End Function
Private Sub chk读者编号_Click()
If chk读者编号.Value Then
txt读者编号(0).Enabled = True
Else
txt读者编号(0).Enabled = False
End If
End Sub
Private Sub chk罚款日期_Click()
If chk罚款日期.Value Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -