formjiao1.frm

学生关系信息系统。并且有论文啊。供各位兄弟姐妹参考

      End
   End
   Begin VB.Label Label1 
      Caption         =   "学费设置"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   375
      Left            =   2400
      TabIndex        =   14
      Top             =   120
      Width           =   1695
   End
End
Attribute VB_Name = "frmxuefei1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim clas As String



Private Sub Combo1_Click(Index As Integer)
Dim mrc As ADODB.Recordset
If Index = 0 Then
 txtsql = "select   DISTINCT 专业 from class where 年级='" & Trim(Combo1(0).Text) & "'"
 Set mrc = ExecuteSQL(txtsql)
 If mrc.EOF = True Then
  Combo1(1).Text = ""
  Combo1(2).Text = ""
 Exit Sub
 End If
 Combo1(1).Clear
 mrc.MoveFirst
  Do Until mrc.EOF
   Combo1(1).AddItem mrc.Fields(0)
   mrc.MoveNext
  Loop
  Combo1(1).ListIndex = 0
  txtsql = "select   DISTINCT 年制 from class where 年级='" & Trim(Combo1(0).Text) & "' and 专业='" & Trim(Combo1(1).Text) & "'"
 Set mrc = ExecuteSQL(txtsql)
 If mrc.EOF = True Then
  Combo1(2).Text = ""
 Exit Sub
 End If
 Combo1(2).Clear
 mrc.MoveFirst
  Do Until mrc.EOF
   Combo1(2).AddItem mrc.Fields(0)
   mrc.MoveNext
  Loop
  Combo1(2).ListIndex = 0
 ElseIf Index = 1 Then
      txtsql = "select   DISTINCT 年制 from class where 年级='" & Trim(Combo1(0).Text) & "' and 专业='" & Trim(Combo1(1).Text) & "'"
      Set mrc = ExecuteSQL(txtsql)
      If mrc.EOF = True Then
      Combo1(0).Text = ""
      Combo1(2).Text = ""
      Exit Sub
      End If
     Combo1(2).Clear
      mrc.MoveFirst
         Do Until mrc.EOF
          Combo1(2).AddItem mrc.Fields(0)
          mrc.MoveNext
  Loop
  Combo1(2).ListIndex = 0
 End If
End Sub

Private Sub Combo1_DropDown(Index As Integer)
If Index = 0 Then
Dim mrc As ADODB.Recordset
 
 txtsql = "select  DISTINCT 年级  from class "
 Set mrc = ExecuteSQL(txtsql)
mrc.MoveFirst
Combo1(0).Clear
Do While Not mrc.EOF
  Combo1(0).AddItem mrc.Fields(0)
 
 mrc.MoveNext
 Loop
 Combo1(0).ListIndex = 0
 End If
End Sub

Private Sub Command1_Click()
  If Combo1(0).Text = "" Then
     ss = MsgBox("年级不能为空！", vbExclamation + vbOKOnly, " 警告")
     Exit Sub
  End If
  If Combo1(1).Text = "" Then
     ss = MsgBox("专业不能为空！", vbExclamation + vbOKOnly, " 警告")
     Exit Sub
  End If
  If Combo1(2).Text = "" Then
     ss = MsgBox("年制不能为空！", vbExclamation + vbOKOnly, " 警告")
     Exit Sub
  End If
If Combo1(3).Text = "" Then
     ss = MsgBox("学期不能为空！", vbExclamation + vbOKOnly, " 警告")
     Exit Sub
  End If
If Text1.Text = "" Then
 ss = MsgBox("学费不能为空！", vbExclamation + vbOKOnly, " 警告")
 Exit Sub
