form1.frm

学生信息管理系统 学生信息管理系统

         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "修改"
      MouseIcon       =   "form1.frx":696AB
      MousePointer    =   99
   End
   Begin StoneXP.XPButton XPButton17 
      Height          =   375
      Left            =   9960
      TabIndex        =   26
      ToolTipText     =   "导出为HTML文件,方便打印"
      Top             =   1500
      Width           =   735
      _ExtentX        =   1296
      _ExtentY        =   661
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "导出"
      MouseIcon       =   "form1.frx":699C5
      MousePointer    =   99
   End
   Begin VB.Image Image3 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   405
      Left            =   30
      MouseIcon       =   "form1.frx":69CDF
      MousePointer    =   99  'Custom
      Picture         =   "form1.frx":69E31
      ToolTipText     =   "暂时不可用"
      Top             =   3120
      Width           =   405
   End
   Begin VB.Image Image2 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   405
      Left            =   30
      MouseIcon       =   "form1.frx":6D729
      MousePointer    =   99  'Custom
      Picture         =   "form1.frx":6D87B
      ToolTipText     =   "暂时不可用"
      Top             =   2640
      Width           =   405
   End
   Begin VB.Image Image1 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   405
      Left            =   30
      MouseIcon       =   "form1.frx":711C7
      MousePointer    =   99  'Custom
      Picture         =   "form1.frx":71319
      ToolTipText     =   "新增新系别与班级"
      Top             =   2160
      Width           =   405
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "欢迎您进入学生管理系统!!!"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   1635
      Width           =   6015
   End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_Trans As CTranslucentForm
Dim i, j, t, Y As Integer
Private sqlselect As String
Dim a, b As Integer 'b1为入库状态
Dim data1 As Integer '设定是否自动输入日期   1为自动,2为取消自动
Private Declare Function GetKeyState Lib "user32" _
   (ByVal nVirtKey As Long) As Integer


Private Sub asPopup20_Click(Cancel As Boolean)
End
End Sub

Private Sub asPopup3_Click(Cancel As Boolean)
gridsave = False
gridedit = True
griddelete = True
yuzhi = False
dbase = "离校生管理"
Grid2.Visible = False
Grid1.Visible = True
If qy1.State = adStateOpen Then '表状态
qy1.Close
End If
qy1.Open "select * from 学生信息 where 是否在校生='' or 是否在校生='0'", cnn, adOpenKeyset, adLockReadOnly, adCmdText
Grid1.Rows = 1 '清除所有记录
Grid1.Rows = qy1.RecordCount + 1
i = 11
Grid1.Cols = i + 1 '必须+1,因为第一行是隐藏的
For i = 0 To 10   '显示数据的字段名
Grid1.Cell(0, i + 1).Text = qy1.Fields(i).Name  '读取表中的各字段名
Next
Grid1.ComboBox(3).Clear
Grid1.ComboBox(3).AddItem "男"
Grid1.ComboBox(3).AddItem "女"
Grid1.ComboBox(4).Clear
For i = 15 To 30 '循环出年龄
Grid1.ComboBox(4).AddItem i
Next
Grid1.ComboBox(6).Clear
If qy2.State = adStateOpen Then  '表状态
qy2.Close
End If
qy2.Open "select * from 系别", cnn, adOpenKeyset, adLockReadOnly, adCmdText
Do While qy2.EOF = False
Grid1.ComboBox(6).AddItem qy2.Fields(0)
qy2.MoveNext
Loop
Grid1.ComboBox(7).Clear
If qy3.State = adStateOpen Then  '表状态
qy3.Close
End If
qy3.Open "select * from 班级", cnn, adOpenKeyset, adLockReadOnly, adCmdText
Do While qy3.EOF = False
Grid1.ComboBox(7).AddItem qy3.Fields(0)
qy3.MoveNext
Loop
Grid1.ComboBox(10).Clear
If qy4.State = adStateOpen Then  '表状态
qy4.Close
End If
qy4.Open "select * from 学生状态", cnn, adOpenKeyset, adLockReadOnly, adCmdText
Do While qy4.EOF = False
Grid1.ComboBox(10).AddItem qy4.Fields(0)
qy4.MoveNext
Loop
Grid1.ComboBox(11).Clear
For i = 1 To 4 '循环出教育年制，实现预先输入成绩
Grid1.ComboBox(11).AddItem i
Next
For i = 1 To Grid1.Rows - 1 '设定读取行
 For j = 1 To Grid1.Cols - 1 '设定读取列
 If qy1.Fields(j - 1) = Null Then '空值的处理
 Grid1.Cell(i, j).Text = ""
 Else
 Grid1.Cell(i, j).Text = qy1.Fields(j - 1)
 End If
 Next
 qy1.MoveNext '读取下一记录
