f_peixunjihuacx.frm

公司人员综合管理系统 提供公司人员的简历、工资账目、考勤、医疗纪录、失业保险等情况

    Combo1.Clear
    
    SQL = "select distinct 培训种类   from 部门培训计划登记"
    Set rs = db.Execute(SQL)
    
    Do While Not rs.EOF
            If IsNull(rs("培训种类")) = False Then
                Combo1.AddItem rs("培训种类")
            End If
            rs.MoveNext
    Loop
    Combo1.Visible = True
    Combo2.Visible = False
    Combo3.Visible = False
    Combo4.Visible = False
    Label6.Visible = False
    Label7.Visible = False
    DTPicker1.Visible = False
    DTPicker2.Visible = False
    Frame2.Visible = False
  '  Frame3.Visible = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
    Check1.Value = 0
    Check3.Value = 0
    Check4.Value = 0
    Check5.Value = 0
    
    Combo2.Clear
    
    SQL = "select distinct 培训对象 from 部门培训计划登记"
    Set rs = db.Execute(SQL)
    Do While Not rs.EOF
            If IsNull(rs("培训对象")) = False Then
                Combo2.AddItem rs("培训对象")
            End If
            rs.MoveNext
    Loop
    
    Combo1.Visible = False
    Combo2.Visible = True
    Combo3.Visible = False
    Combo4.Visible = False
    Label6.Visible = False
    Label7.Visible = False
    DTPicker1.Visible = False
    DTPicker2.Visible = False
    Frame2.Visible = False
   ' Frame3.Visible = False
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
    Check1.Value = 0
    Check2.Value = 0
    Check4.Value = 0
    Check5.Value = 0
    Combo3.Clear
    
    SQL = "select distinct 部门 from 部门培训计划登记"
    Set rs = db.Execute(SQL)
    Do While Not rs.EOF
            If IsNull(rs("部门")) = False Then
                Combo3.AddItem rs("部门")
            End If
            rs.MoveNext
    Loop
    Combo3.Visible = True
    Combo1.Visible = False
    Combo2.Visible = False
    Combo4.Visible = False
    Label6.Visible = False
    Label7.Visible = False
    DTPicker1.Visible = False
    DTPicker2.Visible = False
    
    Frame2.Visible = False
  '  Frame3.Visible = False
End If
End Sub

Private Sub CmdXianShi_Exit_Click()
Frame2.Visible = True
'Frame3.Visible = False
End Sub

Private Sub Cmd_XianShiExit_Click()

End Sub

Private Sub Command1_Click()
End Sub

Private Sub Command2_Click()

End Sub

Private Sub Cmd_ChaXun_Click()
Dim DataGrid_sql  As String  '数据表格中的数据源
Dim oText As TextBox

   If Check1.Value = 1 Then
         
        DataGrid_sql = "select * from 部门培训计划登记 where  部门培训计划登记.培训种类 =   '" & Combo1.Text & "'"
        
   End If

   If Check2.Value = 1 Then
        
        DataGrid_sql = "select * from 部门培训计划登记 where  部门培训计划登记.培训对象 =   '" & Combo2.Text & "'"
   End If

    If Check3.Value = 1 Then
         DataGrid_sql = "select * from 部门培训计划登记 where  部门培训计划登记.部门 =   '" & Combo3.Text & "'"
     
       
    End If
    
    
   If Check4.Value = 1 Then
        
        DataGrid_sql = "select * from 部门培训计划登记 where  部门培训计划登记.师资来源 =   '" & Combo4.Text & "'"
   End If

   If Check5.Value = 1 Then
         
        DataGrid_sql = "select * from 部门培训计划登记 where  部门培训计划登记.举办日期  between ' " & DTPicker1 & " ' and ' " & DTPicker2 & " '"
       
    End If
    
    
    Set adoPrimaryRS = New Recordset
    adoPrimaryRS.Open DataGrid_sql, db1, adOpenStatic, adLockOptimistic

    Set DataGrid1.DataSource = adoPrimaryRS
    
          
  '  Frame3.Visible = False
    Frame2.Visible = True

End Sub

Private Sub Cmd_close_Click()
XingZhengGL.Enabled = True
Unload Me
End Sub