End If
Dim mrc As ADODB.Recordset
txtsql = "select * from class where  专业='" & Trim(Combo1(1).Text) & "'and 年级='" & Trim(Combo1(0).Text) & "'and 年制='" & Trim(Combo1(2).Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
 xxxx = MsgBox("查无 " & Combo1(0).Text & Combo1(2).Text & Combo1(1).Text & "专业的班， " & "请先进行班级设置！", , "警告")
 Exit Sub
End If


txtsql = "select * from xuefei where 年级='" & Trim(Combo1(0).Text) & "' and 专业='" & Trim(Combo1(1).Text) & "'and 年制='" & Trim(Combo1(2).Text) & "' and 学期='" & Trim(Combo1(3).Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = False Then
If xuefeimodi = True Then
 If (Text1.Text) <> Trim(Frmxuefei2.MSF1.TextMatrix(Frmxuefei2.MSF1.Row, 5)) Then
   sss = MsgBox("已存在该班级本学期学费设置和学费记录，" & Chr(10) & Chr(13) & "继续会导致以上的数据丢失,继续吗？！", vbOKCancel + vbExclamation, "警告")
 End If
 Else
    sss = MsgBox("已存在该班级本学期学费设置和学费记录，" & Chr(10) & Chr(13) & "继续会导致以上的数据丢失,继续吗？！", vbOKCancel + vbExclamation, "警告")
 End If
 If sss = vbCancel Then
   Exit Sub
 Else
   If xuefeimodi = True Then
     txtsql = "delete * from xuefei where 年级='" & Trim(Frmxuefei2.MSF1.TextMatrix(Frmxuefei2.MSF1.Row, 1)) & "' and 专业='" & Trim(Frmxuefei2.MSF1.TextMatrix(Frmxuefei2.MSF1.Row, 2)) & "'and 年制='" & Trim(Frmxuefei2.MSF1.TextMatrix(Frmxuefei2.MSF1.Row, 3)) & "' and 学期='" & Trim(Frmxuefei2.MSF1.TextMatrix(Frmxuefei2.MSF1.Row, 4)) & "'"
   Else
   txtsql = "delete * from xuefei where 年级='" & Trim(Combo1(0).Text) & "' and 专业='" & Trim(Combo1(1).Text) & "'and 年制='" & Trim(Combo1(2).Text) & "' and 学期='" & Trim(Combo1(3).Text) & "'"
   End If
   Set mrc = ExecuteSQL(txtsql)
   txtsql = "delete * from jf where 学号 in(select DISTINCT xj.学号 from xj inner join class on xj.班级=class.班级 where 年级='" & Trim(Combo1(0).Text) & "' and 专业='" & Trim(Combo1(1).Text) & "'and 年制='" & Trim(Combo1(2).Text) & "')  and 学期='" & Trim(Combo1(3).Text) & "'"
   Set mrc = ExecuteSQL(txtsql)
 End If
End If
txtsql = "select * from xuefei order by 学期,专业,年制"
Set mrc = ExecuteSQL(txtsql)
 mrc.AddNew
   mrc.Fields(0) = Trim(Combo1(0).Text)
   mrc.Fields(1) = Trim(Combo1(1).Text)
   mrc.Fields(2) = Trim(Combo1(2).Text)
   mrc.Fields(3) = Trim(Combo1(3).Text)
   mrc.Fields(4) = Trim(Text1.Text)
mrc.Update

If xuefeimodi = True Then
  Unload Me
 
Else
  For i = 0 To 3
 Combo1(i).Text = ""
  Next i
  Text1.Text = ""
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Public Sub xuefeiload()
Dim mrc As ADODB.Recordset

If xuefeimodi Then  '如果是修改状态
 Dim i As Integer
 For i = 0 To 3
   Combo1(i).Enabled = False
 Next i
 Text1.SetFocus
  Me.Caption = "修改学费设置"
  txtsql = "select * from xuefei where 年级='" & Trim(Combo1(0).Text) & "' and 专业='" & Trim(Combo1(1).Text) & "'and 年制='" & Trim(Combo1(2).Text) & "' and 学期='" & Trim(Combo1(3).Text) & "'"
  txtsql = "select * from xuefei where 年级='" & Trim(Frmxuefei2.MSF1.TextMatrix(Frmxuefei2.MSF1.Row, 1)) & "' and 专业='" & Trim(Frmxuefei2.MSF1.TextMatrix(Frmxuefei2.MSF1.Row, 2)) & "'and 年制='" & Trim(Frmxuefei2.MSF1.TextMatrix(Frmxuefei2.MSF1.Row, 3)) & "' and 学期='" & Trim(Frmxuefei2.MSF1.TextMatrix(Frmxuefei2.MSF1.Row, 4)) & "'"
  Set mrc = ExecuteSQL(txtsql)
  mrc.MoveFirst
  For i = 0 To 3
   Combo1(i).Text = mrc.Fields(i)
  Next i
  Text1.Text = mrc.Fields(4)
  mrc.Close
Else

  For i = 0 To 3
 frmxuefei1.Combo1(i).Enabled = True
  Next i
  Me.Caption = "添加班级设置"
 For i = 0 To 3
 Combo1(i).Text = ""
  Next i
  Text1.Text = ""
 End If
End Sub

Private Sub Form_Load()

Dim mrc As ADODB.Recordset
 
 txtsql = "select  DISTINCT 年级  from class "
 Set mrc = ExecuteSQL(txtsql)
mrc.MoveFirst
Combo1(0).Clear
Do While Not mrc.EOF
  Combo1(0).AddItem mrc.Fields(0)
 
 mrc.MoveNext
 Loop
 Combo1(0).ListIndex = 0
 txtsql = "select   DISTINCT 专业 from class where 年级='" & Trim(Combo1(0).Text) & "'"
  Set mrc = ExecuteSQL(txtsql)
  Combo1(1).Clear
  mrc.MoveFirst
  
Do While Not mrc.EOF
 
  Combo1(1).AddItem mrc.Fields(0)
 
 mrc.MoveNext
 Loop
 Combo1(1).ListIndex = 0
 txtsql = "select   DISTINCT 年制 from class where 年级='" & Trim(Combo1(0).Text) & "' and 专业='" & Trim(Combo1(1).Text) & "'"
   Combo1(2).Clear
  Set mrc = ExecuteSQL(txtsql)
  mrc.MoveFirst
Do While Not mrc.EOF
 
  Combo1(2).AddItem mrc.Fields(0)
 
 mrc.MoveNext
 Loop
 Combo1(2).ListIndex = 0
 mrc.Close
 Combo1(3).AddItem Val(Format(Date, "yyyy")) - 1 & "---" & Val(Format(Date, "yyyy")) & "年度第一学期"
 Combo1(3).AddItem Val(Format(Date, "yyyy")) - 1 & "---" & Val(Format(Date, "yyyy")) & "年度第二学期"
 Combo1(3).AddItem Format(Date, "yyyy") & "---" & Val(Format(Date, "yyyy")) + 1 & "年度第一学期"
 Combo1(3).AddItem Format(Date, "yyyy") & "---" & Val(Format(Date, "yyyy")) + 1 & "年度第二学期"
 Combo1(3).AddItem Val(Format(Date, "yyyy")) + 1 & "---" & Val(Format(Date, "yyyy")) + 2 & "年度第一学期"
  Combo1(3).AddItem Val(Format(Date, "yyyy")) + 1 & "---" & Val(Format(Date, "yyyy")) + 2 & "年度第二学期"
 If Val(Format(Date, "mm")) > 8 Then
  Combo1(3).ListIndex = 2
 Else
   Combo1(3).ListIndex = 1
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
 Dim i As Integer
  For i = 0 To 3
  Combo1(i).Enabled = True
  Next i
End Sub