?? frmoverduefine.frm
字號:
Left = 240
Top = 420
Width = 4095
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "讀者編號："
Height = 180
Left = 360
TabIndex = 15
Top = 600
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "過期歸還"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 240
Left = 240
TabIndex = 12
Top = 120
Width = 960
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "總超期罰金(元)："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 4800
TabIndex = 10
Top = 7482
Width = 1680
End
End
Attribute VB_Name = "frmoverduefine"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'-------------------------------------------------------
' 作者：鄒雪桃
' 功能： 對欠款讀者進行交罰款操作.先選擇所要交款的欠款讀者，
' 要欠款的圖書，再添加，執行操作。
'-------------------------------------------------------
Dim sum As Single '存放總罰金
Public Sub clean()
'清空窗體的數據
txt讀者編號.Text = ""
lst讀者.Rows = 0
lst圖書.Rows = 0
Call cmdclear_Click
cmdadd.Enabled = False
cmd圖書選擇.Enabled = False
txt罰金.Text = Format(Val(""), "0.00")
End Sub
Private Sub cmdadd_Click()
Dim rs As New ADODB.Recordset
Dim sql As String
If txt讀者編號.Text = "" Then
MsgBox "請先選擇讀者編號。", vbInformation + vbOKOnly, "提示"
ElseIf lst圖書.TextMatrix(0, 0) = "" Then
MsgBox "請先選擇罰款的圖書。", vbInformation + vbOKOnly, "提示"
Else
Dim i As Integer
With finebookGrid
If .Rows >= 2 Then
For i = 1 To .Rows - 1
'當前所選圖書信息中圖書編號和借閱日期與列表finebookGrid中的圖書編號和借閱日期相同的顯示錯誤信息，不同的就添加列表中
If Trim(.TextMatrix(i, 0)) = Trim(lst圖書.TextMatrix(0, 1)) And Trim(.TextMatrix(i, 2)) = Trim(lst圖書.TextMatrix(3, 1)) Then
MsgBox "列表中已經有編號為" & lst圖書.TextMatrix(0, 1) & "的圖書已經存在了,不能添加。", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
Next
End If
End With
sql = "select 逾期后每天罰款金額 from dzlbb where 讀者類別 = '" & Trim(lst讀者.TextMatrix(3, 1)) & "'"
Set rs = TransactSQL(sql)
finebookGrid.AddItem lst圖書.TextMatrix(0, 1) & vbTab & lst圖書.TextMatrix(1, 1) & vbTab & lst圖書.TextMatrix(3, 1) & vbTab & lst圖書.TextMatrix(2, 1) & vbTab & lst圖書.TextMatrix(6, 1) & vbTab & rs(0) & vbTab & lst圖書.TextMatrix(7, 1)
rs.Close
sum = sum + Val(lst圖書.TextMatrix(7, 1))
txtfinesum.Text = Format(sum, "0.00")
txt罰金.Text = Format(sum, "0.00")
cmdadd.Enabled = False
cmddel.Enabled = True
cmdexec.Enabled = True
cmdclear.Enabled = True
End If
End Sub
Private Sub cmdclear_Click()
finebookGrid.Rows = 1
txtfinesum.Text = Format(Val(""), "0.00")
txt罰金.Text = Format(Val(""), "0.00")
cmddel.Enabled = False
cmdexec.Enabled = False
End Sub
Private Sub cmddel_Click()
With finebookGrid
If .TextMatrix(.Row, 0) = "" Then
MsgBox "請選擇當前表中的圖書記錄。"
ElseIf .Rows = 2 Then
.Rows = 1
Call cmdclear_Click
cmdclear.Enabled = False
Else
.RemoveItem (.Row)
End If
End With
End Sub
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub cmdexec_Click()
Dim rs As New ADODB.Recordset
Dim sql As String
Dim bookno As String
Dim i As Integer
If Val(txt罰金.Text) < 0 Then
MsgBox "實際罰款金額要大于等0!", vbCritical + vbOKOnly, "錯誤"
txt罰金.Text = Format(Val(""), "0.00")
Exit Sub
End If
With finebookGrid
If .Rows <= 1 Then
MsgBox "當前表中沒有要執行操作的數據，請選加入數據再進行操作。", vbCritical + vbOKOnly, "錯誤"
Exit Sub
End If
For i = 1 To .Rows - 1
bookno = Trim(.TextMatrix(i, 0))
sql = "select * from hsxxb where 讀者編號 = '" & Trim(txt讀者編號.Text) & "' and 圖書編號 = '" & bookno & "' and 是否交款='是' "
Set rs = TransactSQL(sql)
While Not rs.EOF
If DateDiff("d", .TextMatrix(i, 2), rs(5)) = 0 Then
rs(10) = "否" '在 還書信息表 hsxxb中把相應交了欠款的記錄的<是否交款>值設為"否"
rs.Update
End If
rs.MoveNext
Wend
rs.Close
sql = "insert into fkxxb values('" & bookno & "','" & Trim(.TextMatrix(i, 1)) & _
"','" & Trim(txt讀者編號.Text) & "','" & Trim(lst讀者.TextMatrix(0, 1)) & "'," & 0# & _
"," & Val(.TextMatrix(i, 3)) & "," & Val(.TextMatrix(i, 6)) & "," & _
Format(Val(txt罰金.Text), "0.00") & ",'" & Format(Now, "yyyy-mm-dd") & "','過期罰款','" & user & "')"
TransactSQL (sql) '在fkxxb罰款信息表插入一條記錄
Next
End With
MsgBox "交款成功！", vbInformation + vbOKOnly, "信息"
Call clean
End Sub
Private Sub cmd讀者選擇_Click()
If TransactSQL("select * from hsxxb where 是否交款='是'").EOF Then
MsgBox "沒有欠款讀者。", vbOKOnly + vbInformation
Else
frmreaderfine_choose.Show 1
End If
sum = 0
End Sub
Private Sub cmd圖書選擇_Click()
frmbookfine_choose.Show 1
End Sub
Private Sub Form_Load()
Call fullpic(Me, Picbg1) '背景圖
Me.Left = (frmmain.ScaleWidth - Me.Width) / 2
Me.Top = (frmmain.ScaleHeight - Me.Height) / 2
lst讀者.ColWidth(0) = lst讀者.Width / 3
lst讀者.ColWidth(1) = lst讀者.Width - lst讀者.ColWidth(0)
'lst讀者.ColAlignment(0) = 0
lst讀者.ColAlignment(1) = 1
lst圖書.ColWidth(0) = lst圖書.Width / 3
lst圖書.ColWidth(1) = lst圖書.Width - lst圖書.ColWidth(0)
lst圖書.RowHeightMin = lst圖書.Height / 8
'lst圖書.ColAlignment(0) = 0
lst圖書.ColAlignment(1) = 1
With finebookGrid
.Cols = 7
.Rows = 1
.TextMatrix(0, 0) = "圖書編號"
.TextMatrix(0, 1) = "圖書名稱"
.TextMatrix(0, 2) = "借閱日期"
.TextMatrix(0, 3) = "借閱數量"
.TextMatrix(0, 4) = "過期天數"
.TextMatrix(0, 5) = "每天罰金"
.TextMatrix(0, 6) = "超期罰金"
.ColAlignment(0) = 1
.ColWidth(0) = .Width / 7
.ColWidth(1) = .Width / 7
.ColWidth(2) = .Width / 7
.ColWidth(3) = .Width / 7
.ColWidth(4) = .Width / 7
.ColWidth(5) = .Width / 7
.ColWidth(6) = .Width / 7
End With
txtfinesum.Text = 0
cmd圖書選擇.Enabled = False
cmdadd.Enabled = False
cmddel.Enabled = False
cmdexec.Enabled = False
lst讀者.FontSize = 10
lst圖書.FontSize = 10
End Sub
Private Sub txt罰金_Change()
If Not IsNumeric(txt罰金.Text) And txt罰金.Text <> "" Then
MsgBox "只能輸入數值!", vbCritical + vbOKOnly, "錯誤"
txt罰金.Text = Format(Val(""), "0.00")
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -