mainfrm.frm

很好的学习资料

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form mainfrm 
   ClientHeight    =   5310
   ClientLeft      =   165
   ClientTop       =   165
   ClientWidth     =   7875
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5310
   ScaleWidth      =   7875
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access 2000;"
      DatabaseName    =   "course.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   240
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "课程"
      Top             =   4920
      Visible         =   0   'False
      Width           =   1215
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Bindings        =   "mainfrm.frx":0000
      Height          =   4695
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   7575
      _ExtentX        =   13361
      _ExtentY        =   8281
      _Version        =   393216
      FixedCols       =   0
   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.Height / 2 - .Height / 2
            .Left = Screen.width / 2 - .width / 2
        End With
        
        '  初始化MSFlexGrid控件位置和大小
        With MSFlexGrid1
            .Top = 0
            .Left = 0
            .width = mainfrm.ScaleWidth
            .Height = mainfrm.ScaleHeight
        End With
    End Sub
    
    '  当调整窗体大小时，调整其上控件的大小
    Private Sub Form_Resize()
        With MSFlexGrid1
            .Top = 0
            .Left = 0
            .width = mainfrm.ScaleWidth
            .Height = mainfrm.ScaleHeight
        End With
        
        Call tuneSize
    End Sub
    
    '  调整MSFlexGrid控件的尺寸
    Private Sub tuneSize()
        Dim width
        
        width = MSFlexGrid1.CellWidth * MSFlexGrid1.Cols
        If width < MSFlexGrid1.width Then
            MSFlexGrid1.ColWidth(MSFlexGrid1.Cols - 1) = MSFlexGrid1.width - MSFlexGrid1.CellWidth * (MSFlexGrid1.Cols - 1)
        End If
    End Sub
    
    '  双击MSFlexGrid控件事件
    Private Sub MSFlexGrid1_DblClick()
        Dim courseID, courseName As String
        
        '  如果是学生且选中一门课程
        If (MSFlexGrid1.Row > 0 And Not admin) Then
           '  读取课程编号和课程名称
           courseID = CStr(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0))
           courseName = CStr(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1))
           
           '  调用模块函数，提交选课要求
           Call commitForm(courseID, courseName)
        End If
    End Sub