Width           =   900
      End
      Begin VB.Label LblLable 
         AutoSize        =   -1  'True
         Caption         =   "評(píng)價(jià)日期："
         Height          =   180
         Index           =   3
         Left            =   3600
         TabIndex        =   15
         Top             =   720
         Width           =   900
      End
      Begin VB.Label LblLable 
         AutoSize        =   -1  'True
         Caption         =   "所在部門(mén)："
         Height          =   180
         Index           =   2
         Left            =   240
         TabIndex        =   14
         Top             =   720
         Width           =   900
      End
      Begin VB.Label LblLable 
         AutoSize        =   -1  'True
         Caption         =   "員工姓名："
         Height          =   180
         Index           =   1
         Left            =   3600
         TabIndex        =   13
         Top             =   315
         Width           =   900
      End
      Begin VB.Label LblLable 
         AutoSize        =   -1  'True
         Caption         =   "員工編號(hào)："
         Height          =   180
         Index           =   0
         Left            =   240
         TabIndex        =   12
         Top             =   315
         Width           =   900
      End
   End
   Begin WinXPC_Engine.WindowsXPC WinXPWorkComment 
      Left            =   1800
      Top             =   480
      _ExtentX        =   6588
      _ExtentY        =   1085
      ColorScheme     =   2
      Common_Dialog   =   0   'False
   End
   Begin VB.CommandButton CmdSave 
      Caption         =   "保存(&S)"
      Height          =   375
      Left            =   4440
      TabIndex        =   28
      Top             =   4920
      Visible         =   0   'False
      Width           =   1215
   End
End
Attribute VB_Name = "FrmWorkComment"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
'Download by http://www.codefans.net
Attribute VB_Exposed = False
Private Sub CmbCode_Change()
If RstWorkRecord.State = adStateOpen Then
RstWorkRecord.Close              '//關(guān)閉記錄集
End If
RstWorkRecord.Open "select *from 員工檔案 where 員工編號(hào)='" & CmbCode.Text & "' ", DBCON, adOpenKeyset, adLockOptimistic, adCmdText
    TxtName.Text = RstWorkRecord.Fields(1).Value     '//給文本框賦值
    TxtBranch.Text = RstWorkRecord.Fields(16).Value
End Sub
Private Sub CmdRetrun_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Left = Frmmdimain.Width / 5
Me.Top = 200

WinXPWorkComment.InitSubClassing
If RsWorkRecord.State = adStateOpen Then
    RsWorkRecord.Close
End If
RsWorkRecord.Open "員工評(píng)價(jià)", DBCON, adOpenKeyset, adLockOptimistic, adCmdTable

If RsWorkRecord.RecordCount > 0 Then
Call FormTxtValue1
Else
Call FormTxtValue2
End If
End Sub
Private Sub CmdAdd_Click()
RsWorkRecord.AddNew     '//在記錄集中添加一條新記錄
Call FormTxtValue2  '//調(diào)用給文本框賦空值的過(guò)程
Call TxtState       '//調(diào)用啟用文本框的Enabled屬性過(guò)程
Call CmdState1      '//調(diào)用命令按鈕Visible屬性為隱藏的過(guò)程

If RstWorkCode.State = adStateClosed Then
    RstWorkCode.Open "員工檔案", DBCON, adOpenKeyset, adLockPessimistic, adCmdTable
End If
Set CmbCode.RowSource = RstWorkCode
CmbCode.BoundColumn = "員工編號(hào)"
CmbCode.ListField = "員工編號(hào)"
End Sub

Private Sub CmdDel_Click()
If MsgBox("確定要?jiǎng)h除嗎？", vbInformation + vbYesNo, "刪除信息") = vbYes Then
    If RsWorkRecord.RecordCount <> 0 Then
        RsWorkRecord.Delete         '//刪除記錄
        Call CmdMove_Click
    Else
        MsgBox "當(dāng)前沒(méi)有任何記錄", , "刪除記錄"
        Call FormTxtValue2      '//調(diào)用給文本框賦空值的過(guò)程
    End If
End If
End Sub

Private Sub CmdEdit_Click()
Call CmdState1                  '//調(diào)用命令按鈕Visible屬性為隱藏的過(guò)程
Call TxtState                   '//調(diào)用啟用文本框的Enabled屬性過(guò)程
End Sub

Private Sub CmdMove_Click()
If RsWorkRecord.RecordCount <> 0 Then
    RsWorkRecord.MoveNext           '//記錄向下移一條
    If RsWorkRecord.EOF Then
        RsWorkRecord.MoveFirst      '//將記錄移到第一行
    End If
    Call FormTxtValue1          '//調(diào)用將記錄數(shù)據(jù)賦給文本框的過(guò)程
Else
MsgBox "當(dāng)前沒(méi)有任何記錄", , "移動(dòng)記錄"
End If
End Sub


