学生信息管理系统毕业论文和原代码 第67页

listSelectcourse.Enabled = False

cmdModify.Enabled = False

comboGrade.AddItem "初中一年级"

comboGrade.AddItem "初中二年级"

comboGrade.AddItem "初中三年级"

comboGrade.AddItem "高中一年级"

comboGrade.AddItem "高中二年级"

comboGrade.AddItem "高中三年级"

End Sub

Private Sub listAllcourse_Click()

If listAllcourse.ListIndex <> -1 Then

listSelectcourse.ListIndex = -1

End If

End Sub

Private Sub listSelectcourse_Click()

If listSelectcourse.ListIndex <> -1 Then

listAllcourse.ListIndex = -1

End If

End Sub

.........................................................................................................

........................... frmInquiresinfo 查询学籍信息窗口代码 .................................

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

 << 上一页  [61] [62] [63] [64] [65] [66] [67] [68] [69] [70]  ... 下一页  >>