Next
Grid1.Column(1).Locked = True
End Sub

Private Sub asPopup4_Click(Cancel As Boolean)
gridsave = False
gridedit = True
griddelete = True
yuzhi = False
dbase = "新生管理"
Grid2.Visible = False
Grid1.Visible = True
If qy1.State = adStateOpen Then '表状态
qy1.Close
End If
qy1.Open "select * from 学生信息 where 学生状态='新生'", cnn, adOpenKeyset, adLockReadOnly, adCmdText
Grid1.Rows = 1 '清除所有记录
Grid1.Rows = qy1.RecordCount + 1
i = 11
Grid1.Cols = i + 1 '必须+2,因为实际上为11行,但第一行是隐藏的
For i = 0 To 10   '显示数据的字段名
Grid1.Cell(0, i + 1).Text = qy1.Fields(i).Name  '读取表中的各字段名
Next
Grid1.ComboBox(3).Clear
Grid1.ComboBox(3).AddItem "男"
Grid1.ComboBox(3).AddItem "女"
Grid1.ComboBox(4).Clear
For i = 15 To 30 '循环出年龄
Grid1.ComboBox(4).AddItem i
Next
Grid1.ComboBox(6).Clear
If qy2.State = adStateOpen Then  '表状态
qy2.Close
End If
qy2.Open "select * from 系别", cnn, adOpenKeyset, adLockReadOnly, adCmdText
Do While qy2.EOF = False
Grid1.ComboBox(6).AddItem qy2.Fields(0)
qy2.MoveNext
Loop
Grid1.ComboBox(7).Clear
If qy3.State = adStateOpen Then  '表状态
qy3.Close
End If
qy3.Open "select * from 班级", cnn, adOpenKeyset, adLockReadOnly, adCmdText
Do While qy3.EOF = False
Grid1.ComboBox(7).AddItem qy3.Fields(0)
qy3.MoveNext
Loop
Grid1.ComboBox(10).Clear
If qy4.State = adStateOpen Then  '表状态
qy4.Close
End If
qy4.Open "select * from 学生状态", cnn, adOpenKeyset, adLockReadOnly, adCmdText
Do While qy4.EOF = False
Grid1.ComboBox(10).AddItem qy4.Fields(0)
qy4.MoveNext
Loop
Grid1.ComboBox(11).Clear
For i = 1 To 4 '循环出教育年制，实现预先输入成绩
Grid1.ComboBox(11).AddItem i
Next
For i = 1 To Grid1.Rows - 1 '设定读取行
 For j = 1 To Grid1.Cols - 1 '设定读取列
 If qy1.Fields(j - 1) = Null Then '空值的处理
 Grid1.Cell(i, j).Text = ""
 Else
 Grid1.Cell(i, j).Text = qy1.Fields(j - 1)
 End If
 Next
 qy1.MoveNext '读取下一记录
Next
Grid1.Column(1).Locked = True
End Sub

