frmmain.frm

这是一个我帮师妹做的软件的大作业

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain 
   AutoShowChildren=   0   'False
   BackColor       =   &H8000000C&
   Caption         =   "学生信息管理系统超级版"
   ClientHeight    =   4050
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   5685
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   LockControls    =   -1  'True
   Moveable        =   0   'False
   Picture         =   "frmMain.frx":08CA
   StartUpPosition =   2  '屏幕中心
   WhatsThisHelp   =   -1  'True
   Begin VB.Timer Timer2 
      Left            =   6360
      Top             =   8040
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   300
      Left            =   0
      TabIndex        =   0
      Top             =   3750
      Width           =   5685
      _ExtentX        =   10028
      _ExtentY        =   529
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   19403
            MinWidth        =   19403
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            TextSave        =   "2004-11-22"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            TextSave        =   "18:41"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   3
            TextSave        =   "INS"
         EndProperty
      EndProperty
   End
   Begin VB.Timer Timer1 
      Left            =   0
      Top             =   5160
   End
   Begin VB.Menu System 
      Caption         =   "系统(&S)"
      Begin VB.Menu Adduser 
         Caption         =   "添加用户"
         Shortcut        =   ^A
      End
      Begin VB.Menu Modifypwd 
         Caption         =   "修改密码"
         Shortcut        =   ^B
      End
      Begin VB.Menu qhyh 
         Caption         =   "切换用户"
         Shortcut        =   ^{F5}
      End
      Begin VB.Menu Exitto 
         Caption         =   "退出"
         Shortcut        =   ^C
      End
   End
   Begin VB.Menu message 
      Caption         =   "信息管理(&M)"
      Begin VB.Menu Student 
         Caption         =   "学生信息管理"
         Begin VB.Menu AddStudent 
            Caption         =   "添加学生信息"
            Shortcut        =   ^D
         End
         Begin VB.Menu ModifyStudent 
            Caption         =   "修改删除学生信息"
            Shortcut        =   ^E
         End
         Begin VB.Menu InquireStudent 
            Caption         =   "查询学生信息"
            Shortcut        =   ^F
         End
      End
      Begin VB.Menu courseinfo 
         Caption         =   "课程信息管理"
         Begin VB.Menu addclas 
            Caption         =   "添加课程信息"
            Shortcut        =   ^S
         End
      End
      Begin VB.Menu Score 
         Caption         =   "成绩信息管理"
         Begin VB.Menu AddScore 
            Caption         =   "添加成绩信息"
            Shortcut        =   ^J
         End
         Begin VB.Menu ModifyScore 
            Caption         =   "修改删除成绩信息"
            Shortcut        =   ^K
         End
         Begin VB.Menu InquireScore 
            Caption         =   "查询成绩信息"
            Shortcut        =   ^L
         End
      End
   End
   Begin VB.Menu coin 
      Caption         =   "综合测评(&Z)"
      Begin VB.Menu final 
         Caption         =   "学期成绩总评"
         Shortcut        =   ^M
      End
      Begin VB.Menu fj 
         Caption         =   "平时成绩录入"
         Shortcut        =   +{F2}
      End
   End
   Begin VB.Menu tools 
      Caption         =   "特殊工具(&T)"
      Begin VB.Menu yczt 
         Caption         =   "隐藏状态栏"
         Shortcut        =   +{F9}
      End
   End
   Begin VB.Menu menuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu About 
         Caption         =   "关于"
         Shortcut        =   ^T
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim words As String
Dim i As Integer
Dim txtword As String
Dim lenth As Integer


Private Sub final_Click()
zp.Show
frmMain.Enabled = False
End Sub

Private Sub fj_Click()
pshiCj.Show
frmMain.Enabled = False
End Sub

Private Sub qhyh_Click()
Unload Me
login.Show
End Sub

Private Sub Timer2_Timer()
lenth = Len(words)
txtword = Left(words, i)
Me.Caption = txtword
i = i + 1
If i > lenth Then
i = 0
End If
End Sub

Private Sub About_Click()
aboutUs.Show
frmMain.Enabled = False
End Sub

Private Sub addclas_Click()
addclass.Show
frmMain.Enabled = False
End Sub
Private Sub AddScore_Click()
addCj.Show
frmMain.Enabled = False
End Sub
Private Sub AddStudent_Click()
addStudInfo.Show
frmMain.Enabled = False
End Sub
Private Sub Adduser_Click()
addUse.Show
frmMain.Enabled = False
End Sub
Private Sub Exitto_Click()
End
End Sub
Private Sub InquireScore_Click()
inquireCj.Show
frmMain.Enabled = False
End Sub
Private Sub InquireStudent_Click()
inquireStudinfo.Show
frmMain.Enabled = False
End Sub

Private Sub MDIForm_Load()
words = Me.Caption
'Timer2.Interval = 200
'Timer2.Enabled = True
'Me.Caption = ""

Timer1.Interval = 300
StatusBar1.Panels(1).Tag = "中国民航学院欢迎您！中国民航学院----民航人才的摇篮！"
End Sub

Private Sub Modifypwd_Click()
modifyUser.Show
frmMain.Enabled = False
End Sub
Private Sub ModifyScore_Click()
modifyCj.Show
frmMain.Enabled = False
End Sub
Private Sub ModifyStudent_Click()
modifyStudinfo.Show
frmMain.Enabled = False
End Sub
Private Sub setzp_Click()
'setCourse.Show
'frmMain.Enabled = False
End Sub

Private Sub Timer1_Timer()
With StatusBar1.Panels(1)
If .Tag = "" Then
.Tag = Space(.Width) & .Text
.Text = .Tag
End If
If Len(.Text) Then
.Text = Mid$(.Text, 2)
Else
.Text = .Tag
End If
End With

End Sub

Private Sub transfertool_Click()
'transfer.Show
'frmMain.Enabled = False
End Sub

Private Sub user_Click()
Dim hwndHelp As Long
App.HelpFile = App.Path & "\help.chm"
hwndHelp = htmlhelp(hwnd, App.HelpFile, 0, 0)
End Sub

Private Sub yczt_Click()
If yczt.Caption = "隐藏状态栏" Then
StatusBar1.Visible = False
yczt.Caption = "显示状态栏"
Else
StatusBar1.Visible = True
yczt.Caption = "隐藏状态栏"
End If

End Sub