违纪类型、备注;课程表中字段为:专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质、考试性质;用户资料中的字段包括:用户名、密码、身份。
数据库与VB的连接:本系统的数据链接采用的是ADO方法,打开控制面板,打开ODBC数据源图标,选择"系统DSN"标签,点击"添加"按钮,在弹出的"创建新数据源"对话框中选择名称为"MicrosoftAccessDrive(*.mdb)",点击"完成"按钮,在ODBCMicrosoftAccess安装对话框中在数据源名中输入信息,在数据库这个框中,单击"选择"按钮,在弹出的选择数据库这一对话框架中,在驱动器下拉列表框中选择本系统数据库所在驱动器,在目录中选择库所在的文件夹,在文件类型中选择选"Access数据库(*.mdb)",在数据库名中选择本系统的数据库,点击"确定"按钮即完成数据链接。
在VB中,用ADODC链接数据库,用DataGrid或DATA将库中的数据在界面中显示出来,本系统采用DataGrid。在界面上右击Adodc控制,在弹出的快捷菜单中选择属性,在属性对话框中,在"属性"这一标签中,选中单选框"UseODBCDataSourceName",并在下拉文本框中选择已经配置好的数据源名信息,再在"RecordSoure"标签中,在CommardText(SQL)文本框中输入查询语句,如:select*from学生档案。同时,将桌面的DataGrid控件选中,在属性框中,将它的Datasoure设为Adodc。
我们可以设置DataGrid控件的外观:选中该控件,右击,在弹出的快捷菜单中选择"检索字段",在弹出的对话框中单击"确定",这时,表格中出现了表的字段。然后再右击,同样,在弹出的快捷菜单中选择"编辑",我们就可以所在的表格的宽度进行调整。
第六章系统(查询模块)总体规划
6.1系统功能(查询模块)
1.查询信息的情况;
2.判断信息是否符合要求;
3.将符合条件的信息进行打印;
6.2流程图
第七章系统具体实现
7.1各功能的实现
7.1.1课程管理:课程设置(如:界面如图二)
(图二)
运行程序后,进入课程管理模块,课程管理模块的第一块是课程设置,在这模块中可以把专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质和考试性质等信息输入,以便使用。
下面为其代码:
PrivateSubCommand1_Click()
DimmyConAsNewADODB.Connection
DimmyRsAsNewADODB.Recordset
DimZhuanYe,NianJi,XueQi,KeCheng,JiaoCai,RenKLS,KeShi,ShangKeDD,KeChengXZ,KaoShiXZAsString
ZhuanYe=Text1.Text
NianJi=Text2.Text
XueQi=DTPicker1.Value
KeCheng=Text4.Text
JiaoCai=Text5.Text
RenKLS=Text6.Text
KeShi=Text7.Text
ShangKeDD=Text8.Text
KeChengXZ=Combo1.Text
KaoShiXZ=Combo2.Text
IfTrim(ZhuanYe)=""OrTrim(NianJi)=""OrTrim(XueQi)=""OrTrim(KeCheng)=""OrTrim(JiaoCai)=""OrTrim(RenKLS)=""OrTrim(KeShi)=""OrTrim(ShangKeDD)=""OrTrim(KeChengXZ)=""OrTrim(KaoShiXZ)=""Then
MsgBox"请填写要修改课程资料的内容!"
Combo1.Text=""
Combo2.Text=""
ExitSub
EndIf
myCon.Open"dsn=信息"
myRs.Open"select*from课程表where专业='"&Text1.Text&"'",myCon,3,2
myRs!年级=Text2.Text
myRs!学期=DTPicker1.Value
myRs!课程名称=Text4.Text
myRs!教材=Text5.Text
myRs!任课老师=Text6.Text
myRs!课时=Text7.Text
myRs!上课地点=Text8.Text
myRs!课程性质=Combo1.Text
myRs!考试性质=Combo2.Text
myRs.Update
myRs.Close
myCon.Close
MsgBox"您确定要修改吗?",vbYesNo,"提示"
Frm_UpdateGrean.Adodc1.Refresh
Frm_UpdateGrean.DataGrid1.Refresh
Text1.Text=""
Text2.Text=""
'Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Text8.Text=""
Combo1.Text=""
Combo2.Text=""
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubCommand3_Click()
UnloadMe
Frm_FindGrean.Show1
EndSub
PrivateSubDataGrid1_Click()
'Frm_UpdateGrean.Adodc1.RecordSource="select*from课程表where专业='"&Trim(DataGrid1.Row)&"'"
'Text1.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("专业")
'Text2.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("年级")
'Text3.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("学期")
'Text4.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("课程名称")
'Text5.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("教材")
'Text6.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("任课老师")
'Text7.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("课时")
'Text8.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("上课地点")
'Combo1.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("课程性质")
'Combo2.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("考试性质")
EndSub
PrivateSubDTPicker1_CallbackKeyDown(ByValKeyCodeAsInteger,ByValShiftAsInteger,ByValCallbackFieldAsString,CallbackDateAsDate)
EndSub
PrivateSubForm_Activate()
Frm_FindGrean.Adodc1.RecordSource=strTiaoJian
Frm_FindGrean.Adodc1.Refresh
SetDataGrid1.DataSource=Frm_FindGrean.Adodc1
EndSub
PrivateSubForm_Load()
Combo1.AddItem("必修")
Combo1.AddItem("选修")
Combo1.AddItem("自开")
Combo2.AddItem("考试")
Combo2.AddItem("查考")
Text1.Text=""
Text2.Text=""
'Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Text8.Text=""
Combo1.Text=""
Combo2.Text=""
EndSub
PrivateSubText1_Change()
EndSub
PrivateSubText2_Change()
EndSub
PrivateSubText8_Change()
EndSub
课程管理:课程查询(如:界面如图三)
(图三)
当输入查询类别、运算符和条件后可以查找到所需要的课程设置,或按查询时间来查询,输入所要查找的时间段,就可查到所要的课程设置。
代码如下:
DimsqlstrAsString
PrivateSubCombo1_Change()
EndSub
PrivateSubCombo2_Change()
EndSub
PrivateSubCombo4_Change()
EndSub
PrivateSubCombo5_Change()
EndSub
PrivateSubCombo7_Change()
EndSub
PrivateSubCommand1_Click()
DimaAsString
DimKCCX1AsString
DimKCCX2AsString
Dimstr1AsString
Dimstr2AsString
IfOption3.Value=TrueThen
a=Trim(Combo2)
SelectCasea
Case"="
KCCX1=""&Combo1.Text&""&Combo2.Text&"'"&Trim(Text1)&"'"
Case"like"
KCCX1="Instr(1,"&Combo1.Text&",'"&Trim(Text1.Text)&"')<>0"
EndSelect
a=Trim(Combo4)
SelectCasea
Case"="
KCCX2=""&Combo3.Text&""&Combo4.Text&"'"&Trim(Text2)&"'"
Case"like"
KCCX2="Instr(1,"&Combo3.Text&",'"&Trim(Text2.Text)&"')<>0"
EndSelect
IfOption1.Value=TrueThen
IfKCCX1=""Then
strTiaoJian="select*from课程表where"&KCCX2
ElseIfKCCX2=""Then
strTiaoJian="select*from课程表where"&KCCX1
Else
strTiaoJian="select*from课程表where"&KCCX1&"and"&KCCX2
EndIf
ElseIfOption2.Value=TrueThen
IfKCCX1=""Then
strTiaoJ
上一篇:
vb学生信息管理系统(VB+sql)+毕业论文万字(论文和程序)
下一篇:
电咖汽车入选2018独角兽企业榜百强 发布“天际”品牌将推高估值