欢迎来到天天文库
浏览记录
ID:43418743
大小:260.01 KB
页数:12页
时间:2019-10-02
《第2章 学生基本信息管理系统的开发》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、第2章学生基本信息管理系统的开发(C级)2.1项目概述2.1.1项目主要功能登陆是否合法不合法权限判断相应功能操作次数限制项目主要功能包含:(1)学生信息管理模块:该模块具体功能是学生基本基本信息的添加、信息修改、删除和查询,排序统计;(2)权限管理模块:该模块主要负责管理用户的信息,区分不同级别的用户,可提高系统安全性;(3)统计及报表;(4)数据管理四个部分。其操作流程如下所示:2.1.2程序文件结构图2-1程序文件结构2.2全局变量和数据库设计2.2.1定义全局变量全局变量的定义:PublicFlagAsIntegerPub
2、licusernameAsString这两个变量用来存放登陆用户名和相应等级,定义在标准模块Module1.BAS中。公有函数(可执行SQL语句,返回记录集)的定义:PublicFunctionexesql(ByValsqlAsString)AsADODB.Recordsetsql=Trim$(sql)Setconn=NewADODB.ConnectionSetrst=NewADODB.Recordsetconn.ConnectionString="dsn=student"’ODBC数据源名conn.OpenSetrst.Acti
3、veConnection=connrst.LockType=adLockOptimisticrst.CursorType=adOpenKeysetrst.OpensqlSetexesql=rstSetrst=NothingSetconn=NothingEndFunction公有函数亦定义在标准模块Module1.BAS中。2.2.2数据库的设计物理数据库名:studentODBC数据源名:student字段名主键数据类型长度必填默认值CHECK约束说明Sno√char8√学号Snamechar5√姓名Ssexchar2√性别Sbi
4、rthdaydatetime8[1/1/1949,1/1/2010]出生日期Sdeptchar20信科系系科Sgradeint4[1,4]年级2.2.1 S表(学生基本信息表)字段名主键数据类型长度必填默认值CHECK约束说明username√char8√用户名passwordchar5√密码jibieint2√1等级2.2.2 yonghu表(学生基本信息表)2.3效果和关键实现2.3.1登陆模块(窗体名:login)图2-2登陆界面(窗体名:login)关键技术:1、操作数据库的专用函数exesql也应添加到标准模块Modul
5、e1.BAS中并在VB在VB工程-----引用中添加Microsoft ActiveX Data Objects 2.5 Library。2、登陆错误次数限制3次不允许用户无止尽尝试密码,一旦错误超过三次程序自动结束,在窗体通用部分首先定义窗体级变量TIM,,核心程序如下:'验证操作员及密码DimsqlAsStringsql="select*fromyonghuwhereusername='"+Combo1.Text+"'andpassword='"+Text2.Text+"'"Setrs=exesql(sql)Ifrs.Reco
6、rdCount>0ThenLoadmainmain.Showusername=Combo1UnloadMeElseIfTIM=3Then'密码输错3次,退出系统myval=MsgBox("密码输入错误,请向系统管理员查询!",0,"")Ifmyval=vbOKThenEndElseMsgBox"输入错误,你还有"&3-TIM&"次机会"TIM=TIM+1EndIf3、支持键盘操作,例TEXT2文本框中支持方向键代码如下:PrivateSubtext2_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
7、IfKeyCode=vbKeyReturnThenCmdOk.SetFocus'按回车键CmdOk获得焦点IfKeyCode=vbKeyUpThenCombo1.SetFocusIfKeyCode=vbKeyDownThenCmdOk.SetFocusEndSub4、密码框中输入任何字符以制定字符显示(例“*”),应设置其passwordchar属性的值即可。2.3.2学生信息管理模块(窗体名:main)图2-3学生信息管理界面(窗体名:main)关键技术:1、采用adodc和datagrid显示数据。操作步骤:(1)选中工程-部
8、件(2)Adodc控件完成与各类数据库的连接(连接ODBC数据源student),可执行sql命令(select*froms)。(3)datagrid控件完成数据的显示(指定其DataSource为Adodc控件)。2、记录移动技术首条:Adodc
此文档下载收益归作者所有