?? f_peixunshishijihuacx.frm

?? 個人覺得還不錯
?? FRM
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
    
    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 Check6_Click()
If Check6.Value = 1 Then
    Check1.Value = 0
    Check2.Value = 0
    Check3.Value = 0
    Check4.Value = 0
    Check5.Value = 0
           
    Combo1.Visible = False
    Combo2.Visible = False
    Combo3.Visible = False
    Combo4.Visible = False
    Combo5.Visible = True
    Label6.Visible = False
    Label7.Visible = False
    DTPicker1.Visible = False
    DTPicker2.Visible = False
    Frame2.Visible = False
  '  Frame3.Visible = False
End If
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
    
    If Check6.Value = 1 Then
         If Combo5.Text = "計劃外" Then
           DataGrid_sql = "select * from 培訓實施計劃表 where   培訓計劃編號 = ''"
         Else
           DataGrid_sql = "select * from 培訓實施計劃表 where   培訓計劃編號 <> ''   "
         End If
    End If
    
     If Check1.Value = 1 Or Check2.Value = 1 Or Check3.Value = 1 Or Check4.Value = 1 Or Check5.Value = 1 Or Check6.Value = 1 Then
    
    Set adoPrimaryRS = New Recordset
    adoPrimaryRS.Open DataGrid_sql, db, adOpenStatic, adLockOptimistic

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

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
Combo5.Clear
    Combo5.AddItem "計劃內"
    Combo5.AddItem "計劃外"
Frame2.Visible = False
'Frame3.Visible = False
Me.DTPicker1.Value = Format(Now, "yyyy年mm月dd日")
Me.DTPicker2.Value = Format(Now, "yyyy年mm月dd日")
End Sub
上一頁 12
?? 文件大小 1309 K
?? 上傳用戶 arnoldzhw
?? 所屬分類企業管理
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? f_peixunshishijihuacx.frm

?? 快捷鍵說明
