frmpset.frm

超市的管理系统

End
Attribute VB_Name = "FrmPSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim flag As Boolean             '声明标识量，以选择更新按钮是实现更新添加功能还是更新修改功能
Dim rct As New ADODB.Recordset



Private Sub CmdAdd_Click()
    
    TxtID.Enabled = True                             ' 添加记录时，员工编号文本框可用
    
    TxtID.Text = ""
        
    TxtName.Text = ""
        
    Txtpwd.Text = ""
 
    flag = True                                      '点击添加按钮时，更新按钮为更新添加功能

    TxtID.SetFocus
    
    CmdFirst.Enabled = False                         '执行添加功能时，将一些按钮设置为不可用，以增强系统稳定性
    
    CmdPrev.Enabled = False
    
    CmdNext.Enabled = False
    
    CmdLast.Enabled = False
    
    CmdDel.Enabled = False

End Sub

Private Sub CmdDel_Click()

    Dim str As String
    
    str = " delete from employee where employeeid = "
    
    str = str & "'" & Trim(TxtID.Text) & "'"
    
    If MsgBox("确认要删除吗？", vbQuestion + vbYesNo, "删除警告！") = vbYes Then
    
        QueryXFInfo (str)
         
        MsgBox "该记录已被删除！！", vbInformation + vbOKOnly, "删除确认！"
            
        Call Form_Load                                        '执行完删除功能后，再次载入该窗体，相当于刷新功能
         
    End If
         
End Sub

Private Sub CmdExit_Click()

    rct.Close

    Unload Me

End Sub

        
Private Sub CmdFirst_Click()

    rct.MoveFirst
    
    Call view

End Sub

Private Sub CmdLast_Click()

    rct.MoveLast
    
    Call view

End Sub

Private Sub CmdNext_Click()

    rct.MoveNext
    
    If rct.EOF = True Then
    
        rct.MoveLast
        
    Else
    
        Call view
        
    End If

End Sub

Private Sub CmdPrev_Click()

    rct.MovePrevious
    
    If rct.BOF = True Then

        rct.MoveFirst
    
    Else
    
       Call view
        
    End If

End Sub

Private Sub CmdRnew_Click()

    CmdFirst.Enabled = True                                       '更新添加后，恢复按钮的可用性
    
    CmdPrev.Enabled = True
    
    CmdNext.Enabled = True
    
    CmdLast.Enabled = True
    
    CmdDel.Enabled = True
    
    Dim str As String
    

    If TxtID.Text = "" Or TxtName.Text = "" Or Txtpwd.Text = "" Or CmbGad.Text = "" Then
    
        MsgBox "数据不完整，无法保存！", vbInformation + vbOKOnly, "保存失败！"
        
        Exit Sub
        
    Else

        '实现添加一条记录到员工表的的功能

        If flag = True Then
    
            str = "insert into employee (employeeid,employeename,password,popedomgrade) values ( "
            
            str = str & "'" & Trim(TxtID.Text) & "',"
            
            str = str & "'" & Trim(TxtName.Text) & "',"
            
            str = str & "'" & Trim(Txtpwd.Text) & "',"
            
            str = str & "'" & Trim(CmbGad.Text) & "')"
                    
            QueryXFInfo (str)
            
            MsgBox "已成功向数据库添加一条记录！", vbInformation + vbOKOnly, "保存成功！"
                
            flag = False
                
            TxtID.Enabled = False
                
            Call Form_Load
                
            Exit Sub
            
            
        '实现修改员工表中一条记录的功能
            
        Else
        
            str1 = " update employee set "
            
            str = str1 & "employeename= " & "'" & Trim(TxtName.Text) & "'" & "where employeeid=" & "'" & Trim(TxtID.Text) & "'"
            
            str = str & str1 & "password=" & "'" & Trim(Txtpwd.Text) & "'" & "where employeeid=" & "'" & Trim(TxtID.Text) & "'"
            
            str = str & str1 & "popedomgrade=" & "'" & Trim(CmbGad.Text) & "'" & "where employeeid=" & "'" & Trim(TxtID.Text) & "'"
            
            QueryXFInfo (str)
            
            MsgBox "已成功向数据库更新一条记录！", vbInformation + vbOKOnly, "保存成功！"
                
            Call Form_Load
                
            Exit Sub
                
           
            
        End If
        
    End If
    
End Sub

Private Sub Form_Load()

    Dim str As String
    
    TxtID.Enabled = False                                        '员工工号不能修改，只有在添加员工的情况下，员工的工号才可以输入
    
    flag = False                                                 '该窗体载入时，默认更新按钮为更新修改功能
        
    str = "select * from employee "
    
    Set rct = QueryXFInfo(str)
    
    rct.MoveFirst
    
    Do While Not rct.EOF

        If Trim(rct.Fields.Item(1).Value) = strName Then
        
            If rct.Fields.Item(3).Value = "User" Then            '实现普通用户只能修改自己的登录名称和密码的功能
                
                Call view
                
                CmdAdd.Enabled = False
                
                CmdDel.Enabled = False
                
                CmdFirst.Enabled = False
                
                CmdLast.Enabled = False
                
                CmdNext.Enabled = False
                
                CmdPrev.Enabled = False
                
                CmbGad.Enabled = False
                
                Exit Sub

            Else
            
                rct.MoveFirst
    
                Call view
                
                Exit Sub
                
            End If
            
        Else
        
            rct.MoveNext
                
        End If
        
    Loop

End Sub

'显示记录集中当前记录中各字段的值到相应文本框中

Sub view()

    TxtID.Text = rct.Fields.Item(0).Value
        
    TxtName.Text = rct.Fields.Item(1).Value
        
    Txtpwd.Text = rct.Fields.Item(2).Value
    
    CmbGad.Text = rct.Fields.Item(3).Value

    
End Sub


Private Sub TxtID_Change()

    If TxtID.Enabled = True And IsNumber(TxtID.Text) <> True Then

        MsgBox "该文本框只能输入数字！", vbInformation + vbOKOnly, "错误提示！"
        
        TxtID.Text = ""

        TxtID.SetFocus

    End If

End Sub

Private Sub TxtNAME_Change()

    If IsChar(TxtName.Text) <> True Then
    
        MsgBox "该符号不允许被输入！", vbInformation + vbOKOnly, "错误提示！"
        
        TxtName.Text = ""
        
        TxtName.SetFocus
        
    End If

End Sub