电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

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

VB学生信息管理系统及源代码_第1页
1/27
VB学生信息管理系统及源代码_第2页
2/27
VB学生信息管理系统及源代码_第3页
3/27
下载后可任意编辑VB 学生信息管理系统及源代码Option Explicit'标识是否能关闭Dim mbClose As Boolean'标识当前要显示的照片的文件Dim mstrFileName As StringPrivate Sub Form_Load() On Error Resume Next If frmMain.mnUserType = 1 Then '学生用户 fraSeek.Enabled = False fraBrowse.Enabled = False cmdAdd.Enabled = False cmdDelete.Enabled = False txtSerial.Enabled = False dcbClass.Enabled = False grdScan.Enabled = False If Not (DataEnv.rsStudent.EOF And DataEnv.rsStudent.BOF) Then Dim Temp As String Temp = "name = " & "'" & frmMain.msUserName & "'"下载后可任意编辑 DataEnv.rsStudent.MoveFirst DataEnv.rsStudent.Find Temp '刷新所绑定的控件 Call RefreshBinding End If Exit Sub Else fraSeek.Enabled = True fraBrowse.Enabled = True cmdAdd.Enabled = True cmdDelete.Enabled = True txtSerial.Enabled = True dcbClass.Enabled = True grdScan.Enabled = True End If Dim rsDep As New ADODB.Recordset, rsClass As New ADODB.Recordset Set rsDep = DataEnv.rsDepartment Set rsClass = DataEnv.rsClass rsDep.Open '从 Department 表中读取数据,填充 cboDep 组合框到中 cboDep.Clear cboDep.AddItem "全部" '将各个系的 id 号作为 ItemData 附加到组合框中 cboDep.ItemData(0) = 0 While Not rsDep.EOF cboDep.AddItem rsDep("Name") cboDep.ItemData(cboDep.ListCount - 1) = rsDep("id") rsDep.MoveNext Wend cboDep.ListIndex = 0 ''从 class 表中读取数据,填充到 cboClass 组合框中 cboClass.Clear cboClass.AddItem "全部" While Not rsClass.EOF cboClass.AddItem rsClass("Name") rsClass.MoveNext Wend cboClass.ListIndex = 0 cmdList.Value = True fraManage.Enabled = True mbClose = True '调用 grdScan_Change 事件显示记录明细 Call grdScan_ChangeEnd Sub下载后可任意编辑'当 DataEnv.rsStudent 的当前记录发生变化时,刷新所绑定的控件(用户改变了当前记录)Sub RefreshBinding() On Error Resume Next With DataEnv.rsStudent If DataEnv.rssqlSeek.BOF And DataEnv.rssqlSeek.EOF...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

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

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部