小区物业管理系统-物业管理员页面
2024-06-26 17:48:19
小区物业管理系统-物业管理员页面
主页面
添加业主
Public Class PropertyManager_Pro_insert'bug:插入：若删除一个，用count就会插入相同的，导致插入错误Dim proprietor As New ProprietorPublic Sub New(s As String)InitializeComponent()End SubPrivate Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click'MsgBox(Len(TextBox1.Text))If (TextBox1.Text = "" Or Len(TextBox1.Text) > 5) ThenMsgBox("请输入姓名或姓名格式错误！")ElseIf (RadioButton1.Checked = False And RadioButton2.Checked = False) ThenMsgBox("请选择性别！")ElseIf (TextBox3.Text = "" Or Int(TextBox3.Text) < 0 Or Int(TextBox3.Text) > 150) ThenMsgBox("请输入正确年龄！")ElseIf (TextBox4.Text = "" Or Len(TextBox4.Text) > 5) ThenMsgBox("请输入籍贯或籍贯格式错误！")ElseIf (proprietor.fGet = False) ThenMsgBox("请选择房屋和车库")Elseproprietor.pnameSet(TextBox1.Text)If (RadioButton1.Checked = True) Thenproprietor.psexSet("男")End IfIf (RadioButton2.Checked = True) Thenproprietor.psexSet("女")End Ifproprietor.pageSet(Int(TextBox3.Text))proprietor.pnativeSet(TextBox4.Text)Dim i As Integer = y()proprietor.pnoSet("Y00" + i)' MsgBox(proprietor.pnoGet)NumberUpdata("y", i + 1)proprietorAllInsert(proprietor)Dim user As New Useruser.usernameSet(proprietor.pnoGet)user.tableSet("User_Proprietor")User_Insert(user)cost_Insert(proprietor.pnoGet, proprietor.p_bnoGet)Label9.Text = "成功：请记住业主号"Label12.Text = proprietor.pnoGetLabel16.Text = "系统初始密码:123"End IfEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim pbg As New PropertyManager_Pro_insert_B_G(proprietor)pbg.ShowDialog()'MsgBox(proprietor.p_gnoGet)'MsgBox(proprietor.p_bnoGet)If (proprietor.fGet) ThenButton1.Visible = FalseButton2.Visible = FalseLabel2.Visible = TrueLabel6.Visible = TrueLabel6.Text = BuildingAddresss(proprietor.p_bnoGet)Label2.Text = garageAll(proprietor.p_gnoGet)End IfEnd SubPrivate Sub PropertyManager_Pro_insert_Load(sender As Object, e As EventArgs) Handles MyBase.Load'设置同步时间显示proprietor.fSet(False)Label2.Visible = FalseLabel6.Visible = FalseButton1.Visible = TrueButton2.Visible = TrueLabel10.Text = Format(Now, "yyyy-mm-dd")Label11.Text = Format(Now, "hh:mm:ss")Label9.Text = ""Label12.Text = ""Label16.Text = ""End SubPrivate Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.ClickMe.Close()End SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickDim pbg As New PropertyManager_Pro_insert_B_G(proprietor)pbg.ShowDialog()'MsgBox(proprietor.p_gnoGet)'MsgBox(proprietor.p_bnoGet)If (proprietor.fGet) ThenButton1.Visible = FalseButton2.Visible = FalseLabel2.Visible = TrueLabel6.Visible = TrueLabel6.Text = BuildingAddresss(proprietor.p_bnoGet)Label2.Text = garageAll(proprietor.p_gnoGet)End IfEnd SubEnd Class
业主查询
Public Class PropertyManager_Pro_addDim prop As ProprietorPublic Sub New(u As String)InitializeComponent()End SubPrivate Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.ClickIf (proprietorSelectCount(TextBox1.Text) > 0) ThenButton8.Visible = FalseButton9.Visible = FalseLabel18.Visible = FalseTextBox1.Visible = FalseLabel1.Visible = TrueLabel2.Visible = TrueLabel3.Visible = TrueLabel5.Visible = TrueLabel6.Visible = TrueLabel7.Visible = TrueLabel8.Visible = TrueLabel9.Visible = TrueLabel10.Visible = TrueLabel11.Visible = TrueLabel12.Visible = TrueLabel16.Visible = TrueLabel17.Visible = TrueButton2.Visible = TrueButton3.Visible = TrueButton4.Visible = TrueButton6.Visible = Trueprop = proprietorForPnoName(TextBox1.Text)Label10.Text = prop.pnoGet()Label17.Text = prop.pnameGet()Label16.Text = prop.psexGet()Label12.Text = prop.pageGet()Label11.Text = prop.pnativeGet()Label6.Text = garageAll(prop.p_gnoGet())Label9.Text = BuildingAddresss(prop.p_bnoGet)ElseMsgBox("业主不存在！！！")End IfEnd SubPrivate Sub PropertyManager_Pro_add_Load(sender As Object, e As EventArgs) Handles MyBase.LoadLabel19.Text = Format(Now, "yyyy-mm-dd")Label4.Text = Format(Now, "hh:mm:ss")Label1.Visible = FalseLabel2.Visible = FalseLabel3.Visible = FalseLabel5.Visible = FalseLabel6.Visible = FalseLabel7.Visible = FalseLabel8.Visible = FalseLabel9.Visible = FalseLabel10.Visible = FalseLabel11.Visible = FalseLabel12.Visible = FalseLabel16.Visible = FalseLabel17.Visible = FalseButton2.Visible = FalseButton3.Visible = FalseButton4.Visible = FalseButton6.Visible = FalseEnd SubPrivate Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.ClickMe.Close()End SubPrivate Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.ClickDim user As User = User_Select(prop.pnoGet, "User_Proprietor")user.tableSet("User_Proprietor")Dim uer As New Proprietor_UserUpdata(user)uer.ShowDialog()End SubPrivate Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.ClickMe.Close()End SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click'删除MsgBox(prop.pnoGet)User_Delete(prop.pnoGet)cost_Delete(prop.pnoGet)proprietor_Delete(prop.pnoGet)MsgBox("删除成功")Me.Close()End SubPrivate Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickDim uer As New PropertyManager_Pro_updata(prop)uer.ShowDialog()prop = proprietorAll(prop.pnoGet)Label10.Text = prop.pnoGet()Label17.Text = prop.pnameGet()Label16.Text = prop.psexGet()Label12.Text = prop.pageGet()Label11.Text = prop.pnativeGet()Label6.Text = garageAll(prop.p_gnoGet())Label9.Text = BuildingAddresss(prop.p_bnoGet)End Sub
End Class
修改业主信息
Public Class PropertyManager_Pro_updataDim proprietor As ProprietorDim jbno, jgno As StringPublic Sub New(p As Proprietor)InitializeComponent()proprietor = pEnd SubPrivate Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click'MsgBox(Len(TextBox1.Text))If (TextBox1.Text = "" Or Len(TextBox1.Text) > 5) ThenMsgBox("请输入姓名或姓名格式错误！")ElseIf (RadioButton1.Checked = False And RadioButton2.Checked = False) ThenMsgBox("请选择性别！")ElseIf (TextBox3.Text = "" Or Int(TextBox3.Text) < 0 Or Int(TextBox3.Text) > 150) ThenMsgBox("请输入正确年龄！")ElseIf (TextBox4.Text = "" Or Len(TextBox4.Text) > 5) ThenMsgBox("请输入籍贯或籍贯格式错误！")Elseproprietor.pnameSet(TextBox1.Text)If (RadioButton1.Checked = True) Thenproprietor.psexSet("男")End IfIf (RadioButton2.Checked = True) Thenproprietor.psexSet("女")End Ifproprietor.pageSet(Int(TextBox3.Text))proprietor.pnativeSet(TextBox4.Text)' MsgBox(proprietor.pnoGet)proprietorUP(proprietor)Me.Close()End IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim pbg As New PropertyManager_Pro_insert_B_G(proprietor)pbg.ShowDialog()'MsgBox(proprietor.p_gnoGet)'MsgBox(proprietor.p_bnoGet)If (proprietor.fGet) ThenButton1.Visible = FalseLabel6.Text = BuildingAddresss(proprietor.p_bnoGet)Label2.Text = garageAll(proprietor.p_gnoGet)End IfEnd SubPrivate Sub PropertyManager_Pro_updata_Load(sender As Object, e As EventArgs) Handles MyBase.Load'设置同步时间显示Proprietor.fSet(False)Label10.Text = Format(Now, "yyyy-mm-dd")Label11.Text = Format(Now, "hh:mm:ss")'proprietor = proprietorAll("Y002")TextBox1.Text = Trim(proprietor.pnameGet())If (proprietor.psexGet() = "男") ThenRadioButton1.Checked = TrueEnd IfIf (proprietor.psexGet() = "女") ThenRadioButton2.Checked = TrueEnd If'MsgBox(proprietor.p_bnoGet)TextBox3.Text = proprietor.pageGet()TextBox4.Text = Trim(proprietor.pnativeGet())Label6.Text = BuildingAddresss(proprietor.p_bnoGet)Label2.Text = garageAll(proprietor.p_gnoGet)jbno = proprietor.p_bnoGetjgno = proprietor.p_gnoGetEnd SubPrivate Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.ClickMe.Close()End SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click'设置同步时间显示proprietor.fSet(False)'proprietor = proprietorAll("Y002")TextBox1.Text = Trim(proprietor.pnameGet())If (proprietor.psexGet() = "男") ThenRadioButton1.Checked = TrueEnd IfIf (proprietor.psexGet() = "女") ThenRadioButton2.Checked = TrueEnd If'MsgBox(proprietor.p_bnoGet)TextBox3.Text = proprietor.pageGet()TextBox4.Text = Trim(proprietor.pnativeGet())Label6.Text = BuildingAddresss(jbno)Label2.Text = garageAll(jgno)Button1.Visible = TrueEnd Sub
End Class
房屋车库选择
Public Class PropertyManager_Pro_insert_B_GDim pro As ProprietorPublic Sub New(p As Proprietor)InitializeComponent()pro = pEnd SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickListBox1.Items.Clear()ListBox2.Items.Clear()ListBox3.Items.Clear()ListBox4.Items.Clear()ListBox5.Items.Clear()Label1.Text = ""Label2.Text = ""ListBox1.Visible = TrueListBox2.Visible = TrueListBox4.Visible = TrueListBox3.Visible = TrueLabel5.Visible = TrueLabel6.Visible = TrueLabel7.Visible = TrueLabel8.Visible = TrueButton2.Visible = FalseListBox5.Visible = FalseButton4.Visible = FalseDim s() As String = BuildingForBarea()For i = 1 To Int(s(0))ListBox1.Items.Add(s(i))NextEnd SubPrivate Sub PropertyManager_Pro_insert_B_G_Load(sender As Object, e As EventArgs) Handles MyBase.LoadLabel1.Text = ""Label2.Text = ""Label10.Text = Format(Now, "yyyy-mm-dd")Label11.Text = Format(Now, "hh:mm:ss")Button2.Visible = FalseListBox5.Visible = FalseButton4.Visible = FalseDim s() As String = BuildingForBarea()For i = 1 To Int(s(0))ListBox1.Items.Add(s(i))NextEnd SubPrivate Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChangedLabel1.Text = ListBox1.Text + "区 "ListBox2.Items.Clear()Dim s() As String = BuildingForBlouno(ListBox1.Text)For i = 1 To Int(s(0))ListBox2.Items.Add(s(i))NextEnd SubPrivate Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChangedLabel1.Text = Label1.Text + ListBox2.Text + "号楼 "ListBox3.Items.Clear()Dim s() As String = BuildingForBapartment(ListBox1.Text, ListBox2.Text)For i = 1 To Int(s(0))ListBox3.Items.Add(s(i))NextEnd SubPrivate Sub ListBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox3.SelectedIndexChangedLabel1.Text = Label1.Text + ListBox3.Text + "单元 "ListBox4.Items.Clear()Dim s() As String = BuildingForBRoomNo(ListBox1.Text, ListBox2.Text, ListBox3.Text)For i = 1 To Int(s(0))ListBox4.Items.Add(s(i))NextEnd SubPrivate Sub ListBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox4.SelectedIndexChangedLabel1.Text = Label1.Text + ListBox4.Text + "户"Button2.Visible = TrueEnd SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickListBox1.Visible = FalseListBox2.Visible = FalseListBox4.Visible = FalseListBox3.Visible = FalseLabel5.Visible = FalseLabel6.Visible = FalseLabel7.Visible = FalseLabel8.Visible = FalseButton2.Visible = FalseListBox5.Visible = Truepro.p_bnoSet(BuildingForBno(ListBox1.Text, ListBox2.Text, ListBox3.Text, ListBox4.Text))'MsgBox(pro.p_bnoGet)Dim s() As String = GarageGaddress()For i = 1 To Int(s(0))ListBox5.Items.Add(s(i))NextEnd SubPrivate Sub ListBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox5.SelectedIndexChangedLabel2.Text = ListBox5.TextButton4.Visible = TrueEnd SubPrivate Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickMe.Close()End SubPrivate Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Clickpro.p_gnoSet(GarageGno(ListBox5.Text))'MsgBox(pro.p_gnoGet)pro.fSet(True)Me.Close()End Sub
End Class
费用
Public Class Free_UpdataDim cost As CostPublic Sub New(s As String)InitializeComponent()End SubPrivate Sub Free_Updata_Load(sender As Object, e As EventArgs) Handles MyBase.LoadLabel19.Text = Format(Now, "yyyy-mm-dd")Label4.Text = Format(Now, "hh:mm:ss")GroupBox1.Visible = FalseLabel17.Visible = FalseLabel10.Visible = FalseLabel12.Visible = FalseLabel16.Visible = FalseLabel11.Visible = FalseEnd SubPrivate Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.ClickIf (costSelectCount(TextBox1.Text)) ThenLabel17.Visible = TrueGroupBox1.Visible = Truecost = cost_Select(TextBox1.Text)Label9.Text = cost.cwaterGetLabel8.Text = cost.celectricityGetLabel7.Text = cost.cgasGetLabel6.Text = cost.cpropertyGetLabel17.Text = BuildingAddresss(cost.c_bnoGet) + " " + proprietorName(cost.c_pnoGet)freeQian()ElseMsgBox("业主不存在！")End IfEnd SubPublic Sub freeQian()If (cost.cwaterGet < 0) ThenLabel10.Visible = TrueLabel10.Text = "欠费"ElseLabel10.Visible = FalseEnd IfIf (cost.celectricityGet < 0) ThenLabel12.Visible = TrueLabel12.Text = "欠费"ElseLabel12.Visible = FalseEnd IfIf (cost.cgasGet < 0) ThenLabel16.Visible = TrueLabel16.Text = "欠费"ElseLabel16.Visible = FalseEnd IfIf (cost.cpropertyGet < 0) ThenLabel11.Visible = TrueLabel11.Text = "欠费"ElseLabel11.Visible = FalseEnd IfEnd SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickIf (Int(TextBox2.Text) > 0) ThenDim x As Double = CDbl(TextBox1.Text)Label9.Text = CDbl(Label9.Text) + x' MsgBox(CDbl(Label6.Text))cost_Updata("Cwater", cost.c_pnoGet, CDbl(Label9.Text))ElseMsgBox("请正确缴费！")End IffreeQian()End SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickIf (Int(TextBox3.Text) > 0) ThenDim x As Double = CDbl(TextBox3.Text)Label8.Text = CDbl(Label8.Text) + xcost_Updata("Celectricity", cost.c_pnoGet, CDbl(Label8.Text))ElseMsgBox("请正确缴费！")End IffreeQian()End SubPrivate Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.ClickIf (Int(TextBox5.Text) > 0) ThenDim x As Double = CDbl(TextBox5.Text)Label7.Text = CDbl(Label7.Text) + xcost_Updata("Cgas", cost.c_pnoGet, CDbl(Label7.Text))ElseMsgBox("请正确缴费！")End IffreeQian()End SubPrivate Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickIf (Int(TextBox4.Text) > 0) ThenDim x As Double = CDbl(TextBox4.Text)Label6.Text = CDbl(Label6.Text) + xcost_Updata("Cproperty", cost.c_pnoGet, CDbl(Label6.Text))ElseMsgBox("请正确缴费！")End IffreeQian()End SubPrivate Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.ClickMe.Close()End Sub
End Class
小区物业管理系统-物业管理员页面相关推荐
- 基于Web小区物业管理系统/物业管理系统的设计与实现
目 录 第一章 绪论 1.1 研究背景 1.2 主要研究内容 第二章 相关技术 2.1 MySQL技术介绍 2.2 eclipse编译器介绍 2.3 Spring框架介绍 2.4 MyBatis ...
- 基于jsp+ssm+springboot的小区物业管理系统【设计+论文+源码】
摘 要 随着科学技术的飞速发展,各行各业都在努力与现代先进技术接轨,通过科技手段提高自身的优势:对于小区物业管理系统当然也不能排除在外,随着网络技术的不断成熟,带动了小区物业管理系统,它彻底改变了过去 ...
- springboot+mysql水韵新城小区物业管理系统-计算机毕业设计源码18472
摘 要 随着科学技术的飞速发展,社会的方方面面.各行各业都在努力与现代的先进技术接轨,通过科技手段来提高自身的优势,物业管理当然也不例外.小区物业管理系统是以实际运用为开发背景,运用软件工程原理和开 ...
- 基于java下Springboot框架实现小区物业管理系统
基于java下Springboot框架实现小区物业管理系统 开发语言:Java 框架:springboot JDK版本:JDK1.8 服务器:tomcat7 数据库:mysql 5.7 数据库工具:N ...
- ssm物业管理系统的设计与实现毕业设计源码261632
摘要 随着计算机科学技术日渐成熟,人们已经深刻认识到了计算机功能的强大,计算机已经进入到了人类社会发展的各个领域,并且发挥着十分重要的作用.每个社区的物业管理是一项系统而复杂的工作,它需要一个团队互相 ...
- JSP住宅小区物业管理系统(源代码+开题报告+论文+答辩PPT)科大云炬
小区物业管理毕业设计 (论文) 目 录 摘要------------------------------------------------------------------------------ ...
- JSP住宅小区物业管理系统(源代码+开题报告+论文+答辩PPT
登录 JSP住宅小区物业管理系统(源代码+开题报告+论文+答辩PPT) 2022-12-04 657 ¥ 100 元 点赞 (0) 收藏 立即购买 升级会员 查看演示 遇到问题请联系客服微信:199 ...
- JSP住宅小区物业管理系统(源代码+开题报告+论文+答辩PPT)
详情介绍 小区物业管理毕业设计 (论文) 目 录 摘要------------------------------–1 ABSTRACT---------------------------–2 第1 ...
- 物业管理系统，物业软件
穆利堂 房地产项目管理系统,房地产售楼销售管理系统,房地产成本管理系统,物业管理系统 ,工程管理系统 ,企业短信平台系统,房地产信息化软件 www.cnwxsoft.com 网欣软件(珠海)开发有限公 ...
最新文章
- 2020年最新！百度、微软、浪潮、谷歌企业级综述更新！
- System_Recovery_21.0.3_62137_Multilingual_Product
- 恢复SQL Server被误删除的数据（再扩展）
- 判断机器学习算法或深度学习算法优势常考虑的点
- 位运算和时间复杂度的分析
- 推出了底层代码chatbot开发工具，Rulai获650万美元融资
- 一个电脑同时运行 64bit 和 32bit 的eclipse 如何匹配 jdk环境
- Freemarker静态化页面的使用
- Arduino Nano与SIM800C 通信
- 【第三方互联】微博2、创建新浪微博（sina）互联应用
- Hive常用函数大全（一）（关系/数学/逻辑/数值/日期/条件/字符串/集合统计/复杂类型）
- 我们为什么需要实时数据库？
- 实战技法 - 短线操盘 (10)
- 用T5UIC1 4.3寸串口屏做动画
- 7-5 百分制成绩转换为等级成绩 (15分)c语言
- 汽车之家联手网易云音乐，打造“车友音乐季”
- Django打造大型企业官网-项目实战（三）
- 密切值法解简单评价问题附matlab代码
- 【摘】Linux运维入门到高级全套常用要点
- win10+Ubantu双系统