frmsystemoperatorinf.frm

企业ERP系统 采用VB+SQL2000实现。 有客户合约

         End
         Begin VB.Label Label3 
            Caption         =   "创建日期"
            Height          =   255
            Index           =   0
            Left            =   510
            TabIndex        =   22
            Top             =   5400
            Width           =   855
         End
         Begin VB.Label Label2 
            Caption         =   "创建人"
            Height          =   255
            Index           =   0
            Left            =   510
            TabIndex        =   21
            Top             =   4980
            Width           =   855
         End
         Begin VB.Label Label8 
            Caption         =   "入职时间"
            Height          =   255
            Left            =   510
            TabIndex        =   20
            Top             =   3270
            Width           =   735
         End
         Begin VB.Label Label9 
            Caption         =   "离职时间"
            Height          =   255
            Left            =   2430
            TabIndex        =   19
            Top             =   3720
            Width           =   735
         End
      End
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "关闭 &C"
      Height          =   315
      Left            =   3060
      TabIndex        =   1
      Top             =   6480
      Width           =   975
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "确定 &Y"
      Height          =   315
      Left            =   1620
      TabIndex        =   0
      Top             =   6480
      Width           =   975
   End
End
Attribute VB_Name = "frmSystemOperatorInf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public newItem As Boolean 'true表示增加

Public Sub cbbCompany_Click()
    Initcbb cbbDept, "dept", "tdeptinfo where companyname=" & objDatabase.FormatSQL(cbbCompany.Text)
End Sub

Private Sub chkIsEnd_Click()
    If chkIsEnd.Value = 1 Then
        chkRole.Value = 1
    End If
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    ''检查是否有相同编号
    Save newItem
End Sub

Private Sub Form_Load()
    '设置窗口大小
    FormInit Me, False
End Sub

'初始化
Public Sub InitInfo(userID As String)
    '初始化公司内容
Initcbb cbbCompany, "companyname", "tcompanyinfo"


If newItem = False Then
    Dim rs As ADODB.Recordset

      SystemExecuteStart Me
     ' On Error GoTo errLabel
      Set rs = New ADODB.Recordset
      With rs
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        Set .ActiveConnection = cn
      End With
      Dim strSql As String
      strSql = "select * from tOperatorInfo where OperatorNo=" & objDatabase.FormatSQL(userID)
      rs.Open strSql
        If Not rs.EOF Then
            txtOperatorNo.Text = rs.Fields!OperatorNo
            txtOperatorNo.Locked = True
            txtOperator.Text = rs.Fields!Operator
            cbbCompany.Text = rs.Fields!Company
                '选择部门
                cbbCompany_Click
            cbbDept.Text = NullValue(rs.Fields!Dept)
            cbbDuty.Text = NullValue(rs.Fields!Duty)
            txtPass.Text = NullValue(rs.Fields!pass)
            txtPassrepeat.Text = rs.Fields!pass
            chkIsOperation.Value = NullValue(rs.Fields!IsOperation)
            DTJoinDate.Value = IIf(IsNull(rs.Fields!JoinDate), "1990-1-1", rs.Fields!JoinDate)
            If rs.Fields!IsEnd = True Then
                chkIsEnd.Value = 1
                DTEndDate.Value = rs.Fields!EndDate
            End If
            chkRole.Value = IIf(rs.Fields!Role = True, 1, 0)
            txtCreateOperator.Text = NullValue(rs.Fields!createOperator)
            txtCreateDate.Text = NullValue(rs.Fields!CreateDate)
        End If
      rs.Close
      Set rs = Nothing
      SystemExecuteEnd Me
Else
    txtCreateOperator.Text = userInf.userName
    txtCreateDate.Text = Now
End If
Exit Sub
errLabel:
    SystemExecuteEnd Me
    objDatabase.DatabaseError
