源码vb考勤.docx
- 文档编号:27941338
- 上传时间:2023-07-06
- 格式:DOCX
- 页数:12
- 大小:18.94KB
源码vb考勤.docx
《源码vb考勤.docx》由会员分享,可在线阅读,更多相关《源码vb考勤.docx(12页珍藏版)》请在冰豆网上搜索。
源码vb考勤
源码vb考勤
篇一:
VB课程设计考勤登记表
VB课程设计
考勤登记表
姓名:
熊廷林
班级:
1141302
学号:
20XX40130217
20XX年5月13日
一、系统概要
1、题目要求
2、功能概述
二、设计思路
三、窗体的详细设计
四、程序及源代码
五、心得体会
一、系统概要
1、题目要求
本题目要求开发一个用于学校或者单位进行考勤工作的实用程序。
能够对学校班级里的学生或单位的员工进行考勤,记录每天每位学生或成员的考勤情况,并能对整个班级或单位考勤情况进行统计,然后件数据保存。
考勤情况可分为出勤、迟到、早退、旷课和请假5种。
2、功能概述
这个程序主要能实现对学校学生或单位员工的考勤情况的记录,通过输入姓名和学号,以及自己输入的考勤情况,提交之后能对这些信息进行记录并统计出来。
通过对窗体文件的操作来实现以上的功能。
二、设计思路
1、先构建的窗体并添加相应的控件
2、对各个窗体及窗体上的控件caption等属性进行相应的更改
3、各个窗体相应的代码和控件相应的程序编写
4、外观的设计
三、窗体的详细设计
主程序界面:
若没有输入姓名或学号和考勤情况,程序应出现的提示对话框:
在“考勤登记表”单击“统计信息”能调出的统计情况窗口:
对此窗口文件的各项操作:
清除:
保存到文件:
篇二:
vb常用程序代码
1、求半径为r的圆的面积,要求用户从键盘输入半r。
程序代码:
PrivateSubForm_click()
constPi=3.14
dimr%
dims!
r=inputBox(“请输入半径r的值:
”,”求圆的面积”)
s=Pi*r*r
Form1.FontSize=16
Print”半径是”+Str(r)+”的圆的面积是”+Str(s)
EndSub
2、输入三个整数,从小到大顺序输出。
程序代码:
PrivateSubForm_click()
a=inputBox(“a”)
b=inputBox(“b”)
c=inputBox(“c”)
Print”排序前:
”;a,b,c
ifa>bThent=a:
a=b:
b=t
ifa>cThent=a:
a=c:
c=t
ifb>cThent=b:
b=c:
c=t
Print”排序后:
”;a,b,c
EndSub
3、输入三个整数,从大到小顺序输出。
程序代码:
PrivateSubForm_click()
a=inputBox(“a”)
b=inputBox(“b”)
c=inputBox(“c”)
Print”排序前:
”;a,b,c
ifaifaifbPrint”排序后:
”;a,b,c
EndSub
4、输入x的值,输出对应的值。
y=10+2x(050-x(1030(2060-x(30程序代码:
(一)、
PrivateSubcommand1_click()
dimxasinteger,yasinteger
x=Val(Text1.Text)
ifx>0andxy=10+2*x
msgBox”x=“&x&”y=“&y
Elseifxy=50-x
msgBox”x=“&x&”y=“&y
Elseifxy=30
msgBox”x=“&x&”y=“&y
Elseifxy=60-x
msgBox”x=“&x&”y=“&y
Else
msgBox”x=“&x&”不在统计数据的范围内”
Endif
EndSub
(二)、
PrivateSubcommand1_click()
dimx%,y%
x=inputBox(“x”)
Selectcasex
caseisy=10+2*x
caseisy=50-x
caseisy=30
caseisy=60-x
caseElse
msgBox”输入不合法”
EndSelect
Print”x=“;x,”y=“;y
EndSub
5、编写一个程序,输出给定的某年某月的天数。
程序代码:
PrivateSubcommand1_click()
dimyearasinteger,monthasinteger,dayasinteger
year=cint(Text1.Text)
month=cint(Text2.Text)
Selectcasemonth
case1,3,5,7,8,10,12
day=31
case4,6,9,11
day=30
case2
ifyearmod4=0andyearmod1000oryearmod400=0Thenday=29
Else
day=28
Endif
caseElse
day=0
EndSelect
ifday0Then
msgBoxyear&”年”&month&”月有”&day&”天”
Else
msgBox”输入的月份不符合实际!
”
Endif
EndSub
6、求S=1+2+3+....+100的累加和。
程序代码:
(一)、For….next循环
PrivateSubcommand1_click()
dimi%,s%
s=0
Fori=1To100
s=s+i
nexti
Print”s=“;s
EndSub
(二)、dowhile…Loop循环
PrivateSubcommand1_click()
dimi%,s%
s=0:
i=1
dowhileis=s+i
i=i+1
Loop
Print”s=“;s
EndSub
(三)、doUntil….Loop
PrivateSubcommand1_click()
dimi%,s%
s=0:
i=1
doUntili>100
s=s+i
i=i+1
Loop
Print”s=“;s
EndSub
7、接6,如果累加达到1000时马上终止循环,同时输出此时循环变量i的值。
程序代码:
(一)、
PrivateSubcommand1_click()
dimi%,s%
s=0
Fori=1To100
s=s+i
ifs>=1000ThenExitFor
nexti
Print”s=“;s,”i=“;i
EndSub
(二)、
PrivateSubcommand1_click()
dimi%,s%
s=0:
i=0
whilesi=i+1
s=s+i
wend
Print”s=“;s,”i=“;i
EndSub
(三)、
PrivateSubcommand1_click()
dimi%,s%
s=0:
i=1
whiless=s+i
i=i+1
wend
Print”s=“;s,”i=“;i-1
EndSub
8、任意俩个正整数,使用欧几里得算法(即辗转相除法)求它们的最大公约数。
程序代码:
(一)、while…..wend循环
PrivateSubcommand1_click()
dimm%,n%,R%
m=Val(inputBox(“请输入一个数m:
”,”求最大公约数”))
n=Val(inputBox(“请输入一个数n:
”,”求最大公约数”))
R=mmodn
whileR0
m=n
n=R
R=mmodn
wend
Print”它们的最大公约数是:
”;n
EndSub
(二)、do…..Loop循环
PrivateSubcommand1_click()
dimm%,n%,R%
m=Val(inputBox(“请输入一个数m:
”,”求最大公约数”))
n=Val(inputBox(“请输入一个数n:
”,”求最大公约数”))
R=mmodn
dowhileR0
m=n
n=R
R=mmodn
Loop
Print”它们的最大公约数是:
”;n
EndSub
9、给定一个正整数n(n≥3),判断它是否是素数。
程序代码:
(一)、原版
PrivateSubcommand1_click()
dimFlag%,i%,n&
n=Val(inputBox(“请输入一个整数”,”判断是否是素数”))Flag=0:
i=2
whileiifnmodi=0ThenFlag=1Elsei=i+1
wend
ifFlag=0ThenPrintn&”是素数”ElsePrintn&”不是素数”EndSub
(二)、改进版
PrivateSubcommand1_click()
dimFlag%,i%,k%,n&
n=Val(inputBox(“请输入一个整数”,”判断是否是素数”))Flag=0:
i=2:
k=int(Sqr(n))
whileiifnmodi=0ThenFlag=1
i=i+1
wend
ifFlag=0Then
Printn&”是素数”
Else
篇三:
VB学生实验课考勤管理系统
基于VB学生实验课考勤系统的研究与设计
学生:
陈寻寻
指导老师:
史卫三
淮南师范学院计算机与信息工程系
【摘要】
随着社会的发展和信息技术的进步,全球信息化的趋势越来越明显。
几乎没有一个学校不在走信息化的道路,都在用自己的智慧将工作效率一步一步的提升。
在现在的高校中,由于学生的分布式教学,造成了教学管理的不严谨性,使得一些学生产生了逃课旷课的侥幸心理。
所以教师的任务不仅仅是教学,还要同时负担考勤等烦杂的日常事务,这样就会严重影响到教师的授课时间,同时也影响了学生的听课时间。
因此,信息化给这样的一个状况带来了一个契机,
基于信息化的考勤系统就在这种情况下变的越来越受欢迎,它给教师带来了更加高效的处理考勤的方法,使得教学能够比较顺利的进行下去,不会再因为考勤等烦杂事务影响教学。
本系统具备较完备的信息管理功能,通过使用本系统,高校教师能够在很短的时间内完成学生的考勤任务,并将考勤信息存入数据库,即有效的保存了数据,方便以后对学生的评定,又节省了考勤所耗费的时间,使之能够更好的完成教学任务。
全文共分为:
前言、可行性分析、数据库需求分析、数据库总体设计、数据库详细设计、数据库连接等六部分,通过对高校学生考勤工作流程的具体分析,详细表述了系统的业务流程图、数据流程图、数据字典、E-R图、数据库关系图,然后采用自顶向下的几方法循序渐进地进行了系统的模块设计、代码设计、数据库设计、人机界面设计及输入输出设计等。
通过系统的规划,充分体现了信息化在公安工作中的重要性、及时性和实效性。
【关键词】VisualBasic6.0SQLServer2000学生考勤c/S模式
第一章项目需求分析
随着计算机的发展及网络技术的应用,当今社会正快速向信息自动化社会前进,信息自动化的作用也越来越大,特别是各行业的管理领域,智能化信息处理已是提高效率、规范管理、客观审查的最有效途径。
传统的学生考勤,主要是靠老师在课堂上点名或学生会抽查点名制度,学生人数多、考勤不全面、数据不准确,特别是点名考勤制耗费了老师和学生大量的时间且起不到太大的效果。
人员、部门之间的信息传递由于通过手工或纸质表格交流而显得内容不够丰富,信息传递的严重滞后使信息的沟通大大受阻。
这使得学生、教师、学校各部门之间不得不在与台帐信息的沟通上花费大量的时间和精力,既影响了整个学校管理的工作效率,同时又使学校领导不能及时掌握最新最快的学生出勤动态,给学校学风的建设带来不利的影响。
例如:
(1)考勤不全面:
一个学校班级、学生人数众多,学生会安排的考勤工作人员极有限,任课老师也不可能每节课都点名,所以高校的学生考勤无法全面地进行。
(2)数据不准确:
点名考勤制耗费了老师和学生大量的时间:
上课逐个逐个点名考勤,占用老师和学生大量的时间。
而且上大课,会经常出现点名时有人代喊到的方式,一二百人的大教室也没法确定是真还是假,往往会助长学生逃课的风气。
(3)资料的共享程度低:
老师手里掌握的考勤记录经常会与系学生会、学校教务处的考勤记录有出入。
因此,通过对学院学生考勤管理工作现状的初步调查,发现学校急需一套可以适应大量信息控制和数据处理的考勤管理方案,以便用计算机准确高效的处理方法和数据库紧凑严谨的结构代替手工操作和纸质传递。
由于学校格校区地跨面积大,学院、专业、学生数量多,对学校的考勤工作开发一套能够进行实时处理的信息管理系统,其迫切性也是不可忽视的,具体体现如下:
有了上述原因,对院学生考勤工作急需一套管理信息系统,而科学管理的迫切性也使得这套系统的开发势在必行。
系统背景
现今的社会,学校为了更好的完善自己的教育形式,为了更好的管理学生在校情况,考勤作为一个学校的基项管理,学生考勤系统软件已经成为学校管理的重要取向点,他能够把事情的复杂化转为简单化。
系统开发目的
考勤系统能够减轻本学院老师和后勤的工作力度,也大大地提高了领导、老师之间的工作效率。
不但达到了便于本校师生的教学工作,而且在生活上和学习上学生考勤这个重要的终结口,都能让老师可以很轻松简明的知道某学生一学期来在校的表现,给与下定论。
这次本人们所设计的课题正是一个学校内管理学生在校情况的体现。
系统开发目标
本系统考虑系统组成各环的功能需求,运用vb语言以及SQLServer2000编的应用系统。
这套系统应该具有先进的技术特征;配置必要的数据库和应用服务程序;组织完整的管理员操作界面。
软件系统的界面要美观,布局要合理,窗口的内容尽量简单明了提供的信息,语言要通俗易懂,有层次感,分类要清晰明了。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 源码 vb 考勤
![提示](https://static.bdocx.com/images/bang_tan.gif)