form4.frm

来自「学生成绩管理系统 一个小程序 （1） 待开发的软件名称：学生成绩管理系统 （2）」· FRM 代码 · 共 72 行

VERSION 5.00
Begin VB.Form Form4 
   AutoRedraw      =   -1  'True
   Caption         =   "学生登录界面"
   ClientHeight    =   6525
   ClientLeft      =   2220
   ClientTop       =   2385
   ClientWidth     =   10725
   LinkTopic       =   "Form4"
   ScaleHeight     =   6525
   ScaleWidth      =   10725
   Begin VB.CommandButton 查找 
      Caption         =   "查找"
      Height          =   495
      Left            =   7560
      TabIndex        =   1
      Top             =   5760
      Width           =   1335
   End
   Begin VB.CommandButton 确定 
      Caption         =   "确定"
      Height          =   495
      Left            =   9240
      TabIndex        =   0
      Top             =   5760
      Width           =   1215
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
Unload Me
Form10.Show

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


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


Private Sub 查找_Click()
Unload Me
Form10.Show
Form10.Command2.Visible = False
Form10.temptext.Visible = False
End Sub

Private Sub 确定_Click()
Visible = False
Form1.Visible = True
Unload Form4
End Sub