form3.frm

vb.net开发的考试系统,界面美观

VERSION 5.00
Object = "{DAAC6951-59A4-4C08-9D6E-FE3919B64861}#1.0#0"; "FlexCell.ocx"
Object = "{CFA7AFF4-3242-4269-9172-7389D695AE01}#1.0#0"; "StoneXP.ocx"
Begin VB.Form form3 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "计分管理"
   ClientHeight    =   3000
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3840
   Icon            =   "form3.frx":0000
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3000
   ScaleWidth      =   3840
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin StoneXP.XPButton XPButton1 
      Height          =   375
      Left            =   2520
      TabIndex        =   1
      Top             =   1920
      Width           =   1215
      _ExtentX        =   2143
      _ExtentY        =   661
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ButtonStyle     =   1
      Caption         =   "确 定"
      MouseIcon       =   "form3.frx":000C
      MousePointer    =   99
   End
   Begin FlexCell.Grid Grid1 
      Height          =   3015
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   2415
      _ExtentX        =   4260
      _ExtentY        =   5318
      Appearance      =   0
      Cols            =   2
      Rows            =   30
      ScrollBars      =   2
   End
   Begin StoneXP.XPButton XPButton2 
      Height          =   375
      Left            =   2520
      TabIndex        =   2
      Top             =   2400
      Width           =   1215
      _ExtentX        =   2143
      _ExtentY        =   661
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ButtonStyle     =   1
      Caption         =   "返 回"
      MouseIcon       =   "form3.frx":0326
      MousePointer    =   99
   End
End
Attribute VB_Name = "form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Grid1.SetRegisterInformation "CNwinndy", "W]vyY-nonvk-u\nty-Zbl_e-`hms^" '进行注册
Grid1.Column(1).Mask = cellValue
Grid1.Column(1).DecimalLength = 1
Set qy4 = cnn.Execute("select * from 分数")
Grid1.Cols = 2
Grid1.Column(0).Width = 80
Grid1.Cell(0, 0).Text = "题型"
Grid1.Cell(0, 1).Text = "单题分数"
Grid1.Rows = 1
Do While Not qy4.EOF
Grid1.Rows = Grid1.Rows + 1
Grid1.Cell(Grid1.Rows - 1, 0).Text = qy4.Fields(0)
Grid1.Cell(Grid1.Rows - 1, 1).Text = qy4.Fields(1)
qy4.MoveNext
Loop
End Sub

Private Sub XPButton1_Click()
For i = 1 To Grid1.Rows - 1
 Set qy4 = cnn.Execute("update 分数 set 单题分数=" & Grid1.Cell(i, 1).LongValue & " where 题型='" & Grid1.Cell(i, 0).Text & "'")
Next
MsgBox "完成更新！"
End Sub

Private Sub XPButton2_Click()
Unload Me
End Sub