frmchangeman.frm

企业员工的管理

         DataField       =   "ChangeDate"
         Caption         =   "变动时间"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column05 
         DataField       =   "Reason"
         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 
            ColumnWidth     =   1289.764
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   1349.858
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   1395.213
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   1409.953
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   1349.858
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   4454.929
         EndProperty
      EndProperty
   End
   Begin VB.Label Label1 
      Caption         =   "工作ID"
      Height          =   255
      Left            =   3480
      TabIndex        =   7
      Top             =   120
      Width           =   735
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "选择类型"
      Height          =   180
      Left            =   360
      TabIndex        =   4
      Top             =   120
      Width           =   720
   End
End
Attribute VB_Name = "FrmChangeMan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'表示当前员工编号
Public OriStaffId As Integer
Public OriChangeId As Integer

Private Sub Refresh_Change()
    tmpWorkId = WorkIdText.Text
    Select Case ComboType.ListIndex
    Case 0  '职务变动
        If tmpWorkId <> "" Then
            Adodc1.RecordSource = "SELECT c.Change_Id , c.Staff_Id ,s.Staff_Name , c.Now_String , c.Pre_String," _
                        + "c.ChangeDate, c.Reason, c.Change_Type FROM Change c, Staff s WHERE c.Staff_Id = s.Staff_Id" _
                        + " And s.WorkID = " + Trim(tmpWorkId) + " And c.Change_Type = 1 "
        Else
            Adodc1.RecordSource = "SELECT c.Change_Id , c.Staff_Id ,s.Staff_Name , c.Now_String , c.Pre_String," _
                        + "c.ChangeDate, c.Reason, c.Change_Type FROM Change c, Staff s WHERE c.Staff_Id = s.Staff_Id" _
                        + " And c.Change_Type = 1 "
        End If
       
    Case 1  '部门变动
        If tmpWorkId <> "" Then
            Adodc1.RecordSource = "SELECT c.Change_Id , c.Staff_Id ,s.Staff_Name , d.Depart_Name As Now_String , e.Depart_Name As Pre_String," _
                        + "c.ChangeDate, c.Reason, c.Change_Type FROM Change c, Staff s ,Departs d, Departs e WHERE c.Staff_Id = s.Staff_Id" _
                        + " And s.WorkID =" + Trim(tmpWorkId) + " And c.Change_Type = 2 And d.Depart_Id =c.Now_String And e.Depart_Id =c.Pre_String "
        Else
            Adodc1.RecordSource = "SELECT c.Change_Id , c.Staff_Id ,s.Staff_Name , d.Depart_Name As Now_String , e.Depart_Name As Pre_String," _
                        + "c.ChangeDate, c.Reason, c.Change_Type FROM Change c, Staff s, Departs d, Departs e WHERE c.Staff_Id = s.Staff_Id" _
                        + " And c.Change_Type =2 And d.Depart_Id =c.Now_String And e.Depart_Id =c.Pre_String "
        End If
    Case 2
        If tmpWorkId <> "" Then
            Adodc1.RecordSource = "SELECT c.Change_Id , c.Staff_Id ,s.Staff_Name , c.Now_String , c.Pre_String," _
                        + "c.ChangeDate, c.Reason, c.Change_Type FROM Change c, Staff s WHERE c.Staff_Id = s.Staff_Id" _
                        + " And s.WorkID = " + Trim(tmpWorkId) + " And c.Change_Type = 1 " _
                        + " UNION SELECT c.Change_Id , c.Staff_Id ,s.Staff_Name , d.Depart_Name As Now_String , e.Depart_Name As Pre_String," _
                        + "c.ChangeDate, c.Reason, c.Change_Type FROM Change c, Staff s ,Departs d, Departs e WHERE c.Staff_Id = s.Staff_Id" _
                        + " And s.WorkID =" + Trim(tmpWorkId) + " And c.Change_Type = 2 And d.Depart_Id =c.Now_String And e.Depart_Id =c.Pre_String "
        Else
            Adodc1.RecordSource = "SELECT c.Change_Id , c.Staff_Id ,s.Staff_Name , c.Now_String , c.Pre_String," _
                        + "c.ChangeDate, c.Reason, c.Change_Type FROM Change c, Staff s WHERE c.Staff_Id = s.Staff_Id" _
                        + " And c.Change_Type = 1 " _
                        + " UNION SELECT c.Change_Id , c.Staff_Id ,s.Staff_Name , d.Depart_Name As Now_String , e.Depart_Name As Pre_String," _
                        + "c.ChangeDate, c.Reason, c.Change_Type FROM Change c, Staff s, Departs d, Departs e WHERE c.Staff_Id = s.Staff_Id" _
                        + " And c.Change_Type =2 And d.Depart_Id =c.Now_String And e.Depart_Id =c.Pre_String "
        End If
    End Select
    Adodc1.Refresh