Private Sub CmdSave_Click()
Dim StrSQL As String
'StrSQL = "select 員工編號(hào) from 員工檔案 where 員工編號(hào)='" & Trim(TxtCode.Text) & "'"
If Trim(CmbCode.Text) <> Empty Then
    Call UpRsValue          '//調(diào)用更新記錄集的過(guò)程
'On Error GoTo ErrSave
        RsWorkRecord.Update         '//更新記錄
        Call CmdMove_Click
        MsgBox "數(shù)據(jù)已保存", , "保存成功"
        Call CmdState2
        Call TxtState1
Else
MsgBox "員工編號(hào)不能為空", , "驗(yàn)證失敗"
CmbCode.SetFocus
End If
'Exit Sub
'ErrSave:
'    Select Case Err.Number
'        Case -2147217887
'            MsgBox "性別、婚姻狀況、部門(mén)、職稱(chēng)其中有未選項(xiàng)！", vbInformation + vbOKOnly, "輸入錯(cuò)誤"
'            RsRecord.CancelUpdate
'        Case Else
'        MsgBox "錯(cuò)誤描述：" & Err.Description & vbCrLf & "錯(cuò)誤代碼：" & Err.Number, vbCritical + vbOKOnly, "非法操作"
'        Unload Me
'    End Select
End Sub
Private Sub FormTxtValue1()
CmbCode.Text = RsWorkRecord.Fields(0).Value
TxtName.Text = RsWorkRecord.Fields(1).Value
TxtBranch.Text = RsWorkRecord.Fields(2).Value
DTPDate.Value = RsWorkRecord.Fields(3).Value
TxtWork.Text = RsWorkRecord.Fields(4).Value
TxtWorkremark.Text = RsWorkRecord.Fields(5).Value
TxtMien.Text = RsWorkRecord.Fields(6).Value
TxtMienremark.Text = RsWorkRecord.Fields(7).Value
TxtLevel.Text = RsWorkRecord.Fields(8).Value
TxtLevelremark.Text = RsWorkRecord.Fields(9).Value
TxtBeiZhu.Text = RsWorkRecord.Fields(10).Value
End Sub
Private Sub FormTxtValue2()
CmbCode.Text = Empty
TxtName.Text = Empty
TxtBranch.Text = Empty
DTPDate.Value = Date
TxtWork.Text = Empty
TxtWorkremark.Text = Empty
TxtMien.Text = Empty
TxtMienremark.Text = Empty
TxtLevel.Text = Empty
TxtLevelremark.Text = Empty
TxtBeiZhu.Text = Empty
End Sub
Private Sub TxtState()
CmbCode.Enabled = True
'TxtName.Enabled = True
'TxtBranch.Enabled = True
DTPDate.Enabled = True
TxtWork.Enabled = True
TxtWorkremark.Enabled = True
TxtMien.Enabled = True
TxtMienremark.Enabled = True
TxtLevel.Enabled = True
TxtLevelremark.Enabled = True
TxtBeiZhu.Enabled = True
End Sub
Private Sub TxtState1()
CmbCode.Enabled = False
'TxtName.Enabled = False
'TxtBranch.Enabled = False
DTPDate.Enabled = False
TxtWork.Enabled = False
TxtWorkremark.Enabled = False
TxtMien.Enabled = False
TxtMienremark.Enabled = False
TxtLevel.Enabled = False
TxtLevelremark.Enabled = False
TxtBeiZhu.Enabled = False
End Sub
Private Sub CmdState1()
CmdAdd.Visible = False
CmdEdit.Visible = False
CmdDel.Visible = False
CmdMove.Visible = False
CmdSave.Visible = True
CmdRetrun.Enabled = False
End Sub
Private Sub CmdState2()
CmdAdd.Visible = True
CmdEdit.Visible = True
CmdDel.Visible = True
CmdMove.Visible = True
CmdSave.Visible = False
CmdRetrun.Enabled = True
End Sub
Private Sub UpRsValue()
RsWorkRecord.Fields(0).Value = CmbCode.Text
RsWorkRecord.Fields(1).Value = TxtName.Text
RsWorkRecord.Fields(2).Value = TxtBranch.Text
RsWorkRecord.Fields(3).Value = DTPDate.Value
RsWorkRecord.Fields(4).Value = TxtWork.Text
RsWorkRecord.Fields(5).Value = TxtWorkremark.Text
RsWorkRecord.Fields(6).Value = TxtMien.Text
RsWorkRecord.Fields(7).Value = TxtMienremark.Text
RsWorkRecord.Fields(8).Value = TxtLevel.Text
RsWorkRecord.Fields(9).Value = TxtLevelremark.Text
RsWorkRecord.Fields(10).Value = TxtBeiZhu.Text
End Sub