住宅小区物业管理信息系统设计与开发 第9页

住宅小区物业管理信息系统设计与开发 第9页
Private Sub Combo2_Change()
If Combo2.DataChanged Then
  If Combo2.Text = "" Then
     MsgBox "请选择报修事件", vbOKOnly + vbInformation, "提示"
   End If
 Else
    If Combo2.Text = "" And xg = ture Then
         MsgBox "报修事件不能为空!", vbOKOnly + vbInformation, "提示"
         Combo2.SetFocus
     End If
 End If
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
Command2.Enabled = False
End Sub

Private Sub Command11_Click()
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.MoveLast
MsgBox "报修管理总数为:" & Adodc1.Recordset.RecordCount
End Sub

Private Sub Command2_Click()
s = MsgBox("真的要删除这个记录吗？", vbYesNo + vbInformation, "删除记录")
If s = vbYes Then
  Adodc1.Recordset.Delete
  Adodc1.Recordset.MoveNext
 If Adodc1.Recordset.EOF Then
  Adodc1.Recordset.MoveLast
 End If
End If
End Sub
文修管理：

文修查询：界面和代码请见附件2
文修统计：界面和代码请见附件2
4.3停车场管理模块

4.4 房屋管理模块

房间查询：请见附件2
房产所有权：请见附件2
监理资料：

建筑资料：

4.5收费管理模块
收费类别添加：

收费类别修改：请见附件2
收费查询：请见附件2
仪表数据：

用户缴费：

应收费用：

对应代码：
Private Sub Command10_Click()
Adodc3.Recordset.MoveFirst
Adodc3.Recordset.MoveLast
MsgBox "应收费用总数为:" & Adodc3.Recordset.RecordCount
End Sub
Private Sub Command12_Click()
Dim txtsql As String
    Dim msgtext As String
    Dim dd(4) As Boolean
    txtsql = "select * from 收费表 where 0=0 "
    Adodc2.CommandType = adCmdText
    If (Check17.Value + Check18.Value + Check19.Value = 0) Then
        MsgBox "请设置查询方式！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    Else
        txtsql = txtsql
        'Set mrc = ExecuteSQL(txtsql, msgtext)
       'Set DataGrid1.DataSource = mrc
       Adodc2.RecordSource = txtsql
      Adodc2.Refresh
        DataGrid1.ReBind
        MsgBox txtsql, vbOKOnly, "s"
End If
End Sub

Private Sub Command8_Click()
Dim txtsql As String
    Dim msgtext As String
    Dim dd(4) As Boolean
    txtsql = "select * from 应缴费用表 where 0=0 "
    Adodc3.CommandType = adCmdText
    If Check13.Value Then
        If Trim(Text27.Text) = "" Then
            MsgBox "当前房间号不能为空", vbOKOnly + vbExclamation, "警告"
            Text27.SetFocus
            Exit Sub
        Else
         txtsql = txtsql & " and 房间号='" & Trim(Text27.Text) & "'"
        End If
    End If
   
    If (Check13.Value + Check14.Value = 0) Then
        MsgBox "请设置查询方式！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    Else
        txtsql = txtsql
        'Set mrc = ExecuteSQL(txtsql, msgtext)
       'Set DataGrid1.DataSource = mrc
       Adodc3.RecordSource = txtsql
      Adodc3.Refresh
        DataGrid1.ReBind
        MsgBox txtsql, vbOKOnly, "s"
End If
End Sub

Private Sub Text13_Change()
If Text13.Text < 1 Or Text13.Text > 8 Then
MsgBox "该层楼无此房间!"
Else
Text13.Text = Text13.Text
End If
End Sub

Private Sub Text8_Change()
Text8.Text = val(Combo5) * val(Text6) – val(combo5)*val(Text5)
End Sub

Private Sub TreeView1_BeforeLabelEdit(Cancel As Integer)
End Sub

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

住宅小区物业管理信息系统设计与开发 第9页下载如图片无法显示或论文不完整，请联系qq752018766