End Sub

'单击“添加”按钮
Private Sub Cmd_Add_Click()
    
  '初始化FrmTitleChangeEdit信息
  FrmChangeEdit.ComboDate.Text = Format(Now, "yyyy-mm-dd")
  SelStaff.Init
  FrmChangeEdit.ComboName.Text = ""
  FrmChangeEdit.Pre_String = ""
  FrmChangeEdit.Now_String = ""
  FrmChangeEdit.txtReason = ""
  FrmChangeEdit.Change_Type = 0
  '将Modify变量设置为False，表示当前状态为插入新记录
  FrmSalEdit.Modify = False
  '启动编辑窗体
  FrmChangeEdit.Show 1
  '刷新DataGrid表格的内容
  Refresh_Change
End Sub

'单击“返回”按钮
Private Sub Cmd_Back_Click()
  Unload Me
End Sub

'单击“删除”按钮
Private Sub Cmd_Del_Click()
  Dim TmpId As Long
  Dim Change_Type As Integer
  '使用Adodc1.Recordset.EOF判断当前是否选择了记录
  If Adodc1.Recordset.EOF = True Then
    MsgBox "请选择记录"
    Exit Sub
  End If
  '通过Adodc1.Recordset.Fields()读取Adodc1记录源中的当前数据
  TmpId = Adodc1.Recordset.Fields(0)
  Change_Type = Adodc1.Recordset.Fields(7)
  
  '询问用户是否确认删除
  If MsgBox("是否删除当前行?", vbYesNo, "确认") = vbYes Then
    Call MyChange.DeleteById(TmpId)
  End If
  '刷新DataGrid表格的内容
  Adodc1.Refresh
End Sub

'单击“修改”按钮
Private Sub Cmd_Modi_Click()
  '初始化FrmChangeEdit信息

  OriChangeId = Val(Trim(Adodc1.Recordset.Fields(0)))
  OriStaffId = Val(Trim(Adodc1.Recordset.Fields(1)))
  FrmChangeEdit.ComboName.Text = Trim(Adodc1.Recordset.Fields(2))
  '将选择员工的数据保存在SelStu变量中
  SelStaff.Staff_Id = OriStaffId
  SelStaff.GetInfo (SelStaff.Staff_Id)
  CurChange.GetInfo (OriChangeId)
  
  FrmChangeEdit.OriId = CurChange.Change_Id
  FrmChangeEdit.Change_Type = CurChange.Change_Type
  FrmChangeEdit.Now_String = Trim(CurChange.Now_String)
  FrmChangeEdit.Pre_String = Trim(CurChange.Pre_String)
  FrmChangeEdit.ComboDate.Text = Trim(CurChange.ChangeDate)
  FrmChangeEdit.txtReason = Trim(CurChange.Reason)
  '将Modify变量设置为True，表示当前状态为修改新记录
  FrmChangeEdit.Modify = True
  '启动编辑窗体
  FrmChangeEdit.Show 1
  '刷新DataGrid表格的内容
  Refresh_Change
End Sub


Private Sub ComboType_Click()
    Refresh_Change
End Sub

'启动窗体
Private Sub Form_Load()
  ComboType.AddItem "职务变动"
  ComboType.AddItem "部门变动"
  ComboType.AddItem "全部"
  ComboType.ListIndex = 2
  '设置数据源
  Refresh_Change
End Sub


Private Sub WorkIdText_LostFocus()
    Refresh_Change
End Sub