frmreaderstyle.frm

图书简明管理系统源代码(VB),可作为软件工程课程设计用,也可以作为学习用。

   Dim i As Integer
   Set rs = TransactSQL(sql)
   With readerstyleGrid
        If add = True Then
            .AddItem rs(0) & vbTab & rs(1) & vbTab & rs(2) & vbTab & rs(3) & vbTab & rs(4) & vbTab & rs(5)
        Else
         'rs不是指向尾端时，是修改readerstyleGrid的记录
          .TextMatrix(.Row, 1) = rs(1)
          .TextMatrix(.Row, 2) = rs(2)
          .TextMatrix(.Row, 3) = rs(3)
          .TextMatrix(.Row, 4) = rs(4)
          .TextMatrix(.Row, 5) = Format(Val(rs(5)), "0.00")
         End If
        .Refresh
   rs.Close
   End With

End Function
Public Function readerstyle()
   Dim rs As New ADODB.Recordset
   Dim sql As String
   sql = "select * from dzlbb"  'dzlbb读者类别表
  
   '将读者类别表所有记录显示在frmreaderstyle窗体的readerstylegrid表中'
   Dim i As Integer
   Set rs = TransactSQL(sql)
   If Not rs.EOF Then
      With readerstyleGrid
        .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) = Format(Val(rs(5)), "0.00")
         rs.MoveNext
        Wend
      End With
    End If
    rs.Close
End Function


Private Sub cmddel_Click()
Dim resMsg As String
    Dim sql As String
    sql = "delete from dzlbb where 读者类别 = '" & Trim(txt读者类别.Text) & "'"
    If Trim(readerstyleGrid.TextMatrix(readerstyleGrid.Row, 0)) = "" Then
       MsgBox "请选择一条要删除的一条读者类别记录！", vbOKOnly
    Else
          sql = "select * from jsxxb,dzxxb where jsxxb.读者编号 = dzxxb.读者编号 and dzxxb.读者类别 = '" & Trim(txt读者类别.Text) & "'"
          If Not TransactSQL(sql).EOF Then
              MsgBox "此读者类别不能删除", vbOKOnly
          Else
              resMsg = MsgBox("真的要删除读者类别为" & readerstyleGrid.TextMatrix(readerstyleGrid.Row, 0) & "的信息吗？", vbOKCancel, "警告")
    
              If resMsg = vbOK Then
                 TransactSQL (sql)
                 If readerstyleGrid.Rows <= 2 Then
                     readerstyleGrid.Rows = 1
                 Else
                     '是删除记录后更新readerstyleGrid表格
                     readerstyleGrid.RemoveItem (readerstyleGrid.Row)
                     readerstyleGrid.Refresh
                 End If
                 'MsgBox "读者类别为" & Trim(txt读者类别.Text) & "的信息已经删除！", vbOKOnly
              End If
          End If
    End If
    Call cmdclean_Click
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub cmdadd_Click()

    Dim rs As New ADODB.Recordset
    Dim sql, sql2 As String
    sql = " insert into dzlbb values ('" & Trim(txt读者类别.Text) & "','" & Val(txt可借阅数量.Text) & "','" & Val(txt可借阅天数.Text) & "','" & Val(txt可续借次数.Text) & "','" & Val(txt逾期后缓冲天数.Text) & "','" & Format(Val(txt罚款金额.Text), "0.00") & "')"
    sql2 = "select * from dzlbb where 读者类别='" & Trim(txt读者类别.Text) & "'"
    
    If Trim(txt读者类别.Text) = "" Then
       MsgBox "读者类别不能为空！", vbOKOnly
    ElseIf Trim(txt可借阅数量.Text) = "" Then
       MsgBox "可借阅数量不能为空！", vbOKOnly
    ElseIf Trim(txt可借阅天数.Text) = "" Then
       MsgBox "可借阅天数不能为空！", vbOKOnly
    ElseIf Trim(txt可续借次数.Text) = "" Then
       MsgBox "可续借次数不能为空！", vbOKOnly
    Else
       Set rs = TransactSQL(sql2)
       If rs.EOF = False Then
          MsgBox "该读者类别已经存在，请核对！", vbOKOnly
          rs.Close
       Else
          TransactSQL (sql)
    
          Call readerstyle_update(Trim(txt读者类别.Text), True)
          rs.Close
       End If
      
     End If
    

End Sub

Private Sub cmdmodify_Click()
    Dim rs As New ADODB.Recordset
    Dim sql As String
    sql = "select * from dzlbb where 读者类别='" & Trim(txt读者类别.Text) & "'"
  
   If Val(txt可借阅数量.Text) <= 0 Then
       MsgBox "可借阅数量大于0！", vbOKOnly
    ElseIf Val(txt可借阅天数.Text) <= 0 Then
       MsgBox "可借阅天数不能为空！", vbOKOnly
    Else
       Set rs = TransactSQL(sql)
      ' rs.Fields(0) = Trim(txt读者类别.Text)
        rs.Fields(1) = Val(Trim(txt可借阅数量.Text))
        rs.Fields(2) = Val(Trim(txt可借阅天数.Text))
        rs.Fields(3) = Val(Trim(txt可续借次数.Text))
        rs.Fields(4) = Val(Trim(txt逾期后缓冲天数.Text))
        rs.Fields(5) = Format(Val(Trim(txt罚款金额.Text)), "0.00")
        rs.Update
       MsgBox txt读者类别.Text & "读者类别信息修改成功！", vbOKOnly
       Call readerstyle_update(Trim(txt读者类别.Text), False)
       Call cmdclean_Click
      End If

