VB宾馆客房管理系统(数据流图+ER图) 第3页
[3] 房态查看的界面及代码:
Private Sub Form_Activate()
Dim i As Integer '定义一个整型变量
Dim criteria As String '定义一个字符串变量
Dim mydb1 As Database '定义数据库
Dim myrs1 As Recordset '定义字段
Dim myrs2 As Recordset
Dim myrs3 As Recordset
Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\kfgl.mdb") '定义数据环境
Set myrs1 = mydb1.OpenRecordset("kf", dbOpenSnapshot) '定义数据表
'入住房间查询
sql = "select * from kf where kf.房态 like " + Chr(34) + "入住" + Chr(34) + ""
Set myrs2 = mydb1.OpenRecordset(sql)
'维修房间查询
sql = "select * from kf where kf.房态 like " + Chr(34) + "维修" + Chr(34) + ""
Set myrs3 = mydb1.OpenRecordset(sql)
For i = 1 To 25 '房态显示
criteria = "房间号 ='" & Command1(i).Caption & "'"
myrs1.FindFirst criteria
If myrs1.NoMatch Then
Else
If myrs1.Fields("房态") = "空房" Then Command1(i).Picture = LoadPicture("") '空房
If myrs1.Fields("房态") = "入住" Then Command1(i).Picture = LoadPicture(App.Path & "\image\rz.ico")
If myrs1.Fields("房态") = "维修" Then Command1(i).Picture = LoadPicture(App.Path & "\image\wx.ico")
End If
Next i
If Not myrs2.EOF Then myrs2.MoveLast
If Not myrs3.EOF Then myrs3.MoveLast
Labsy.Caption = myrs2.RecordCount '客房入住数
Labwx.Caption = myrs3.RecordCount '客房维修数
Labkx.Caption = 25 - Val(Labwx.Caption) - Val(Labsy.Caption) '客房空闲数
Labsyl.Caption = Val(Labsy.Caption) / 25 * 100 & "%" '客房使用率
End Sub
Private Sub Form_Unload(Cancel As Integer)
main.Enabled = True
End Sub
Private Sub Command1_Click(Index As Integer) '查询住宿信息
main_zscx.Text2.Text = "1"
If Index >= 0 <= 25 Then
main_zscx.Data1.RecordSource = "select * from djb where 标志='1'and 房间号='" & Command1(Index).Caption & "'"
main_zscx.Data1.Refresh
End If
Load main_zscx
main_zscx.Show
End Sub
Private Sub Command2_Click()
Unload Me
main.Enabled = True
End Sub
2.2 数据库设计
概念模型是数据库系统的核心和基础。在系统的数据库设计中，首先要对系统分析得到的数据字典中的数据结构、数据流和数据储存进行分析，并参照DFD，把数据抽出来，确定实体的属性以及实体间的关系，这样才能得出系统的关系模式。
实体联系图（ER图）是一种用于静态数据结构的概念模型。本系统采用ER图的方法进地数据结构分析，能过ER图来描述现实世界信息结构的数据库设计方法。
2.2.1 数据库设计需求分析
需求分析的目的在于识别用户的数据需求，非形式地描述有关数据对象及其联系的要作记录的信息，取得如下要作记录信息的非形式描述：1）每个客户登记住宿时提供的信息
需要提供记录的信息，包括唯一的身份证号，姓名，地址，出差事由，住宿天数，联系电话等等。2）客房信息
关于客房的信息必须包括房间号、房间类型、价格、房态。3）客房预订的有关信息
需要记录姓名，身份证号，联系电话，详细地址，工作单位，客房类型，房间价格。4）退房时涉及的信息
需要记录凭证号码，姓名，证件号码，联系电话，详细地址，工作单位，房间号，客房类型，房间价格，住宿日期，住宿天数，宿费，折扣，电话费，会议费，存车费，赔偿费，退房日期时间等信息。2.2.2 E－R图
ER图可以来描述静态数据结构：实体、联系、实体和联系的属性。其图形符号示例如下：
根据以上分析结果，绘制出本系统的ER图，见图2.2.2 。图中没有注明实体和联系的属性，因为属性已在本文中进行了文字说明。