房屋租赁管理系统详细设计

南京信息工程大学实验（实习）报告

实验（实习）名称详细设计日期12.10 得分指导教师李振宏

一、实验目的

以概要设计为基础，通过对房屋租赁管理系统系统的详细设计，掌握算法描述工具的使用，能够完成每个模块的算法设计和数据结构的设计。能够独立完成一个房屋租赁管理系统信息系统的详细设计工作。

二、实验要求

应用软件工程课程中介绍的详细设计的方法和技术确定房屋租赁管理系统系统中每个模块的算法，能够应用常用设计技术和方法完成相关设计工作。为后续编码阶段提供依据和指导。

三、实验内容

完成房屋租赁管理系统系统的详细设计，确定系统中每个模块的算法。.

四、实验步骤

1.背景

1）软件系统的名称：房屋租赁管理系统

2）本项目的任务开发者：计算机科学与技术02班：

3）软件系统的用户：房屋租赁管理系统管理员和授权用户

4）定义 MIS: 管理系统

HYMIS: 房屋租赁管理系统

质量技术交底：对一个管理项目开始时提出的要达到的管理要求。

人力强度：一个工程项目每个时间段投入人力的分布。

2.程序（模块）系统的组织结构

1）界面设计要求

用户界面采用Windows 风格，便于用户进行操作。其控制面板作为操作的主要界面，如下图所示。

3）用户界面设计规则

A． 3.1.1 字体

微软雅黑，粗体，小五号，黑色。

B． 3.1.2 控件

a).尺寸

在合理的布局下尽可能多的显示控件内的内容。

b).布局

按照操作流程或浏览顺序自左至右、由上而下的排放各种控件，使界面整体协调、美观大方。

c).自适应父对象的尺寸改变

控件应具有自适应父对象的尺寸改变的能力，当父对象的尺寸发生变化时，控件应能自动改变自己的尺寸并使界面保持整体协调，尽量减少因父对象的尺寸改变而带来的操作或浏览上的不便

3.各程序(模块)的设计说明

1）新建登录用户

代码如下：

Private Sub Command1_Click()

opentable adousers, “管理员信息”

adousers.Refresh

With adousers.Recordset

Dim I As Integer

If Trim(Text1(0).Text) = “” Then

MsgBox “用户名不能为空！”, vbExclamation + vbOKOnly, “警告”

Text1(0).SetFocus

Exit Sub

End If

If Trim(Text1(1).Text) = “” Then

MsgBox “密码不能为空！”, vbExclamation + vbOKOnly, “警告”

Text1(1).SetFocus

Exit Sub

End If

If Trim(Text1(2).Text) = “” Then

MsgBox “确认密码不能为空！”, vbExclamation + vbOKOnly, “警告”

Text1(2).SetFocus

Exit Sub

End If

If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then

MsgBox “确认密码不正确！”, vbExclamation + vbOKOnly, “警告”

Text1(2).SetFocus

Exit Sub

End If

opentable adousers, “管理员信息”

adousers.Refresh

adousers.Recordset.Find “姓名=”& “’”& Text1(0).Text & “’”, ,

adSearchForward, 1

If adousers.Recordset.EOF = False Then

MsgBox “已存在该用户！”, vbExclamation + vbOKOnly, “警告”

Text1(0).SetFocus

Text1(0).SelStart = 0

Text1(0).SelLength = Len(Text1(0).Text)

Exit Sub

End If

opentable adousers, “管理员信息”

.AddNew

!姓名= Trim(Text1(0).Text)

!密码= Trim(Text1(1).Text)

If Option2(0) Then !权限= 1

If Option2(1) Then !权限= 2

If Option2(2) Then !权限= 3

.Update

MsgBox “用户添加成功！”, vbExclamation + vbOKOnly, “警告”

Text1(0).Tex t = “”

Text1(1).Text = “”

Text1(2).Text = “”

End With

Unload Me

End Sub

3）添加租户信息

代码如下：

Private Sub cmdaddnew_Click()

With frmguestinfoedit

.Caption = "添加新租户"

.txtbookno.Locked = False

.txtbookno.Text = ""

.txtguestname.Text = ""

.txtcardid.Text = ""

.txtroomno.Text = ""

.dtpbookdate.Text = Date

.dtpbookdate.Enabled = False

End With

frmguestinfoedit.Show

End Sub

）添加房屋信息

代码如下：

Private Sub Command1_Click()

If frmmdi.adoroom.Recordset.EOF <> True And

frmmdi.adoroom.Recordset.BOF <> True Then

If frmmdi.adoroom.Recordset!房屋状态<> "可租" Then

MsgBox "已出租不能修改!", vbOKOnly + vbInformation, "警告"

Exit Sub

End If

With frmroominfoedit