ASP+SQL的POS机维修管理系统

选择管理员身份通过登陆页面（图 4-1）可以进入管理员页面，页面上方菜单栏有若干功能选项,这里挑选其中具有代表性的功能页面和代码粘贴如下:

添加员工信息页面add_emple_info.asp:

图4-2 图书添加示意图

'' boolean to abort record edit

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

If (Request.QueryString <> "") Then

 MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)

End If

''设置一个返回键，回到view_emple_info.asp页面

If request.Form("tj") = "返回" Then

end if

''接收form表中所有记录

 If (CStr(Request("MM_insert")) = "form1") Then

 

 MM_editConnection = MM_access_test_STRING

 MM_editTable = "employee_info"

 MM_editRedirectUrl = "view_emple_info.asp"

 MM_fieldsStr = "e_name|value|RadioGroup1|value|e_jb|value|e_mail|value|e_address|value|e_bz|value|e_del_flag|value"

 MM_columnsStr = "e_name|'',none,''''|e_sex|'',none,''''|e_jb|'',none,''''|e_mail|'',none,''''|e_address|'',none,''''|e_bz|'',none,''''|e_del_flag|none,none,NULL"

 ''读出每条记录，并且将每条记录存放到一个数组中

MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

   MM_typeArray = Split(MM_columns(MM_i+1),",")

    ''将信息存放到数据库中

Set MM_editCmd = Server.CreateObject("ADODB.Command")

    ''如果为空则添加不成功

If (MM_editRedirectUrl <> "") Then

查找员工信息页面search_emple_info.asp:

''设置一个查找键，查找内容不能为空

if request.Form("tj") = "查找" then

if request.Form("search")<> "" then

end if

end if

''根据接收的数据条件，查询员工信息

Set employee_info = Server.CreateObject("ADODB.Recordset")

employee_info.ActiveConnection = MM_access_test_STRING

If (Request.QueryString("search") <> "") Then

employee_info.Source = "SELECT * FROM employee_info where e_id like ''%" & request.QueryString("search") & "%'' or e_name like ''%" & request.QueryString("search") & "%'' or e_sex like ''%" & request.QueryString("search") & "%'' or e_jb like ''%" & request.QueryString("search") & "%'' or e_mail like ''%" & request.QueryString("search") & "%'' or e_gl like ''%" & request.QueryString("search") & "%'' or e_address like ''%" & request.QueryString("search") & "%'' or e_bz like ''%" & request.QueryString("search") & "%'' ORDER BY e_id ASC"

else

employee_info.Source = "SELECT * FROM employee_info where e_del_flag=0 ORDER BY e_id ASC"

end if

       ''在数据库中设置一个名为e_del_flag的指针，1为删除，0为未删除。Set employee_info = Server.CreateObject("ADODB.Recordset")

employee_info.ActiveConnection = MM_access_test_STRING

employee_info.Source = "SELECT * FROM employee_info where e_del_flag=1 ORDER BY e_id ASC"

employee_info.CursorType = 0

employee_info.CursorLocation = 2

employee_info.LockType = 1

employee_info.Open()

employee_info_numRows = 0

选择用户身份通过登陆页面（图4-1），可以进入用户页面页面设计风格和管理员页面一致上边菜单栏下边为显示栏。当然用户所能实现的功能与管理员所能完成的功能相比要少很多。

系统测试是管理信息系统开发期间中一个十分重要而漫长的阶段。其重要性体现在它是保证系统质量与可靠性的最后关口。且对整个系统开发过程包括系统分析、系统设计和系统实现的最终审查

调试过程分为三个阶段：分调、联调、总调。

1.分调也称模块程序调试，是调试工作的基础工作，目标是发现并纠正程序设计阶段产生的错误。具体做法对每一个模块进行调试。调试时着重检查了如下几方面：

（1）    模块运行是否正常、无死机。包括检查有无语法错误（例如打错语句、语句不配对等）、逻辑错误（例如文件或变量找不到、变量类型错误等）和流程模块错误（例如模块内的功能调度、模块的进入与退出失败等）。

（2）     模块的功能是否符合设计要求。 包括检查功能有无多余或丢失，功能是否准确无误，算法是否正确，格式是否合理等。

（3）     模块的技术性能如何。包括检查对输入的响应，数据检索、统计与输出的速度等。

（4）     界面是否友好。包括检查画面是否清晰美观，对话是否适度，操作是否方便。

2.联调是指子系统中各程序模块之间的联合调试，目的是发现并纠正系统设计过程中产生的错误。具体做法是逐个子系统进行调试。调试时特别检查了如下几方面：

（1）子系统内模块功能的调度是否正确。包括模块间的进退是否自如，功能调度中变量的传递有无问题等。

（2）子系统的功能是否符合设计的要求。包括功能是否齐全无错漏。

（3）子系统内的数据组织是否符合功能的需要。包括基本数据项是否完整，数据文件间的关系是否正确，数据接口设计是否合理等。

3.总调是对整个程序系统以及人工过程与环境的总调试，目标是发现并纠正系统分析阶段产生的错误。具体做法是对由各个子系统结合而成的程序系统以及配合系统运行而所需的人工过程或操作环境（例如数据采集、预处理、录入操作和设备设置等）进行统一的综合调试。总调已经有了分调和联调的基础，其重点应检查了如下几方面：

（1）系统的整体调度功能是否正常。包括主程序与各级菜单之间的进入与返回，口令输入，权限控制等是否都能正确执行。

（2）系统的功能是否符合系统分析和总体设计的要求。包括系统的功能和结构有为错漏，功能的分配与模块的分解是否合理等。

（3）系统的数据组织与存储是否符合设计的要求。包括检查数据的总容量，文件或数据库的检索效率几子系统之间的数据联系等。

调试的关键是发现错误，因为只要发现错误，纠正就不难做到。为了有效地发现错误，我采用了两种调试方法：静态调试法、动态调试法

（1）    静态调试法

用人工的方式对文档、程序、数据等资料进行审核，找出其中的错误。这种方法不用运行程序，完全靠调试人员从文字资料的字里行间中进行检查，因而是一种“静态的”调试方法。

（2）    动态调试法：

通过程序系统的运行，在程序的“动态”执行中检查和发现错误。我在正确掌握程序的功能与性能要求的情况下，采用测试用例对程序进行数据驱动下的动态测试。

我采用了静态调试和动态调试相结合的方法，经历了分调、联调和总调阶段，运用适当的测试用例，对系统进行了测试。经过系统测试，程序运行中出现的一些问题和难点在老师的大力帮助下已经一一得到解决，程序基本上实现了图书馆的管理要求。