Private Sub asPopup5_Click(Cancel As Boolean)
gridsave = False
gridedit = True
griddelete = True
yuzhi = False
dbase = "所有学生"
Grid2.Visible = False
Grid1.Visible = True
If qy1.State = adStateOpen Then '表状态
qy1.Close
End If
qy1.Open "select * from 学生信息", cnn, adOpenKeyset, adLockReadOnly, adCmdText
Grid1.Rows = 1 '清除所有记录
Grid1.Rows = qy1.RecordCount + 1
i = 11
Grid1.Cols = i + 1 '必须+2,因为实际上为11行,但第一行是隐藏的
For i = 0 To 10   '显示数据的字段名
Grid1.Cell(0, i + 1).Text = qy1.Fields(i).Name  '读取表中的各字段名
Next
Grid1.ComboBox(3).Clear
Grid1.ComboBox(3).AddItem "男"
Grid1.ComboBox(3).AddItem "女"
Grid1.ComboBox(4).Clear
For i = 15 To 30 '循环出年龄
Grid1.ComboBox(4).AddItem i
Next
Grid1.ComboBox(6).Clear
If qy2.State = adStateOpen Then  '表状态
qy2.Close
End If
qy2.Open "select * from 系别", cnn, adOpenKeyset, adLockReadOnly, adCmdText
Do While qy2.EOF = False
Grid1.ComboBox(6).AddItem qy2.Fields(0)
qy2.MoveNext
Loop
Grid1.ComboBox(7).Clear
If qy3.State = adStateOpen Then  '表状态
qy3.Close
End If
qy3.Open "select * from 班级", cnn, adOpenKeyset, adLockReadOnly, adCmdText
Do While qy3.EOF = False
Grid1.ComboBox(7).AddItem qy3.Fields(0)
qy3.MoveNext
Loop
Grid1.ComboBox(10).Clear
If qy4.State = adStateOpen Then  '表状态
qy4.Close
End If
qy4.Open "select * from 学生状态", cnn, adOpenKeyset, adLockReadOnly, adCmdText
Do While qy4.EOF = False
Grid1.ComboBox(10).AddItem qy4.Fields(0)
qy4.MoveNext
Loop
Grid1.ComboBox(11).Clear
For i = 1 To 4 '循环出教育年制，实现预先输入成绩
Grid1.ComboBox(11).AddItem i
Next
For i = 1 To Grid1.Rows - 1 '设定读取行
 For j = 1 To Grid1.Cols - 1 '设定读取列
 If qy1.Fields(j - 1) = Null Then '空值的处理
 Grid1.Cell(i, j).Text = ""
 Else
 Grid1.Cell(i, j).Text = qy1.Fields(j - 1)
 End If
 Next
 qy1.MoveNext '读取下一记录
Next
Grid1.Column(1).Locked = True
End Sub

Private Sub asPopup6_Click(Cancel As Boolean)
gridsave = False
gridedit = True
griddelete = False
yuzhi = False
dbase = "入学成绩"
Grid1.Visible = False
Grid2.Visible = True
If qy5.State = adStateOpen Then '表状态
qy5.Close
End If
Dim str1 As String
 If Month(Date) >= 9 Then
    str1 = Year(Date) + 1 & "年上学期"
 Else
    str1 = Year(Date) & "年下学期"
 End If
qy5.Open "select * from 学生成绩 where 学期='" & str1 & " '", cnn, adOpenKeyset, adLockReadOnly, adCmdText
Grid2.Rows = 1 '清除所有记录
Grid2.Rows = qy5.RecordCount + 1
i = 8
Grid2.Cols = i + 1 '必须+2,因为实际上为11行,但第一行是隐藏的
For i = 0 To 7   '显示数据的字段名
Grid2.Cell(0, i + 1).Text = qy5.Fields(i).Name  '读取表6中的各字段名
Next
For i = 1 To Grid2.Rows - 1 '设定读取行
 For j = 1 To Grid2.Cols - 1 '设定读取列
 If qy5.Fields(j - 1) = Null Then '空值的处理
 Grid2.Cell(i, j).Text = ""
 Else
 Grid2.Cell(i, j).Text = qy5.Fields(j - 1)
 End If
 Next
 qy5.MoveNext '读取下一记录
Next
Grid2.Column(1).Locked = True
Grid2.Column(2).Locked = True
Grid2.Column(3).Locked = True
End Sub

Private Sub asPopup7_Click(Cancel As Boolean)
gridsave = False
gridedit = True
griddelete = False
yuzhi = False
dbase = "入学成绩"
Grid1.Visible = False
Grid2.Visible = True
If qy5.State = adStateOpen Then '表状态
qy5.Close
End If
qy5.Open "select * from 学生成绩", cnn, adOpenKeyset, adLockReadOnly, adCmdText
Grid2.Rows = 1 '清除所有记录
Grid2.Rows = qy5.RecordCount + 1
i = 8
Grid2.Cols = i + 1 '必须+2,因为实际上为11行,但第一行是隐藏的
For i = 0 To 7   '显示数据的字段名