基于SQL的教师信息管理系统课程设计报告(含源代码)

SQL,教师管理,报告.

4星 · 超过85%的资源需积分: 35 139 浏览量更新于2023-03-16 评论 18 收藏 320KB DOC 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源评论

资源推荐

目    录
1、 概述 10
2、  需求分析 11
3、 数据库逻辑设计 11
4、 软件功能设计 15
5、 界面设计 16
6、 结束语 17
7、 参考文献 19
8、 用户手册 20
Option Explicit..................................................................................................................................24
Dim panduan As String.....................................................................................................................24
Private Sub Command1_Click().......................................................................................................24
Dim rs_findbook As New ADODB.Recordset.................................................................................24
Dim conn As New ADODB.Connection..........................................................................................24
Dim sql As String..............................................................................................................................24
If Check1.Value = vbChecked Then.................................................................................................24
 sql = "='" & Trim(Text1.Text & "") & "'"........................................................................................24
End If.................................................................................................................................................24
If Check2.Value = vbChecked Then.................................................................................................24
 If Trim(sql) = "" Then......................................................................................................................24
 sql = "='" & Trim(Combo1.Text & " ") & "'"..................................................................................24
 Else...................................................................................................................................................24
 sql = sql & "and ='" & Trim(Combo1.Text & " ") & "'"..................................................................24
 End If................................................................................................................................................24
End If.................................................................................................................................................25
If Check3.Value = vbChecked Then.................................................................................................25
 If Trim(sql) = "" Then......................................................................................................................25
 sql = "='" & Trim(Text2.Text & " ") & "'".......................................................................................25
 Else...................................................................................................................................................25
 sql = sql & "and ='" & Trim(Text2.Text & " ") & "'".......................................................................25
 End If................................................................................................................................................25
End If.................................................................................................................................................25
If Check4.Value = vbChecked Then.................................................................................................25
 If Trim(sql) = "" Then......................................................................................................................25
 sql = "='" & Trim(Text3.Text & " ") & "'".......................................................................................25
 Else...................................................................................................................................................25
 sql = sql & "and ='" & Trim(Text3.Text & " ") & "'".......................................................................25
 End If................................................................................................................................................25
End If.................................................................................................................................................25
If Check5.Value = vbChecked Then.................................................................................................25
 If Trim(sql) = "" Then......................................................................................................................25
5