\I386\PRAGUEM.jpg"ALT="示例图片"align=centerwidth=30%
height=30%>
实验项目：
某某系统系统分析
实验学时：
4学时
实验日期：
2013.10.11,10.18
实验要求：
了解系统分析主要步骤、系统分析内容（可行性、业务流程、数据流程）。
实验内容：
一系统分析
指在管理信息系统开发的生命周期中系统分析阶段的各项活动和方法，应用系统思想和系统科学的原理进行分析工作的方法与技术。
系统分析阶段的目的，就是按照系统规划所定的某个开发项目范围内明确系统开发的目标和用户的信息需求，提出系统的逻辑方案。
系统分析在整个系统开发过程中，是要解决“做什么”的问题，即根据系统规划所确定的范围，对现行系统进行详细调查，尽可能弄清楚用户对信息的需求，调查原信息系统的资源，输入，处理和输出，描述现行系统的业务流程，指出现行系统的局限性和不足之处，确定新系统的基本目标和逻辑功能要求，也即提出新系统的逻辑模型，为下一阶段进行物理方案设计，解决“怎么做”提供依据。
因此，这个阶段又称逻辑设计阶段。
二房屋销售管理系统的系统分析内容
1、可行性研究
主要目标是：
进一步明确系统的目标、规模与功能，对系统开发背景、必要性和意义进行调查分析并根据需要和可能提出开发系统的初步方案与计划。
可行性研究是对系统进行全面、概要的分析。
通过调查分析，新系统设计方案有以下三个可行性：
可行性研究从三个方面着手,分析情况如下:
1、管理上的可行性。
主要是工作人员对开发信息系统的态度和管理方面的基础工作。
项目的可行必须得到主要领导的大力支持。
基础工作的好坏主要表现在管理制度和方法是否科学,规章制度是否齐全以及原始数据是否正确等方面。
该销售公司各类资料很种类繁多、数量巨大，因此公司要为各类信息，为每个客户，每个业主建立需求资料档案，也便于加强公司对客户需求的管理，因此在管理上可行。
2、技术上的可行性。
主要考虑将来的采用的硬件和软件技术能否满足用户提出的要求（计算机的容量和速度等）。
硬件上，目前的计算机配置足以满足该系统的硬件需要；软件上，操作系统采用Windows系列操作系统，数据库管理系统采用VisualFoxpro6.0，这些软件在MIS开发中已被大量应用，技术上都比较成熟。
此外，还要考虑开发人员的水平。
信息系统是一种知识密集型行业，对技术要求较高。
如果没有足够的技术实力，单纯依靠外部力量开发系统，是很难成功的。
3、经济可行性。
主要是对项目的经济效益进行评估，另一方面是开发的费用，其中包括设备购置费，软件开发费，管理和维护费用人员工资和培训费等。
面对于系统设计还应该以“标准性、安全性、兼容性、高效性、保密性、可维护性”为标准，在着眼于当前实用的基础上，为将来系统的扩展，升级留有余地。
软件的开发应能在较长时间内满足房地产市场的发展需要。
故新系统还需要满足以下这几个标准：
（1）标准性：
系统的软硬件选型都应该采用工业化标准，这样既可以保证系统运行质量又可以分享在此标准上的每一次技术进步。
（2）可靠性：
由于房屋销售信息的重要性，系统的软硬件应均为质量可靠，并采用RAID0+1廉价磁盘冗余保护技术，确保不会由于软硬件故障造成系统运行终止而使用户蒙受损失。
（3）安全性：
所有后台页面采用session检测，防止外来人员非法提交URL进行后台访问；登录模块采用用户名和密码分开检测，防止SQL注入；在实际运行中可以考虑IP过虑，防止网外用户进入；数据库定期备份。
（4）兼容性：
系统的所有软硬件理论上都应有100%的兼容性，用以保证软硬件的可互换性。
（5）高效性：
由于房屋销售每次处理的信息量较大，因此系统对信息的处理能力，响应能力都应是快速而有效的，在软件编制过程中应充分考虑到这一点。
（6）可维护性：
系统软件设计时应采用结构化模块设计，以便于开发和维护，也有利于根据情况随时进行功能调整。
同时在系统开发时应该充分考虑到用户的日常维护，使之能简便易行
通过可行性分析研究，认为新系统的开发方案切实可行，可进行开发。
联网用户访问房屋销售管理系统的互联网地址，登录后台，进入管理系统的首页。
2、业务流程：
.销售核算销售、预售收入核算，销售情况分析等基本资料
.合同管理包括合同有效性审查、合同执行情况分析、合同等级和变更等基本资料
销售员信息管理：
销售员信息录入，销售员基本信息修改、查找、删除。
添加销售记录：
添加最新销售记录。
客户信息管理模块：
客户信息录入，客户信息修改，客户信息删除。
修改密码：
该系统用户更新自己密码。
楼盘及房屋信息：
楼盘及房屋信息录入、房屋信息查询、修改、删除。
退出：
联网用户访问完该系统后，退出管理系统。
实验项目：
某某系统系统设计
实验学时：
4学时
实验日期：
2013.10.25,11.1
实验要求：
系统设计（代码设计、配置方案、数据存储、输入输出设计）
房屋销售系统详细设计
.1系统主窗体
系统主窗体主要由窗体本身和菜单构成。
首先建立一个工程，然后创建系统主窗体，主窗体的菜单，并在主窗体中添加窗体代码，来处理接各个子窗体的关系。
楼盘销售管理系统的主界面如下：
在主窗体中调用、切换不同界面，进行相应功能的实现，其代码如下：
PrivateSubbuilding_Click（）
frmbuilding.Show'打开楼房管理界面
EndSub
PrivateSubcustom_Click（）
frmcustomer.Show'打开客户信息界面
EndSub
PrivateSubinfo_Click（）
frminfo.Show'打开信息查询界面
EndSub
PrivateSubmnuEnd_Click（）
UnloadMe'结束
EndSub
PrivateSubprice_Click（）
frmprice.Show'打开房屋定价界面
EndSub
PrivateSubroom_Click（）
frmroom.Show'打开房间管理界面
EndSub
PrivateSubsale_Click（）
frmsale.Show'打开楼盘销售界面
EndSub
PrivateSubstatistics_Click（）
frmstatistics.Show'打开统计分析界面
EndSub
6.1.1楼房管理
楼房管理主要用于简历娄烦信息，包括楼房号、楼名、所处位置、占地面积、总投资、层数、房间数、简介等，并对楼房信息进行添加、修改、删除等操作。
楼房管理界面
具体代码如下：
运行窗体时出发Load事件，调用LoadData过程初始化楼房ListView设置空间可用属性，调用ShowData过程显示数据，其代码如下：
OptionExplicit
DimrsAsADODB.Recordset
DimSQLStrAsString
DimmsgAsString
DimflagAsString'判断是新增记录还是修改记录
PrivateSubForm_Load（）
CallLoadData'装载数据
CallShowData'显示数据
EndSub
调用LoadData过程，装载数据，其代码如下：
PrivateSubLoadData（）
'装载数据
DimlistAsListItem
DimkeyAsString
Setrs=Nothing
SQLStr="SELECT*FROM楼房信息表ORDERBYbuildingID"
Setrs=SelectSQL（SQLStr,msg）'查询楼房信息
ListView1.ListItems.Clear'清空ListView控件
Ifrs.RecordCount=0Then'如果不存在楼房信息，添加按钮可用，其他按钮不可用
CmdAdd.Enabled=True:
CmdModify.Enabled=False:
CmdDelete.Enabled=False
CmdCancel.Enabled=False:
CmdSave.Enabled=False
Else'如果存在楼房信息，初始化ListView控件
rs.MoveFirst
DoUntilrs.EOF
key=rs.Fields（"buildingID"）&rs.Fields（"bdname"）
Setlist=ListView1.ListItems.Add（,,key,1）
rs.MoveNext
Loop
'编辑控件可用性
CmdAdd.Enabled=True:
CmdModify.Enabled=True:
CmdDelete.Enabled=True
CmdCancel.Enabled=False:
CmdSave.Enabled=False
rs.MoveFirst'返回到第一条记录
EndIf
'设置控件Enable值
CallCtrEnable（False）
EndSub
调用Ctrenable过程设置空间的可属性其代码如下所示：
PrivateSubCtrEnable（flagAsBoolean）
'设置控件的Enable值
txtBuildingId.Enabled=flag
txtName.Enabled=flag
txtArea.Enabled=flag
txtInvest.Enabled=flag
txtFloors.Enabled=flag
txtRooms.Enabled=flag
txtPosition.Enabled=flag
txtNotes.Enabled=flag
EndSub
调用ShowData过程，在控件中显示字段的相应数据，期代码如下：
PrivateSubShowData（）
'在控件中显示数据
Ifrs.RecordCount<>0Then'如果存在记录
'为控件赋值
txtBuildingId.Text=rs.Fields（"buildingID"）
txtName.Text=rs.Fields（"bdname"）
txtArea.Text=rs.Fields（"area"）
txtInvest.Text=rs.Fields（"investment"）
txtFloors.Text=rs.Fields（"layers"）
txtRooms.Text=rs.Fields（"roomN"）
txtPosition.Text=rs.Fields（"bdposition"）
txtNotes.Text=rs.Fields（"bdintroduction"）
EndIf
EndSub
（2）当用户单击ListView控件中楼房图标时，将出发ListView1_Cilk事件，在控件中显示楼房信息，代码如下：
PrivateSubListView1_Click（）
'在控件中显示楼房信息
DimkeyAsString
Ifrs.RecordCount>0Then
key=Trim（ListView1.SelectedItem）
SQLStr="SELECT*FROM楼房信息表WHEREbuildingID='"&Left（key,4）&"'"
Setrs=SelectSQL（SQLStr,msg）
CallShowData'重新显示数据
EndIf
EndSub
（3）当用户单击【保存】按钮时，将触发CmdSave_Cilk事件。
在保存数据库之前，要对数据进行合法性检查，需要调用CheckData函数，返回True时候表示数据合法，返回False时表示数据非法。
同时需要调用setData过程来设置数据，其代码如下所示；
PrivateSubCmdSave_Click（）
'保存操作
OnErrorGoToErrMsg'错误处理
IfNotCheckDataThenExitSub'如果数据不合法就退出操作
Ifflag="Modify"Then'如果是修改数据，给出修改提示
msg=MsgBox（"您确实要修改这条数据吗?
",vbYesNo）
Ifmsg=vbYesThen
CallsetData'设置数据字段的值
Else
ExitSub
EndIf
ElseIfflag="Add"Then'如果是添加新数据
rs.AddNew
CallsetData'设置数据字段的值
EndIf
rs.Update'更新数据
'设置控件的可用性
CmdModify.Enabled=True:
CmdDelete.Enabled=True:
CmdAdd.Enabled=True
CmdSave.Enabled=False:
CmdCancel.Enabled=False
Ifflag="Add"Then
MsgBox（"成功添加数据！
"）
Else
MsgBox（"成功更新数据!
"）
EndIf
CallLoadData'重新装载数据
Ifrs.RecordCount>0Then'定位到添加或修改记录
rs.MoveFirst
rs.Find（"buildingID='"&Trim（txtBuildingId.Text）&"'"）
IfNotrs.EOFThenCallShowData'重新显示数据
EndIf
ExitSub
ErrMsg:
'报告出错信息
MsgBoxErr.Description,vbExclamation,"出错"
EndSub
调用CheckData函数，返回Ture时表示数据合法，返回False时表示数据非法，其代码如下所示：
PrivateFunctionCheckData（）AsBoolean
'检查数据的合法性
DimrstAsADODB.Recordset
DimmsgtAsString
msgt=""
'检查数据
IfTrim（txtBuildingId.Text）=""Then'检查楼房号是否为空
msgt="楼房号为空；"
ElseIfLen（txtBuildingId.Text）<>4Then'检查楼房号是否为4位
msgt=msgt&"楼房号不是4位；"
ElseIfTrim（txtName.Text）=""Then'检查楼名是否为空
msgt=msgt&"楼名为空；"
EndIf
IfNotmsgt=""Then'如果提示信息不为空，给出错误提示
MsgBox（msgt）
CheckData=False'返回False
ExitFunction
EndIf
Ifflag="Add"Then'添加数据时，检查数据唯一性
SQLStr="SELECT*FROM楼房信息表WHEREbuildingID='"&Trim（txtBuildingId.Text）&"'"
Setrst=SelectSQL（SQLStr,msg）
Ifrst.RecordCount>0Then'如果已经存在该楼房信息，提示重复添加
MsgBox（"该信息已经存在，重复添加!
"）
rst.Close
CheckData=False'如果信息重复添加，返回False
ExitFunction
EndIf
EndIf
CheckData=True'如果数据检查合法，返回True
EndFunction
调用setData过程。
给数据库的字段赋值，其代码如下：
PrivateSubsetData（）
'为字段设置数据
rs.Fields（"buildingID"）=txtBuildingId.Text
rs.Fields（"bdname"）=txtName.Text
rs.Fields（"area"）=txtArea.Text
rs.Fields（"investment"）=txtInvest.Text
rs.Fields（"layers"）=txtFloors.Text
rs.Fields（"roomN"）=txtRooms.Text
rs.Fields（"bdposition"）=txtPosition.Text
rs.Fields（"bdintroduction"）=txtNotes.Text
EndSub
（4）当用户单击【取消】按钮时，将触发CmdCancel_Clik（）事件，对当前工作执行取消操作，其代码如下：
PrivateSubcmdCancel_Click（）
'取消操作
CallShowData'重新
展开阅读全文
相关搜索