下载文档原格式
一、时钟代码。
1.添加计时器控件time1time1的interva为1000，enabled为T form1的load事件public ss,mm,hh,x,y,x2,y2,x3,y3,x4,y4 store 0 to ss,mm,hhform1的init事件x=thisform.Width/2y=thisform.Height/2thisform.fillcolor=rgb(128,128,255) thisform.Circle(100,x,y)for i=1 to 12x1=x+100*cos(i*3.14159/6)y1=y+100*sin(i*3.14159/6)thisform.fillcolor=rgb(255,188,255)thisform.Circle(5,x1,y1)nexttime1的time事件thisform.forecolor=rgb(128,128,255)x2=x+90*cos((ss-15)*3.14159/30)y2=y+90*sin((ss-15)*3.14159/30) thisform.line(x,y,x2,y2)ss=mod(ss+1,60)x2=x+90*cos((ss-15)*3.14159/30)y2=y+90*sin((ss-15)*3.14159/30) thisform.forecolor=rgb(255,0,0) thisform.line(x,y,x2,y2)if ss=0thisform.forecolor=rgb(128,128,255)y3=y+70*sin((mm-15)*3.14159/30)thisform.line(x,y,x3,y3)mm=mod(mm+1,60)thisform.forecolor=rgb(128,128,255)x4=x+60*cos((hh-3)*3.14159/6)y4=y+60*sin((hh-3)*3.14159/6)thisform.line(x,y,x4,y4)hh=hh+1/60x3=x+70*cos((mm-15)*3.14159/30)if hh>=12hh=0endifendifx3=x+70*cos((mm-15)*3.14159/30)y3=y+70*sin((mm-15)*3.14159/30)thisform.forecolor=rgb(0,255,0)thisform.line(x,y,x3,y3)x4=x+60*cos((hh-3)*3.14159/6)y4=y+60*sin((hh-3)*3.14159/6)thisform.forecolor=rgb(0,0,0)thisform.line(x,y,x4,y4)二、同心圆。
vfp学生管理系统课程设计一、教学目标本课程的教学目标是使学生掌握VFP学生管理系统的基本概念、设计方法和实现技巧。
通过本课程的学习，学生将能够：1.知识目标：理解VFP学生管理系统的架构和功能，掌握数据库设计的基本原则，了解VFP编程语言的基本语法。
2.技能目标：能够使用VFP工具进行数据库设计和操作，能够编写VFP程序实现学生管理系统的功能。
3.情感态度价值观目标：培养学生对计算机科学的兴趣，提高学生解决实际问题的能力，培养学生的团队合作精神和创新意识。
二、教学内容本课程的教学内容主要包括以下几个部分：1.VFP学生管理系统的基本概念：介绍VFP学生管理系统的定义、功能和应用场景。
2.数据库设计：讲解数据库设计的基本原则，介绍关系型数据库的概念，演示如何使用VFP工具进行数据库设计和操作。
3.VFP编程语言：介绍VFP编程语言的基本语法，讲解如何使用VFP实现学生管理系统的功能。
4.学生管理系统的实现：通过案例分析，讲解如何使用VFP工具和编程语言实现学生管理系统的各个功能模块。
三、教学方法为了达到本课程的教学目标，将采用以下几种教学方法：1.讲授法：用于讲解VFP学生管理系统的基本概念、数据库设计原则和VFP编程语言的基本语法。
2.案例分析法：通过分析实际案例，让学生了解如何使用VFP工具和编程语言实现学生管理系统的功能。
3.实验法：安排实验课，让学生动手操作，实际操作VFP工具进行数据库设计和编程。
4.讨论法：学生进行小组讨论，分享学习心得，互相答疑解惑。
四、教学资源为了支持本课程的教学内容和教学方法的实施，将准备以下教学资源：1.教材：选用《VFP程序设计》作为主教材，为学生提供系统的VFP知识体系。
2.参考书：推荐《VFP数据库应用实例》等参考书籍，为学生提供实际操作案例。
3.多媒体资料：制作PPT课件，为学生提供直观的学习资料。
4.实验设备：准备计算机实验室，为学生提供动手实践的机会。
课程名称：数据库技术及应用设计题目：学生信息管理系统姓名：尹洪棣班级：电子商务092学号： 2联系电话：指导教师：刘大召课程设计时间：2011.5.22至2011.5.30目录一、系统说明1.1系统设计目的 (3)1.2系统功能简介 (3)1）查询 (3)2）数据操作 (3)3）浏览打印 (4)4）系统帮助 (4)1.3系统设计平台 (5)二、系统设计开发2.1数据库设计 (5)2.2系统数据表的关系 (6)2.3封面表单设计 (7)2.4登陆验证设计 (8)2.5系统桌面设计 (9)2.6主菜单，主页右键快捷单设计 (10)2.7学生信息设计 (11)2.8课程信息设计 (15)2.9学生选课成绩信息设计 (16)3.0管理员信息设计 (17)3.1报表、标签设计 (19)3.2主程序设计 (20)3.3程序连编和打包 (21)三、总结.设计的心得和感想 (21)数据库课程设计报告电子商务092 2 尹洪棣指导老师：刘大召一、系统说明1.2设计目的经过一个学期对数据库的学习，在一定的基础上掌握了数据库的建立和相关要件的建立，全面认识了VF6.0和Vf9.0，通过一周时间左右的课程实习，更深层掌握数据表、数据库的基本操作，已经深入了解学习程序的开发、包括表单、菜单、程序间的联系的建立，全面巩固数据库知识的学习。
同时，开发此学生信息管理系统，主要面向班级学生的信息管理和成绩管理，简化日常学生班干对学生的管理工作，有助提高工作效率，并能提供更为直观、准确、容易理解的信息内容。
1.2系统功能简介按照日常对学生管理的需要和操作，此学生信息管理系统，针对应用于管理学生的基本信息、选修课程管理、以及成绩的信息管理，其实现的基本功能包括如下：管理员功能：本系统通过界面加密，所以只有相应的管理员才能进入系统中，对相应的学生信息进行操作，在一定的程度上保证了数据的机密性和可靠性。
1）查询：一．学生信息查询模块，学生信息查询可以有两种模式，一种是系统自行录入工作，另外一种是由人工输入相关性的学号、姓名进行查询。
vfp教学管理系统课程设计一、教学目标本课程的教学目标是使学生掌握VFP教学管理系统的原理、设计和应用，具备相应的知识和技能。
知识目标：学生应了解VFP教学管理系统的概念、特点和功能，掌握其基本原理和设计方法。
技能目标：学生应能够使用VFP教学管理系统进行教学管理，包括课程安排、学生管理、成绩统计等，并能够进行相应的系统维护和优化。
情感态度价值观目标：学生应认识到VFP教学管理系统在提高教学效率和质量方面的重要作用，树立正确的信息技术应用观念，增强对教学管理的热爱和责任感。
二、教学内容本课程的教学内容主要包括VFP教学管理系统的原理、设计和应用。
1.VFP教学管理系统的概念、特点和功能。
2.VFP教学管理系统的基本原理和设计方法。
3.VFP教学管理系统的应用，包括课程安排、学生管理、成绩统计等。
4.VFP教学管理系统的维护和优化。
三、教学方法本课程采用讲授法、案例分析法和实验法相结合的教学方法。
1.讲授法：通过讲解VFP教学管理系统的原理、设计和应用，使学生掌握相关知识。
2.案例分析法：通过分析实际应用案例，使学生更好地理解和掌握VFP教学管理系统的使用和方法。
3.实验法：通过实际操作VFP教学管理系统，使学生掌握系统的应用技巧，提高实际操作能力。
四、教学资源本课程的教学资源包括教材、多媒体资料和实验设备。
1.教材：选用国内权威出版社出版的VFP教学管理系统相关教材，保证内容的科学性和系统性。
2.多媒体资料：制作精美的PPT课件，辅助讲解和展示VFP教学管理系统的原理和应用。
3.实验设备：配置相应的计算机设备和网络设施，为学生提供实际操作VFP教学管理系统的平台。
五、教学评估本课程的评估方式包括平时表现、作业、考试等，以全面客观地评估学生的学习成果。
1.平时表现：通过观察学生在课堂上的参与度、提问回答等情况，评估其对VFP教学管理系统的理解和掌握程度。
2.作业：布置与课程内容相关的作业，要求学生独立完成，评估其对知识的应用和实际操作能力。
课题名称：学籍管理信息系统一系统分析据本次课程设计指导老师的要求,需建立一个“学籍管理系统”，以取代人工管理。
开发项目如:1能对与学籍管理有关的各类数据进行输入，修改,浏览与打印。
2能根据需要查询学籍管理所需的各类数据。
3打印学生学籍信息，奖学金，个人简历等报表.了解了老师的要求，我详细查阅了图书馆的相关书籍，经过调查，设想,我终于归纳出了目标系统，以满足数据需求和功能需求.二总体程序设计总体程序设计共分为三个层次，系统功能需求可分为4 方面。
如功能界面所示:（1)录入功能。
（2)浏览功能（3）查询功能(4)报表打印功能。
三报表设计数据需求建立一个名为xjgl的项目,在此项目下建立一个名为xjgl的数据库，它包括4个主表和4个自由表。
用户需提供和输入的数据如下表所示：（1）主表：学籍卡表，简历表，奖学金表,班级表Xjk。
dbf（学号,姓名，性别，出生日期,民族,政治面貌，班级名称，奖惩情况，特长生，照片,备注）Jl。
dbf(学号，起始时间，终止时间，所在单位，备注)Jxj。
dbf（学号,姓名，班级名称，第一学年，第二学年,第三学年，第四学年，累计)Bj.dbf（班级名称,所属系部，入学年度,学制，备注）（2）自由表:系部表，民族表，政治面貌表，毕业班级表xb。
dbf(系部名称）zzmm。
dbf(政治面貌)mz。
dbf（民族）Bj.dbf（班级名称，所属系部,入学年度，学制,备注）四表单及代码1 根据需要共建立了8个表单，分别是：“登陆系统”表单、“欢迎界面"表单、功能界面表单、数据查询表单、学籍数据管理表单、报表打印表单、班级基本信息表单、奖学金数据管理表单。
截图如下：（1）“登陆系统”表单代码:确定：do casecase thisform。
optiongroup1.value=1if thisform。
text1。
value=”aaa”and thisform.text2。
value=”111messagebox（”欢迎使用本系统")do form 欢迎界面thisform.releaseelsei=i+1if i<=3messagebox（”账号或密码错，重新输入"）thisform。
经济管理学院学生信息管理系统的设计与实现09年 12 月 28 日一、课程设计的目的和意义当今，人类正在步入一个以智力资源的占有和配置，知识生产、分配和使用为最重要因素的知识经济时代，为了适应知识经济时代发展的需要，大力推动信息产业的发展，我们通过对学生信息管理系统的设计，来提高学生的操作能力，及对理论知识的实践能力，从而提高学生的基本素质，使其能更好的满足社会需求。
学生信息管理系统是一个简单实用的系统，它是学校进行学生管理的好帮手。
此软件功能齐全，设计合理，使用方便，适合各种学校对繁杂的学生信息进行统筹管理，具有严格的系统使用权限管理，具有完善的管理功能，强大的查询功能。
它可以融入学校的信息管理系统中，不仅方便了学生信息各方面的管理，同时也为教师的管理带来了极大地便利。
我们进行本次课程设计的主要目的是通过上机实践操作，熟练掌握数据库的设计、表单的设计、表单与数据库的连接、SQL语言的使用和了解它的功能：数据定义、数据操纵、数据控制，以及简单VF程序的编写。
基本实现学生信息的管理，包括系统的登录、学生信息的录入、学生信息的浏览、学生信息的查询、学生信息的修改和学生信息的删除，并对Visual FoxPro6.0的各种功能有进一步的了解，为我们更进一步深入的学习奠定基础，并在实践中提高我们的实际应用能力，为我们以后的学习和工作提供方便，使我们更容易融入当今社会，顺应知识经济发展的趋势。
二、系统功能设计通过该系统可以基本实现学生信息的管理，包括系统的登录、学生信息的录入、学生信息的浏览、学生信息的查询、学生信息的修改和学生信息的删除。
系统功能模块如下图所示。
三、系统设计内容及步骤3.1 创建项目管理文件1.启动foxpro系统，建一个项目管理器，命名为“学生管理”。
3.2 数据库及数据表的设计1. 设计数据表的结构，数据表的结构如下：2. 建立数据库及表的操作如下：（1）选择项目管理器中的“数据”。
vf学生成绩管理系统流程图+组织结构设计图+管理职能图-课程设计目录第1章可行性分析 (4)1.1 成绩管理信息系统开发的必要性 (4)1.2 开发的可行性调查 (4)1.2.1技术方面 (4)1.2.2管理方面 (4)1.2.3经济方面 (4)1.3 可行性调查结果分析 (4)第2章系统分析 (6)2.1 组织机构 (6)2.2 管理职能分析 (6)2.2.1 管理职能图 (6)2.2.2 相关部门的管理职能 (7)2.3 业务流程分析 (7)2.4 数据流程分析 (8)2.5 现行系统评价 (9)2.6 系统优化 (10)2.7 数据字典 (12)2.8 本系统的运行环境 (17)第3章系统设计 (18)3.1 系统目标设计 (18)3.2 新系统功能模块设计 (18)3.2.1 系统主模块 (19)3.2.2 查询模块 (19)3.2.3 维护模块 (19)3.2.4 统计模块 (19)3.2.5 打印模块 (19)3.3 数据库设计 (19)3.3.1 数据库需求分析 (19)3.3.2 数据库概念设计 (19)3.3.3 数据可逻辑设计 (21)3.3.4 数据库结构的实现 (22)3.4 输入设计 (22)3.5 输出设计 (22)3.6 代码设计 (24)3.6.1 学生学号的代码设计 (24)3.6.2 课程号的代码设计 (24)第4章系统实施 (25)4.1 系统源程序 (25)4.2 试运行及结果分析 (27)第5章设计心得 (30)参考文献 (31)《学生成绩管理信息系统》学生成绩管理系统简介：学生成绩管理信息系统是针对学校教务处的大量业务处理工作而开发的管理软件，是典型的管理信息系统（Management Information System）。
它是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,它能够为用户提供充足的信息和快捷的查询手段。
能有效的帮助学校和老师掌握学生的情况，为学生提供成绩跟课程方面的查询。
综合练习学生管理系统说明书（1）4个表学生信息表:学生成绩表：口令表:日志表（２)4个报表(打印按钮)学生信息表；学生成绩表；口令表;日志表(3）１个菜单数据查询数据浏览系统维护系统管理信息表维护口令设置成绩表维护帐户管理系统日志数据备份数据恢复退出系统数据库系统的具体情况：欢迎界面表单要求：“欢迎使用”计时器控件“学生管理系统”标签“进入系统”按钮和“退出系统”按钮点击“退出系统”按钮--－--－--－返回到Wiｎdows界面点击“进入系统”按钮进入系统登陆表单要求:“学生管理系统登陆”,“请输入用户”和“请输入密码”3个标签２个文本框“确认”和“退出”两个按钮当输入帐户和密码正确时,点击“确认“按钮,进入主菜单如果输入密码错误时,显示当输入三次以后,显示点击确定后，显示点击“是”后，退出系统，返回Ｗｉndｏws界面。
数据查询菜单点击该菜单后，显示页面要求：“数据查询”、“数据查询”、“查询方式”、“输入查询值”标签“确定”、“退出”按钮１个文本框1个编辑框２个选项按钮组在“学生信息表”“学生成绩表”“按学号查询”“按姓名查询”四个选择2项后,在文本框中输入查询值,点击“确定”按钮后,在文本框中显示查询结果; 点击“退出”按钮,返回主菜单数据浏览菜单点击该菜单后，显示页面要求：“学生数据浏览”、“今日的日期是”、“当前时间是”标签1个页框（包含2个页面)“退出”按钮２个标签1个timｅr控件（显示系统时间）当点击“退出”按钮后，返回到主菜单。
在“学生成绩表”页面中在这个页面中，包含：“学号”、“姓名”、“数据库”、“高等数学”、“英语”、“总分”标签以及对应文本框“首记录”、“上一条”、“下一条”、“尾记录”4个按钮点击按钮时候,显示相应的学生成绩表中的记录。
在“学生信息表”页面中在这个页面中，包含一个表格。
系统维护菜单(1)子菜单：成绩表维护表单要求:1个表格（显示学生成绩表)“学号”、“姓名”、“数据库”、“高等数学”、“英语”、“总分”标签以及对应文本框1个组合按钮（“首记录”，“上一个”,“下一个”,“尾记录”，“添加”,“编辑”,“删除”,“打印”，“退出”)当点击“首记录”,“上一个”,“下一个”,“尾记录”按钮时,在文本框中显示相应的记录;当点击“添加”按钮后,显示可以输入记录,点击“保存”按钮后,返回界面。
当点击“编辑”按钮后,显示可以修改已经存在的记录,并点击“保存”返回。
当点击“删除”按钮后，显示选择“是”后,对删除的记录作删除标记,当点击“退出”按钮后，删除作标记的记录。
当点击“打印”按钮后,显示（报表）当点击“退出”按钮后，返回主菜单,同时删除已经做删除标记的记录。
(2)子菜单:信息表维护表单（和成绩表维护表单相同)系统管理菜单(1）口令设置表单要求:“修改密码”、“输入原密码”、“输出新密码”、“重输新密码”标签３个文本框“确定”、“退出”按钮当点击“确定”按钮后改变当前用户的密码，点击“退出”按钮返回主菜单（2)帐户管理表单要求:１个表格(帐户表）“姓名”、“密码”标签和文本框一个命令按钮组(和前面相同)（3)系统日志表单点击“打印”按钮后，打印日志报表点击“清除”按钮后,清除日志记录点击“退出”按钮后,返回主菜单（4)系统备份表单要求:“请选择备份目录”“请选择备份目标目录”标签以及文本框“开始备份”和“退出”按钮2个“…”选择路径按钮ActiveX控件中的进度条控件ProgressBar通过路径的选择把一个文件复制到另一个路径下面后,点击“开始备份”按钮,使用进度条控件显示过程,当复制成功后,弹出“复制完成对话框”,点击“确定”按钮后返回该表单。
点击“退出”按钮，返回主表单(5）数据恢复表单要求: “选择需要恢复数据目录”“选择恢复数据的目标目录”标签和文本框“开始恢复”“退出”按钮，以及２个“…”选择路径按钮ＡｃtｉｖeX控件中的进度条控件PrｏgressBａr(6)退出系统选择“否”返回主菜单选择“是”退出到Windowｓ制作过程,代码：进入系统中写入:ＤＯFＯＲM学生管理系统登陆.scx thisform.ｒelease退出系统中写入：ask=meｓsagebox("确定要退出系统吗？",4+32＋256,"学生管理系统") iｆasｋ=６ｃｌose ａllquitelsｅeｎdif数据环境中加入新口令表(存密码和账号的）FOＲM１.ＩNＩＴ中写入：Puｂlic errｏrｎumber,PsErrornumbｅr=０退出中写入ask=messagebox("确定要退出吗?＂，4+32+２56,"学生管理系统")if asｋ=6thｉｓform.rｅｌｅaseeｌｓeｅｎｄiｆ确定中写入：use新口令表a=Thiｓform.text1.ｖaluｅb=Thisｆorｍ.text2.ｖａlueｉｆa=＝""n=messageｂox("请输入用户名",4+３2,"学生管理系统登陆＂)ｄo cａｓecａse ｎ＝6thiｓｆorm.ｔｅxt1.vaｌｕｅ＝""thisform.tｅｘt１．setｆocusｃａｓe n=7ｔｈｉｓforｍ.relｅaｓeendｃａseelｓeif b＝=""n＝mｅｓsagｅbｏx("请输入密码",４+32，＂学生管理系统登陆")do casecase n＝６ｔhisｆorm.text2.vａluｅ＝＂"thisｆorm.text２.setfoｃuｓcaｓe ｎ=7ｔｈiｓforｍ.relｅaseｅｎdｃａseｅndｉfeｎdifｌocａtｅfor alltrim(新口令表．Id）==aｌlｔｒim(ａ）ｉｆfounｄ()ｉf aｌｌtrｉm(新口令表.Pｓ)==aｌltrim（b）do 学生管理系统．ｍpｒthisfｏrm.releaseelsemｅssagebox("密码错误,请重新输入",６4，"学生管理系统登陆") errｏrｎumber=eｒrｏｒnumbeｒ+1endiｆelsemesｓagebox（＂用户"+a+"不存在！",６4,"学生管理系统登陆")erｒorｎｕmbｅｒ=errornuｍber+1endifif errorｎumber=3ＭＥＳSＡGEBOX("您已经输入3次错误,请按确定退出＂,64,"学生管理系统") ask=mｅssａgeｂｏx("确定要退出吗？",４+3２+256,"学生管理系统")if ａsｋ=6cｌoｓｅaｌlｑuitｅlseenｄｉfenｄif数据查询中代码:确定中写入：no=alltrｉm（ｔhisfoｒm.Tｅxt1．value)iｆthｉｓform.opｔioｎgｒoｕｐ１.vａlue=1if thisform.ｏptｉｏｎgrouｐ2．valuｅ=1if empty(ｎo）meｓsageboｘ("对不起,学号不能为空。
",16,"错误")ｔhisfｏrｍ.Text１.seｔfｏｃｕsreturnendiｆｓelecｔ学生信息表ｌoｃａte for ａlltrim(学生信息表．学号）=ｎoif noｔｆound(）mesｓagebox("没有找到你输入的学号。
",1６,＂错误")ｔhｉsｆｏrm．Tｅxt1.seｔfocusrｅturnendifthiｓfoｒm.Ｅdit1.ｖaｌuｅ=＂学号"+" "＋学号ｔhｉsfｏｒm.Eｄiｔ2．valｕe="姓名"+" "+学生信息表.姓名thｉsform.Edit3.vａlue="性别＂+" "+学生信息表．性别thisform．Eｄit4.ｖalue="出生年月"＋" "＋ｄｔｏc(学生信息表.出生年月)thisｆorm.edit5.value＝"家庭住址"+""+学生信息表.家庭住址ｔhisform.Ｅdｉt６.ｖａlue="备注"+" "+学生信息表.备注retｕrｎendiｆselect学生信息表lｏｃatｅfor alltrim(学生信息表.姓名)=noif ｎｏt ｆound()ｍeｓsagｅboｘ（"没有找到您输入的姓名！"，16，"错误")thisｆoｒm．Tｅｘt1.setｆocusrｅtuｒnｅndｉｆthisform.Ｅdit1.valｕe=＂学号＂＋＂"+学号thiｓfｏrｍ.Ediｔ２．value＝"姓名"+" ＂＋学生信息表.姓名thisfoｒm.Edit3．valuｅ="性别"+" "+学生信息表.性别thiｓform.Edit4.ｖalｕｅ="出生年月"＋" "+dtoc(学生信息表.出生年月) tｈｉsform．ｅdｉt５.vａluｅ="家庭住址"+＂"+学生信息表.家庭住址thｉsfｏrm．Ediｔ6.ｖalue="备注"+" "+学生信息表.备注ｅｌseif thisform.ｏptｉｏngroｕp2．value=１ｉf emｐtｙ(no)messagｅbox（"对不起,学号不能为空！",１6,"错误")tｈｉsfｏrｍ．Ｔext１.sｅtfoｃｕsreｔuｒnendifseleｃt 学生成绩表lｏcate foｒalｌtrｉm(学生信息表.学号)=noｉf not foｕnｄ（)meｓsagebox("没有找到你输入的学号！",1６,"错误")thiｓｆorm.Ｔeｘt1.sｅtfｏcｕsrｅturnendｉfｔhisｆoｒm.Edｉt1.valuｅ="学号"＋" "＋学生成绩表.学号ｔhisfoｒｍ.Eｄit2．value=＂姓名"+" "+学生成绩表.性名thｉsｆorm.Ｅdit3.valｕe＝＂数据库"+＂＂+str(学生成绩表.数据库)thisｆｏrｍ.Ediｔ4.vａlue="高等数学＂+" "+str(学生成绩表.高等数学)tｈisform.eｄｉt５.value＝"英语"+" "＋stｒ（学生成绩表.英语）ｔｈiｓfｏrm.Edｉt6．vaｌｕe=＂总分"＋" "＋ｓtr(学生成绩表.总分) elseif empｔy(no）mｅssaｇebox("对不起,姓名不能为空!",16,"错误")ｔhisfｏrm.Texｔ１．sｅｔfｏcusrｅｔurｎendifselecｔ学生成绩表loｃate for alltrim(学生成绩表.性名）=nｏif not fouｎd()ｍｅssagebox("没有找到您输入的姓名!＂,16,"错误＂)tｈｉsforｍ.Teｘｔ1．setｆoｃusrｅｔurnｅｎdifthiｓform.Ｅdit1.valuｅ="学号"+" "+学生成绩表.学号ｔhisfｏｒm.Edit2.ｖaｌｕe=＂姓名"＋＂"+学生成绩表.性名ｔhisfoｒm.Edｉt3．vaｌue="数据库＂＋" "+str(学生成绩表.数据库)ｔhisform.Ediｔ４．ｖalｕe="高等数学"＋""+ｓtr(学生成绩表.高等数学) thisfｏrm.edit５.valuｅ="英语"+" "+stｒ（学生成绩表.英语)thiｓform.Edｉt６.value="总分"+＂＂+str(学生成绩表．总分）ｅndifendif退出中写入:ｔhisfｏｒm.rｅｌease数据浏览中代码:首记录：ｇo topThｉｓforｍ．refresh上一条：skip -1Go ｔopIｆｂof(）Tｈｉｓｆorm.rｅfresｈ下一条：Ｓkip 1If eof()Ｇo topＴhｉsｆoｒm.ｒefreｓｈ尾记录：Go boｔtomThiｓfｏｒm.ｒｅfreｓｈ计时器中ＴIMＥＲ1.TＩMER中写入: bｅl５.cａｐtiｏn=dtｏｃ(date(）) Tｈｉsfｏrm．lａbeｌ6.ｃaption=tiｍｅ(）退出中写入：Thiｓfｏrm.ｒelｅasｅ数据环境中加入学生成绩表和学生信息表学生信息表维护代码：首记录,上一个,下一个，尾记录同上添加中写入：append bｌａnkＴhｉsｆｏrｍ,refresh编辑中定入：thiｓform.txｔ学号.setfoｃus（)保存:ｍｅsｓaｇebox(“已存入”，4８，“警告”)Thisform.refresh删除中写入:delete fｒｏｍ学生信息表ｗheｒｅ学号=thisform．ｔｘt学号.ｖａlue Thisfoｒm．grid1．recoｒdsourｃe＝””PacｋＴｈisｆorm．gｒid１.reｃｏｒdｓource=”学生信息表”Tｈisｆｏrm.rｅfreｓｈ打印中写入：listｔo pｒinter promｐt数据环境中加入学生信息表学生成绩表维护同上的代码，数据环境中加入学生成绩表学生账户管理中浏览学生密码的代码也同上,数据环境中加入口令表口令表设置用于改密码,代码如下:确定中写入:ＬＯCAL jjjj=0ｆoｒｉ=1to 3s="text"＋ａlltrim(ｓtｒ（ｉ）)d＝"ｌaｂｅl"＋ａlｌtrim（str(i))ｉf empty(ｔｈｉsｆoｒm.&s..ｖalue)ｍessagｅboｘ(ｔhｉsform.&d.．caｐｔion+"不能为空",64,＂系统提示"）ｔhisform．＆s..setｆocusEＬSEIF s="teｘt3＂jj=１ENＤIFENＤIFENDFORIF jj=１seｌeｃt 新口令表GO toplｏｃate ｆｏr alltrim(tｈｉsfoｒm.text1.valｕe)=alltｒｉｍ(新口令表.id）if fｏund()if allｔｒiｍ(thisform.text2.valuｅ)=alｌtｒim（新口令表.ｐs)aｎd aｌｌtrim(thiｓfoｒｍ.ｔeｘｔ3.valuｅ）=alltrim(tｈiｓfｏｒm.tｅxｔ4.valｕｅ)rｅplace 新口令表.ps with ＡＬLTRIＭ(thisform.teｘｔ3.Valｕe)MＥＳSAＧEＢＯＸ("密码修改成功＂，6４,"系统提示"）tｈisform.text1.Ｖalue=""tｈisfoｒm．tｅｘt2.V alue=""thｉsform.teｘt3.Valｕｅ＝"＂ｔｈiｓform.ｔext4.value＝""thisform.texｔ1.SetＦｏcｕｓELSＥMESSAGＥBＯX("密码不正确或两次输入密码不一致,请重新输入",48，＂系统提示") ｔhiｓform．text2．Value=""tｈisfｏｒｍ．teｘt３.Vaｌuｅ=""thisｆoｒm．text2.ＳｅtFｏｃusＥNＤＩFＥLＳEMESSＡGEBOX（"用户名"+ALLTＲＩM（thisfoｒm.text1．Valｕｅ)+＂不存在,请确认重新输入",４8，"系统提示")thisfｏrm.tｅｘt１.seｔfocusｔhisfｏｒm.tｅxｔ1.SelStart=0ｔhisｆorm．text１．SelLｅngth=ＬEＮ(ALLTRＩＭ(tｈisｆorm.teｘt1.Vａlｕｅ))tｈisform．text２.Valuｅ="＂tｈiｓfｏrm.text3.Ｖalue＝＂＂ENDIＦENDIF退出中写入：thｉsform.releaｓe数据环境中加入口令表系统日志表单中代码：清除按钮:y=meｓsagebox("您真的要删除吗？＂,4+32,"警告＂)if ｙ=６delｅte from 日志表thｉsｆorm.griｄ1.rｅcorｄsource="＂packthｉsｆｏrm.rｅｆreｓｈenｄif打印中代码同上退出中：tｈisform.ｒeleａｓe一个菜单中：打开菜单设计器,将数据查询，数据浏览的结果一项改为命令，选项中分别写入:Do ｆｏrｍ表单数据查询／表单学生数据浏览（要执行的表单名）系统维护和系统管理中，点编辑在信息表维护和成绩表维护中将结果选项改为命令,选项一项中写入:ｄo form 在执行的表单名然后运行菜单，保存即可。
