mdiform1.frm

可以进行简单的S型座位编排！这是一个数据库应用的小程序

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "考场座位编排"
   ClientHeight    =   4590
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8745
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mset 
      Caption         =   "设置"
      Begin VB.Menu mstudent 
         Caption         =   "参加考试学生设置"
      End
      Begin VB.Menu mclassroom 
         Caption         =   "考场座位设置"
      End
      Begin VB.Menu mrul 
         Caption         =   "编排规则设置"
      End
   End
   Begin VB.Menu mop 
      Caption         =   "操作"
      Begin VB.Menu mrank 
         Caption         =   "座位编排"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mclassroom_Click()
roomset.Show 1
End Sub

Private Sub MDIForm_Load()
ranktype = 0
restype = 0
emptyseat = 1
seatrow = 5
seatcol = 6
bpflag = True
End Sub

Private Sub mrank_Click()
If ranktype = 0 And restype = 0 Then
   srank.Show 1
End If
End Sub

Private Sub mrul_Click()
rulset.Show 1
End Sub


Private Sub mstudent_Click()
stuset.Show 1
End Sub