frmInquiresinfo.frm
上传用户：rocksue
上传日期：2013-06-17
资源大小：41926k
文件大小：10k
- VERSION 5.00
- Begin VB.Form frmInquiresinfo
- Caption = "查询学籍信息"
- ClientHeight = 5400
- ClientLeft = 45
- ClientTop = 345
- ClientWidth = 10275
- LinkTopic = "Form1"
- MDIChild = -1 'True
- ScaleHeight = 5400
- ScaleWidth = 10275
- Begin VB.Frame Frame1
- Caption = "查询"
- BeginProperty Font
- Name = "宋体"
- Size = 10.5
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 1932
- Left = 120
- TabIndex = 1
- Top = 3240
- Width = 9252
- Begin VB.TextBox txtClassno
- BeginProperty Font
- Name = "宋体"
- Size = 10.5
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 372
- Left = 7080
- TabIndex = 9
- Top = 360
- Width = 1092
- End
- Begin VB.TextBox txtName
- BeginProperty Font
- Name = "宋体"
- Size = 10.5
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 372
- Left = 4440
- TabIndex = 8
- Top = 360
- Width = 1092
- End
- Begin VB.TextBox txtSID
- BeginProperty Font
- Name = "宋体"
- Size = 10.5
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 372
- Left = 1560
- TabIndex = 7
- Top = 360
- Width = 1092
- End
- Begin VB.CommandButton cmdExit
- Caption = "退出查询"
- BeginProperty Font
- Name = "宋体"
- Size = 10.5
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 492
- Left = 3960
- TabIndex = 6
- Top = 1080
- Width = 1212
- End
- Begin VB.CommandButton cmdInquire
- Caption = "查询"
- BeginProperty Font
- Name = "宋体"
- Size = 10.5
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 492
- Left = 1680
- TabIndex = 5
- Top = 1080
- Width = 1212
- End
- Begin VB.CheckBox Check1
- Caption = "按班号："
- BeginProperty Font
- Name = "宋体"
- Size = 10.5
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 252
- Index = 2
- Left = 6000
- TabIndex = 4
- Top = 360
- Width = 1212
- End
- Begin VB.CheckBox Check1
- Caption = "按姓名："
- BeginProperty Font
- Name = "宋体"
- Size = 10.5
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 252
- Index = 1
- Left = 3240
- TabIndex = 3
- Top = 360
- Width = 1212
- End
- Begin VB.CheckBox Check1
- Caption = "按学号："
- BeginProperty Font
- Name = "宋体"
- Size = 10.5
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 252
- Index = 0
- Left = 360
- TabIndex = 2
- Top = 360
- Width = 1212
- End
- End
- Begin VB.PictureBox myflexgrid
- BeginProperty Font
- Name = "宋体"
- Size = 12
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 3012
- Left = 0
- ScaleHeight = 2955
- ScaleWidth = 10035
- TabIndex = 0
- Top = 0
- Width = 10092
- End
- End
- Attribute VB_Name = "frmInquiresinfo"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub cmdExit_Click()
- Unload Me
- End Sub
- Private Sub cmdInquire_Click()
- Dim txtSQL As String
- Dim MsgText As String
- Dim dd(4) As Boolean
- Dim mrc As ADODB.Recordset
-
-
- txtSQL = "select * from student_Info where "
- If Check1(0).Value Then
- If Trim(txtSID.Text) = "" Then
- sMeg = "学号不能为空"
- MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
- txtSID.SetFocus
- Exit Sub
- Else
- If Not IsNumeric(Trim(txtSID.Text)) Then
- MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
- Exit Sub
- txtSID.SetFocus
- End If
- dd(0) = True
- txtSQL = txtSQL & "student_ID = '" & Trim(txtSID.Text) & "'"
- End If
- End If
-
- If Check1(1).Value Then
- If Trim(txtName.Text) = "" Then
- sMeg = "姓名不能为空"
- MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
- txtName.SetFocus
- Exit Sub
- Else
- dd(1) = True
- If dd(0) Then
- txtSQL = txtSQL & "and student_Name = '" & txtName.Text & "'"
- Else
- txtSQL = txtSQL & "student_Name = '" & txtName.Text & "'"
- End If
- End If
- End If
-
- If Check1(2).Value Then
- If Trim(txtClassno.Text) = "" Then
- sMeg = "班号不能为空"
- MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
- txtClassno.SetFocus
- Exit Sub
- Else
- dd(2) = True
- If dd(0) Or dd(1) Then
- txtSQL = txtSQL & "and class_No = '" & txtClassno.Text & "'"
- Else
- txtSQL = txtSQL & "class_No = '" & txtClassno.Text & "'"
- End If
- End If
- End If
-
- If Not (dd(0) Or dd(1) Or dd(2) Or dd(3)) Then
- MsgBox "请设置查询方式！", vbOKOnly + vbExclamation, "警告"
- Exit Sub
- End If
-
- txtSQL = txtSQL & " order by student_ID "
- Set mrc = ExecuteSQL(txtSQL, MsgText)
-
- With myflexgrid
- .Rows = 2
- .CellAlignment = 4
- .TextMatrix(1, 0) = "学号"
- .TextMatrix(1, 1) = "姓名"
- .TextMatrix(1, 2) = "性别"
- .TextMatrix(1, 3) = "出生日期"
- .TextMatrix(1, 4) = "班号"
- .TextMatrix(1, 5) = "联系电话"
- .TextMatrix(1, 6) = "入校日期"
- .TextMatrix(1, 7) = "家庭住址"
-
- Do While Not mrc.EOF
- .Rows = .Rows + 1
- .CellAlignment = 4
- .TextMatrix(.Rows - 1, 0) = mrc.Fields(0)
- .TextMatrix(.Rows - 1, 1) = mrc.Fields(1)
- .TextMatrix(.Rows - 1, 2) = mrc.Fields(2)
- .TextMatrix(.Rows - 1, 3) = Format(mrc.Fields(3), "yyyy-mm-dd")
- .TextMatrix(.Rows - 1, 4) = mrc.Fields(4)
- .TextMatrix(.Rows - 1, 5) = mrc.Fields(5)
- .TextMatrix(.Rows - 1, 6) = Format(mrc.Fields(6), "yyyy-mm-dd")
- .TextMatrix(.Rows - 1, 7) = mrc.Fields(7)
- mrc.MoveNext
- Loop
-
- End With
-
- mrc.Close
-
-
- End Sub
- Private Sub Form_Load()
- With myflexgrid
- .CellAlignment = 4
- .TextMatrix(1, 0) = "学号"
- .TextMatrix(1, 1) = "姓名"
- .TextMatrix(1, 2) = "性别"
- .TextMatrix(1, 3) = "出生日期"
- .TextMatrix(1, 4) = "班号"
- .TextMatrix(1, 5) = "联系电话"
- .TextMatrix(1, 6) = "入校日期"
- .TextMatrix(1, 7) = "家庭住址"
- End With
- End Sub
English
