📄 frmjintie.frm

📁 班主任考核管理系统
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
         Caption         =   "班主任例会"
         Height          =   375
         Left            =   480
         TabIndex        =   8
         Top             =   960
         Width           =   975
      End
   End
   Begin VB.Label Label14 
      AutoSize        =   -1  'True
      Caption         =   "说明"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   3960
      TabIndex        =   30
      Top             =   5280
      Width           =   420
   End
   Begin VB.Label Label13 
      AutoSize        =   -1  'True
      Caption         =   "元"
      Height          =   180
      Left            =   6240
      TabIndex        =   27
      Top             =   6000
      Width           =   180
   End
   Begin VB.Label Label12 
      AutoSize        =   -1  'True
      Caption         =   "月津贴合计"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   2040
      TabIndex        =   25
      Top             =   6000
      Width           =   1275
   End
End
Attribute VB_Name = "frmjintie"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check1_Click()
 If Check1.Value = 0 Then
      Text11.Text = Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text) + Val(Text9.Text) + Val(Text10.Text) + Val(Text13.Text)
      Text12.Text = ""
      Check1.Enabled = False
    ElseIf Check1.Value = 1 Then
      Text11.Text = 0
      Text4.Text = "0"
       Text3.Text = "0"
        Text5.Text = "0"
         Text6.Text = "0"
          Text7.Text = "0"
           Text8.Text = "0"
            Text9.Text = "0"
             Text10.Text = "0"
              Text13.Text = "0"
      Text12.Text = "发生重大责任事故或者重大伤害事故，扣发当月班主任津贴！"
      Check1.Enabled = False
    End If
End Sub

Private Sub Command1_Click()
  Dim intcount As Integer
  Dim smg As String
  Dim mr As ADODB.Recordset
  Dim msgtext As String
  If Trim(Combo1 & "") = "请选择" Then
   MsgBox "请选择班级", vbOKOnly + vbExclamation, "警告"
   Exit Sub
  End If
  If Trim(Combo2 & "") = "请选择" Then
   MsgBox "请选择年份", vbOKOnly + vbExclamation, "警告"
   Exit Sub
  End If
  If Trim(Combo3 & "") = "请选择" Then
   MsgBox "请选择月份", vbOKOnly + vbExclamation, "警告"
   Exit Sub
  End If
  smg = Format(CDate(Combo2 & "-" & Combo3 & "-" & "1"), "yyyy-mm-dd")
  txtSQL = "delete from jintie where class='" & Trim(Combo1) & "' and riqi='" & smg & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  
  txtSQL = "execute jintiesetup'"
  txtSQL = txtSQL & Trim(Text7.Text) & "','"
  txtSQL = txtSQL & Trim(Text4.Text) & "','"
  txtSQL = txtSQL & Trim(Text13.Text) & "','"
  txtSQL = txtSQL & Trim(Text5.Text) & "','"
  txtSQL = txtSQL & Trim(Text6.Text) & "','"
  txtSQL = txtSQL & Trim(Text3.Text) & "','"
  txtSQL = txtSQL & Trim(Text8.Text) & "','"
  txtSQL = txtSQL & Trim(Text9.Text) & "','"
  txtSQL = txtSQL & Trim(Text10.Text) & "','"
  txtSQL = txtSQL & Trim(Combo1) & "','"
  txtSQL = txtSQL & smg & "','"
  txtSQL = txtSQL & Trim(Text11.Text) & "','"
  txtSQL = txtSQL & Trim(Text1.Text) & "'"
  Set mr = ExecuteSQL(txtSQL, msgtext)
  Unload Me
  frmjintie.Show
    MsgBox "添加纪录成功！", vbOKOnly + vbExclamation, "添加纪录"
End Sub

Private Sub Command2_Click()
  Unload Me
End Sub

Private Sub Form_Load()
  Me.Height = 7725
  Me.Width = 9555
   Dim mrccc As ADODB.Recordset
  Dim msgtext As String
  Dim txtSQL As String
  
' Combo1.Clear
  txtSQL = "select distinct(class) from kaohe"
  Set mrccc = ExecuteSQL(txtSQL, msgtext)

   Do While Not mrccc.EOF
    Combo1.AddItem mrccc.Fields(0)
    mrccc.MoveNext
   Loop
   mrccc.Close
End Sub

Private Sub Combo3_Click()
   Dim mrccc As ADODB.Recordset
  Dim msgtext As String
  Dim txtSQL As String
  Dim aa As String
 aa = Format(CDate(Combo2 & "-" & Combo3 & "-" & "1"), "yyyy-mm-dd")
' Combo1.Clear
  txtSQL = "select num from class  where id='" & Combo1 & "' "
  Set mrccc = ExecuteSQL(txtSQL, msgtext)
    Text2.Text = mrccc.Fields(0)
    mrccc.MoveNext
   mrccc.Close
    Dim mrccc1 As ADODB.Recordset
  
