📄 holiday.frm

📁 用microsoft vb6.0写的上班考勤系统！
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
         End If
         If Xiang.Value = 0 And Xia.Value = 1 Then
           Rstkaoqin.Fields(5) = "下午休息"
         End If
       End If
       Rstkaoqin.UpdateBatch
       MsgBox "数据已保存！！"
     Else
       Set Rst = New ADODB.Recordset
       Rst.Open "select CardNo,Gonghao,CardONo from cardinfo where xingming='" + Seleinfo.Text + "'and bumen='" + bumen.Text + "'", CnnQingJia, adOpenKeyset, adLockBatchOptimistic, adCmdText
       If Not Rst.EOF Then
          CardNo = Rst!CardNo
          GongHao = Rst!GongHao
          cardono = Rst!cardono
       End If
       
       Set RstTianShu = New ADODB.Recordset
       RstTianShu.Open "select * from dangtiandaka ", CnnTianShu, adOpenStatic, adLockBatchOptimistic, adCmdText
       RstTianShu.AddNew
         RstTianShu.Fields(0) = Seleinfo.Text
         RstTianShu.Fields(2) = CardNo
         RstTianShu.Fields(1) = cardono
         RstTianShu.Fields(3) = riqi1.Value
         If tian.Value = True Then
           RstTianShu.Fields(4) = "00:00:00"
           RstTianShu.Fields(5) = "全天请假"
           RstTianShu.Fields(6) = "00:00:00"
         End If
         If BanTian.Value = True Then
           If Xiang.Value = 1 Then
             RstTianShu.Fields(5) = "上午休息"
           End If
           If Xia.Value = 1 Then
             RstTianShu.Fields(5) = "下午休息"
           End If
         End If
         RstTianShu.Fields(13) = GongHao
       RstTianShu.UpdateBatch
       'If BanTian.Value = True Then
         
         
       '  If Xiang.Value = 1 Or Xia.Value = 1 Then
       '     Set RstTianShu = New ADODB.Recordset
       '     RstTianShu.Open "select * from dangtiandaka ", CnnTianShu, adOpenStatic, adLockBatchOptimistic, adCmdText
       '     HDay1 = Format(riqi1.Value, "yyyymmdd")
            'HDay2 = Format(riqi2.Value, "yyyymmdd")
       '     RstTianShu.AddNew
              'RstTianShu.Fields(0) = 0
              'RstTianShu.Fields(1) = "00000"
       '       RstTianShu.Fields(0) = Seleinfo.Text
       '       RstTianShu.Fields(3) = HDay1
       '       If Xiang.Value = 1 Then    'Check上午休息
                 'RstTianShu.Fields(1) = CardNo
                 'RstTianShu.Fields(2) = Seleinfo.Text
                 'RstTianShu.Fields(3) = HDay1
       '          RstTianShu.Fields(5) = "1"
       '       End If
       '       If Xia.Value = 1 Then    'Check下午休息
                 'RstTianShu.Fields(1) = CardNo
                 'RstTianShu.Fields(2) = Seleinfo.Text
                 'RstTianShu.Fields(3) = HDay1
       '          RstTianShu.Fields(5) = "2"
       '       End If
       '      RstTianShu.UpdateBatch
         
       '  End If
       
       'End If
       
       'Rstkaoqin.UpdateBatch
     'Else

  
        'Set Rstkaoqin = New ADODB.Recordset
        'Rstkaoqin.Open "select * from dangtiandaka ", Cnn, adOpenKeyset, adLockOptimistic, adCmdText
  
        'Set Rst = New ADODB.Recordset
        'Rst.Open "select CardNo,Gonghao,CardONo from cardinfo where xingming='" + Seleinfo.Text + "'and bumen='" + Bumen.Text + "'", CnnQingJia, adOpenKeyset, adLockBatchOptimistic, adCmdText
        'If Not Rst.EOF Then
        '   CardNo = Rst!CardNo
        '   Gonghao = Rst!Gonghao
        '   cardono = Rst!cardono
        
        
        
       ' If tian.Value = True Then '一天
       '     RstTianShu.Close
       '     Set RstTianShu = New ADODB.Recordset
       '     RstTianShu.Open "select * from kaoqishuju ", CnnTianShu, adOpenStatic, adLockBatchOptimistic, adCmdText
       '     HDay1 = Format(riqi1.Value, "yyyymmdd")
       '     HDay2 = Format(riqi2.Value, "yyyymmdd")
            'riqi1.Value = Format( "yyyymmdd")
            'riqi2.Value = Format( "yyyymmdd")
       '    RstTianShu.AddNew
       '       RstTianShu.Fields(0) = 0
       '       RstTianShu.Fields(1) = "00000"
       '       RstTianShu.Fields(2) = Seleinfo.Text
       '       RstTianShu.Fields(3) = HDay1
              'If Xiang.Value = 1 And Xia.Value = 0 Then   'Check上午休息
              '   RstTianShu.Fields(1) = CardNo
              '   RstTianShu.Fields(2) = Seleinfo.Text
              '   RstTianShu.Fields(3) = HDay1
              '   RstTianShu.Fields(14) = "1"
              'End If
              'If Xia.Value = 1 And Xiang.Value = 0 Then   'Check下午休息
              '   RstTianShu.Fields(1) = CardNo
              '   RstTianShu.Fields(2) = Seleinfo.Text
              '   RstTianShu.Fields(3) = HDay1
              '   RstTianShu.Fields(14) = "2"
              'End If
       '       If tian.Value = True Then
       '          RstTianShu.Fields(4) = "全日请假"
       '          Rstkaoqin.AddNew
       '             Rstkaoqin.Fields(0) = Seleinfo.Text
       '             Rstkaoqin.Fields(1) = Card0No
       '             Rstkaoqin.Fields(2) = CardNo
       '             Rstkaoqin.Fields(3) = HDay1
       '             Rstkaoqin.Fields(4) = "00:00:00"
       ''             Rstkaoqin.Fields(5) = "全日请假"
       '            Rstkaoqin.Fields(6) = "00:00:00"
       '             Rstkaoqin.Fields(9) = 0
       '             Rstkaoqin.Fields(10) = 0
       '             Rstkaoqin.Fields(11) = 1
       '             Rstkaoqin.Fields(12) = 0
       '             Rstkaoqin.Fields(13) = Gonghao
       '          Rstkaoqin.UpdateBatch
       '       End If
       '    RstTianShu.UpdateBatch
       '  End If
     
       MsgBox "数据已保存！！", vbOKOnly, "提醒！！"
     End If
  
  
  
