form2.frm

一个学籍管理系统代码

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form2 
   Caption         =   "学籍管理系统"
   ClientHeight    =   6525
   ClientLeft      =   495
   ClientTop       =   1515
   ClientWidth     =   10830
   LinkTopic       =   "Form2"
   ScaleHeight     =   6525
   ScaleWidth      =   10830
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   6135
      Left            =   480
      TabIndex        =   0
      Top             =   240
      Width           =   10215
      _ExtentX        =   18018
      _ExtentY        =   10821
      _Version        =   393216
      Rows            =   100
      Cols            =   11
      FixedCols       =   0
   End
   Begin VB.Menu xitong 
      Caption         =   "系统"
      Begin VB.Menu flush 
         Caption         =   "数据刷新"
      End
      Begin VB.Menu exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu manage 
      Caption         =   "学籍管理"
      Begin VB.Menu add 
         Caption         =   "添加学籍信息"
      End
      Begin VB.Menu modify 
         Caption         =   "修改学籍信息"
      End
      Begin VB.Menu quire 
         Caption         =   "查询学籍信息"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助"
      Begin VB.Menu use 
         Caption         =   "使用说明"
      End
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const row_num = 50
Const col_num = 11
Const high = 250
Public addrecord As Boolean
Public modifyrecord As Boolean
Dim grid(row_num - 1, col_num)



Private Sub end_click()
db.Close
End
End Sub


Private Sub add_Click()
Form1.Show
Form2.Enabled = False
End Sub

Private Sub exit_Click()
db.Close
Dim gotoval, gointo As Integer
gotoval = Me.Height / 2
For gointo = 1 To gotoval
DoEvents
Me.Height = Me.Height - 10
If Me.Height <= 11 Then GoTo horiz
Next gointo
horiz:
Me.Height = 30
gotoval = Me.Width / 2
For gointo = 1 To gotoval
DoEvents
Me.Width = Me.Width - 10
If Me.Width <= 11 Then End
Next gointo


End
End Sub

Private Sub flush_Click()
On Error GoTo loaderror
Dim sql As String
Set db = OpenDatabase(App.Path & "\data.mdb", False, False)
sql = "SELECT 学生.* FROM 学生 ORDER BY 学生.学号"
Set rs1 = db.OpenRecordset(sql, dbOpenDynaset)
setgrid
setgrid_head
If rs1.RecordCount > 0 Then
displayrecords
Else
MsgBox "对不起，没有找到您要的数据", vbExclamation + vbOKOnly, ""
cleardisplays
rs1.AddNew
End If
addrecord = False
modifyrecord = False
Exit Sub
loaderror:
MsgBox Err.Description
End Sub

Private Sub Form_Load()
On Error GoTo loaderror
Dim sql As String
Set db = OpenDatabase(App.Path & "\data.mdb", False, False)
sql = "SELECT 学生.* FROM 学生 ORDER BY 学生.学号"
Set rs1 = db.OpenRecordset(sql, dbOpenDynaset)
setgrid
setgrid_head
If rs1.RecordCount > 0 Then
displayrecords
Else
MsgBox "对不起，没有找到您要的数据", vbExclamation + vbOKOnly, ""
cleardisplays
rs1.AddNew
End If
addrecord = False
modifyrecord = False
Exit Sub
loaderror:
MsgBox Err.Description
End Sub


Public Sub setgrid()
On Error GoTo seterror
Dim i As Integer

MSFlexGrid1.ScrollBars = 3
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.Rows = row_num
MSFlexGrid1.Cols = col_num
For i = 0 To row_num - 1
MSFlexGrid1.RowHeight(i) = high
Next

MSFlexGrid1.ColWidth(0) = 1300
MSFlexGrid1.ColWidth(1) = 1300
MSFlexGrid1.ColWidth(2) = 500
MSFlexGrid1.ColWidth(3) = 1300
MSFlexGrid1.ColWidth(4) = 1300
MSFlexGrid1.ColWidth(5) = 1300
MSFlexGrid1.ColWidth(6) = 500
MSFlexGrid1.ColWidth(7) = 1300
MSFlexGrid1.ColWidth(8) = 2300
MSFlexGrid1.ColWidth(9) = 2300
MSFlexGrid1.ColWidth(10) = 4300

Exit Sub
seterror:
MsgBox Err.Description
End Sub


Public Sub setgrid_head()
On Error GoTo loaderror
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "学号"
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = "姓名"
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "性别"
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = "年龄"
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 4
MSFlexGrid1.Text = "专业"
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 5
MSFlexGrid1.Text = "电话"
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 6
MSFlexGrid1.Text = "班级"
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 7
MSFlexGrid1.Text = "生日"
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 8
MSFlexGrid1.Text = "身份证号"
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 9
MSFlexGrid1.Text = "家庭住址"
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 10
MSFlexGrid1.Text = "详细资料"

Exit Sub
loaderror:
MsgBox Err.Description
End Sub

Private Sub modify_Click()
Form1.Show
Form2.Enabled = False
End Sub

Public Sub displayrecords()
On Error GoTo displayerror
Dim gridrow, i As Integer
cleardisplays
MSFlexGrid1.Clear
setgrid_head
gridrow = 0
Do Until rs1.EOF
gridrow = gridrow + 1
MSFlexGrid1.Row = gridrow
For i = 0 To col_num - 1
MSFlexGrid1.Col = i
If Not IsNull(rs1.Fields(i)) Then MSFlexGrid1.Text = rs1.Fields(i) Else MSFlexGrid1.Text = ""
grid(gridrow, i) = rs1.Fields(i)
Next
rs1.MoveNext
Loop
Exit Sub
displayerror:
MsgBox Err.Description
End Sub

Public Sub cleardisplays()
Dim i, j As Integer
For i = 1 To row_num - 1
For j = 0 To col_num - 1
grid(i, j) = ""
Next

Next

End Sub

Private Sub quire_Click()
Form4.Show
Form2.Enabled = False
End Sub

Private Sub use_Click()
Form3.Show
Form2.Enabled = False
End Sub