ian="select*from课程表where"&KCCX2
ElseIfKCCX2=""Then
strTiaoJian="select*from课程表where"&KCCX1
Else
strTiaoJian="select*from课程表where"&KCCX1&"or"&KCCX2
EndIf
Else
IfKCCX1=""Then
strTiaoJian="select*from课程表where"&KCCX2
ElseIfKCCX2=""Then
strTiaoJian="select*from课程表where"&KCCX1
Else
MsgBox"请选择连接方式!",vbOKOnly,"警告"
ExitSub
EndIf
EndIf
If(KCCX1&KCCX2)=""Then
MsgBox"请输入查询类别!",vbOKOnly,"警告"
ExitSub
Else
UnloadMe
Frm_UpdateGrean.Show1
EndIf
EndIf
IfOption4.Value=TrueThen
IfVal(Combo6)>Val(Combo9)Then
MsgBox"请正确选择年份!",vbOKOnly+vbExclamation,"信息提示"
Combo6.SetFocus
ExitSub
Else
IfVal(Combo6)=Val(Combo9)Then
IfVal(Combo7)>Val(Combo10)Then
MsgBox"请正确选择月份!",vbOKOnly+vbExclamation,"信息提示"
Combo7.SetFocus
ExitSub
Else
IfVal(Combo7)=Val(Combo10)Then
IfVal(Combo8)>Val(Combo11)Then
MsgBox"请正确选择日期!",vbOKOnly+vbExclamation,"信息提示"
Combo8.SetFocus
ExitSub
EndIf
EndIf
EndIf
EndIf
EndIf
IfCombo6.Text=""OrCombo7.Text=""OrCombo8.Text=""OrCombo9.Text=""OrCombo10.Text=""OrCombo11.Text=""Then
MsgBox"请输入完整的日期",vbOKOnly,"警告"
ExitSub
EndIf
str1=Trim(Combo6)&"-"&Trim(Combo7)&"-"&Trim(Combo8)
str2=Trim(Combo9)&"-"&Trim(Combo10)&"-"&Trim(Combo11)
str1=Format(str1,"yyyy-mm-dd")
str2=Format(str2,"yyyy-mm-dd")
Ifsqlstr=""Then
sqlstr=""&Trim(Combo5.Text)&">=#"&Format(str1,"yyyy-mm-dd")&"#and"&Trim(Combo5.Text)&"<=#"&Format(str2,"yyyy-mm-dd")&"#"
Else
sqlstr=sqlstr&"and"&Trim(Combo5.Text)&">=#"&Format(str1,"yyyy-mm-dd")&"#and"&Trim(Combo5.Text)&"<=#"&Format(str2,"yyyy-mm-dd")&"#"
EndIf
Ifsqlstr=""Then
MsgBox"请先输入查找时间!"
ExitSub
EndIf
strTiaoJian="select专业,年级,学期,课程名称,教材,任课老师,课时,上课地点,课程性质,考试性质from课程表where"&sqlstr
UnloadMe
Frm_UpdateGrean.Show1
EndIf
IfOption3.Value<>TrueAndOption4.Value<>TrueThen
MsgBox"请选择查询方式!",vbOKOnly,"警告"
ExitSub
EndIf
EndSub
PrivateSubCommand3_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Dimi,jAsInteger
Fori=1999To2010
Combo6.AddItemi
Combo9.AddItemi
Nexti
Combo6.ListIndex=0
Combo9.ListIndex=0
Fori=1To12
Combo7.AddItemi
Combo10.AddItemi
Nexti
Combo7.ListIndex=0
Combo10.ListIndex=0
Fori=1To31
Combo8.AddItemi
Combo11.AddItemi
Nexti
Combo8.ListIndex=0
Combo11.ListIndex=0
Combo1.AddItem("专业")
Combo1.AddItem("年级")
Combo1.AddItem("课程名称")
Combo1.AddItem("教材")
Combo1.AddItem("任课老师")
'Combo1.AddItem("课时")
Combo1.AddItem("课程性质")
Combo1.AddItem("考试性质")
Combo2.AddItem("=")
Combo3.AddItem("专业")
Combo3.AddItem("年级")
Combo3.AddItem("课程名称")
Combo3.AddItem("教材")
Combo3.AddItem("任课老师")
'Combo3.AddItem("课时")
Combo3.AddItem("课程性质")
Combo3.AddItem("考试性质")
Combo4.AddItem("=")
Combo5.AddItem("学期")
Combo1.Text=""
Combo2.Text=""
Text1.Text=""
Combo3.Text=""
Combo4.Text=""
Text2.Text=""
Combo5.Text=""
Combo6.Text=""
Combo7.Text=""
Combo8.Text=""
Combo9.Text=""
Combo10.Text=""
Combo11.Text=""
EndSub
7.1.2打印统计
运行打印统计后可以按条件把符合条件的各种信息以报表形式罗列出来,各种信息还可以以打印出来或以报表形式保存。打印统计包括班级统计分析、档案统计分析、课程统计分析、成绩统计分析和交费统计分析五类。
班级统计分析(如:界面如图四)
(图四)
代码如下:
PrivateSubCommand1_Click()
DimSQLoriginalAsString
DimSQLaddAsString
DimSQLorderAsString
DimstrSqlAsString
SQLoriginal="SELECT年级,专业,人数,辅导员,备注FROM班级表"
SQLadd="WHERE年级=年级AND专业=专业"
SQLorder=""
IfCheck1.Value=1AndIsNumeric(Text1)Then
SQLadd=SQLadd+"and年级='"+Text1+"'"
EndIf
IfCheck2.Value=1AndNotIsNull(Text2)Then
SQLadd=SQLadd+"and专业='"+Text2+"'"
EndIf
IfCheck3.Value=1AndIsNumeric(Text3)Then
SQLadd=SQLadd+"and人数='"+Text3+"'"
EndIf
IfCheck4.Value=1AndNotIsNull(Text4)Then
SQLadd=SQLadd+"and辅导员='"+Text4+"'"
EndIf
strSql=SQLoriginal+SQLadd+SQLorde
IfDat_Main.rsDat_Class.State=1Then
Dat_Main.rsDat_Class.Close
EndIf
Dat_Main.rsDat_Class.OpenstrSql
Dat_Class.ShowvbModal
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
EndSub
PrivateSubText1_Change()
EndSub
PrivateSubText3_Change()
EndSub
档案分析统计(如:界面如图五)
(图五)
代码如下:
PrivateSubCommand1_Click()
DimSQLoriginalAsString
DimSQLaddAsString
DimSQLorderAsString
DimstrSqlAsString
ResumeNext
SQLoriginal="SELECT*FROM学生档案"
SQLadd="WHERE学号=学号AND姓名=姓名"
SQLorder=""
IfCheck1.Value=1AndIsNumeric(Text1)Then
SQLadd=SQLadd+"and学号='"+Text1+"'"
EndIf
IfCheck2.Value=1AndNotIsNull(Text2)Then
SQLadd=SQLadd+"and姓名='"+Text2+"'"
EndIf
IfCheck3.Value=1AndNotIsNull(Text3)Then
SQLadd=SQLadd+"and专业='"+Text3+"'"
EndIf
IfCheck4.Value=1AndIsDate(DTPicker1)Then
SQLadd=SQLadd+"and出生年月=#"&DTPicker1.Value&"#"
EndIf
strSql=SQLoriginal+SQLadd+SQLorde
IfDat_Main.rsDat_Strudent.State=1Then
Dat_Main.rsDat_Strudent.Close
EndIf
Dat_Main.rsDat_Strudent.OpenstrSql
Dat_Strudent.ShowvbModal
Text1.Text=""
Text2.Text=""
Text3.Text=""
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
'Combo1.AddItem("男")
'Combo1.AddItem("女")
Text1.Text=""
Text2.Text=""
Text3.Text=""
EndSub
PrivateSubText1_Change()
EndSub
课程统计分析(如:界面如图六)
(图六)
代码如下:
PrivateSubCommand1_Click()
DimSQLoriginalAsString
DimSQLaddAsString
DimSQLorderAsString
DimstrSqlAsString
SQLoriginal="SELECT*FROM课程表"
SQLadd="WHERE专业=专业AND课程名称=课程名称"
SQLorder=""
IfCheck1.Value=1AndNotIsNull(Text1)Then
SQLadd=SQLadd+"and专业='"+Text1+"'"
EndIf
IfCheck2.Value=1AndNotIsNull(Combo1)Then
SQLadd=SQLadd+"and课程性质='"+Combo1+"'"
EndIf
'IfCheck3.Value=1AndNotIsNumeric(Text2)Then
'SQLadd=SQLadd+"and课时='"+Text2+"'"
'EndIf
IfCheck4.Value=1AndNotIsNull(Text3)Then
SQLadd=SQLadd+"and课程名称='"+Text3+"'"
EndIf
strSql=SQLoriginal+SQLadd+SQLorde
IfDat_Main.rsDat_Grean.State=1Then
Dat_Main.rsDat_Grean.Close
EndIf
Dat_Main.rsDat_Grean.OpenstrSql
Dat_Grean.ShowvbModal
Text1.Text=""
Combo1.Text=""
'Text2.Text=""
Text3.Text=""
EndSub
PrivateSubComm
上一篇:
vb学生信息管理系统(VB+sql)+毕业论文万字(论文和程序)
下一篇:
电咖汽车入选2018独角兽企业榜百强 发布“天际”品牌将推高估值