End Sub

Private Sub bumen_Change()
  If bumen.Text = "1" Then
     bumen.Text = "筹建处"
  End If
  
  If bumen.Text = "2" Then
     bumen.Text = "管理处"
  End If
  
  If bumen.Text = "3" Then
     bumen.Text = "会所"
  End If
End Sub
Private Sub bumen_GotFocus()

StatusBar1.Panels(1).Text = "1、筹建处 2、管理处 3、会所"

End Sub

Private Sub bumen_LostFocus()

StatusBar1.Panels(1).Text = ""

End Sub

Private Sub exit_Click()
Unload Me
End Sub


Private Sub List1_Click()
Jialei.Text = List1.Text
End Sub

Private Sub Option1_Click()
  If Option1.Value = True Then
    'Label5.Visible = True
    'riqi1.Visible = True
    Frame5.Visible = True
    tian.Visible = True
    BanTian.Visible = True
    Label9.Visible = True
    Rishu.Visible = True
    
    Label4.Visible = False
    rijian2.Visible = False
    rijian1.Visible = False
    Label6.Visible = False
  End If
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
    'Label5.Visible = False
    'riqi1.Visible = False
    Frame5.Visible = False
    tian.Visible = False
    BanTian.Visible = False
    Label9.Visible = False
    Rishu.Visible = False
    
    Label4.Visible = True
    rijian2.Visible = True
    rijian1.Visible = True
    Label6.Visible = True
  End If
End Sub

Private Sub SelBumen_Click()
   SelJiYuan.Clear
   bumen.Text = SelBumen.Text
   Set Rstfaka = New ADODB.Recordset
   Rstfaka.Open "select xingming from cardinfo where bumen='" + bumen.Text + "'order by gonghao", CnnTianShu, adOpenStatic, adLockOptimistic, adCmdText
   Do While Not Rstfaka.EOF
      SelJiYuan.AddItem Rstfaka.Fields(0)
      Rstfaka.MoveNext
   Loop
End Sub

Private Sub Seljiyuan_Click()
Seleinfo.Text = SelJiYuan.Text
End Sub

Private Sub tian_Click()
  If tian.Value = True Then
   ' Xiang.Visible = True
   ' Xia.Visible = True
    riqi1.Enabled = True
    Frame5.Visible = False
    riqi2.Enabled = False
    Shang2.Enabled = False
    Xia2.Enabled = False
    Xiang.Enabled = True
    Xia.Enabled = True
    rijian1.Enabled = False
    rijian2.Enabled = False
    Rishu.Text = 1
    
  End If
End Sub

Private Sub Form_Load()
 Set Cnn = New ADODB.Connection
 Cnn.Open "kaoqin", "andy", "1234"
 Set Rst = New ADODB.Recordset
 Rst.Open "select * from cardinfo", Cnn, adOpenStatic, adLockBatchOptimistic, adCmdText
 
 Set CnnQingJia = New ADODB.Connection
 CnnQingJia.Open "kaoqin", "andy", "1234"
 Set RstQingJia = New ADODB.Recordset
