form6.frm

用vb编写的网上试题库对你学习VB很有帮助！

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form 主界面 
   Caption         =   "                         主界面"
   ClientHeight    =   8190
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   9030
   LinkTopic       =   "Form6"
   Picture         =   "Form6.frx":0000
   ScaleHeight     =   8190
   ScaleWidth      =   9030
   StartUpPosition =   3  '窗口缺省
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   1
      Top             =   7815
      Width           =   9030
      _ExtentX        =   15928
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3881
            MinWidth        =   3881
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3881
            MinWidth        =   3881
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3881
            MinWidth        =   3881
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3881
            MinWidth        =   3881
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   120
      Top             =   2280
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   139
      ImageHeight     =   104
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   4
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form6.frx":1DDAE
            Key             =   "a"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form6.frx":1EFC0
            Key             =   "b"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form6.frx":1F601
            Key             =   "c"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form6.frx":1FF9B
            Key             =   "d"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   1935
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9030
      _ExtentX        =   15928
      _ExtentY        =   3413
      ButtonWidth     =   3863
      ButtonHeight    =   3254
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   4
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "用户查看"
            Key             =   "a"
            ImageKey        =   "a"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "用户修改"
            Key             =   "b"
            ImageKey        =   "b"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "模糊查询"
            Key             =   "c"
            ImageKey        =   "c"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "精确查询"
            Key             =   "d"
            ImageKey        =   "d"
            Style           =   1
         EndProperty
      EndProperty
   End
   Begin VB.Menu user 
      Caption         =   "用户（U）"
      Begin VB.Menu chakan 
         Caption         =   "察看个人记录"
      End
      Begin VB.Menu xiugai 
         Caption         =   "修改个人信息"
      End
   End
   Begin VB.Menu oprater 
      Caption         =   "操作员（O）"
      Begin VB.Menu shanchu 
         Caption         =   "试题管理"
      End
      Begin VB.Menu guanli 
         Caption         =   "管理用户"
      End
      Begin VB.Menu suoyou 
         Caption         =   "所有记录"
      End
   End
   Begin VB.Menu find 
      Caption         =   "查找（F）"
      Begin VB.Menu mohu 
         Caption         =   "模糊查找"
      End
      Begin VB.Menu jingque 
         Caption         =   "精确查找"
      End
   End
   Begin VB.Menu link 
      Caption         =   "联系我们（L）"
   End
   Begin VB.Menu jieshao 
      Caption         =   "软件介绍（I）"
   End
   Begin VB.Menu quit 
      Caption         =   "退出（Q）"
   End
End
Attribute VB_Name = "主界面"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub chakan_Click()

历史记录.Show
End Sub

Private Sub Form_Load()
StatusBar1.Panels(1).Text = "当前日期：" & Format(Date, "yy-mm-dd")
StatusBar1.Panels(2).Text = "当前时间：" & Time
If 登陆.Option1.Value = True Then
  StatusBar1.Panels(3).Text = "操作员： " & 登陆.Text1.Text
  Else
  StatusBar1.Panels(3).Text = "用户： " & 登陆.Text4.Text
  End If
StatusBar1.Panels(4).Text = "班级管理系统 V 1.00"
End Sub

Private Sub guanli_Click()
用户管理.Show
End Sub


Private Sub jieshao_Click()
介绍.Show
End Sub

Private Sub jingque_Click()
查询.Show
End Sub

Private Sub link_Click()
联系我们.Show
End Sub

Private Sub mohu_Click()
查询.Show
End Sub

Private Sub quit_Click()
 If MsgBox("确定退出系统吗？", vbYesNo + vbQuestion, "网上试题库管理系统") = vbYes Then
        Unload Me
        End
    End If
End Sub

Private Sub shanchu_Click()
试题的增删.Show
End Sub

Private Sub shangchuan_Click()
试题的增删.Show
End Sub

Private Sub suoyou_Click()
历史记录.Data1.DatabaseName = "试题库.mdb"
历史记录.Data1.RecordSource = "select * from 历史记录"
历史记录.Data1.Refresh
历史记录.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.index
Case 1
历史记录.Show
Case 2
修改密码.Show
Case 3
查询.Show
Case 4
查询.Show
End Select
End Sub

Private Sub xiugai_Click()
修改密码.Show
End Sub