中学上机登记系统设计

摘要：机房的上机记录簿漏填，乱填现象时常发生，还有一些不文明用语也缕见，有些学生无端被骂而受委曲。按我校要求，各专用教室都必须有完整的使用记录，本人寻思着另一种解决方案――将记录电子化，本文主要运用vb6、mdb数据库、asp设计上机登记系统。

关键词：系统设计

中图分类号：TP315 文献标识码：A文章编号：1007-9599 (2011) 14-0000-01

School Machine Registration System Design

Yu Jin

(Rushan No.3 School,Rushan264505,China)

Abstract:Room-on books for Loutian,chaos filled are frequent,and some profanity strand also see,some students were scolded for no reason and subject to complications.Required by my school,the classroom must have a dedicated full use of record,I wondered if another solution-will be recorded electronically,this paper use vb6,mdb database,asp design registration system on the machine.

Keywords:System design

本人系农村中学一线信息技术教师，岂不论信息技术的重要性，也不谈课堂教学等理论。单一个上机记录簿，总不能如我所愿，不要求有多平整划一，漏填，乱填时常发生。按我校要求，各专用教室都必须有完整的使用记录，本人寻思着另一种解决方案――将记录电子化。

一、主程序设计

将程序关键部份作如下说明：

在form1_load中，检测c：\windows\pz.txt文件，如果存在则打开，读取IIS网址。

代码如下：filenum=FreeFile'生成一个文件号

Open"c：\windows\pz.txt"For Input As#filenum'打开文件

Line Input#filenum，s1（将IIS网址存储于变量s1中）

然后将窗口置最前端，SetWindowPos Me.hwnd，HWND_TOPMOST，Me.Left\15，Me.Top\15，Me.Width\15，Me.Height\15，SWP_SHOWWINDOW

filenum=FreeFile'生成一个文件号

Me.Label1="请保持室内安静、卫生。"&vbCrLf&"认真听讲，认真练习！"

WebBrowser1.Navigate s1’打开IIS网址，显示登记页面

Sub s（）'加入启动项过程

Set w=CreateObject（"wscript.shell"）

w.regwrite"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"&1，_

App.Path&"\"&1&".exe"'本程序生成文件名为1.exe，可自行调整

End Sub

网页无法显示时的处理过程：

Private Sub WebBrowser1_TitleChange（ByVal Text As String）

If Mid（Text，1，5）="没有可以显"Or Mid（Text，1，5）="找不到服务"Then

无法显示网页时，没有直接跳过而是要求输入密码才能退出，是防止部分学生禁用本地连接或者拔出网线

mand2.Enabled=True’退出和刷新按扭可用。

mand3.Enabled=True

Me.WebBrowser1.Height=Me.Height

Else

Me.WebBrowser1.Height=Me.Height

End If

End Sub

在无法正常显示网页时退出窗口中，form2中的退出按扭command1中设置的退出密码和退出文本框text1中的KeyAscii应当是一致的。设置KeyAscii=13是支持输入完退出口令时回车退出。

清除注册表启动项可自行设计，不再细说。

本程序总体功能简单，结构清晰，不做过多说明，有关程序的详细设计及代码，请自行参见源文件。

二、数据库设计

因本系统对数据库要求不是很高，采用了简单的mdb数据库。数据库名为record。四个表，amdin用于存储后台教师管理用户信息，nr用于存储上机内容，record记录学生登记信息，xs存储学生信息。各表字段如下：

admin（教师后台管理）nr：（上机内容）hm（号码）整型，1为高一，2为高二，nr（内容），允许为空。record（学生登记信息）bh1（编号1）和xm1（姓名1）为必填，bh2和xm2允许为空。其它各项不做要求。Bj（班级），js（教师），rq（日期），jh（机号），ip（IP地址）。xs：（学生信息）bh（编号），xm（姓名），bj（班级）。这三个字段均为必填。班级中的括号为半角。

三、asp设计

这是登记系统的关键，学生主要在asp页面完成登记。

各页面关系图：Index.asp为主页面，“学生登记”调用checkuser.asp检查是否有此学生，“我已登记”调用jljc.asp（记录检查）检测在指定时间内是否登记过。“教师管理”调用glindex.asp（管理首页）。相对复杂的就是教师管理这一模块了，在教师登记时，调用admincheck.asp检查管理用户。正确提交时，gl.asp（管理页）显示管理内容：sk.asp（上课内容）―>upit.asp（更新上课内容）；xsglcx.asp（学生管理查询）―>调用xssave.asp（学生信息保存）实现xsupdate.asp（更新学生信息）；Recordlist.asp（记录管理）―>del.asp（删除记录）；pass.asp（口令）―>uppass.asp（修改口令）；退出。

conn.asp的设计，它只是连接数据库。

conn.open"Provider=Microsoft.Jet.OLEDB.4.0；Data Source="&Server.MapPath（"record.mdb"）%>，在各页中包含即可。

参考文献：

[1]VB6.0程序设计教程与实训[M].电子工业出版社S