www.pudn.com > stu_rag.rar > frmAdmin.frm, change:2003-04-04,size:4475b


VERSION 5.00 
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX" 
Begin VB.Form frmAdmin  
   BorderStyle     =   0  'None 
   Caption         =   "Form1" 
   ClientHeight    =   4935 
   ClientLeft      =   0 
   ClientTop       =   0 
   ClientWidth     =   5760 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   4935 
   ScaleWidth      =   5760 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   2  'CenterScreen 
   Begin VB.Frame FrameOpts  
      Height          =   975 
      Left            =   120 
      TabIndex        =   1 
      Top             =   3840 
      Width           =   5535 
      Begin VB.CommandButton CmdOk  
         Caption         =   "OK" 
         Height          =   375 
         Left            =   4080 
         TabIndex        =   3 
         Top             =   360 
         Width           =   1335 
      End 
      Begin VB.ComboBox ComboUser  
         Height          =   315 
         ItemData        =   "frmAdmin.frx":0000 
         Left            =   120 
         List            =   "frmAdmin.frx":000D 
         Style           =   2  'Dropdown List 
         TabIndex        =   2 
         Top             =   360 
         Width           =   1695 
      End 
   End 
   Begin MSDataGridLib.DataGrid DataUsers  
      Height          =   3615 
      Left            =   120 
      TabIndex        =   0 
      Top             =   120 
      Width           =   5535 
      _ExtentX        =   9763 
      _ExtentY        =   6376 
      _Version        =   393216 
      Appearance      =   0 
      HeadLines       =   1 
      RowHeight       =   15 
      AllowAddNew     =   -1  'True 
      AllowDelete     =   -1  'True 
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
         Name            =   "MS Sans Serif" 
         Size            =   8.25 
         Charset         =   0 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
         Name            =   "MS Sans Serif" 
         Size            =   8.25 
         Charset         =   0 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ColumnCount     =   2 
      BeginProperty Column00  
         DataField       =   "" 
         Caption         =   "" 
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}  
            Type            =   0 
            Format          =   "" 
            HaveTrueFalseNull=   0 
            FirstDayOfWeek  =   0 
            FirstWeekOfYear =   0 
            LCID            =   2052 
            SubFormatType   =   0 
         EndProperty 
      EndProperty 
      BeginProperty Column01  
         DataField       =   "" 
         Caption         =   "" 
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}  
            Type            =   0 
            Format          =   "" 
            HaveTrueFalseNull=   0 
            FirstDayOfWeek  =   0 
            FirstWeekOfYear =   0 
            LCID            =   2052 
            SubFormatType   =   0 
         EndProperty 
      EndProperty 
      SplitCount      =   1 
      BeginProperty Split0  
         BeginProperty Column00  
         EndProperty 
         BeginProperty Column01  
         EndProperty 
      EndProperty 
   End 
End 
Attribute VB_Name = "frmAdmin" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Dim dbrs As ADODB.Recordset 
 
Private Sub CmdOk_Click() 
    Unload Me 
End Sub 
 
Private Sub ComboUser_Click() 
    dbrs.Close 
    Select Case ComboUser.ListIndex 
        Case 0 
            Set dbrs = DataEnv.rsAdmTable 
        Case 1 
            Set dbrs = DataEnv.rsStuTable 
        Case 2 
            Set dbrs = DataEnv.rsTchTable 
    End Select 
    dbrs.Open 
    Set DataUsers.DataSource = dbrs 
    DataUsers.Refresh 
End Sub 
 
Private Sub Form_Load() 
    ComboUser.ListIndex = 0 
    Set dbrs = DataEnv.rsAdmTable 
    dbrs.Open 
    Set DataUsers.DataSource = dbrs 
    DataUsers.Refresh 
End Sub 
 
Private Sub Form_Unload(Cancel As Integer) 
    dbrs.Close 
    Set dbrs = Nothing 
End Sub