frmadduser.frm

一个简单但功能强大的进货系统,同样适合用于毕业论文的设计

            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "雇用日期"
            Caption         =   "雇用日期"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
               ColumnAllowSizing=   0   'False
               ColumnWidth     =   794.835
            EndProperty
            BeginProperty Column01 
               ColumnAllowSizing=   0   'False
               ColumnWidth     =   1005.165
            EndProperty
            BeginProperty Column02 
               ColumnAllowSizing=   0   'False
               ColumnWidth     =   794.835
            EndProperty
            BeginProperty Column03 
               ColumnAllowSizing=   0   'False
               ColumnWidth     =   450.142
            EndProperty
            BeginProperty Column04 
               ColumnAllowSizing=   0   'False
            EndProperty
         EndProperty
      End
   End
End
Attribute VB_Name = "frmAddUser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rsAddUser As ADODB.Recordset
Dim strMaxNum As String
Dim psw As String
Dim AddOrEdit As Boolean


'Dim blnIsSQL As Boolean

Private Sub CmdAct_Click(Index As Integer)
    Dim blnIsTrue As Boolean
    With rsAddUser
        Select Case Index
            Case 0
                    blnIsTrue = Save()
                    If Not blnIsTrue Then
                        Exit Sub
                    End If
                    .UpdateBatch
                    If .RecordCount <> 0 Then
                        .MoveLast
                    End If
            Case 1
                .CancelUpdate
                If .RecordCount <> 0 Then
                    .MoveFirst
                End If
        End Select
    End With
    Call IsEdit(False)
    Me.DataGrid.Refresh
    

End Sub

Private Sub CmdDep_Click(Index As Integer)

    Dim intNum As Integer
    
    Select Case Index
        Case 0          '增加模式
            AddOrEdit = True
            Call AddNew
        Case 1          '编辑模式
            AddOrEdit = False
            Call IsEdit(True)
            Me.txtname.SetFocus
        Case 2          '查询模式
        
        Case 3          '删除模式
            intNum = MsgBox("确认删除当前记录吗?", vbYesNo + vbQuestion, "删除确认")
            If intNum = vbYes Then
                With rsAddUser
                    .Delete
                    .UpdateBatch
                    If .RecordCount <> 0 Then
                        .MoveFirst
                    Else
                        For intNum = 1 To 4
                            Me.CmdDep(intNum).Enabled = False
                        Next
                    End If
                End With
            End If
        Case 4          '列表
           
        Case 5
            Unload Me
    End Select
        
            
            
        
        
    
End Sub



Private Sub Form_KeyPress(KeyAscii As Integer)

    EnterToTab KeyAscii

End Sub

Private Sub Form_Load()


'    Dim SQL As String
    'Set rs = New Recordset
'
'    rs.CursorLocation = adUseClient
'
'    SQL = "select * from 雇员表"
'    Set rs = ExecuteSQL(SQL)

    
    
    Set rsAddUser = DEaccp.rsComAddUser

    Call Display
    
    Call IsEdit(False)
    
End Sub

Private Sub IsEdit(blnIsEdit As Boolean)
    
    Dim intNum As Integer

    'Me.TxtID.Enabled = blnIsEdit
    Me.txtname.Enabled = blnIsEdit
 
    Me.Txtpsw.Enabled = blnIsEdit

    Me.TxtPhone.Enabled = blnIsEdit
    Me.Txtadd.Enabled = blnIsEdit
    Me.DCPost.Enabled = blnIsEdit
    Me.CbSex.Enabled = blnIsEdit
    Me.Data.Enabled = blnIsEdit
   'Me.DataGrid.Enabled = Not blnIsEdit
    For intNum = 0 To 1
        Me.CmdAct(intNum).Enabled = blnIsEdit
    Next
'    If blnIsSQL = True Then
'        CmdDep(0).Enabled = False
'        CmdDep(3).Enabled = False
'    End If
    For intNum = 0 To 5
        Me.CmdDep(intNum).Enabled = Not blnIsEdit
    Next
    
    If rsAddUser.RecordCount = 0 Then
        For intNum = 1 To 4
            Me.CmdDep(intNum).Enabled = False
        Next
    End If
    
End Sub



Private Sub AddNew()
    
    With rsAddUser
        If .RecordCount = 0 Then
            strMaxNum = 0
        Else
            .MoveLast
            strMaxNum = rsAddUser!雇员编号
        End If
        .AddNew "雇员编号", Format(CLng(strMaxNum) + 1, "0####")
        Call IsEdit(True)
        Me.txtname.SetFocus
        Call DClist
    End With
    
    
    
End Sub

Private Sub Display()

    With Me.TxtId
        Set .DataSource = rsAddUser
        .DataField = "雇员编号"
    End With
    
    With Me.txtname
        Set .DataSource = rsAddUser
        .DataField = "雇员名"
    End With
    
    With Me.Txtpsw
        Set .DataSource = rsAddUser
        .DataField = "密码"
    End With

    
    With Me.TxtPhone
        Set .DataSource = rsAddUser
        .DataField = "电话"
    End With
        
    With Me.Txtadd
        Set .DataSource = rsAddUser
        .DataField = "地址"
    End With
    
    
'    With Me.Data
'        Set .DataSource = rsAddUser
'        .DataField = "雇用日期"
'    End With
    

End Sub

Private Sub DClist()
    
    If AddOrEdit Then
        Me.Data = Date
    Else
        Me.Data = rsAddUser!雇用日期
    End If
    
End Sub


Private Function Save() As Boolean
    
    If Trim(Me.txtname.Text) = "" Then
        MsgBox "雇员名称不能为空!", vbOKOnly + vbCritical, "添加雇员错误"
        Me.txtname.SetFocus
        Save = False
        Exit Function
    End If
    
    If Trim(Me.Txtpsw.Text) = "" Then
        MsgBox "密码不能为空!", vbOKOnly + vbCritical, "添加雇员错误"
        Me.Txtpsw.SetFocus
        Save = False
        Exit Function
    End If
    
    If Me.DCPost.Text = "" Then
        MsgBox "请选择职位!", vbOKOnly + vbCritical, "添加雇员错误"
        Me.DCPost.SetFocus
        Save = False
        Exit Function
    End If
    
    If Me.CbSex.Text = "" Then
        MsgBox "请选择性别!", vbOKOnly + vbCritical, "添加雇员错误"
        Me.CbSex.SetFocus
        Save = False
        Exit Function
    End If


    
    Dim SQLName As String
    Dim rsName As ADODB.Recordset
    SQLName = "select * from 雇员表 where 雇员名='" & Me.txtname.Text & "'"
    Set rsName = New Recordset
    Set rsName = ExecuteSQL(SQLName)
    If AddOrEdit Then
        If Not rsName.EOF Then
            MsgBox "雇员名称重复!请重新输入新的雇员名称!", vbOKOnly + vbCritical, "添加雇员错误"
            SendKeys "{home}+{end}"
            Me.txtname.SetFocus
            Exit Function
            Save = False
        End If
    End If
    
    If Me.Data > Date Then
        MsgBox "雇用日期不能大于今天的日期!", vbOKOnly + vbCritical, "添加雇员错误"
        Me.Data.SetFocus
        Me.Data = Date
        Exit Function
        Save = False
    End If
    
    
    Save = True
    
rsName.Close
Set rsName = Nothing
    
End Function

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If CmdDep(5).Enabled = False Then
        MsgBox "请先退出编辑状态后再退出该程序!", , "提示"
        Cancel = True
    End If
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    
    rsAddUser.Close
    Set rsAddUser = Nothing
    
End Sub