form4.frm

一个学籍管理系统代码

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form Form4 
   Caption         =   "查询信息"
   ClientHeight    =   7395
   ClientLeft      =   720
   ClientTop       =   1230
   ClientWidth     =   10455
   ControlBox      =   0   'False
   LinkTopic       =   "Form4"
   ScaleHeight     =   7395
   ScaleWidth      =   10455
   WindowState     =   2  'Maximized
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   7455
      Left            =   360
      TabIndex        =   2
      Top             =   720
      Width           =   11175
      _ExtentX        =   19711
      _ExtentY        =   13150
      _Version        =   393216
      Rows            =   100
      Cols            =   11
      FixedCols       =   0
   End
   Begin VB.CommandButton Command2 
      Caption         =   "结束"
      Height          =   375
      Left            =   2760
      TabIndex        =   1
      Top             =   120
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "搜索"
      Height          =   375
      Left            =   840
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
End
Attribute VB_Name = "Form4"
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 Command1_Click()
On Error GoTo commanderror
Dim num As String
num = InputBox$("请输入学号(10位)", "学号搜索", "0008324231")
If num <> "" Then
num = "学号=" & " '" & num & "'"
rs1.FindFirst num
If Not rs1.NoMatch Then
MSFlexGrid1.TopRow = rs1.AbsolutePosition + 1

Else
MsgBox "对不起，没有找到您要的数据", vbExclamation + vbOKOnly, ""
End If
End If
Exit Sub
commanderror:
MsgBox Err.Description
End Sub

Private Sub Command2_Click()
On Error GoTo commanderror
Form2.Enabled = True
Unload Form4
Exit Sub
commanderror:
MsgBox Err.Description
End Sub

Private Sub Form_Load()
On Error GoTo loaderror
Dim sql As String
Set db = OpenDatabase(App.Path & "\data.mdb", True, 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



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