www.pudn.com > studen.rar > Module1.vb

Imports System.Data 
Imports System.Data.SqlClient 
Imports System.IO 
 
 
 
 
Module Module1 
    Public Sno As String 
    Public f1 As New 学生管理系统 
    Public f7 As New 登陆 
    Public C As String 
    Public A As String 
    Public B As String 
    Public M As String 
    Public N As String 
    Public G As String 
    Public D As String 
    Public F As String 
    Public H As String 
    Public DF As Integer 
    Public Path As String 
    Public HH As String 
    Public AA As String 
    Public BB As String 
    Public A1 As Integer 
    Public A2 As String 
    Public A3 As String 
    Public A4 As String 
    Public A5 As String 
    Public A6 As String 
    Public A7 As String 
    'Public link As New SqlConnection 
    'Public aConn As New SqlConnection 
 
 
 
    Sub Main() 
        Directory.SetCurrentDirectory("rrr") 
        HH = Directory.GetCurrentDirectory() 
        Application.Run(f7) 
 
 
        If A = 1 Then ' st16.Tables(0).Rows(0)("userlevel") = 1 Then 
            f1.Show() 
            'f1.新建ToolStripMenuItem.Visible = False 
            'f1.年级管理ToolStripMenuItem.Visible = False 
            'f1.班级管理ToolStripMenuItem.Visible = False 
            'f1.综合测评ToolStripMenuItem.Visible = False 
            'f1.活动管理ToolStripMenuItem.Visible = False 
            'f1.设置密码ToolStripMenuItem.Visible = False 
            'f1.基本信息管理ToolStripMenuItem.Visible = False 
            'f1.综合测评ToolStripMenuItem1.Visible = False 
            'f1.系统设置ToolStripMenuItem.Visible = False 
            'Dim ms As ContextMenuStrip 
            'ms = new f1.TreeView1 .ContextMenuStrip 1 
            f1.MenuStrip1.Hide() 
            f1.ContextMenuStrip1.Hide() 
            f1.ContextMenuStrip2.Hide() 
 
        End If 
        Application.Run(f1) 
    End Sub 
 
End Module