edbj.frm

考务管理是学校考务管理的重要部分

VERSION 5.00
Begin VB.Form edbj 
   Caption         =   "输入录取标准"
   ClientHeight    =   2895
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2895
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Comm2 
      Caption         =   "取消"
      Height          =   375
      Left            =   2520
      TabIndex        =   12
      Top             =   2280
      Width           =   735
   End
   Begin VB.CommandButton Comm1 
      Caption         =   "确定"
      Height          =   375
      Left            =   1200
      TabIndex        =   11
      Top             =   2280
      Width           =   735
   End
   Begin VB.Frame Frame1 
      Caption         =   "考生标准"
      Height          =   1695
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   3735
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   4
         Left            =   840
         TabIndex        =   10
         Top             =   1080
         Width           =   855
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   3
         Left            =   2520
         TabIndex        =   9
         Top             =   720
         Width           =   855
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   2
         Left            =   840
         TabIndex        =   8
         Top             =   720
         Width           =   855
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   1
         Left            =   2520
         TabIndex        =   7
         Top             =   360
         Width           =   855
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Index           =   0
         Left            =   840
         TabIndex        =   6
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label5 
         Caption         =   "总　分"
         Height          =   255
         Left            =   240
         TabIndex        =   5
         Top             =   1080
         Width           =   615
      End
      Begin VB.Label Label4 
         Caption         =   "专业课"
         Height          =   255
         Left            =   1920
         TabIndex        =   4
         Top             =   720
         Width           =   615
      End
      Begin VB.Label Label3 
         Caption         =   "政　治"
         Height          =   255
         Left            =   240
         TabIndex        =   3
         Top             =   720
         Width           =   615
      End
      Begin VB.Label Label2 
         Caption         =   "外　语"
         Height          =   255
         Left            =   1920
         TabIndex        =   2
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label1 
         Caption         =   "数　学"
         Height          =   255
         Left            =   240
         TabIndex        =   1
         Top             =   360
         Width           =   735
      End
   End
End
Attribute VB_Name = "edbj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As ADODB.Recordset

Private Sub comm1_click()       '确定
    rs.Fields("数学") = Val(Trim(Text1(0).Text))
    rs.Fields("外语") = Val(Trim(Text1(1).Text))
    rs.Fields("政治") = Val(Trim(Text1(2).Text))
    rs.Fields("专业课") = Val(Trim(Text1(3).Text))
    rs.Fields("总分") = Val(Trim(Text1(4).Text))
    rs.Update
    rs.Close
    Unload Me
End Sub

Private Sub comm2_click()       '取消
    Unload Me
End Sub

Private Sub form_load()
    Dim sql As String
    sql = "select * from bzb"
    Set rs = exesql(sql)
    If rs.RecordCount = 0 Then  '若原来没有记录，则添加一个空记录
        rs.AddNew
    Else                        '否则，将原记录显示在屏幕上
        Text1(0).Text = rs.Fields("数学")
        Text1(1).Text = rs.Fields("外语")
        Text1(2).Text = rs.Fields("政治")
        Text1(3).Text = rs.Fields("专业课")
        Text1(4).Text = rs.Fields("总分")
    End If
End Sub

Private Sub text1_keypress(Index As Integer, KeyAscii As Integer)
    Call endata(KeyAscii)
End Sub