End Sub

Private Sub cmdclean_Click()
       cmdmodify.Enabled = False
       cmddel.Enabled = False
       cmdadd.Enabled = True
       txt读者类别.Enabled = True
       txt读者类别.Text = ""
       txt可借阅数量.Text = 0
       txt可借阅天数.Text = 0
       txt可续借次数.Text = 0
       txt逾期后缓冲天数.Text = 0
       txt罚款金额.Text = Format(Val(""), "0.00")
End Sub

Private Sub Form_Load()
Call fullpic(Me, Picbg1) '背景图
Me.Left = (frmmain.ScaleWidth - Me.Width) / 2
Me.Top = (frmmain.ScaleHeight - Me.Height) / 2

With readerstyleGrid
         .TextMatrix(0, 0) = "读者类别"
         .TextMatrix(0, 1) = "可借阅数量"
         .TextMatrix(0, 2) = "可借阅天数"
         .TextMatrix(0, 3) = "可续借次数"
         .TextMatrix(0, 4) = "逾期后缓冲天数"
         .TextMatrix(0, 5) = "逾期后每天罚款金额"
         .ColWidth(0) = 1000
         .ColWidth(1) = 1000
         .ColWidth(2) = 1000
         .ColWidth(3) = 1000
         .ColWidth(4) = 1400
         .ColWidth(5) = 1700
End With

Call readerstyle
End Sub

Private Sub readerstyleGrid_Click()
txt读者类别.Enabled = False
With readerstyleGrid
        txt读者类别 = .TextMatrix(.Row, 0)
        txt可借阅数量 = .TextMatrix(.Row, 1)
        txt可借阅天数 = .TextMatrix(.Row, 2)
        txt可续借次数 = .TextMatrix(.Row, 3)
        txt逾期后缓冲天数 = .TextMatrix(.Row, 4)
        txt罚款金额 = Format(Val(.TextMatrix(.Row, 5)), "0.00")
End With

cmdmodify.Enabled = True
cmddel.Enabled = True
cmdadd.Enabled = False
'txt类别编号 = bookstyleGrid.TextMatrix(bookstyleGrid.Row, 0)
'txt类别名称 = bookstyleGrid.TextMatrix(bookstyleGrid.Row, 1)
'cmdmodify.Enabled = True

End Sub

Private Sub txt罚款金额_Change()

If Not IsNumeric(txt罚款金额.Text) And txt罚款金额.Text <> "" Then
    MsgBox "只能输入数值", vbCritical + vbOKOnly, "错误"
    txt罚款金额.Text = Format(Val(""), "0.00")
ElseIf Val(txt罚款金额.Text) < 0 Then
    MsgBox "该数值不能小于0", vbCritical + vbOKOnly, "错误"
    txt罚款金额.Text = Format(Val(""), "0.00")
End If

End Sub

Private Sub txt可借阅数量_Change()

If Not IsNumeric(txt可借阅数量.Text) And txt可借阅数量.Text <> "" Then
    MsgBox "只能输入数值", vbCritical + vbOKOnly, "错误"
    txt可借阅数量.Text = 0
ElseIf Val(txt可借阅数量.Text) < 0 Then
     MsgBox "该数值不能小于0", vbCritical + vbOKOnly, "错误"
     txt可借阅数量.Text = 0
End If

End Sub

Private Sub txt可借阅天数_Change()

If Not IsNumeric(txt可借阅天数.Text) And txt可借阅天数.Text <> "" Then
    MsgBox "只能输入数值", vbCritical + vbOKOnly, "错误"
    txt可借阅天数.Text = 0
ElseIf Val(txt可借阅天数.Text) < 0 Then
     MsgBox "该数值不能小于0", vbCritical + vbOKOnly, "错误"
     txt可借阅天数.Text = 0
End If

End Sub

Private Sub txt可续借次数_Change()

If Not IsNumeric(txt可续借次数.Text) And txt可续借次数.Text <> "" Then
    MsgBox "只能输入数值", vbCritical + vbOKOnly, "错误"
    txt可续借次数.Text = 0
ElseIf Val(txt可续借次数.Text) < 0 Then
     MsgBox "该数值不能小于0", vbCritical + vbOKOnly, "错误"
     txt可续借次数.Text = 0
End If

End Sub

Private Sub txt逾期后缓冲天数_Change()

If Not IsNumeric(txt逾期后缓冲天数.Text) And txt逾期后缓冲天数.Text <> "" Then
    MsgBox "只能输入数值", vbCritical + vbOKOnly, "错误"
    txt逾期后缓冲天数.Text = 0
ElseIf Val(txt逾期后缓冲天数.Text) < 0 Then
     MsgBox "该数值不能小于0", vbCritical + vbOKOnly, "错误"
     txt逾期后缓冲天数.Text = 0
End If

End Sub