End Sub
Private Sub Save(Optional blModi As Boolean)
    Dim strSql As String
    Dim rs As ADODB.Recordset
    
    strSql = "select * from tOperatorInfo where OperatorNo='" & Trim$(txtOperatorNo.Text) & "'"
    On Error GoTo errHandle
    Set rs = New ADODB.Recordset
    With rs
      .CursorLocation = adUseClient
      .CursorType = adOpenDynamic
      .LockType = adLockOptimistic
      Set .ActiveConnection = cn
    End With
    rs.Open strSql
    If txtOperatorNo.Text = "" Then
        MsgBox "登录名不能为空！", vbCritical, "提示"
        rs.Close
        Set rs = Nothing
        txtOperatorNo.SetFocus
        Exit Sub
    End If
    If blModi Then
        If Not rs.EOF Then
            MsgBox "登录名不唯一，请重新输入！", vbCritical, "提示"
            txtOperatorNo.Text = ""
            txtOperatorNo.SetFocus
            rs.Close
            Set rs = Nothing
            Exit Sub
        End If
        If Not txtPassrepeat.Text = txtPass.Text Then
            MsgBox "两次输入的密码不相同，请重新输入！", vbExclamation, "提示"
            rs.Close
            Set rs = Nothing
            txtPassrepeat.SetFocus
            Exit Sub
        End If
        If MsgBox("是否增加操作员？", vbQuestion + vbYesNo, "询问") = vbNo Then
            rs.Close
            Set rs = Nothing
            Exit Sub
        End If
                
        rs.AddNew '新建
        rs.Fields!OperatorNo = Trim$(txtOperatorNo.Text)
        rs.Fields!Operator = Trim$(txtOperator.Text)
        rs.Fields!Company = Trim$(cbbCompany.Text)
        rs.Fields!Dept = Trim$(cbbDept.Text)
        rs.Fields!Duty = Trim$(cbbDuty.Text)
        rs.Fields!IsOperation = chkIsOperation.Value
        rs.Fields!pass = Trim$(txtPass.Text)
        rs.Fields!Role = chkRole.Value
        rs.Fields!JoinDate = DTJoinDate.Value
        rs.Fields!IsEnd = chkIsEnd.Value
        If chkIsEnd.Value = 1 Then
            
            rs.Fields!EndDate = DTEndDate.Value
        End If
        rs.Fields!createOperator = txtCreateOperator.Text
        rs.Fields!CreateDate = Now
        rs.Update
        MsgBox "新建成功！", vbInformation, "恭喜'"
    Else
        If rs.EOF Then '修改
            MsgBox "没有可修改的记录，请输入正确的编号!", vbExclamation, "修改"
            rs.Close
            Set rs = Nothing
            txtOperatorNo.SetFocus
            Exit Sub
        End If
        If MsgBox("是否修改记录？", vbYesNo + vbQuestion, "修改") = vbNo Then
            rs.Close
            Set rs = Nothing
            Exit Sub
        End If
        rs.Fields!Operator = Trim$(txtOperator.Text)
        rs.Fields!Company = Trim$(cbbCompany.Text)
        rs.Fields!Dept = Trim$(cbbDept.Text)
        rs.Fields!Duty = Trim$(cbbDuty.Text)
        rs.Fields!IsOperation = chkIsOperation.Value
        rs.Fields!pass = Trim$(txtPass.Text)
        rs.Fields!IsEnd = chkIsEnd.Value
        If chkIsEnd.Value = 1 Then
            rs.Fields!EndDate = DTEndDate.Value
        End If
        rs.Fields!Role = chkRole.Value
        rs.Fields!JoinDate = DTJoinDate.Value
        rs.Update
        MsgBox "修改成功！", vbInformation, "恭喜"
    End If
    rs.Close
    Set rs = Nothing

    frmSystemOperator.ReadOperatorInf
    Unload Me
    Exit Sub
    
errHandle:
    Set rs = Nothing
    objDatabase.DatabaseError
End Sub