frmsettype.frm

VB编制的图书管理系统,希望可给朋友们带来帮助.

      Caption         =   "Label8"
      Height          =   735
      Left            =   3540
      TabIndex        =   18
      Top             =   1500
      Width           =   975
   End
   Begin VB.Label Label7 
      BackColor       =   &H00808080&
      Caption         =   "Label7"
      Height          =   735
      Left            =   3540
      TabIndex        =   17
      Top             =   540
      Width           =   975
   End
End
Attribute VB_Name = "frmSetType"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
      
Private Sub cmdAdd_Click()
    Frame2.Visible = True
    cmdDel.Enabled = False
    cmdUpd.Enabled = False
    cmdAdd.Enabled = False
    txtType.Text = ""
    txtNum.Text = ""
    Frame2.Refresh
    Frame2.Caption = "添加状态"
    cmdBack.Enabled = True
End Sub

Private Sub cmdAdd_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseDown(cmdAdd)
End Sub

Private Sub cmdAdd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cmdAdd.BackColor = &H8000000D
End Sub

Private Sub cmdAdd_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseUp(cmdAdd)
End Sub

Private Sub cmdBack_Click()
    cmdAdd.Enabled = True
    cmdDel.Enabled = True
    cmdUpd.Enabled = True
    Frame2.Visible = False
    cmdBack.Enabled = False
    
    Call Form_Activate
End Sub

Private Sub cmdBack_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseDown(cmdBack)
End Sub

Private Sub cmdBack_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cmdBack.BackColor = &H8000000D
End Sub

Private Sub cmdBack_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseUp(cmdBack)
End Sub

Private Sub cmdCan_Click()
    Call cmdBack_Click
End Sub

Private Sub cmdCan_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseDown(cmdCan)
End Sub

Private Sub cmdCan_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cmdCan.BackColor = &H8000000D
End Sub

Private Sub cmdCan_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseUp(cmdCan)
End Sub

Private Sub cmdDel_Click()

    If MsgBox("是否要删除?", vbQuestion + vbYesNo) = vbYes Then
        strSQL = "Delete From 书籍类别 "
        strSQL = strSQL + "Where 书籍类别='" + lvST.SelectedItem.Text + "'"
        ADOcn.Execute strSQL
        MsgBox "删除成功", vbQuestion + vbOKOnly
    End If
    
    Call Form_Activate
End Sub

Private Sub cmdDel_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseDown(cmdDel)
End Sub

Private Sub cmdDel_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cmdDel.BackColor = &H8000000D
End Sub

Private Sub cmdDel_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseUp(cmdDel)
End Sub

Private Sub cmdEnter_Click()
    Dim strSQL As String
    
    If Frame2.Caption = "添加状态" Then

        Call mbdOpen("书籍类别", "书籍类别", txtType.Text)
        If mbdGet("书籍类别") <> "" Then MsgBox "已有相同的类别名称或类别编号", vbCritical + vbOKOnly: Exit Sub
        Call mbdClose
        
        Call mbdOpen("书籍类别", "类别编号", txtNum.Text)
        If mbdGet("类别编号") <> "" Then MsgBox "已有相同的类别名称或类别编号", vbCritical + vbOKOnly: Exit Sub
        Call mbdClose
        
        
        strSQL = "Insert Into 书籍类别(书籍类别,书籍总数,类别编号)"
        strSQL = strSQL + " values('" + txtType.Text + "','" + "0" + "','" + txtNum.Text + "')"
        ADOcn.Execute strSQL
        MsgBox "添加成功", vbQuestion + vbOKOnly
    Else
        strSQL = "Update 书籍类别 "
        strSQL = strSQL + "Set 书籍类别='" + txtType.Text + "',类别编号='" + txtNum.Text + "'"
        strSQL = strSQL + " Where 书籍类别='" + lvST.SelectedItem.Text + "'"
        ADOcn.Execute strSQL
        MsgBox "修改成功", vbQuestion + vbOKOnly
    End If
    
    Call cmdBack_Click
End Sub

Private Sub cmdEnter_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseDown(cmdEnter)
End Sub

Private Sub cmdEnter_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cmdEnter.BackColor = &H8000000D
End Sub

Private Sub cmdEnter_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseUp(cmdEnter)
End Sub

Private Sub cmdUpd_Click()
    Frame2.Visible = True
    cmdAdd.Enabled = False
    cmdDel.Enabled = False
    cmdUpd.Enabled = False
    
    If lvST.SelectedItem.Text = "" Then MsgBox "还没有选择要修改的类别名称", vbQuestion + vbOKOnly: Exit Sub
    txtType.Text = lvST.SelectedItem.Text
    
    Call mbdOpen("书籍类别", "书籍类别", lvST.SelectedItem.Text)
    txtNum.Text = mbdGet("类别编号")
    Call mbdClose
    
    Frame2.Refresh
    Frame2.Caption = "修改状态"
    cmdBack.Enabled = True
End Sub

Private Sub cmdUpd_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseDown(cmdUpd)
End Sub

Private Sub cmdUpd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cmdUpd.BackColor = &H8000000D
End Sub

Private Sub cmdUpd_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseUp(cmdUpd)
End Sub

Private Sub Form_Activate()
    Dim ADOrs As New Recordset
    ADOrs.ActiveConnection = ADOcn
    ADOrs.Open "Select * From 书籍类别 Order By 书籍类别"
    If ADOrs.RecordCount <> 0 Then
        DispId
    End If
    ADOrs.Close
End Sub

Private Sub Form_Load()
    
    
    Frame2.Visible = False
    lvST.ColumnHeaders.Add , , "类别名称"
    lvST.ColumnHeaders.Add , , "类别编号"
    cmdBack.Enabled = False

End Sub

Sub DispId()
    Dim ADOrs As New Recordset
    Dim i As Integer
    
    ADOrs.ActiveConnection = ADOcn
    ADOrs.CursorLocation = adUseClient
    ADOrs.CursorType = adOpenDynamic
    'ADOrs.CursorType = adOpenStatic
    ADOrs.LockType = adLockOptimistic
    ADOrs.Open "Select * From 书籍类别 Order By 书籍类别"
    

    lvST.ListItems.Clear
    ADOrs.MoveLast
    Rec = ADOrs.RecordCount
    ADOrs.MoveFirst
    For i = 1 To Rec
        lvST.ListItems.Add i, , ADOrs.Fields("书籍类别")
        With lvST.ListItems(i)
            .SubItems(1) = ADOrs.Fields("类别编号") & vbNullString
        End With
        ADOrs.MoveNext
        If ADOrs.EOF Then Exit For
    Next
    ADOrs.Close
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If cmdAdd.BackColor <> &H8000000F Or cmdDel.BackColor <> &H8000000F Or cmdUpd.BackColor <> &H8000000F Or cmdBack.BackColor <> &H8000000F Then
        cmdAdd.BackColor = &H8000000F
        cmdDel.BackColor = &H8000000F
        cmdUpd.BackColor = &H8000000F
        cmdBack.BackColor = &H8000000F
    End If
        
End Sub

Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If cmdEnter.BackColor <> &H8000000F Or cmdCan.BackColor <> &H8000000F Then
        cmdEnter.BackColor = &H8000000F
        cmdCan.BackColor = &H8000000F
    End If
End Sub