VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Formclass2 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "瀏覽班級"
   ClientHeight    =   6165
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   11910
   Icon            =   "Formclass2.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   6165
   ScaleWidth      =   11910
   Begin VB.PictureBox Picture1 
      Height          =   5535
      Left            =   120
      Picture         =   "Formclass2.frx":0442
      ScaleHeight     =   5475
      ScaleWidth      =   2835
      TabIndex        =   2
      Top             =   120
      Width           =   2895
   End
   Begin VB.Frame Frame2 
      Height          =   5655
      Left            =   3120
      TabIndex        =   0
      Top             =   0
      Width           =   8655
      Begin MSFlexGridLib.MSFlexGrid MSF1 
         Height          =   5295
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   8445
         _ExtentX        =   14896
         _ExtentY        =   9340
         _Version        =   393216
         Cols            =   1
         BackColor       =   -2147483624
         BackColorFixed  =   12632256
         ForeColorFixed  =   0
         BackColorSel    =   16777215
         ForeColorSel    =   255
         BackColorBkg    =   -2147483624
         AllowBigSelection=   -1  'True
         SelectionMode   =   1
         AllowUserResizing=   3
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋體"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
   End
End
Attribute VB_Name = "Formclass2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public printstr As String
Public Sub classshowtitle()
 Dim i As Integer
 MSF1.Clear
  With MSF1
    .Cols = 8
    .TextMatrix(0, 1) = "年級"
    .TextMatrix(0, 2) = "班級"
    .TextMatrix(0, 3) = "教室"
    .TextMatrix(0, 4) = "年制"
    .TextMatrix(0, 5) = "專業"
    .TextMatrix(0, 6) = "班主任"
    .TextMatrix(0, 7) = "備注"
    .ColWidth(0) = 100
    .ColWidth(1) = 1300
    .ColWidth(2) = 1200
    .ColWidth(3) = 800
    .ColWidth(4) = 800
    .ColWidth(5) = 800
    .ColWidth(6) = 800
    .ColWidth(7) = 5000
    
    .FixedRows = 1
    For i = 1 To 7
      .ColAlignment(i) = 0
    Next i
    .FillStyle = flexFillSingle
    .Col = 0
    .Row = 0
    .RowSel = 1
    .ColSel = .Cols - 1
    .CellAlignment = 4
    .Row = 1
    End With
End Sub

Public Sub classshowdata()
Dim j As Integer
Dim i As Integer

Dim mrc1 As ADODB.Recordset
  Set mrc1 = ExecuteSQL(Trim(txtsql))
  If mrc1.EOF = False Then
   mrc1.MoveFirst
   With MSF1
    .Rows = 1
    Do While Not mrc1.EOF
     .Rows = .Rows + 1
     For i = 1 To mrc1.Fields.Count
      .TextMatrix(.Rows - 1, i) = mrc1.Fields(i - 1)
     Next i
     mrc1.MoveNext
    Loop
    mrc1.Close
 End With
 Else

   If classfind = True Then
    Formclass2.Hide
    Formclass3.Show
    zzz = MsgBox("對不起，沒有此班級的檔案記錄！", vbOKOnly, "查詢")
    Formclass3.ZOrder (0)
    Formclass3.Text1(0).SetFocus
   End If
 End If
End Sub





Private Sub Form_Activate()
If classfind = True Then
  Formclass3.ZOrder 0
End If
If classfind = True Then
  Exit Sub
ElseIf classmodi = True Then
   classshowdata
 ' TreeView1_DblClick
  classmodi = False

