block_set.frm

来自「这是一个非常 好的一个程序进行体会一下学生管理系统」· FRM 代码 · 共 198 行

VERSION 5.00
Begin VB.Form Form6 
   BackColor       =   &H00FFC0C0&
   Caption         =   "设置分数段"
   ClientHeight    =   2805
   ClientLeft      =   3675
   ClientTop       =   1875
   ClientWidth     =   4485
   Icon            =   "Block_set.frx":0000
   LinkTopic       =   "Form6"
   ScaleHeight     =   2805
   ScaleWidth      =   4485
   Begin VB.CommandButton Command3 
      BackColor       =   &H00FFC0C0&
      Caption         =   "设 置 完 毕"
      Height          =   375
      Left            =   1320
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   2160
      Width           =   1455
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00FFC0C0&
      Caption         =   "删  除"
      Height          =   375
      Left            =   1560
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   1200
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "添  加"
      Height          =   375
      Left            =   1560
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   480
      Width           =   975
   End
   Begin VB.ListBox List1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1260
      ItemData        =   "Block_set.frx":030A
      Left            =   2880
      List            =   "Block_set.frx":030C
      TabIndex        =   5
      Top             =   360
      Width           =   1455
   End
   Begin VB.TextBox Text2 
      Alignment       =   2  'Center
      Height          =   270
      Left            =   720
      TabIndex        =   3
      Top             =   1440
      Width           =   495
   End
   Begin VB.TextBox Text1 
      Alignment       =   2  'Center
      Height          =   270
      Left            =   720
      TabIndex        =   0
      Top             =   120
      Width           =   495
   End
   Begin VB.Line Line1 
      BorderStyle     =   3  'Dot
      X1              =   960
      X2              =   960
      Y1              =   1320
      Y2              =   360
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "已设置的分数段"
      Height          =   255
      Left            =   2880
      TabIndex        =   4
      Top             =   120
      Width           =   1455
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "上 界："
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   1440
      Width           =   735
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "下 界："
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   735
   End
End
Attribute VB_Name = "Form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "RVB_UniqueId" ,"41FF01EF00FA"
Attribute VB_Ext_KEY = "RVB_ModelStereotype" ,"Form"
Option Explicit
Dim i As Integer '定义循环变量

'##ModelId=41FF01EF0349
Private Sub Command1_Click()  '添加按钮
    If Text1.Text = "" Or Text2.Text = "" Then
        MsgBox "请把分数段的上下界填写完整！", 0 + 48, "注意！"
        If Text1.Text = "" Then
         Text1.SetFocus
        Else: Text2.SetFocus
        End If
        Exit Sub
    End If
    If Not IsNumeric(Text1.Text) Then
        MsgBox "下界必须是数字！", 0 + 48, "注意！"
        Text1.SetFocus
        SendKeys "{home}+{end}"
        Exit Sub
    End If
    If Not IsNumeric(Text2.Text) Then
        MsgBox "上界必须是数字！", 0 + 48, "注意！"
        Text2.SetFocus
        SendKeys "{home}+{end}"
        Exit Sub
    End If
    If Val(Text2.Text) <= Val(Text1.Text) Then
        MsgBox "上界必须大于下界！", 0 + 48, "注意！"
        Text2.SetFocus
        SendKeys "{home}+{end}"
        Exit Sub
    End If
    low(block_num) = Trim(Text1.Text)
    high(block_num) = Trim(Text2.Text)
    List1.AddItem Trim(Text1.Text) & " ----- " & Trim(Text2.Text)
    block_num = block_num + 1
    Text1.Text = ""
    Text2.Text = ""
    Command2.Enabled = True '使删除按钮有效
End Sub

Private Sub Command2_Click() ' 删除按钮
    If List1.ListIndex = -1 Then
      MsgBox "请选择你要删除的分数段！", 0 + 48, "注意！"
      List1.SetFocus
      Exit Sub
    End If
    Dim current As Integer '用来记录被选中的条目的位置
    current = List1.ListIndex
    List1.RemoveItem (List1.ListIndex)
    For i = current + 1 To block_num
        low(i - 1) = low(i)
        high(i - 1) = high(i)
    Next i
    block_num = block_num - 1
    If block_num = 0 Then
        Command2.Enabled = False
    End If
End Sub

Private Sub Command3_Click() '设置完毕按钮
    Unload Me
    If block_num = 0 Then
        MsgBox "您未设置任何分数段！", 0 + 48, "注意！"
        Form9.Check2(5).Value = 0
        Form9.Check3(5).Value = 0
    Else: MsgBox "你共设置了" & block_num & "个分数段", 0 + 48, "恭喜！"
    Call Form9.Block_tj(tj_type)
    End If
End Sub

Private Sub Form_Load()
    block_num = 0
    For i = 0 To 9
        low(i) = 0
        high(i) = 0
    Next i
    Command2.Enabled = False
    List1.Clear
End Sub