form2.frm

学生成绩管理系统 一个小程序 （1） 待开发的软件名称：学生成绩管理系统 （2） 系统开发者为本小级各成员

VERSION 5.00
Begin VB.Form Form2 
   AutoRedraw      =   -1  'True
   Caption         =   "管理员登录界面"
   ClientHeight    =   6585
   ClientLeft      =   2220
   ClientTop       =   2385
   ClientWidth     =   10815
   LinkTopic       =   "Form2"
   ScaleHeight     =   6585
   ScaleWidth      =   10815
   Begin VB.CommandButton 查找 
      Caption         =   "查找"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   6360
      TabIndex        =   4
      Top             =   5640
      Width           =   1335
   End
   Begin VB.CommandButton 退出 
      Caption         =   "退出"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   8400
      TabIndex        =   3
      Top             =   5640
      Width           =   1455
   End
   Begin VB.CommandButton 删除 
      Caption         =   "删除"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   4320
      TabIndex        =   2
      Top             =   5640
      Width           =   1455
   End
   Begin VB.CommandButton 添加 
      Caption         =   "添加"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   2280
      TabIndex        =   1
      Top             =   5640
      Width           =   1455
   End
   Begin VB.CommandButton 修改 
      Caption         =   "修改"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   480
      TabIndex        =   0
      Top             =   5640
      Width           =   1455
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub 查找_Click()

Unload Me
Form10.Show

Form10.temptext.Visible = False

End Sub

Private Sub 修改_Click()
If recordnumer > 0 Then
Visible = False
Form7.Visible = True
Unload Form2
Else
MsgBox "无记录"
End If
End Sub

Private Sub 删除_Click()
If recordnumer > 0 Then
Visible = False
Form6.Visible = True
Unload Form2
Else
MsgBox "无记录"
End If
End Sub

Private Sub Form_Load()
Open "cj.dat" For Random As #1 Len = Len(recordvar)
recordnumer = LOF(1) / Len(recordvar)
file_read1
Close #1
End Sub

Private Sub 添加_Click()
Visible = False
Form5.Visible = True
Unload Form2
End Sub

Private Sub 退出_Click()
Visible = False
Form1.Show
Form2.修改.Visible = True
Form2.添加.Visible = True
Form2.删除.Visible = True
Form10.Command2.Visible = True
Form10.Command2.Visible = True
End Sub

Sub file_read1()
 Cls
 frontsize = 12
 Print "学号", "姓名", "高数", "英语", "物理", "C语言", "计算机", "总分", "名次"
 For i = 1 To recordnumer
  Get #1, i, recordvar
  Print recordvar.stnum, recordvar.stname, recordvar.gaoshu, recordvar.yingyu, recordvar.wuli, recordvar.cyuyan, recordvar.jisuanji, recordvar.average, Loc(1)
 Next i
End Sub