form1.frm

学生成绩管理系统

   Begin VB.Label Label15 
      Caption         =   "总记录数："
      Height          =   255
      Left            =   240
      TabIndex        =   45
      Top             =   1200
      Width           =   975
   End
   Begin VB.Label Label14 
      Caption         =   "姓名"
      Height          =   255
      Left            =   1560
      TabIndex        =   44
      Top             =   1680
      Width           =   975
   End
   Begin VB.Label Label13 
      Caption         =   "学号"
      Height          =   255
      Left            =   240
      TabIndex        =   43
      Top             =   1680
      Width           =   975
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim student As studtype
Dim reno As Integer
Dim book As Integer
Public Function du(readn As Integer)
Get #1, readn, student
With student
  xh = Trim(.snum)
  mm = Trim(.pass)
  xm = Trim(.name)
  sr = Trim(.birth)
  dh = Trim(.tel)
  gs = .gaoshu
  yy = .yingyu
  wl = .wuli
  hx = .huaxue
  zf = .zongfen
  pm = .paiming
  If .sex = "1" Then
      nan.Value = True
  Else
      nv.Value = True
  End If
End With
Close #1
End Function
Public Sub du1()
With student
  xh = Trim(.snum)
  mm = Trim(.pass)
  xm = Trim(.name)
  sr = Trim(.birth)
  dh = Trim(.tel)
  gs = .gaoshu
  yy = .yingyu
  wl = .wuli
  hx = .huaxue
  zf = .zongfen
  pm = .paiming
  If .sex = "1" Then
      nan.Value = True
  Else
      nv.Value = True
  End If
End With
End Sub
Public Function xie(writen As Integer)
With student
   .snum = xh
   .pass = mm
   .name = xm
   .birth = sr
   .tel = dh
   .gaoshu = Val(gs)
   .yingyu = Val(yy)
   .wuli = Val(wl)
   .huaxue = Val(hx)
   .zongfen = Val(zf)
   .paiming = Val(pm)
  If nan.Value = True Then
      .sex = "1"
  Else
      .sex = "0"
  End If
End With
Put #1, writen, student
Close #1
End Function

Public Sub xie1()
With student
   .snum = xh
   .pass = mm
   .name = xm
   .birth = sr
   .tel = dh
   .gaoshu = Val(gs)
   .yingyu = Val(yy)
   .wuli = Val(wl)
   .huaxue = Val(hx)
   .zongfen = Val(zf)
   .paiming = Val(pm)
  If nan.Value = True Then
      .sex = "1"
  Else
      .sex = "0"
  End If
End With
End Sub

Public Sub dak()
Dim mpath As String
mpath = App.Path
If Right(mpath, 1) <> "\" Then mpath = mpath + "\"
mpath = mpath + "chengji.txt"
Open mpath For Random As #1 Len = Len(student)
reno = LOF(1) / Len(student)
End Sub

Public Sub lis()
Call dak
List1.Clear
zong = LOF(1) / Len(student)
zjls.Caption = reno
For i = 0 To zong - 1
  Get #1, zong - i, student
  List1.AddItem student.snum & "   " & student.name
Next
Close #1
End Sub


Private Sub Command1_Click()
On Error GoTo ji
If Combo1.Text = "学号" Then
Call dak
For i = 1 To reno
Get #1, i, student
 If student.snum = Text1 Then
 Call du1
 book = i
 Exit For
 End If
Next i
Close #1
Else
Call dak
For i = 1 To reno
Get #1, i, student
 If Trim(student.name) = Trim(Text1) Then
 Call du1
 book = i
 Exit For
 End If
Next i
Close #1
End If
ji:
End Sub

Private Sub Form_Load()
On Error Resume Next
Call dak
book = reno
du (reno)
Call lis
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub fq_Click()
On Error Resume Next
tj.Caption = "添加"
xg.Caption = "修改"
tj.Enabled = True
xg.Enabled = True
sc.Enabled = True
sx.Enabled = True
fq.Enabled = False
Call dak
du (book)
End Sub

Private Sub List1_Click()
If Combo1.Text = "学号" Then
Text1 = Left(List1.Text, 7)
Else
Call dak
xm = Trim(xm)
xie (book)
Text1 = Trim(Mid(List1.Text, 11, 20))
End If
End Sub

Private Sub pjs_Click()
pm = (Val(gs) + Val(yy) + Val(wl) + Val(hx)) / 4
End Sub

Private Sub qs_Click()
On Error Resume Next
Call dak
du (1)
book = 1
End Sub

Private Sub sc_Click()
On Error Resume Next
gg = MsgBox("确定要删除吗？", 52, "确认")
If gg = 6 Then
Call dak
Open App.Path & "\tmp.txt" For Output As #2
Close #2
Open App.Path & "\tmp.txt" For Random As #2 Len = Len(student)
If Not (book = 1) Then
For i = 1 To book - 1
Get #1, i, student
Put #2, , student
Next
End If
If Not (book = reno) Then
For i = (book + 1) To reno
Get #1, i, student
Put #2, , student
Next
End If
Close #1
Close #2
FileCopy (App.Path + "\tmp.txt"), (App.Path + "\chengji.txt")
Kill App.Path + "\tmp.txt"
If Not (book = 1) Then book = book - 1
Call dak
du (book)
Call lis
End If
End Sub

Private Sub sx_Click()
On Error Resume Next
tj.Caption = "添加"
xg.Caption = "修改"
tj.Enabled = True
xg.Enabled = True
sc.Enabled = True
sx.Enabled = True
fq.Enabled = False
Call dak
du (reno)
Call lis
End Sub

Private Sub syg_Click()
If (book > 1 And book <= reno) Then
Call dak
book = book - 1
du (book)
End If
End Sub

Private Sub tc_Click()
End
End Sub

Private Sub tj_Click()
On Error GoTo cuowu
xg.Enabled = Not xg.Enabled
sc.Enabled = Not sc.Enabled
sx.Enabled = Not sx.Enabled
fq.Enabled = Not fq.Enabled

If tj.Caption = "添加" Then
tj.Caption = "确定"
  xh = ""
  mm = ""
  xm = ""
  sr = ""
  dh = ""
  gs = ""
  yy = ""
  wl = ""
  hx = ""
  zf = ""
  pm = ""
  nan.Value = True
Else
tj.Caption = "添加"
If xh = "" Or mm = "" Or xm = "" Then
cuowu:  Close #1
MsgBox "输入有误！请重试", 48, "提示"
Call dak
On Error GoTo jj
du (book)
Else
Call dak
xie (reno + 1)
book = book + 1
Call lis
End If
End If
jj:
End Sub

Private Sub xg_Click()
On Error GoTo jj
tj.Enabled = Not tj.Enabled
sc.Enabled = Not sc.Enabled
sx.Enabled = Not sx.Enabled
fq.Enabled = Not fq.Enabled
If xg.Caption = "修改" Then
xg.Caption = "确认"
xh.SetFocus
Else
xg.Caption = "修改"
If xh = "" Or mm = "" Or xm = "" Then
cuowu:   Close #1
MsgBox "输入有误！请重试", 48, "提示"
Call dak
du (book)
On erroe GoTo jj
Else
Call dak
xie (book)
On erroe GoTo jj
Call lis
End If
End If
jj:
End Sub

Private Sub xyg_Click()
If Not book = reno Then
Call dak
book = book + 1
du (book)
End If
End Sub

Private Sub zh_Click()
On Error Resume Next
Call dak
book = reno
du (reno)
End Sub

Private Sub zjs_Click()
zf = Val(gs) + Val(yy) + Val(wl) + Val(hx)
End Sub