' RstQingJia.Open "select from qingjia", CnnQingJia, adOpenStatic, adLockBatchOptimistic, adCmdText
 RstQingJia.Open "select * from bumen", CnnQingJia, adOpenStatic, adLockBatchOptimistic, adCmdText
 Do While Not RstQingJia.EOF
   SelBumen.AddItem RstQingJia!bumen
   RstQingJia.MoveNext
 Loop
 
 
 Set CnnTianShu = New ADODB.Connection
 CnnTianShu.Open "kaoqin", "andy", "1234"
 
 rijian1.Value = Time
 rijian2.Value = Time
 riqi1.Value = Date
 riqi2.Value = Date
End Sub

Private Sub Jialei_Change()
  If Jialei.Text = "1" Then
     Jialei.Text = "月假"
  End If
  
  If Jialei.Text = "2" Then
     Jialei.Text = "病假"
  End If
  
  If Jialei.Text = "3" Then
     Jialei.Text = "事假"
  End If
  
  If Jialei.Text = "4" Then
     Jialei.Text = "年假"
  End If
End Sub

Private Sub Jialei_GotFocus()
  StatusBar1.Panels(1).Text = "1、月假 2、病假 3、事假 4、年假"
End Sub

Private Sub Jialei_LostFocus()
  StatusBar1.Panels(1).Text = ""
End Sub

Private Sub seleinfo_Click()
   'Dim rst As ADODB.Recordset
  Rst.Close

   If bumen.Text = "筹建处" Then
        Rst.Open "select xingming from cardinfo where bumen='筹建处' ", Cnn, , , adCmdText
     
        'Do While Not Rst.EOF
        '  Seleinfo.AddItem Rst!Xingming
        '  Rst.MoveNext
        'Loop
   End If
   
   If bumen.Text = "会所" Then
        Rst.Open "select xingming from cardinfo where bumen='会所' ", Cnn, , , adCmdText
   End If
   
   If bumen.Text = "管理处" Then
        Rst.Open "select xingming from cardinfo where bumen='管理处' ", Cnn, , , adCmdText
   End If
End Sub

Private Sub seleinfo_GotFocus()
'rst.Close

   If bumen.Text = "筹建处" Then
        Rst.Close
        Rst.Open "select xingming from cardinfo where bumen='筹建处' order by gonghao ", Cnn, , , adCmdText
     
        Do While Not Rst.EOF
          Seleinfo.AddItem Rst!xingming
          Rst.MoveNext
        Loop
        
   End If
   
   If bumen.Text = "会所" Then
        Rst.Close
        Rst.Open "select xingming from cardinfo where bumen='会所' ", Cnn, , , adCmdText
        Do While Not Rst.EOF
          Seleinfo.AddItem Rst!xingming
          Rst.MoveNext
        Loop
        
   End If
   
   If bumen.Text = "管理处" Then
        Rst.Close
        Rst.Open "select xingming from cardinfo where bumen='管理处' ", Cnn, , , adCmdText
        Do While Not Rst.EOF
          Seleinfo.AddItem Rst!xingming
          Rst.MoveNext
        Loop
        
   End If
End Sub


Private Sub duotian_Click()
    If DuoTian.Value = True Then
      rijian1.Enabled = False
      rijian2.Enabled = False
      riqi1.Enabled = True
      riqi2.Enabled = True
      'Xiang.Visible = False
      'Xia.Visible = False
      'Frame5.Visible = False
      Shang2.Enabled = True
      Xia2.Enabled = True
      Xiang.Enabled = True
      Xia.Enabled = True
      'Shang1.Enabled = True
      'Xia1.Enabled = True
    Else
      rijian1.Enabled = True
      rijian2.Enabled = True
      riqi1.Enabled = False
      riqi2.Enabled = False

    
    End If
End Sub

Private Sub xiaoshi_Click()
  If xiaoshi.Value = True Then
     rijian1.Enabled = True
     rijian2.Enabled = True
     riqi1.Enabled = False
     riqi2.Enabled = False
     Xiang.Enabled = False
     Xia.Enabled = False
     'Frame5.Visible = False
     'Shang1.Enabled = False
     'Xia1.Enabled = False
     Shang2.Enabled = False
     Xia2.Enabled = False
  
  End If
End Sub

Private Sub xiaoshi_LostFocus()
     'rijian1.Enabled = False
     'rijian2.Enabled = False
     'riqi1.Enabled = True
     'riqi2.Enabled = True
End Sub
上一页 1 23
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -