frmteacher.frm

班主任考核管理系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmteacher 
   Caption         =   "班主任管理"
   ClientHeight    =   6090
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8880
   Icon            =   "frmteacher.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6090
   ScaleWidth      =   8880
   Begin VB.Frame Frame1 
      Caption         =   "执行操作"
      Height          =   1215
      Left            =   240
      TabIndex        =   2
      Top             =   4680
      Width           =   8535
      Begin VB.CommandButton Command3 
         Caption         =   "刷新班主任信息列表"
         Height          =   495
         Left            =   5760
         TabIndex        =   5
         Top             =   480
         Width           =   2295
      End
      Begin VB.CommandButton Command2 
         Caption         =   "修改班主任信息"
         Height          =   495
         Left            =   3420
         TabIndex        =   4
         Top             =   480
         Width           =   2295
      End
      Begin VB.CommandButton Command1 
         Caption         =   "添加班主任信息"
         Height          =   495
         Left            =   1080
         TabIndex        =   3
         Top             =   480
         Width           =   2295
      End
   End
   Begin MSFlexGridLib.MSFlexGrid datagrid1 
      Height          =   2175
      Left            =   2280
      TabIndex        =   1
      Top             =   2160
      Width           =   4455
      _ExtentX        =   7858
      _ExtentY        =   3836
      _Version        =   393216
   End
   Begin VB.Label Label1 
      Caption         =   "班 主 任 信 息 列 表"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2880
      TabIndex        =   0
      Top             =   240
      Width           =   3615
   End
End
Attribute VB_Name = "frmteacher"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
  frmaddteacher.Show
End Sub

Private Sub Command2_Click()
 frmup.Show
End Sub

Private Sub Command3_Click()
  datagrid1.Refresh
  Me.Hide
  Me.Show
End Sub

Private Sub Form_Load()
showtitle
showData
Me.Height = 6495
Me.Width = 9000
End Sub

Private Sub Form_Resize()
   If Me.WindowState <> vbMinimized And frmmdi.WindowState <> vbMinimized Then
     If Me.ScaleHeight < 10 * Label1.Height Then
       Exit Sub
     End If
     If Me.ScaleWidth < Label1.Width * 1.5 Then
       Exit Sub
     End If
  Label1.Top = Label1.Height
  Label1.Left = (Me.Width - Label1.Width) / 2
  datagrid1.Top = Label1.Top + Label1.Height + Label1.Height / 2
  datagrid1.Width = Me.ScaleWidth - 200
  datagrid1.Left = Me.ScaleLeft + 100
  datagrid1.Height = Me.ScaleHeight - datagrid1.Top - 1500
  Frame1.Top = datagrid1.Top + datagrid1.Height + 50
  Frame1.Left = Me.ScaleLeft + 300
  Frame1.Width = Me.ScaleWidth - 600
  End If
End Sub
Private Sub showData()
  Dim j As Integer
  Dim i As Integer
  Dim msgtext As String
  Set mrc = ExecuteSQL("select class,name1,tel,zaizhi,start,biyeban,nianshu from teacher", msgtext)
  With datagrid1
  .Rows = 1
  Do While Not mrc.EOF
     .Rows = .Rows + 1
     For i = 1 To mrc.Fields.Count
       If Not IsNull(Trim(mrc.Fields(i - 1))) Then
          .TextMatrix(.Row, i) = mrc.Fields(i - 1)
       End If
     Next i
     mrc.MoveNext
  Loop
  End With
  mrc.Close
End Sub
Private Sub showtitle()
 Dim i As Integer
 With datagrid1
 .Cols = 8
 .TextMatrix(0, 1) = "班级"
 .TextMatrix(0, 2) = "姓名"
 .TextMatrix(0, 3) = "电话"
 .TextMatrix(0, 4) = "是否在职"
 .TextMatrix(0, 5) = "开始工作时间"
 .TextMatrix(0, 6) = "是否毕业班"
 .TextMatrix(0, 7) = "工作年数"
 .FixedRows = 1
 For i = 0 To 7
    .ColAlignment(i) = 0
 Next i
 .FillStyle = flexFillRepeat
 .Col = 0
 .Row = 0
 .RowSel = 1
 .ColSel = .Cols - 1
 .CellAlignment = 4
 .ColWidth(0) = 500
 .ColWidth(1) = 1500
 .ColWidth(2) = 1500
 .ColWidth(3) = 1500
 .ColWidth(4) = 1500
 .ColWidth(5) = 1500
 .ColWidth(6) = 1500
 .ColWidth(7) = 1500
 .Row = 1
 End With
 
End Sub