frmjiben2.frm

用VB连接ORalce数据库的学生管理系统

            Key             =   "del"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmjiben2.frx":0458
            Key             =   "print"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmjiben2.frx":0AD4
            Key             =   "find"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmjiben2.frx":0F28
            Key             =   "modi"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList2 
      Left            =   3240
      Top             =   120
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   2
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmjiben2.frx":137C
            Key             =   "class"
            Object.Tag             =   "class"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmjiben2.frx":16AC
            Key             =   "cla2"
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmjiben2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public printstr As String
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Sub jibenshowtitle()
Dim i As Integer
  With MSF1
    .Cols = 8
    .TextMatrix(0, 1) = "课程号"
    .TextMatrix(0, 2) = "课程名"
    .TextMatrix(0, 3) = "任课教师"
    .TextMatrix(0, 4) = "教师职称"
    .TextMatrix(0, 5) = "选课人数"
    .TextMatrix(0, 6) = "学分"
    .ColWidth(0) = 200
    .ColWidth(1) = 2000
    .ColWidth(2) = 2000
    .ColWidth(3) = 2000
    .ColWidth(4) = 3000
    .ColWidth(5) = 1500
    .ColWidth(6) = 800
    .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 jibenshowdata()
    MSF1.Clear
    Dim j As Integer
    Dim i As Integer
    Adodc1.ConnectionString = "Provider=MSDAORA.1;User ID=he;Persist Security Info=False"
    msql = ql()
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = msql
    Adodc1.Refresh
    If Adodc1.Recordset.EOF = False Then
    Adodc1.Recordset.MoveFirst
    With MSF1
        .Rows = 50
        .Row = 1
        Do While Not Adodc1.Recordset.EOF
        .Rows = .Rows + 1
        For i = 1 To Adodc1.Recordset.Fields.Count
        .TextMatrix(.Row, i) = Adodc1.Recordset.Fields(i - 1)
        Next i
        .Row = .Row + 1
        Adodc1.Recordset.MoveNext
        Loop
    End With
    Else
        If jibenfind = True Then
            frmjiben2.Hide
            frmjiben3.Show
            MsgBox "对不起，没有此课程的记录！", vbOKOnly, "查询"
            frmjiben3.ZOrder (0)
        End If
    End If
End Sub

Private Sub Form_Activate()
    If jibenfind = True Then
        frmjiben3.ZOrder 0
    End If
    If jibenfind = True Then
        Exit Sub
    ElseIf jibenmodi = True Then
        jibenshowdata
    Else
    tree
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If jibenfind = True Then
        jibenfind = False
        frmjiben3.Text1(0).SetFocus
    End If
End Sub
Public Sub tree()
    TreeView1.Nodes.Clear
    Dim nodex As Node
    Adodc1.ConnectionString = "Provider=MSDAORA.1;User ID=he;Persist Security Info=False"
    sql = "select * from course"
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = sql
    Adodc1.Refresh
    Dim a As String
    a = "课程号"
    TreeView1.LineStyle = tvwRootLines
    Adodc1.ConnectionString = "Provider=MSDAORA.1;User ID=he;Persist Security Info=False"
    sql = "select distinct cno from course order by cno"
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = sql
    Adodc1.Refresh
    Adodc2.ConnectionString = "Provider=MSDAORA.1;User ID=he;Persist Security Info=False"
    sql = "select distinct cno,cname from course order by cno,cname"
    Adodc2.CommandType = adCmdText
    Adodc2.RecordSource = sql
    Adodc2.Refresh
    Adodc1.Recordset.MoveFirst
    Do Until Adodc1.Recordset.EOF
    Adodc2.Recordset.MoveFirst
    Set nodex = TreeView1.Nodes.add(, , a, Adodc1.Recordset.Fields(0), 1, 1)
    Do While Not Adodc2.Recordset.EOF
    If Adodc2.Recordset.Fields(0) = Adodc1.Recordset.Fields(0) Then
       Set nodex = TreeView1.Nodes.add(a, tvwChild, , Adodc2.Recordset.Fields(1), 2, 2)
    End If
    Adodc2.Recordset.MoveNext
    Loop
    a = a & "1"
    Adodc1.Recordset.MoveNext
    Loop
    Adodc1.Recordset.Close
    Adodc2.Recordset.Close
    Adodc1.Refresh
    Adodc2.Refresh
End Sub


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Tag
        Case "find"
        frmjiben3.Show
        Case "modi"
                If mqx = "user" Then
                    ss = MsgBox("对不起，你是普通用户不能修改记录，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
                    Exit Sub
                End If
                frmjiben4.Show
                frmjiben4.ZOrder 0
        Case "del"
              mqx = qx()
                If mqx = "user" Then
                    ss = MsgBox("对不起，你是普通用户不能修改记录，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
                    Exit Sub
                End If
                frmjiben4.Show
                frmjiben4.ZOrder 0
    End Select
End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
    Case "dang"
        If Trim(printstr) = "" Then
            MsgBox "没有当前记录！", vbOKOnly + vbExclamation, "警告"
            Exit Sub
        End If
        If DataEnv1.rsCommand4.State = adStateOpen Then
            DataEnv1.rsCommand4.Close
        End If
        DataEnv1.rsCommand4.Open printstr
        If DataEnv1.rsCommand4.EOF = True Then
            MsgBox "没有当前记录！", vbOKOnly + vbExclamation, "警告"
            Exit Sub
        End If
        DataReportcourse.Show 1
     Case "all"
        If DataEnv1.rsCommand4.State = adStateOpen Then
            DataEnv1.rsCommand4.Close
        End If
        DataEnv1.rsCommand4.Open ("select * from course")
        If DataEnv1.rsCommand4.EOF = True Then
            MsgBox "没有当前记录！", vbOKOnly + vbExclamation, "警告"
            Exit Sub
        End If
        DataReportcourse.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
  sql = TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)
  sql = " select * from course where cno='" & Trim(sql) & "' or cname='" & Trim(sql) & "' order by grd,class "
   printstr = sql
Me.Caption = "浏览课程"
Me.classshowtitle
Me.classshowdata
Exit Sub
ss:
MSF1.Clear
End Sub