学生管理系统之查询窗体
来源:互联网 发布:多益网络手游有哪些 编辑:程序博客网 时间:2024/04/30 07:59
查询窗体的特色在于三种查询之间的关系。既可以按照单一条件查询也可以按照用户自定义选择查询。
If Check1(0).Value Then '选中第一个单选框 If Trim(txtSID.Text) = "" Then '防止学号为空 MsgBox "学号不能为空!", 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 '赋值,与check1(1),check1(2)建立关系 txtSQL = txtSQL & "student_ID= '" & Trim$(txtSID.Text) & "'" '从学籍信息表中查找学生ID End If End If If Check1(1).Value Then '选中第二个单选框 If Trim(txtName.Text) = "" Then '防止姓名为空 MsgBox "姓名不能为空!", vbOKOnly + vbExclamation, "警告" txtName.SetFocus Exit Sub Else dd(1) = True '赋值,与check1(2)建立关系 If dd(0) Then '选中第一个单选框 txtSQL = txtSQL & "and student_Name= '" & txtName.Text & "'" '学生ID和学生姓名 Else '如果没选中第一个输入框 txtSQL = txtSQL & "student_Name= '" & txtName.Text & "'" '查找学生姓名 End If End If End If If Check1(2).Value Then '选中第三个输入框 If Trim$(txtCourse.Text) = "" Then '确保课程不为空 MsgBox "课程不能为空!", vbOKOnly + vbExclamation, "警告" txtCourse.SetFocus Exit Sub Else dd(2) = True '便利后面的判断 If dd(0) Or dd(1) Then '判断选中的是check1(0),还是check1(1). txtSQL = txtSQL & "and course_Name= '" & txtCourse.Text & "'" Else '只选第三个 txtSQL = txtSQL & "course_Name= '" & txtCourse.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
- 学生管理系统之查询窗体
- 学生管理系统(四)---查询窗体
- 学生成绩管理查询系统
- 学生管理系统--主窗体设计
- 学生管理系统(二)---登录窗体
- 学生管理系统(三)---添加窗体
- 学生管理系统(五)---修改窗体
- 学生管理系统(六)---设置窗体
- 【学生系统】——查询窗体和修改窗体
- Winform之学生信息管理系统登陆窗体
- 按钮默认和窗体设定----学生管理系统之用户体验
- 学生管理系统之删除
- 学生管理系统之完善
- 数据结构之学生管理系统
- 教务管理系统-学生查询个人课表
- C# WindowForm窗体-菜单栏、状态栏设计--(学生管理系统项目)
- 学生管理系统--用户登录窗体创建总结
- 学生信息管理系统之查询数据信息
- 中移动13.6亿入股科大讯飞 助力国产语音对抗Siri
- 《黑龙江省基础测绘“十二五”规划》印发
- SQLite快速入门教程(第五集)总共五集_小布老师
- 异常处理
- Connect Mac OS X with Linux Server
- 学生管理系统之查询窗体
- 微软新Logo:时隔25年后再次更换
- 基于Aviator的注解驱动验证框架
- 2005 自定义控件 ASCX
- C++文件操作函数详解
- 大势所趋话开源——中国开源现状分析
- 《Unix & Linux 大学教程》 - 第五、六章 学习笔记
- XMPP协议的原理介绍
- 《Unix & Linux 大学教程》 - 第七、八章 学习笔记