End If
'If classfind = True Then
'  Exit Sub
'Else
'  MDIForm1.clabrowse
'End If
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Tag
        Case "find"
        Formclass3.Show
        Case "modi"
                If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) = "" Then
                  sssss = MsgBox("你還沒有選擇記錄！", vbOKOnly + vbExclamation, "警告")
                Exit Sub
               Else
               qxstr = Executeqx(2)
              If qxstr = "readonly" Then
              ss = MsgBox("對不起，你是只讀用戶不能修改記錄，請與管理員聯系！", vbInformation + vbOKOnly, " 警告")
              Exit Sub
              End If
               classmodi = True
               Formclass1.Show
                 Formclass1.classload
                Formclass1.ZOrder 0
           End If
        Case "del"
          qxstr = Executeqx(2)
            If qxstr = "readonly" Then
            ss = MsgBox("對不起，你是只讀用戶不能刪除記錄，請與管理員聯系！", vbInformation + vbOKOnly, " 警告")
              Exit Sub
               End If
              Dim mrc As ADODB.Recordset
               Dim msgtext As String
              Dim intcount As Integer
                If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) = "" Then
                 sssss = MsgBox("你還沒有選擇記錄！", vbOKOnly + vbExclamation, "警告")
                Exit Sub
             End If
              If MsgBox("確定要刪除班級為 " & Trim(Me.MSF1.TextMatrix(MSF1.Row, 2)) & " 的記錄嗎？" & Chr(13) & Chr(10) & "繼續會導致該班級在成績和學費記錄的數據丟失，繼續嗎？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                txtsql = "delete * from xj where 班級='" & Trim(Me.MSF1.TextMatrix(MSF1.Row, 2)) & "'"
                 Set mrc = ExecuteSQL(txtsql)
               txtsql = "select * from jf where 學號 in (select from xj where 班級='" & Trim(Me.MSF1.TextMatrix(MSF1.Row, 2)) & "')"
                Set mrc = ExecuteSQL(txtsql) '刪除在交費表中的所有該班級的記錄
              txtsql = "select * from cj where 學號 in (select from xj where 班級='" & Trim(Me.MSF1.TextMatrix(MSF1.Row, 2)) & "')"
                  Set mrc = ExecuteSQL(txtsql) '刪除在成績表中的所有該班級的記錄
                   txtsql = "delete * from class where 班級='" & Trim(Me.MSF1.TextMatrix(MSF1.Row, 2)) & "'"
                Set mrc = ExecuteSQL(txtsql) '刪除該班級的記錄
                 End If
 
               'txtsql = "select* from class "
              classshowtitle
              classshowdata
           End Select
End Sub



Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
  Select Case ButtonMenu.Key
  Case "dang"
  If Trim(printstr) = "" Then
    sssss = MsgBox("沒有當前記錄！", vbOKOnly + vbExclamation, "警告")
    Exit Sub
  End If
    If DataEnv1.rsCommand2.State = adStateOpen Then
     DataEnv1.rsCommand2.Close
    End If
     DataEnv1.rsCommand2.Open printstr
     If DataEnv1.rsCommand2.EOF = True Then
            sssss = MsgBox("沒有當前記錄！", vbOKOnly + vbExclamation, "警告")
      Exit Sub
    End If
    DataReportclass2.Show 1
   Case "all"
     If DataEnv1.rsCommand2.State = adStateOpen Then
     DataEnv1.rsCommand2.Close
    End If
     DataEnv1.rsCommand2.Open ("select * from class")
     If DataEnv1.rsCommand2.EOF = True Then
            sssss = MsgBox("沒有當前記錄！", vbOKOnly + vbExclamation, "警告")
      Exit Sub
    End If
    DataReportclass2.Show 1
  End Select
End Sub

Private Sub TreeView1_DblClick()
On Error GoTo ss
If TreeView1.SelectedItem.Index = 0 Then
MSF1.Clear
Exit Sub
End If
txtsql = TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)

   txtsql = " select * from class where 年級='" & Trim(txtsql) & "' or 班級='" & Trim(txtsql) & "' order by 年級 ,班級 "
   printstr = txtsql
Me.Caption = "瀏覽班級"
Me.classshowtitle
Me.classshowdata
Exit Sub
ss:
MSF1.Clear
End Sub