课程设计题目：登陆系统设计
姓名： 专业：
班级： 学号：
指导教师：摘要
系统登录界面是通过vb编写的一款款软件，可已通过登陆学号和密码进入该系统，如果密码不正确，则无法进入。进入系统可以查询到个人信息以及所设计的计算器，电子相册等。该软件可以保护自己的个人信息，只有密码正确才可以看到其中内容。
一、功能描述。
1、运行。打开登陆界面。
2、输入密码。
密码正确可以进入，密码不正确禁止进入。
3 登陆界面。
可见有文件、编辑、格式、程序、关于等下拉菜单。
4 查看程序。
点击程序可看见电子相册、计算器、时钟、计时器。
5程序内容。
电子相册可翻阅查看，也可放大、缩小、全屏、退出。计算器可以计算四则运算函数运算等。时钟可以查看时间，也可计时使用。
6个人信息。
点击关于即可查询个人信息。
二、概要设计。
三、详细设计。
1、登陆窗体。
**如下：private sub command1_click()
static n%
if = 10602202" and = 123456" then
msgbox "欢迎您进入本系统！"
elsen = n + 1
msgbox "对不起您不能进入！请重新输入认证信息！"
if n = 3 then
msgbox "无法进入该系统，请退出"
endend if
end if
end sub
private sub command2_click()
end sub
private sub command3_click()
end sub
private sub timer1_timer()
if = then
= 0end if end sub
运行界面。密码正确则。
若密码不正确。
个程序设计。
1）计算器。
**如下。dim op as integer '有了运算符号。
dim num# '记录结果。
dim midnum '记录中间值。
dim ind% '运算符。
dim dotsign as integer '小数点。
private sub cmd100_click()
if ind = 3 and val(txt) <0 then
txt = num / val(txt) *100
elseif val(txt) =0 then
txt = 除数不能为0"
end if
end sub
private sub cmdback_click()
if txt <>0." then
txt = mid(txt, 1, len(txt) -1)
end if
end sub
private sub cmdc_click()
txt = 0."
dotsign = 0
num = 0
op = 0
end sub
private sub cmdce_click()
txt = 0."
dotsign = 0
end sub
private sub cmddot_click()
dotsign = 1
end sub
private sub cmdequ_click()
midnum = val(txt)
select case ind
case 0
num = num + midnum
case 1
num = num - midnum
case 2
num = num * midnum
case 3
if midnum <>0 then
num = num / midnum
elsetxt = 除数不能为0"
exit sub
end if
end select
txt = num
op = 1
dotsign = 0
end sub
private sub cmdnum_click(index as integer)
if op = 1 then
txt = 0."
dotsign = 0
end if
if dotsign = 1 then
txt = txt + cmdnum(index).caption
op = 0
elseif txt <>0." then
txt = mid(txt, 1, len(txt) -1) &cmdnum(index).caption &
elsetxt = cmdnum(index).caption &
end if
op = 0
' =len(txt)
'dotsign = 0
end if
end sub
private sub cmdop_click(index as integer)
select case index
case 0
num = num + val(txt)
ind = 0
case 1
if num=0 then
num = val(txt)
ind = 1
case 2
num = val(txt)
ind = 2
case 3
ind = 3
num = val(txt)
end select
op = 1
dotsign = 0
end sub
private sub cmdsign_click()
txt = val(txt)
end sub
private sub cmdsqr_click()
if val(txt) >0 then
txt = sqr(val(txt))
elsetxt = 负数不能开方"
end if
end sub
private sub cmdx1_click()
if val(txt) <0 then
txt = 1 / val(txt)
elsetxt = 除数不能为0"
end if
end sub
private sub form_keypress(keyascii as integer)
dim i%
if keyascii = asc("0") then
i = 0cmdnum_click (i)
elseif keyascii = asc("1") then
i = 1cmdnum_click (i)
elseif keyascii = asc("2") then
i = 2cmdnum_click (i)
elseif keyascii = asc("3") then
i = 3cmdnum_click (i)
elseif keyascii = asc("4") then
i = 4cmdnum_click (i)
elseif keyascii = asc("5") then
i = 5cmdnum_click (i)
elseif keyascii = asc("6") then
i = 6cmdnum_click (i)
elseif keyascii = asc("7") then
i = 7cmdnum_click (i)
elseif keyascii = asc("8") then
i = 8cmdnum_click (i)
elseif keyascii = asc("9") then
i = 9cmdnum_click (i)
elseif keyascii = asc(".then
cmddot_click
elseif keyascii = asc("+then
cmdop_click (0)
VB课程设计报告
课程设计题目个人收支管理。难度 姓名 刘泽禄。学号 913103860633 随着社会生活步调的不断加快，人们越来越繁忙。也因此各项收入和支出名目繁多，如果不善于管理常会出现入不敷出，工资感觉没怎么用到月底就已经全光了。所以对自己在日常生活中的收入和支出进行记录和管理是十分必要的。这也正是设计这个程...
vb课程设计报告
vb程序设计。设计题目 键盘打字练习。学院 经济管理学院 班级 学号 营销1301 2013011694 指导教师 崇美英。学生姓名 闫鑫。起止日期 14 02 24 14 02 28 成绩。目录 登陆界面。1.1课程设计题目3 1.2小组成员3 1.3系统分析及界面设计3 2.1系统主要功能及流程...
VB课程设计报告
表目录。图目录。企业单位人事档案管理工作是一种繁琐的，务求准确迅速的信息检索工作。随着计算机信息技术的飞速发展，人类进入信息时代，社会的竞争越来越激烈，企业人事管理就越显示出其不可或缺性，成为企业一个非常重要的模块。企业人事管理系统主要是用于对所有员工的基本资料进行录入 职务变更和管理。使用人事管理...