input_frm.frm

教务处成绩统计系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Input_frm 
   Appearance      =   0  'Flat
   BackColor       =   &H00FFC0C0&
   BorderStyle     =   0  'None
   Caption         =   "对话框标题"
   ClientHeight    =   2205
   ClientLeft      =   2715
   ClientTop       =   3420
   ClientWidth     =   3540
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2205
   ScaleWidth      =   3540
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox TextLine 
      Appearance      =   0  'Flat
      Height          =   300
      Index           =   3
      Left            =   1440
      TabIndex        =   7
      Text            =   " "
      Top             =   1200
      Width           =   1575
   End
   Begin VB.TextBox TextLine 
      Appearance      =   0  'Flat
      Height          =   300
      Index           =   2
      Left            =   1440
      TabIndex        =   5
      Text            =   " "
      Top             =   720
      Width           =   1575
   End
   Begin VB.TextBox TextLine 
      Appearance      =   0  'Flat
      Height          =   300
      Index           =   1
      Left            =   1440
      TabIndex        =   3
      Text            =   " "
      Top             =   240
      Width           =   1575
   End
   Begin VB.CommandButton CmdOK 
      Appearance      =   0  'Flat
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   375
      Left            =   360
      TabIndex        =   2
      TabStop         =   0   'False
      Top             =   1680
      Width           =   975
   End
   Begin VB.CommandButton CmdCancel 
      Appearance      =   0  'Flat
      Caption         =   "取消"
      Height          =   375
      Left            =   2040
      TabIndex        =   1
      TabStop         =   0   'False
      Top             =   1680
      Width           =   975
   End
   Begin MSComctlLib.ProgressBar PBar 
      Height          =   375
      Left            =   360
      TabIndex        =   0
      Top             =   1080
      Visible         =   0   'False
      Width           =   2895
      _ExtentX        =   5106
      _ExtentY        =   661
      _Version        =   393216
      BorderStyle     =   1
      Appearance      =   0
      Scrolling       =   1
   End
   Begin VB.Label LabSub 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "LabSub3"
      ForeColor       =   &H80000008&
      Height          =   180
      Index           =   3
      Left            =   480
      TabIndex        =   8
      Top             =   1280
      Width           =   630
   End
   Begin VB.Label LabSub 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "LabSub2"
      ForeColor       =   &H80000008&
      Height          =   180
      Index           =   2
      Left            =   480
      TabIndex        =   6
      Top             =   800
      Width           =   630
   End
   Begin VB.Label LabSub 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "LabSub1"
      ForeColor       =   &H80000008&
      Height          =   180
      Index           =   1
      Left            =   480
      TabIndex        =   4
      Top             =   320
      Width           =   630
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H00FF0000&
      Height          =   2200
      Left            =   0
      Top             =   0
      Width           =   3540
   End
End
Attribute VB_Name = "Input_frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
Dim iSub As Integer

Private Sub CmdCancel_Click()
Dim i As Integer
For i = 0 To 10
    ArrSubLines1(i) = 0
    ArrSubLines2(i) = 0
    ArrSubLines3(i) = 0
Next
Unload Me

End Sub
'----------------输入分数线----------------------------------------------
Private Sub CmdOK_Click()

If TextLine(1).Text <> "" And TextLine(2) <> "" And TextLine(3) <> "" And iSub < main_frm.Combo.ListCount - 1 Then
    
    ArrSubLines1(iSub) = Val(TextLine(1).Text)
    ArrSubLines2(iSub) = Val(TextLine(2).Text)
    ArrSubLines3(iSub) = Val(TextLine(3).Text)
    
    iSub = iSub + 1
    
    LabSub(1) = main_frm.Combo.List(iSub) & "重点线"
    LabSub(2) = main_frm.Combo.List(iSub) & "联招线"
    LabSub(3) = main_frm.Combo.List(iSub) & "普高线"
    
    TextLine(1).Text = ""
    TextLine(2).Text = ""
    TextLine(3).Text = ""
    
    TextLine(1).SetFocus
End If
If TextLine(1).Text <> "" And TextLine(2) <> "" And TextLine(3) <> "" And iSub = main_frm.Combo.ListCount - 1 Then
    ArrSubLines1(iSub) = Val(TextLine(1).Text)
    ArrSubLines2(iSub) = Val(TextLine(2).Text)
    ArrSubLines3(iSub) = Val(TextLine(3).Text)
    
    CreateReportDB
    CloseReportDB
    Unload Me
    Report_frm.Show vbModal
End If
End Sub
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Private Sub Form_Load()
iSub = 0

LabSub(1) = main_frm.Combo.List(iSub) & "重点线"
LabSub(2) = main_frm.Combo.List(iSub) & "联招线"
LabSub(3) = main_frm.Combo.List(iSub) & "普高线"

End Sub


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim ret As Long
ret = ReleaseCapture()
ret = SendMessage(hwnd, WM_NCLBUTTONDOWN, 2, ByVal 0&)   '窗体移动代码
End Sub