form8.frm

主要用于学校机房考试,主要包括选择题,问答题,WORD操作题,WINDOWS操作题.学生做完后,可立即得到考试分数.

VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form Form8 
   BackColor       =   &H00FFC0C0&
   Caption         =   "Form8"
   ClientHeight    =   5610
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3135
   LinkTopic       =   "Form8"
   ScaleHeight     =   5610
   ScaleWidth      =   3135
   StartUpPosition =   3  '窗口缺省
   Begin MSDBGrid.DBGrid DBGrid1 
      Bindings        =   "Form8.frx":0000
      Height          =   3975
      Left            =   120
      OleObjectBlob   =   "Form8.frx":0014
      TabIndex        =   2
      Top             =   600
      Width           =   2895
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   120
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   4680
      Width           =   2895
   End
   Begin VB.TextBox Text1 
      DataField       =   "毕业学校名称"
      DataSource      =   "Data1"
      Enabled         =   0   'False
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   120
      Width           =   2895
   End
   Begin VB.CommandButton Command5 
      Caption         =   "添加"
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   5160
      Width           =   615
   End
End
Attribute VB_Name = "Form8"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub dbgrid1_dblclick()  '选择当前项后，再双击删除当前记录选项
On Error Resume Next
DBGrid1.Visible = True
Data1.Recordset.Delete
DBGrid1.Refresh
End Sub

Private Sub Command5_Click()
Text1.Enabled = True
Data1.Recordset.MoveLast
Data1.Recordset.AddNew
Text1.SetFocus
Text1.Text = ""
Form17.Data2.Refresh
End Sub

'Private Sub Command6_Click()
'Form14.Data2.RecordSource = "select * from 学生情况表"
'Form14.Data2.Refresh
'Me.Hide
'Form14.Show
'
'End Sub
Private Sub Form_Initialize()
Data1.Recordset.AddNew
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\" + "teacher.mdb"
Data1.RecordSource = "毕业学校"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Form17.Show
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Command5.SetFocus
Data1.Refresh
End If
End Sub