还剩8页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
学生管理系统的系统启动和登录界面的设计学生管理系统是一个比较典型的数据库应用程序,这里我打算将学生管理系统分几部分陆续发表,希望对大家有帮助本章主要阐述学生管理系统的系统启动和登录界面的设计工具/原料由于前一段时间比较忙,没有及时将学生管理系统的文章发表,现在有了一点空闲,就学生管理系统的后续文章发表,希望对大家有点帮助步骤/方法一个程序在启动后首先需要进入启动界面,学生管理系统(以下均称系统)也不例外,在启动后进入的是使用者身份确认界面,因为目前大学的结构是学校→学院→系结构,也就是一个大学下面包含几个学院,一个学院下面又包含几个系,因此一个完善的学生管理系统必须考虑到这个问题,在系统启动后首先确定登录人的身份是至关重要的下面的图就是登录身份确认图
一、登录身份确认界面登录身份无非是___或用户,但是如何确定登录人是那一级的___或用户,必须提前在数据库这进行设定,我们在这个系统中,使用Ac__ss数据库,数据库的文件名是学生管理.mdb,在这个数据库这有8个数据表,我们在以后将陆续介绍,今天我们首先介绍数据表【用户资料】,下面是这个数据表的结构和数据表的部分数据表
一、用户资料数据表部分示例数据,可根据你的需要修改从数据表可以明显看出,___或用户不是一个,而且他们的部门是不同的,由于部门不同,登录权限同样不同,这就为我们在界面设置中提供了不少便利登录人在选定身份后,根据身份不同,将进入不同的登录界面,下面是___登录界面和用户登录界面 图
二、___登录界面 图
三、用户登录界面好了,到这里界面和数据库都介绍了,下面我们介绍程序窗口和窗口所需要的基本代码程序的启动和登录由二个窗口和一个模块组成,二个窗口的名称分别是启动窗口.frm、用户登录.frm启动窗口启动窗口如图一,主要控件是一个ComboBox控件,名称为Combo1;三个Com__ndButton控件,名称为Com__nd
1、Com__nd
2、Com__nd3;一个Timer控件,名称为Time1;以及几个Label控件Combo1的List值有二项,分别是___和用户,他的作用是提供登录人选择身份Com__nd1的Caption是“确定”,Com__nd2的Caption是“退出”,Com__nd3的Caption是“系统帮助”,其作用是让程序产生单击动作,在__【确定】按钮时,进入登录界面,__【退出】按钮时,退出系统,__【系统帮助】按钮时,显示系统帮助界面(至于系统帮助问题不是本文讨论的问题,我们将不予介绍下面是启动界面的主要代码PrivateSubCom__nd1_Click ‘按钮【确定】的__过程DimMCAsStringMC=Combo
1.TextIfMC=ThenMsgBox您没有选择登录方式,请重新选择!16错误!ExitSubEndIfIfMC=___ThenDLQX1=___ElseIfMC=用户ThenDLQX1=用户EndIfUnloadMe用户登录.ShowEndSub PrivateSubCom__nd2_ClickEndEndSub PrivateSubCom__nd3_Click系统帮助.ShowEndSub PrivateSubForm_LoadLabel
41.Caption=当代电子科技学院Label
2.Caption=For__tDateTimeDate1Label
3.Caption=For__tDateTimeNow3Timer
1.Interval=1000Timer
1.Enabled=TrueEndSub PrivateSubTimer1_TimerLabel
3.Caption=For__tDateTimeNowvbLongTimeEndSub 上面代码都特别简单,这里就不一一解释了用户登录在启动窗口不论你选择___还是用户,__【确定】后都会进入用户登录窗口,由于选择身份不同,程序会给出不同的运行界面,如果身份是___,以图二的界面运行,如果身份是用户,则以图三的界面运行,不论是那个界面,其实就是一个窗口“用户登录”窗口用户登录如图
二、图三,主要控件是二个TextBox控件,名称为Text
1、Text2;三个Com__ndButton控件,名称为Com__nd
1、Com__nd
2、Com__nd3;以及几个Label控件Text1是一个输入框,需要登录人输入登录名称,Text2也是一个输入框,需要登录人输入登录__Com__nd1的Caption是“登录”,Com__nd2的Caption是“退出”,Com__nd3的Caption是“返回”,其作用是让程序产生单击动作,在__【登录】按钮时,系统根据数据库的记录,检测这个登录人是否存在,如果存在,进入登录人应该进入的界面;如果不存在,将终止登录__【退出】按钮时,退出系统__【返回】按钮时,将返回到启动界面下面是用户登录窗口的主要代码DimzongAsInteger ‘声明窗口级公用变量 PrivateSubCom__nd1_Click登录确认Ifzong=3Then 若用户输入的次数超过三次,则自动退出 UnloadMe ExitSubEndIf IfTrimText
1.Text=Then MsgBox没有输入用户名请输入!vbOKOnly+vbExcla__tion警告 Text
2.Text= ExitSubEndIf CallSJKdb ‘注意这里在调用一个过程,请查看模块一节! strSQL=select*from 用户资料where 用户名=Text
1.TextAND 身份=DLQX1 RS.OpenstrSQLdb22 ‘RS是什么呀?请查看模块一节!IfRS.EOF=TrueThen MsgBox没有这个用户请重新输入用户名!vbOKOnly+vbExcla__tion警告 Text
1.Text= Text
2.Text= RS.Close CallGBSJK zong=zong+1 累加输入次数 ExitSubEndIfIfRS__TrimText
2.TextThen MsgBox__不正确请重新输入!vbOKOnly+vbExcla__tion警告 Text
2.SetFocus RS.Close CallGBSJK zong=zong+1 累加输入次数 ExitSubEndIfSZBM=RS部门YHMC=RS用户名YHMM=RS__YHSF=RS身份YHQX==RS权限RS.CloseSetRS=NothingCallGBSJK ‘注意这里在调用一个过程,请查看模块一节!UnloadMe主窗口.ShowEndSub PrivateSubCom__nd2_ClickDimanwAsIntege ‘声明过程级变量ranw=MsgBox确定要退出系统吗?vbYesNo请问Ifanw=6Then UnloadMeElse Text
1.Text= Text
2.Text=EndIfEndSubPrivateSubCom__nd3_ClickUnloadMe启动窗口.ShowEndSub PrivateSubForm_Load Me.Caption=DLQX1登录 Label
41.Caption=DLQX1登录 Label
42.Caption=当代电子科技学院 Label
1.Caption=DLQX1名称 Label
2.Caption=DLQX1__ zong=0 Text
1.Text= Text
2.Text=EndSub模块(程序共用变量、过程在模块中设置)模块名称 Module1前面的程序代码中,出现了几个调用过程和几个变量,这些过程和变量是全局公用过程和变量,那么这些过程和变量是如何设置的?在VB中有一个模块程序,这个模块是用来设置全局调用过程和全局调用变量的我们__【工程】-【添加模块】,出现添加模块对话框,__【打开】按钮,在工程中就会添加一个名称为Module1的模块,模块名称可以修改为你认为比较容易理解的名称,我们在这里仍然使用程序默认的名称注意模块仅仅是代码,没有界面的在模块中我们就可以添加程序公用的变量和过程(或函数),在模块中声明公用变量必须使用关键字Public,在设置公用过程也必须使用关键字Public在我们这个程序中,需要链接数据库,VB不默认链接数据库,因此我们必须添加链接数据库的引用,添加方法是__【工程】-【引用】,打开引用对话框,在对话框中选择MicrosoftDAO
3.6O__ectLibrary 和MicrosoftActiveXDataO__ect
2.7Library,勾选这二项,__确定这样链接数据库的引用就添加成功了添加了数据库的引用,我们在模块中就可以声明数据库链接对象和记录集对象了,在我们的模块中,我们声明了这二个对象,分别是db(数据库链接对象)、RS(记录集对象)另外,我们在模块中还设置了5个公用变量,这些变量是程序在运行过程中需要随时调用的,并且在运行过程中需要确定运行窗口的变量,其实这些变量就是登录人的信息下面是模块代码(这里声明的变量、对象、过程都是全局的)PublicdbAsNewADODB.Connection ‘数据库链接对象PublicRSAsNewADODB.Recordset ‘数据库记录集对象PublicDLQX1AsString ‘登录人身份变量PublicSZBMAsString = 登录人的部门PublicYHMCAsString = 登录人的用户名PublicYHMMAsString = 登录人的__PublicYHSFAsString = 登录人的身份PublicYHQXAsString = 登录人的权限PublicSubSJKdb “数据库链接公用过程 db.ConnectionString=DRIVER=MicrosoftAc__ssDriver*.mdb;DBQ=App.Path\DATA\学生管理.mdb ‘注意数据库名是学生管理.mdb db.OpenEndSubPublicSubGBSJK “关闭数据库公用过程 db.Close Setdb=NothingEndSub最后说明一点在程序中声明的变量可以是全局变量,也可以是模块级(窗体)变量,还可以是过程级变量,变量声明的位置不同,使用的关键字不同,变量的级别是不同的如果你需要设置全局变量,必须在模块中声明,使用Public关键字如果你声明模块级变量(注意所谓模块级其实就是一个窗体,不要和程序模块混淆),必须在窗体的代码窗口的通用部分声明(通用部分就是窗体代码窗口的最上端),使用Dim关键字或Private关键字如果你需要声明过程级变量,在一个过程的任何部位都可以声明,使用Dim关键字全局变量的生命期在程序运行开始就已经声明了,这个变量直至程序运行结束才结束全局变量在任何一个窗体或任何一个过程中都可以调用他的值,也可以在任何一个窗体或任何一个过程中都可以赋值,在程序结束后这个变量的生命就结束了,但是如果你在程序中转换窗体,这个变量仍然存在,直至程序结束(即关闭程序)这个变量才结束模块级变量的生命期是一个窗体在运行时,这个变量就被声明,在这个窗体运行过程中,这个变量始终是存在的,在这个窗体的任何过程都可以调用这个变量,同样也可以给变量赋值,在转换窗体后,这个模块级变量的生命就结束了过程级变量的生命期是一个窗体的某一个过程在运行时被声明,这个变量在这个过程中使用,包括调用和赋值,在过程结束后,这个变量的生命就结束了下一节我们介绍程序最关键的一个窗体“主窗口”,在主窗口牵扯到程序菜单,程序菜单是程序运行的依据,根据登录权限不同,所需要的菜单不同由于时间比较紧,本文可能存在不少问题,请对本文提出你的宝贵意见和建议。