frmkb_xz.frm

教务管理系统,用VB 完成,以SQL SERVER 2000作为后台数据库

VERSION 5.00
Begin VB.Form frmKB_XZ 
   BackColor       =   &H00C0C000&
   Caption         =   "登陆："
   ClientHeight    =   2775
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4140
   LinkTopic       =   "Form1"
   ScaleHeight     =   2775
   ScaleWidth      =   4140
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdQux 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   372
      Left            =   480
      TabIndex        =   2
      Top             =   1836
      Width           =   852
   End
   Begin VB.CommandButton cmdQued 
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   372
      Left            =   480
      TabIndex        =   1
      Top             =   1080
      Width           =   852
   End
   Begin VB.ListBox lstKub 
      BackColor       =   &H00C0C0FF&
      ForeColor       =   &H00FF0000&
      Height          =   960
      ItemData        =   "frmKB_XZ.frx":0000
      Left            =   2010
      List            =   "frmKB_XZ.frx":0016
      TabIndex        =   0
      Top             =   1080
      Width           =   1500
   End
   Begin VB.Label lblDengl 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "请选择一张表："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   13.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   345
      Left            =   60
      TabIndex        =   3
      Top             =   450
      Width           =   4020
   End
End
Attribute VB_Name = "frmKB_XZ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdQued_Click()
  On Error Resume Next
  If lstKub.ListIndex = -1 Then MsgBox "请选择一张表:", vbOKOnly, "提醒：": Exit Sub
  KBDH = lstKub.ListIndex + 1
  'Load frmMain
  frmMain.Show 1
  Unload Me
End Sub

Private Sub cmdQux_Click()
  On Error Resume Next
  Unload Me
  'Frmstart.Show
  End Sub
Private Sub lstKub_Click()
  On Error Resume Next
  lblDengl.Caption = "现在选择了【" & lstKub.List(lstKub.ListIndex) & "】"
End Sub

Private Sub lstKub_DblClick()
  On Error Resume Next
  Call cmdQued_Click
End Sub