frm_studentreport.frm

学生学籍管理系统

VERSION 5.00
Object = "{57EA6131-FAB3-49C3-BF10-85A4777A5A7C}#1.0#0"; "XPButton.ocx"
Begin VB.Form frm_studentreport 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   2160
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3840
   LinkTopic       =   "Form1"
   ScaleHeight     =   144
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   256
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin XP_Button.XPButton command1 
      Height          =   420
      Left            =   480
      TabIndex        =   1
      Top             =   1440
      Width           =   1260
      _ExtentX        =   2223
      _ExtentY        =   741
      caption         =   "确定"
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   615
      MaxLength       =   6
      TabIndex        =   0
      Top             =   840
      Width           =   2625
   End
   Begin XP_Button.XPButton command2 
      Height          =   420
      Left            =   2085
      TabIndex        =   2
      Top             =   1440
      Width           =   1260
      _ExtentX        =   2223
      _ExtentY        =   741
      caption         =   "取消"
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "请输入班级编号："
      Height          =   315
      Left            =   315
      TabIndex        =   4
      Top             =   525
      Width           =   1695
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "学生信息报表"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   375
      Left            =   345
      TabIndex        =   3
      Top             =   105
      Width           =   1980
   End
   Begin VB.Image imglefttitle 
      Height          =   450
      Left            =   0
      Picture         =   "frm_studentreport.frx":0000
      Top             =   0
      Width           =   450
   End
   Begin VB.Image imgleftbottom 
      Height          =   450
      Left            =   15
      Picture         =   "frm_studentreport.frx":0B0A
      Top             =   1710
      Width           =   450
   End
   Begin VB.Image imgrightbottom 
      Height          =   450
      Left            =   3360
      Picture         =   "frm_studentreport.frx":1614
      Top             =   1710
      Width           =   450
   End
   Begin VB.Image imgbottom 
      Height          =   450
      Left            =   465
      Picture         =   "frm_studentreport.frx":211E
      Stretch         =   -1  'True
      Top             =   1710
      Width           =   2970
   End
   Begin VB.Image imgrightwindow 
      Height          =   1485
      Left            =   3360
      Picture         =   "frm_studentreport.frx":8A60
      Stretch         =   -1  'True
      Top             =   420
      Width           =   450
   End
   Begin VB.Image imgleftwindow 
      Height          =   1515
      Left            =   15
      Picture         =   "frm_studentreport.frx":CD7A
      Stretch         =   -1  'True
      Top             =   465
      Width           =   465
   End
   Begin VB.Image imgclose 
      Height          =   240
      Left            =   3465
      Picture         =   "frm_studentreport.frx":1032C
      Top             =   45
      Width           =   240
   End
   Begin VB.Image imgrighttitle 
      Height          =   525
      Left            =   3435
      Picture         =   "frm_studentreport.frx":1066E
      Top             =   -75
      Width           =   375
   End
   Begin VB.Image imgtop 
      Height          =   450
      Left            =   255
      Picture         =   "frm_studentreport.frx":11114
      Stretch         =   -1  'True
      Top             =   -15
      Width           =   3210
   End
End
Attribute VB_Name = "frm_studentreport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim myrpt As Cls_Report

Private Sub command1_Click()
Me.Hide
Set myrpt = New Cls_Report
    myrpt.StudentReport Trim(Text1)
Unload Me
End Sub

Private Sub command2_Click()
Unload Me
End Sub

Private Sub Form_Activate()
Text1.SetFocus
End Sub

Private Sub Form_Load()
    SetWindow Me
    AlwaysOnTop Me, False
     Move (frm_main.Width - Me.Width) / 2, (frm_main.Height - Me.Height) / 2 - 800
End Sub
Private Sub imgclose_Click()
    Unload Me
End Sub

Private Sub imglefttitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DrawForms Me
End Sub

Private Sub imgtop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DrawForms Me
End Sub

Private Sub imgrighttitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   DrawForms Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Text1 <> "" And KeyAscii = 13 Then command1_Click
End Sub