Private Sub Cmd_XianShi_Click()
Dim XianShi_sql    As String '单条数据显示的数据源
  
  
  If Row_ID = "" Then
    MsgBox "请您选择其中一条信息！"
    Exit Sub
  Else
    XianShi_sql = "select * from 部门培训计划登记 where ID = " & Row_ID
    
    
   
    Set adoXianshiBiaoShiRS = New Recordset
    adoXianshiBiaoShiRS.Open "SHAPE {select 培训计划编号,时间,部门,项目名称,培训种类,培训对象,参加人数,举办日期,地点,培训时数,师资来源,培训目的,课时费,租用费,招待费,交通费,教材费,工时占用费,其他费用,预算费用合计,培训内容,口试,笔试,实际操作,人力资源部经理签字,人力资源部签字时间,财务部经理签字,财务部经理签字时间,总经理签字,总经理签字时间,部门申请人签字,部门申请人签字时间 from 部门培训计划登记} AS ParentCMD APPEND ({select 部门培训计划编号,员工号,姓名,岗位编号 from 部门培训计划人员 } AS ChildCMD RELATE 培训计划编号 TO 部门培训计划编号) AS ChildCMD", db1, adOpenStatic, adLockBatchOptimistic
   
    Dim BS_MX_LX  As String  '标识与明细的联系
    
    If Not adoXianshiBiaoShiRS.EOF Then
      If Not IsNull(adoXianshiBiaoShiRS("培训计划编号")) Then
             BS_MX_LX = adoXianshiBiaoShiRS("培训计划编号")
      End If
    End If

     
 
    
    Set adoXianshiXiMuRS = New Recordset
    adoXianshiXiMuRS.Open "select 部门培训计划编号,员工号,姓名,岗位编号 from 部门培训计划人员 where 培训计划编号 = '" & BS_MX_LX & "'", db1, adOpenStatic, adLockBatchOptimistic
   
   
   
   
    
End If
  
  Frame2.Visible = False
'  Frame3.Visible = True
       

End Sub

Private Sub cms_XianShi_close_Click()
  Frame2.Visible = True
  Frame3.Visible = False

End Sub

Private Sub DataGrid1_Click()

  If Not adoPrimaryRS.BOF And Not adoPrimaryRS.EOF Then
      If Not IsNull(adoPrimaryRS.Fields("ID")) Then
          Row_ID = adoPrimaryRS.Fields("ID")
      Else
          MsgBox "请您选择其中一条信息！"
      End If
   Else
    Exit Sub
  End If
  
End Sub

Private Sub Check4_Click()
If Check4.Value = 1 Then
    Check1.Value = 0
    Check2.Value = 0
    Check3.Value = 0
    Check5.Value = 0
    Combo4.Clear
    
    SQL = "select distinct 师资来源 from 部门培训计划登记"
    Set rs = db.Execute(SQL)
    Do While Not rs.EOF
            If IsNull(rs("师资来源")) = False Then
                Combo3.AddItem rs("师资来源")
            End If
            rs.MoveNext
    Loop
    Combo4.Visible = True
    Combo1.Visible = False
    Combo2.Visible = False
    Combo3.Visible = False

    Label6.Visible = False
    Label7.Visible = False
    DTPicker1.Visible = False
    DTPicker2.Visible = False
    
    Frame2.Visible = False
    'Frame3.Visible = False
End If
End Sub

Private Sub Check5_Click()
If Check5.Value = 1 Then
    Check1.Value = 0
    Check2.Value = 0
    Check3.Value = 0
    Check4.Value = 0
    
    
    
    Combo4.Visible = False
    Combo1.Visible = False
    Combo2.Visible = False
    Combo3.Visible = False
    Combo4.Visible = False
    Label6.Visible = True
    Label7.Visible = True
    DTPicker1.Visible = True
    DTPicker2.Visible = True
    
    Frame2.Visible = False
  '  Frame3.Visible = False
End If
End Sub

Private Sub cmdChaXun_Click()

End Sub

Private Sub cmdClose_Click()
RSGL.Enabled = True
Unload Me
End Sub

Private Sub Form_Load()
    On Error Resume Next
    For Each TextBox In Me.Controls
        TextBox.Font.Name = "宋体"
        TextBox.Font.Size = 9
    Next
Frame2.Visible = False
'Frame3.Visible = False

End Sub