form5.frm

来自「主要用于学校机房考试,主要包括选择题,问答题,WORD操作题,WINDOWS操作」· FRM 代码 · 共 518 行 · 第 1/2 页

      Begin VB.Label Label9 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "年龄："
         Height          =   180
         Left            =   180
         TabIndex        =   3
         Top             =   1020
         Width           =   540
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "性别："
         Height          =   180
         Left            =   165
         TabIndex        =   2
         Top             =   690
         Width           =   540
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "姓名："
         Height          =   180
         Left            =   165
         TabIndex        =   1
         Top             =   345
         Width           =   540
      End
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   1800
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "学生情况表"
      Top             =   2640
      Width           =   4125
   End
   Begin VB.Label Label4 
      BackColor       =   &H00C0FFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "项目："
      Height          =   255
      Left            =   180
      TabIndex        =   24
      Top             =   2985
      Width           =   1485
   End
   Begin VB.Label Label5 
      BackColor       =   &H00C0FFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "方式："
      Height          =   255
      Left            =   1650
      TabIndex        =   23
      Top             =   2985
      Width           =   1695
   End
   Begin VB.Label Label17 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "内    容"
      Height          =   255
      Left            =   3300
      TabIndex        =   22
      Top             =   3000
      Width           =   2610
   End
   Begin VB.Label Label15 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "查询方式："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   285
      Left            =   240
      TabIndex        =   21
      Top             =   2640
      Width           =   1515
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim myquery As String
On Error Resume Next
myquery = Cbo_Category & " " & Cbo_Operator & " '" & Text7.Text & "'"
Data1.RecordSource = "SELECT * FROM 学生情况表 WHERE " & myquery
Data1.Refresh
Data1.Recordset.MoveLast: Data1.Recordset.MoveFirst
MsgBox Data1.Recordset.RecordCount & " 条记录"
End Sub
Function FileExists(fname$) As Boolean
On Error Resume Next '设置错误处理
Dim x As Integer

x = FreeFile '取得一个空闲文件句柄
Open fname$ For Input As x '试图打开该文件
If Err = 0 Then '如果打开成功
FileExists = True
Else '否则
FileExists = False
End If
Close x
End Function
Private Sub Command2_Click()
Unload Form5
Form2.Show
End Sub

Private Sub Command3_Click()
Text(0).Locked = False
Text(1).Locked = False
Text(3).Locked = False
Text(4).Locked = False
Text(5).Locked = False
Text(6).Locked = False
Text(2).Locked = False
Data1.Refresh
Data1.Recordset.MoveLast
Data1.Recordset.AddNew
End Sub

Private Sub Command4_Click()
Data1.Recordset.Edit
Text(0).Locked = False
Text(1).Locked = False
Text(3).Locked = False
Text(4).Locked = False
Text(5).Locked = False
Text(6).Locked = False
Text(2).Locked = False
Data1.RecordSource = "SELECT * FROM 学生情况表 "
Data1.Refresh
End Sub

Private Sub Command5_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
Data1.RecordSource = "SELECT * FROM 学生情况表 "
Data1.Refresh
End Sub

Private Sub Command6_Click()
Text(0).Locked = False
Text(1).Locked = False
Text(3).Locked = False
Text(4).Locked = False
Text(5).Locked = False
Text(6).Locked = False
Text(2).Locked = False
Data1.Refresh
Data1.Recordset.MoveLast
Data1.Recordset.AddNew
End Sub
Private Sub Command6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Or KeyAscii = 10 Then Text1.SetFocus
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\" + "teacher.mdb"
Data1.RecordSource = "学生情况表"
Cbo_Category.AddItem "姓名"
Cbo_Category.AddItem "性别"
Cbo_Category.AddItem "年龄"
Cbo_Category.AddItem "毕业学校"
Cbo_Category.AddItem "电话"
Cbo_Category.AddItem "年级"
Cbo_Category.AddItem "班级"
Cbo_Category.AddItem "籍贯"
Cbo_Operator.AddItem "like"
Cbo_Operator.AddItem "="
Cbo_Operator.AddItem "<="
Cbo_Operator.AddItem ">="
Cbo_Operator.AddItem "<>"
Cbo_Category.ListIndex = 0
Cbo_Operator.ListIndex = 0

End Sub

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

Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case Index
 Case 0
 If KeyAscii = 13 Then Text(1).SetFocus
 Case 1
 If KeyAscii = 13 Then Text(2).SetFocus
 Case 2
 If KeyAscii = 13 Then Text(3).SetFocus
 Case 3
 If KeyAscii = 13 Then Text(4).SetFocus
  Case 4
 If KeyAscii = 13 Then Text(5).SetFocus
 Case 5
 If KeyAscii = 13 Then Text(6).SetFocus
Case 6
If KeyAscii = 13 Then
'Command6.SetFocus
Text(0).SetFocus
Text(0).Locked = False
Text(1).Locked = False
Text(3).Locked = False
Text(4).Locked = False
Text(5).Locked = False
Text(6).Locked = False
Text(2).Locked = False
Data1.Refresh
Data1.Recordset.MoveLast
Data1.Recordset.AddNew
End If
End Select
End Sub

'Private Sub Text_LostFocus(Index As Integer)
'On Error Resume Next
'If Index = 6 Then
'Image1.Picture = LoadPicture(App.Path + "\" + "照片" + "\" + Text(6).Text + ".jpg")
'If Text(6).Text = "" Then
'Image1.Picture = LoadPicture("")
'End If
'End If
'End Sub
Private Sub Timer1_Timer()
Dim dirname As String

On Error Resume Next
dirname = App.Path + "\" + "照片" + "\" + Text(6).Text + ".jpg"
If FileExists(dirname) Then
 Image1.Picture = LoadPicture(dirname)
Else
 Image1.Picture = LoadPicture(App.Path + "\" + "照片" + "\black.jpg")
End If
End Sub