frmopt.frm

VB编写的中小学监考老师排表软件

VERSION 5.00
Begin VB.Form frmopt 
   Caption         =   "选项"
   ClientHeight    =   4155
   ClientLeft      =   1440
   ClientTop       =   1515
   ClientWidth     =   6690
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   4155
   ScaleWidth      =   6690
   Begin VB.CommandButton Command2 
      Caption         =   "取  消"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   3630
      TabIndex        =   10
      Top             =   3630
      Width           =   1155
   End
   Begin VB.TextBox Text4 
      Height          =   285
      Left            =   5550
      TabIndex        =   7
      Text            =   "Text4"
      Top             =   3750
      Visible         =   0   'False
      Width           =   405
   End
   Begin VB.TextBox Text3 
      Height          =   285
      Left            =   6240
      TabIndex        =   6
      Text            =   "Text3"
      Top             =   2760
      Visible         =   0   'False
      Width           =   465
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   6240
      TabIndex        =   5
      Text            =   "Text2"
      Top             =   3180
      Visible         =   0   'False
      Width           =   195
   End
   Begin VB.TextBox Text1 
      Height          =   285
      Left            =   6210
      TabIndex        =   4
      Text            =   "Text1"
      Top             =   3720
      Visible         =   0   'False
      Width           =   345
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确   定"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   2340
      TabIndex        =   3
      Top             =   3630
      Width           =   1185
   End
   Begin VB.Frame frame1 
      Caption         =   "查看方式"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3255
      Left            =   930
      TabIndex        =   0
      Top             =   120
      Width           =   4965
      Begin VB.OptionButton Option2 
         Caption         =   "分组查看"
         Height          =   345
         Left            =   3030
         TabIndex        =   12
         Top             =   2310
         Width           =   1305
      End
      Begin VB.OptionButton Option1 
         Caption         =   "不分组查看"
         Height          =   255
         Left            =   2970
         TabIndex        =   11
         Top             =   660
         Width           =   1125
      End
      Begin VB.ListBox List1 
         Columns         =   3
         Height          =   2400
         Left            =   360
         MultiSelect     =   2  'Extended
         TabIndex        =   1
         Top             =   690
         Width           =   2235
      End
      Begin VB.Label Label3 
         Caption         =   "最多能查看36个班级"
         Height          =   555
         Left            =   3210
         TabIndex        =   9
         Top             =   1020
         Width           =   1035
      End
      Begin VB.Label Label2 
         Caption         =   "最多只能查看6个班级但可以同时显示"
         Height          =   555
         Index           =   1
         Left            =   3300
         TabIndex        =   8
         Top             =   2670
         Width           =   1575
      End
      Begin VB.Label Label1 
         Caption         =   "请在下表中选要查看的班级（默认为前36个班）"
         Height          =   405
         Left            =   60
         TabIndex        =   2
         Top             =   300
         Width           =   1935
      End
   End
End
Attribute VB_Name = "frmopt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim bjs As Integer

Dim nowbj As bjtype

Open App.Path + "\bjshu.bin" For Binary As #7
Get #7, 1, bjs
Close #7
ReDim gbjlist(bjs)

Open App.Path + "\bj.ran" For Random As #6 Len = 18
'If Gfzview = False Then
For i = 1 To bjs
Get #6, i, nowbj
Text3.Text = nowbj.bjnjm: Text4.Text = nowbj.bjbjm
gbjlist(i) = Text3.Text + Text4.Text
'If i <= 36 Then
'Gviewbj(i) = Text3.Text + Text4.Text 'List1.List(i - 1)
'End If
Next i
Close #6

sviewbj = 0

For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then

sviewbj = sviewbj + 1
'If sviewbj <= 36 Then
Gviewbj(sviewbj) = gbjlist(i + 1) ' List1.List(sviewbj)
'MsgBox sviewbj
'MsgBox Gviewbj(sviewbj)
'End If
End If
Next i

If Option1.Value = False Then
Gfzview = True
If sviewbj = 0 Then
sviewbj = 6
End If
Else
Gfzview = False
If sviewbj = 0 Then
sviewbj = 36
End If
End If

Unload Me

End Sub

Private Sub Command2_Click()
Unload Me

End Sub

Private Sub Form_Load()
Dim bjs As Integer

Dim nowbj As bjtype

Open App.Path + "\bjshu.bin" For Binary As #7
Get #7, 1, bjs
Close #7
Open App.Path + "\bj.ran" For Random As #6 Len = 18

For i = 1 To bjs
Get #6, i, nowbj
Text3.Text = nowbj.bjnjm: Text4.Text = nowbj.bjbjm
List1.List(i - 1) = Text3.Text + Text4.Text 'nowbj.bjnjm + nowbj.bjbjm
If i <= 36 Then
Gviewbj(i) = List1.List(i - 1)
End If
Next i
Close #6
List1.ListIndex = -1

End Sub