VERSION 5.00
Begin VB.Form Form4 
   AutoRedraw      =   -1  'True
   Caption         =   "學(xué)生登錄界面"
   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 "學(xué)號", "姓名", "高數(shù)", "英語", "物理", "C語言", "計(jì)算機(jī)", "總分", "名次"
 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