vb学生信息管理系统及源代码

《vb学生信息管理系统及源代码》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB学生信息管理系统及源代码OptionExplicit'标识是否能关闭DimmbCloseAsBoolean'标识当前要显示的照片的文件DimmstrFileNameAsStringPrivateSubForm_Load()OnErrorResumeNextIffrmMain.mnUserType=1Then'学生用户fraSeek.Enabled=FalsefraBrowse.Enabled=FalsecmdAdd.Enabled=FalsecmdDelete.Enabled=FalsetxtSerial.Enabled=FalsedcbC

2、lass.Enabled=FalsegrdScan.Enabled=FalseIfNot(DataEnv.rsStudent.EOFAndDataEnv.rsStudent.BOF)ThenDimTempAsStringTemp="name="&"'"&frmMain.msUserName&"'"DataEnv.rsStudent.MoveFirstDataEnv.rsStudent.FindTemp'刷新所绑定的控件CallRefreshBindingEndIfExitSubElsefraSeek.Enabled=TruefraBrowse.

3、Enabled=TruecmdAdd.Enabled=TruecmdDelete.Enabled=TruetxtSerial.Enabled=TruedcbClass.Enabled=TruegrdScan.Enabled=TrueEndIfDimrsDepAsNewADODB.Recordset,rsClassAsNewADODB.RecordsetSetrsDep=DataEnv.rsDepartmentSetrsClass=DataEnv.rsClassrsDep.Open'从Department表中读取数据，填充cboDep组合框到中c

4、boDep.ClearcboDep.AddItem"全部"'将各个系的id号作为ItemData附加到组合框中cboDep.ItemData(0)=0WhileNotrsDep.EOFcboDep.AddItemrsDep("Name")cboDep.ItemData(cboDep.ListCount-1)=rsDep("id")rsDep.MoveNextWendcboDep.ListIndex=0''从class表中读取数据，填充到cboClass组合框中cboClass.ClearcboClass.AddItem"全部"WhileNotr

5、sClass.EOFcboClass.AddItemrsClass("Name")rsClass.MoveNextWendcboClass.ListIndex=0cmdList.Value=TruefraManage.Enabled=TruembClose=True'调用grdScan_Change事件显示记录明细CallgrdScan_ChangeEndSub'当DataEnv.rsStudent的当前记录发生变化时，刷新所绑定的控件(用户改变了当前记录)SubRefreshBinding()OnErrorResumeNextWithData

6、Env.rsStudentIfDataEnv.rssqlSeek.BOFAndDataEnv.rssqlSeek.EOFThen'如果不存在任何记录，则清空所有的绑定的内容txtSerial=""txtName=""dtpBirth.Value=""txtTelephone=""txtAddress=""txtResume=""imgPhoto.Picture=LoadPicture(Null)Else'否则和相应的字段进行绑定txtSerial=.Fields("serial")txtName=.Fields("name")dtpBirth.

7、Value=.Fields("birthday")txtTelephone=.Fields("tel")txtAddress=.Fields("address")txtResume=.Fields("resume")cboSex.Text=.Fields("sex")dcbClass.Text=.Fields("class")imgPhoto.Picture=LoadPicture(ReadImage(.Fields("photo")))EndIfEndWithEndSub''在DataEnv.rsStudent中查询serial为sSeria

8、l的学籍信息SubSeekStudent(sSerialAsString)IfNot(DataEnv.rsStudent.EOFAndDataEnv.