【小区物业收费管理系统】VB管理系统 Access/SQL Server数据库 设计制作介绍 代码分享
设计资料
逻辑结构设计（关系模型）
电费表（房屋编号，年份，月份，用电量，电费单价，已收金额，支付人，收费时间，备注）
物管费表（房屋编号，年份，月份，物管费，已收金额，支付人，收费时间，备注）
燃气费表（房屋编号，年份，月份，燃气量，燃气费单价，已收金额，支付人，收费时间，备注）
水费表（房屋编号，年份，月份，用水量，水费单价，已收金额，支付人，收费时间，备注）
暖气费表（房屋编号，年份，月份，暖气量，暖气费单价，已收金额，支付人，收费时间，备注）
房屋信息表（房屋编号，所在位置，面积，房型，类型，业主姓名，业主联系方式，居住人姓名，居住人联系方式，常住人信息，备注信息）
停车费表（房屋编号，年份，月份，车位号，停车费，已收金额，支付人，收费时间，备注）
系统
登录窗体
系统主页
水费查询
水费添加
水费管理
电费查询
电费添加
电费管理
费用价格管理
个人信息
房屋管理
报表
房屋信息报表
水费报表
电费报表
示例代码
水费查询
Option Explicit
Dim dh As Long '存储高度差
Dim dw As Long '存储宽度差
Private Sub Command查询1_Click() '单条件查询
On Error GoTo 结束查询
Dim search_field As String
If 查询字段 = "收费时间" Then
If 起始日期 <> "" And IsNull(起始日期) = False And 截止日期 <> "" And IsNull(截止日期) = False And 查询字段 <> "" And IsNull(查询字段) = False Then
search_field = 查询字段
sf_filter = search_field & " between #" & 起始日期 & "# and #" & 截止日期 & "#"
Else
sf_filter = ""
End If
Adodc1.RecordSource = 生成查询语句("水费查询", sf_filter, sf_order)
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.SetFocus
Exit Sub
End If
If 查询字段 = "水费" Or 查询字段 = "用水量" Then
If 最小 <> "" And IsNull(最小) = False And 最大 <> "" And IsNull(最大) = False And 查询字段 <> "" And IsNull(查询字段) = False Then
search_field = 查询字段
sf_filter = search_field & " >= " & 最小 & " And " & search_field & " <= " & 最大
Else
sf_filter = ""
End If
Adodc1.RecordSource = 生成查询语句("水费查询", sf_filter, sf_order)
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.SetFocus
Exit Sub
End If
If 查询内容 <> "" And IsNull(查询内容) = False And 查询字段 <> "" And IsNull(查询字段) = False Then
search_field = 查询字段
sf_filter = search_field & " like '%" & 查询内容 & "%'"
Else
sf_filter = ""
End If
Adodc1.RecordSource = 生成查询语句("水费查询", sf_filter, sf_order)
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.SetFocus
Exit Sub
结束查询:
MsgBox Err.Description
End Sub
Private Sub Command管理_Click()
sf_num = DataGrid1.Columns(0).Text
frm水费管理.Show 1
End Sub
Private Sub Command降序_Click()
If 排序 <> "" And IsNull(排序) = False Then
sf_order = 排序 & " DESC"
Else
sf_order = ""
End If
Adodc1.RecordSource = 生成查询语句("水费查询", sf_filter, sf_order)
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.SetFocus
End Sub
Private Sub Command全部_Click()
sf_filter = ""
Adodc1.RecordSource = 生成查询语句("水费查询", sf_filter, sf_order)
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.SetFocus
End Sub
Private Sub Command升序_Click()
If 排序 <> "" And IsNull(排序) = False Then
sf_order = 排序 & " ASC"
Else
sf_order = ""
End If
Adodc1.RecordSource = 生成查询语句("水费查询", sf_filter, sf_order)
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.SetFocus
End Sub
Private Sub Command生成报表_Click()
DataReport水费报表.DataMember = ""
With DataEnvironment1
.Commands(2).CommandType = adCmdText
.Commands(2).CommandText = _
"SHAPE {" & 生成查询语句("水费查询", sf_filter, sf_order) & "} AS Command水费查询 COMPUTE Command水费查询, SUM(Command水费查询.'水费') AS 水费合计 BY '年份','月份'"
.Commands(2).Execute ("SHAPE {" & 生成查询语句("水费查询", sf_filter, sf_order) & "} AS Command水费查询 COMPUTE Command水费查询, SUM(Command水费查询.'水费') AS 水费合计 BY '年份','月份'")
If .rsCommand水费查询_分组.State = 1 Then
.rsCommand水费查询_分组.Close
End If
Set DataReport水费报表.DataSource = DataEnvironment1
DataReport水费报表.DataMember = "Command水费查询_分组"
End With
'打开报表
DataReport水费报表.Show 1
End Sub
Private Sub Command添加_Click()
If 水费添加权限 = False Then
MsgBox "无权限"
Exit Sub
End If
frm水费添加.Show 1
End Sub
Private Sub Form_Load()
'筛选排序变量清空
sf_filter = ""
sf_order = "水费ID DESC"
查询内容.Visible = True
'--隐藏日期控件
起始日期.Visible = False
截止日期.Visible = False
'--隐藏金额控件
最小.Visible = False
最大.Visible = False
'标签
Label查询内容.Visible = True
'--隐藏日期控件
Label起始日期.Visible = False
Label截止日期.Visible = False
'--隐藏金额控件
Label最小.Visible = False
Label最大.Visible = False
'ado控件设置
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=123123;Initial Catalog=db_wy;Data Source=(local)"
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = 生成查询语句("水费查询", sf_filter, sf_order)
Adodc1.Refresh '刷新
'存储数据表格控件与窗体宽高差值
dh = Me.Height - DataGrid1.Height
dw = Me.Width - DataGrid1.Width
End Sub
Function 生成查询语句(ByVal searchtb As String, ByVal searchfilter As String, ByVal searchorder As String) As String
生成查询语句 = ""
Dim sqltext As String
sqltext = "Select * From " & searchtb
If searchfilter <> "" Then
sqltext = sqltext & " where " & searchfilter
End If
If searchorder <> "" Then
sqltext = sqltext & " order by " & searchorder
End If
生成查询语句 = sqltext
End Function
Private Sub Form_Resize()
'窗体大小变化表格控件尺寸改变
If Me.WindowState <> 1 Then
DataGrid1.Height = Me.Height - dh
DataGrid1.Width = Me.Width - dw
End If
End Sub
Private Sub 查询字段_Click()
If 查询字段 = "收费时间" Then
起始日期.Visible = True
截止日期.Visible = True
最小.Visible = False
最大.Visible = False
查询内容.Visible = False
起始日期.Value = Date
截止日期.Value = Date
GoTo a1
Else
起始日期.Visible = False
截止日期.Visible = False
最小.Visible = False
最大.Visible = False
查询内容.Visible = True
End If
If 查询字段 = "水费" Or 查询字段 = "用水量" Then
起始日期.Visible = False
截止日期.Visible = False
最小.Visible = True
最大.Visible = True
查询内容.Visible = False
GoTo a1
Else
起始日期.Visible = False
截止日期.Visible = False
最小.Visible = False
最大.Visible = False
查询内容.Visible = True
End If
a1:
'标签
If 查询字段 = "收费时间" Then
Label起始日期.Visible = True
Label截止日期.Visible = True
Label最小.Visible = False
Label最大.Visible = False
Label查询内容.Visible = False
GoTo a2
Else
Label起始日期.Visible = False
Label截止日期.Visible = False
Label最小.Visible = False
Label最大.Visible = False
Label查询内容.Visible = True
End If
If 查询字段 = "水费" Or 查询字段 = "用水量" Then
Label起始日期.Visible = False
Label截止日期.Visible = False
Label最小.Visible = True
Label最大.Visible = True
Label查询内容.Visible = False
GoTo a2
Else
Label起始日期.Visible = False
Label截止日期.Visible = False
Label最小.Visible = False
Label最大.Visible = False
Label查询内容.Visible = True
End If
a2:
End Sub
水费添加
Option Explicit
Dim dh As Long '存储高度差
Dim dw As Long '存储宽度差
Private Sub Command清空_Click()
Text(0).Text = ""
Text(1).Text = ""
Text(2).Text = ""
Text(3).Text = ""
Text(4).Text = ""
Text(5).Text = ""
Text(6).Text = ""
Text(7).Text = ""
Text(8).Text = ""
Combo(1).Text = ""
DTPicker1.Visible = False '日期控件隐藏
End Sub
Private Sub Command添加_Click()
'On Error GoTo 错误提示
If 水费添加权限 = False Then
MsgBox "无权限"
Exit Sub
End If
'判断必须输入数据的控件不能为空
If Text(0) = "" Or IsNull(Text(0)) = True Then
MsgBox "年份值不能为空！"
Exit Sub
Else
End If
If Text(1) = "" Or IsNull(Text(1)) = True Then
MsgBox "用水量值不能为空！"
Exit Sub
Else
End If
If Text(3) = "" Or IsNull(Text(3)) = True Then
MsgBox "已收金额值不能为空！"
Exit Sub
Else
End If
If Text(7) = "" Or IsNull(Text(7)) = True Then
MsgBox "房屋编号不能为空！"
Exit Sub
Else
End If
If Text(8) = "" Or IsNull(Text(8)) = True Then
MsgBox "水费单价值不能为空！"
Exit Sub
Else
End If
If Combo(1) = "" Or IsNull(Combo(1)) = True Then
MsgBox "月份值不能为空！"
Exit Sub
Else
End If
If Text(5) = "" Or IsNull(Text(5)) = True Then
MsgBox "收费日期不能为空！"
Exit Sub
Else
End If
'检查房屋编号是否已存在
If dcountlink("房屋编号", "房屋信息表", "房屋编号='" & Text(7) & "'", 0) = 0 Then
MsgBox "该房屋编号不存在，请修改后重试"
Exit Sub
End If
Dim add_conn As New ADODB.Connection
Dim add_rs As New ADODB.Recordset
With add_conn
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=123123;Initial Catalog=db_wy;Data Source=(local)"
.Open
End With
add_rs.Open "水费表", add_conn, adOpenKeyset, adLockOptimistic
add_rs.AddNew
' On Error Resume Next
add_rs!年份.Value = Text(0).Text
add_rs!用水量.Value = Text(1).Text
add_rs!已收金额.Value = Text(3).Text
add_rs!支付人.Value = Text(4).Text
add_rs!收费时间.Value = Text(5).Text
add_rs!备注.Value = Text(6).Text
add_rs!房屋编号.Value = Text(7).Text
add_rs!水费单价.Value = Text(8).Text
add_rs!月份.Value = Combo(1).Text
add_rs.Update
add_rs.Clone
Set add_rs = Nothing
add_conn.Close
Set add_conn = Nothing
MsgBox "添加完成"
Call Command清空_Click
Adodc1.Refresh
DataGrid1.Refresh
Exit Sub
错误提示:
MsgBox Err.Description
End Sub
Private Sub DataGrid2_Click()
Text(8).Text = DataGrid2.Columns(0).Text
DataGrid2.Visible = False
End Sub
Private Sub DataGrid2_LostFocus()
DataGrid2.Visible = False
End Sub
Private Sub Form_Load()
'ado控件设置
Me.Adodc1.CommandType = adCmdUnknown
Me.Adodc1.RecordSource = "select * From 水费查询 Order By 水费ID DESC"
Me.Adodc1.Refresh '刷新
'
'存储数据表格控件与窗体宽高差值
dh = Me.Height - DataGrid1.Height
dw = Me.Width - DataGrid1.Width
Me.Adodc2.Refresh
End Sub
Private Sub Form_Resize()
'窗体大小变化表格控件尺寸改变
If Me.WindowState <> 1 Then
DataGrid1.Height = Me.Height - dh
DataGrid1.Width = Me.Width - dw
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
'On Error Resume Next
frm水费查询.Adodc1.Refresh
frm水费查询.DataGrid1.Refresh
End Sub
Private Sub DTPicker1_LostFocus()
DTPicker1.Format = dtpCustom '日期格式设置
Text(5).Text = DTPicker1.Value '返回选择的日期值至文本框
DTPicker1.Visible = False '日期控件隐藏
End Sub
Private Sub Text_DblClick(Index As Integer)
If Index = 0 Then '返回年份
Text(0).Text = Year(Date)
End If
If Index = 8 And DataGrid2.Visible = False Then '显示出选择单价列表
DataGrid2.Visible = True
Else
DataGrid2.Visible = False
End If
If Index = 5 Then '双击输入日期的文本框
If Text(5) <> "" Then
Else
Text(5) = Date
DTPicker1.Value = Date
End If
DTPicker1.Visible = True '显示日期选择控件
End If
If Index = 7 Then
fw_formname = "frm水费添加"
frm房屋选择.Show 1
End If
End Sub
Private Sub Text_LostFocus(Index As Integer)
'计算水费
If Text(8).Text <> "" And Text(1).Text <> "" Then
Text(2).Text = CCur(Text(8).Text * Text(1).Text)
End If
If Index = 5 Then '输入日期的文本框失去焦点
If Text(5).Text <> "" And IsDate(Text(5)) = False Then
MsgBox "输入的数据不是日期类型，请重新输入"
Text(5).Text = ""
DTPicker1.Value = False
Exit Sub
End If
End If
If Index = 3 Then '输入货币格式的文本框失去焦点
If Text(3).Text <> "" And IsNumeric(Text(3)) = False Then
MsgBox "输入的数据不是货币类型，请重新输入"
Text(3).Text = ""
Exit Sub
End If
End If
If Index = 8 Then '输入货币格式的文本框失去焦点
If Text(8).Text <> "" And IsNumeric(Text(8)) = False Then
MsgBox "输入的数据不是货币类型，请重新输入"
Text(8).Text = ""
Exit Sub
End If
End If
If Index = 1 Then '输入货币格式的文本框失去焦点
If Text(1).Text <> "" And IsNumeric(Text(1)) = False Then
MsgBox "输入的数据不是数值类型，请重新输入"
Text(1).Text = ""
Exit Sub
End If
End If
End Sub
水费管理
Option Explicit
Private Sub Command更新_Click()
On Error GoTo 更新失败错误
If 水费更新权限 = False Then
MsgBox "无权限"
Exit Sub
End If
If MsgBox("是否更新该水费记录?", vbOKCancel) <> vbOK Then
Exit Sub
End If
'判断必须输入数据的控件不能为空
If Text(0) = "" Or IsNull(Text(0)) = True Then
MsgBox "年份值不能为空！"
Exit Sub
Else
End If
If Text(1) = "" Or IsNull(Text(1)) = True Then
MsgBox "用水量值不能为空！"
Exit Sub
Else
End If
If Text(3) = "" Or IsNull(Text(3)) = True Then
MsgBox "已收金额值不能为空！"
Exit Sub
Else
End If
If Text(7) = "" Or IsNull(Text(7)) = True Then
MsgBox "房屋编号不能为空！"
Exit Sub
Else
End If
If Text(8) = "" Or IsNull(Text(8)) = True Then
MsgBox "水费单价值不能为空！"
Exit Sub
Else
End If
If Combo(1) = "" Or IsNull(Combo(1)) = True Then
MsgBox "月份值不能为空！"
Exit Sub
Else
End If
If Text(5) = "" Or IsNull(Text(5)) = True Then
MsgBox "收费日期不能为空！"
Exit Sub
Else
End If
'如果修改了房屋编号，需要检查
If dcountlink("房屋编号", "房屋信息表", "房屋编号='" & Text(7) & "'", 0) = 0 Then
MsgBox "该房屋编号不存在，请修改后重试"
Exit Sub
End If
'连接数据库并更新
Adodc1.Recordset.Update
MsgBox "更新完成！"
Exit Sub
更新失败错误:
MsgBox Err.Description
End Sub
Private Sub Command删除_Click()
On Error GoTo 删除失败错误
If 水费删除权限 = False Then
MsgBox "无权限"
Exit Sub
End If
If MsgBox("是否删除该水费记录?", vbOKCancel) <> vbOK Then
Exit Sub
End If
Adodc1.Recordset.Delete
MsgBox "删除完成"
Unload Me
Exit Sub
删除失败错误:
MsgBox Err.Description
End Sub
Private Sub DataGrid2_Click()
Text(8).Text = DataGrid2.Columns(0).Text
DataGrid2.Visible = False
End Sub
Private Sub DataGrid2_LostFocus()
DataGrid2.Visible = False
End Sub
Private Sub Form_Load()
'ado控件设置
Me.Adodc1.Refresh '刷新
Me.Adodc1.CommandType = adCmdUnknown
Me.Adodc1.RecordSource = "select * From 水费表 where 水费ID=" & sf_num
Me.Adodc1.Refresh '刷新
'
Me.Adodc2.Refresh
If Text(8).Text <> "" And Text(1).Text <> "" Then
Text(2).Text = CCur(Text(8).Text * Text(1).Text)
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
'On Error Resume Next
frm水费查询.Adodc1.Refresh
frm水费查询.DataGrid1.Refresh
End Sub
Private Sub DTPicker1_LostFocus()
DTPicker1.Format = dtpCustom '日期格式设置
Text(5).Text = DTPicker1.Value '返回选择的日期值至文本框
DTPicker1.Visible = False '日期控件隐藏
End Sub
Private Sub Text_DblClick(Index As Integer)
If Index = 0 Then '返回年份
Text(0).Text = Year(Date)
End If
If Index = 8 And DataGrid2.Visible = False Then '显示出选择单价列表
DataGrid2.Visible = True
Else
DataGrid2.Visible = False
End If
If Index = 5 Then '双击输入日期的文本框
If Text(5) <> "" Then
Else
Text(5) = Date
DTPicker1.Value = Date
End If
DTPicker1.Visible = True '显示日期选择控件
End If
If Index = 7 Then
fw_formname = "frm水费管理"
frm房屋选择.Show 1
End If
End Sub
Private Sub Text_LostFocus(Index As Integer)
'计算水费
If Text(8).Text <> "" And Text(1).Text <> "" Then
Text(2).Text = CCur(Text(8).Text * Text(1).Text)
End If
If Index = 5 Then '输入日期的文本框失去焦点
If Text(5).Text <> "" And IsDate(Text(5)) = False Then
MsgBox "输入的数据不是日期类型，请重新输入"
Text(5).Text = ""
DTPicker1.Value = False
Exit Sub
End If
End If
If Index = 3 Then '输入货币格式的文本框失去焦点
If Text(3).Text <> "" And IsNumeric(Text(3)) = False Then
MsgBox "输入的数据不是货币类型，请重新输入"
Text(3).Text = ""
Exit Sub
End If
End If
If Index = 8 Then '输入货币格式的文本框失去焦点
If Text(8).Text <> "" And IsNumeric(Text(8)) = False Then
MsgBox "输入的数据不是货币类型，请重新输入"
Text(8).Text = ""
Exit Sub
End If
End If
If Index = 1 Then '输入货币格式的文本框失去焦点
If Text(1).Text <> "" And IsNumeric(Text(1)) = False Then
MsgBox "输入的数据不是数值类型，请重新输入"
Text(1).Text = ""
Exit Sub
End If
End If
End Sub
数据库
access数据库
小区物业收费管理系统后端采用access数据库存储数据，格式为mdb，命名为db_data，为了保证安全性，数据库设置加密，密码为abc123。
表
费用价格表
电费表
物管费表
燃气费表
水费表
暖气费表
房屋信息表
停车费表
房屋房型表
房屋类型表
表关系
查询
车位查询
SELECT 停车费表.车位号, 停车费表.房屋编号
FROM 停车费表;
电费查询
SELECT 电费表.电费ID, 电费表.年份, 电费表.月份, 电费表.房屋编号, 房屋信息表.所在位置, 房屋信息表.业主姓名, 电费表.用电量, 电费表.电费单价, [电费单价]*[用电量] AS 电费, 电费表.已收金额, [电费单价]*[用电量]-[已收金额] AS 未付金额, 电费表.支付人, 电费表.收费时间, 电费表.备注
FROM 房屋信息表 INNER JOIN 电费表 ON 房屋信息表.房屋编号 = 电费表.房屋编号;
房屋编号查询
SELECT 房屋信息表.房屋编号, 房屋信息表.所在位置, 房屋信息表.业主姓名, 房屋信息表.类型
FROM 房屋信息表;
房屋电费查询
SELECT 电费表.房屋编号 AS 表达式1, 电费表.年份 AS 表达式2, 电费表.月份 AS 表达式3, [用电量]*[电费单价] AS 电费
FROM 电费表;
房屋暖气费查询
SELECT 暖气费表.房屋编号, 暖气费表.年份, 暖气费表.月份, [暖气量]*[暖气费单价] AS 暖气费
FROM 暖气费表;
房屋燃气费查询
SELECT 燃气费表.房屋编号, 燃气费表.年份, 燃气费表.月份, [燃气量]*[燃气费单价] AS 燃气费
FROM 燃气费表;
房屋水费查询
SELECT 水费表.房屋编号, 水费表.年份, 水费表.月份, [水费单价]*[用水量] AS 水费
FROM 水费表;
房屋停车费查询
SELECT 停车费表.房屋编号, 停车费表.年份, 停车费表.月份, 停车费表.车位号, 停车费表.停车费
FROM 停车费表;
房屋物管费查询
SELECT 物管费表.房屋编号, 物管费表.年份, 物管费表.月份, 物管费表.物管费
FROM 物管费表;
暖气费查询
SELECT 暖气费表.暖气费ID, 暖气费表.年份, 暖气费表.月份, 暖气费表.房屋编号, 房屋信息表.所在位置, 房屋信息表.业主姓名, 暖气费表.暖气量, 暖气费表.暖气费单价, [暖气量]*[暖气费单价] AS 暖气费, 暖气费表.已收金额, [暖气量]*[暖气费单价]-[已收金额] AS 未收金额, 暖气费表.支付人, 暖气费表.收费时间, 暖气费表.备注
FROM 房屋信息表 INNER JOIN 暖气费表 ON 房屋信息表.房屋编号 = 暖气费表.房屋编号;
燃气费查询
SELECT 燃气费表.燃气费ID, 燃气费表.年份, 燃气费表.月份, 燃气费表.房屋编号, 房屋信息表.所在位置, 房屋信息表.业主姓名, 燃气费表.燃气量, 燃气费表.燃气费单价, [燃气量]*[燃气费单价] AS 燃气费, 燃气费表.已收金额, [燃气量]*[燃气费单价]-[已收金额] AS 未付金额, 燃气费表.支付人, 燃气费表.收费时间, 燃气费表.备注
FROM 房屋信息表 INNER JOIN 燃气费表 ON 房屋信息表.房屋编号 = 燃气费表.房屋编号;
水费查询
SELECT 水费表.水费ID, 水费表.年份, 水费表.月份, 水费表.房屋编号, 房屋信息表.所在位置, 房屋信息表.业主姓名, 水费表.用水量, 水费表.水费单价, [用水量]*[水费单价] AS 水费, 水费表.已收金额, [用水量]*[水费单价]-[已收金额] AS 未付金额, 水费表.支付人, 水费表.收费时间, 水费表.备注
FROM 房屋信息表 INNER JOIN 水费表 ON 房屋信息表.房屋编号 = 水费表.房屋编号;
停车费查询
SELECT 停车费表.停车费ID, 停车费表.年份, 停车费表.月份, 停车费表.房屋编号, 房屋信息表.所在位置, 房屋信息表.业主姓名, 停车费表.车位号, 停车费表.停车费, 停车费表.已收金额, [停车费]-[已收金额] AS 未付金额, 停车费表.支付人, 停车费表.收费时间, 停车费表.备注
FROM 房屋信息表 INNER JOIN 停车费表 ON 房屋信息表.房屋编号 = 停车费表.房屋编号;
物管费查询
SELECT 物管费表.物管费ID, 物管费表.年份, 物管费表.月份, 物管费表.房屋编号, 房屋信息表.所在位置, 房屋信息表.业主姓名, 物管费表.物管费, 物管费表.已收金额, [物管费]-[已收金额] AS 未付金额, 物管费表.支付人, 物管费表.收费时间, 物管费表.备注
FROM 房屋信息表 INNER JOIN 物管费表 ON 房屋信息表.房屋编号 = 物管费表.房屋编号;
SQL SERVER数据库
小区物业收费管理系统后端采用sql server数据库存储数据，命名为db_wy，为了保证安全性，数据库服务器登录名为sa，密码为12323。
【表】
费用价格表
电费表
物管费表
燃气费表
水费表
暖气费表
房屋信息表
停车费表
房屋房型表
房屋类型表
表关系
【视图】
电费查询
房屋编号查询
房屋电费查询
房屋暖气费查询
房屋燃气费查询
房屋水费查询
房屋停车费查询
房屋物管费查询
暖气费查询
燃气费查询
水费查询
停车费查询
物管费查询
需要以上设计资料，系统原文件和代码可在频道主页联系我