' Combo1.Clear
   txtSQL = "select name1 from teacher where class='" & Combo1 & "' "
  Set mrccc1 = ExecuteSQL(txtSQL, msgtext)
    Text1.Text = mrccc1.Fields(0)
    mrccc1.MoveNext
   mrccc1.Close
   Text7.Text = 4 * Text2.Text
    txtSQL = "select lihui,cailiao,jititongbao,qinshi,huodong,banhui,koufen,shijian1,biyeban,zaizhi from kaohe,teacher where kaohe.class=teacher.class and kaohe.class='" & Combo1 & "' and yuefen='" & aa & "' "
  Set mrccc1 = ExecuteSQL(txtSQL, msgtext)
  If Not mrccc1.EOF Then
    Select Case Trim(mrccc1.Fields(9))
     Case "在职":
        Text4.Text = mrccc1.Fields(0) * 20
        If mrccc1.Fields(1) = 0 Then
         Text3.Text = 20
        Else
         Text3.Text = 0
        End If
        If mrccc1.Fields(2) = 0 Then
           Text9.Text = 10
        Else
          Text9.Text = 0
        End If
        Text6.Text = mrccc1.Fields(3) * 5
        If mrccc1.Fields(4) = 0 Then
          Text8.Text = 20
        Else
          Text8.Text = 0
        End If
        Text13.Text = mrccc1.Fields(5) * 10
        If Int(mrccc1.Fields(6)) < Int(Text2.Text / 2) Then
         Text5.Text = 50
        ElseIf (Int(mrccc1.Fields(6)) >= Int(Text2.Text / 2) And Int(mrccc1.Fields(6)) <= Int(Text2.Text)) Then
         Text5.Text = 40
        ElseIf Int(mrccc1.Fields(6)) > Int(Text2.Text) Then
         Text5.Text = 20
        End If
  'If mrccc1.Fields(8) = 0 Then (下半年开始用)
        If mrccc1.Fields(7) = 3 Then
          Text10.Text = 20
          Text12.Text = "连续担任班主任三年以上（包括三年）"
        ElseIf mrccc1.Fields(7) = 6 Then
          Text10.Text = 30
          Text12.Text = "连续担任班主任六年以上（包括六年）"
        ElseIf mrccc1.Fields(7) = 8 Then
          Text10.Text = 40
          Text12.Text = "连续担任班主任八年以上（包括八年）"
        ElseIf mrccc1.Fields(7) = 1 Then
           Text10.Text = 0
          Text12.Text = "无"
        End If
  ' Else: mrccc1.Fields(8) = 1 (下半年开始用)
  '    Text10.Text = 7 * Text2.Text
  '    Text4.Text = 0
  '    Text5.Text = 0
  '    Text6.Text = 0
  '    Text7.Text = 0
  '    Text13.Text = 0
  '    Text3.Text = 0
  '    Text8.Text = 0
  '    Text9.Text = 0
  '    Text12.Text = "毕业班班主任"
  '  End If                (下半年开始用)
    'mrccc1.Close
       Text11.Text = Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text) + Val(Text9.Text) + Val(Text10.Text) + Val(Text13.Text)
    Case "聘任":
        Text4.Text = mrccc1.Fields(0) * 20
        If mrccc1.Fields(1) = 0 Then
         Text3.Text = 10
        Else
         Text3.Text = 0
        End If
        If mrccc1.Fields(2) = 0 Then
           Text9.Text = 10
        Else
          Text9.Text = 0
        End If
        Text6.Text = mrccc1.Fields(3) * 2.5
        If mrccc1.Fields(4) = 0 Then
          Text8.Text = 10
        Else
          Text8.Text = 0
        End If
        Text13.Text = mrccc1.Fields(5) * 10
        If Int(mrccc1.Fields(6)) < Int(Text2.Text / 2) Then
         Text5.Text = 30
        ElseIf (Int(mrccc1.Fields(6)) >= Int(Text2.Text / 2) And Int(mrccc1.Fields(6)) <= Int(Text2.Text)) Then
         Text5.Text = 20
        ElseIf Int(mrccc1.Fields(6)) > Int(Text2.Text) Then
         Text5.Text = 10
        End If
  
       Text11.Text = Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text) + Val(Text9.Text) + Val(Text10.Text) + Val(Text13.Text)
    Case "其它(行政人员兼作班主任等情况)":
       Text7.Text = 0
       Text10.Text = 0
       Text4.Text = (mrccc1.Fields(0) - 2) * 20
        If mrccc1.Fields(1) = 0 Then
         Text3.Text = 0
        Else
         Text3.Text = -10
        End If
        If mrccc1.Fields(2) = 0 Then
           Text9.Text = 0
        Else
          Text9.Text = -10
        End If
        Text6.Text = (mrccc1.Fields(3) - 8) * 2.5
        If mrccc1.Fields(4) = 0 Then
          Text8.Text = 0
        Else
          Text8.Text = -10
        End If
        Text13.Text = (mrccc1.Fields(5) - 4) * 10
        If Int(mrccc1.Fields(6)) < Int(Text2.Text / 2) Then
         Text5.Text = 0
        ElseIf (Int(mrccc1.Fields(6)) >= Int(Text2.Text / 2) And Int(mrccc1.Fields(6)) <= Int(Text2.Text)) Then
         Text5.Text = -10
        ElseIf Int(mrccc1.Fields(6)) > Int(Text2.Text) Then
         Text5.Text = -20
        End If
        Text11.Text = 300 + Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text) + Val(Text9.Text) + Val(Text10.Text) + Val(Text13.Text)
       Text12.Text = "津贴满额300元,根据相应的项目进行扣减。" + "注意：相应项目显示的为扣除多少津贴,0代表不扣"
    End Select
  Else
  MsgBox "未能找到纪录，可能是信息未录入！", vbOKOnly + vbExclamation, "提示"
  Text3.Text = ""
  Text4.Text = ""
  Text5.Text = ""
  Text6.Text = ""
  Text7.Text = ""
  Text8.Text = ""
  Text9.Text = ""
  Text10.Text = ""
  Text11.Text = ""
  Text12.Text = ""
  Text13.Text = ""
  
  End If
End Sub
上一页 12
⌨️ 快捷键说明

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