mainfrm.frm

学校选课单机版

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Mainfrm 
   ClientHeight    =   3780
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5970
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   3780
   ScaleWidth      =   5970
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid 
      Bindings        =   "Mainfrm.frx":0000
      Height          =   3255
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5895
      _ExtentX        =   10398
      _ExtentY        =   5741
      _Version        =   393216
      FixedCols       =   0
   End
   Begin VB.Data Data 
      Caption         =   "Data"
      Connect         =   "Access 2000;"
      DatabaseName    =   "I:\VB\course.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "课程"
      Top             =   3360
      Width           =   1215
   End
End
Attribute VB_Name = "Mainfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()
    '初始化窗体位置
    With Mainfrm
         .Top = Screen.Hight / 2 - .Hight / 2
         .Left = Screen.width / 2 - width / 2
    End With
    
    '初始化MSFlexGrid控件位置和大小
    With MSFlexGridl
      .Top = 0
      .Left = 0
      .width = Mainfrm.ScaleWidth
      .Height = Mainfrm.ScaleHeight
      End With
End Sub
      '当调用窗体大小时,调整其上控件的大小
      Private Sub Form_Resize()
      With MSFlexGridl
      .Top = 0
      .Left = 0
      .width = Mainfrm.ScaleWidth
      .Height = Mainfrm.ScaleHeight
      End With
      Call tuneSize  '调用函数调整MSFlexGrid控件的尺寸
      End Sub
      '调整MSFlexGrid控件的尺寸
      Private Sub tuneSize()
      Dim width
      
      width = MSFlexGridl.CellWidth * MSFlexGridl.Cols
      If width < MSFlexGridl.width Then
       MSFlexGridl.ColWidth(MSFlexGridl.Cols - 1) = MSFlexGridl.width - MSFlexGridl.CellWidth * (MSFlexGridl.Cols - 1)
        End If
      
      End Sub
 


Private Sub MSFlexGrid_Click()
      Dim courseID, courseName As String
     '如果是学生且选中一门课程
      If (MSFlexGridl.Row > 0 And Not admin) Then
      '读取课程编号和课程名称
      courseID = CStr(MSFlexGridl.TextMatrix(MSFlexGridl.Row, 0))
      courseName = CStr(MSFlexGridl.TextMatrix(MSFlexGridl.Row, 1))
     '调用模块函数,提交选课要求
      Call commitForm(courseID, courseName)
      End If
End Sub