m3.Show
EndSub
PrivateSubqfgl_Click()
Form9.Show
EndSub
PrivateSubsbwxgl_Click()
Form6.Show
EndSub
PrivateSubsfgl_Click()
Form12.Show
EndSub
PrivateSubtc_Click()'退出系统
End
EndSub
PrivateSubtsbb_Click()
Form13.Show
EndSub
PrivateSubwxtjbb_Click()
Form21.Show
EndSub
PrivateSubwyshxmgl_Click()
Form8.Show
EndSub
PrivateSubyhgl_Click()
Form20.Show
EndSub
PrivateSubzhbxgl_Click()
Form5.Show
EndSub
PrivateSubzhcwgl_Click()
Form7.Show
EndSub
PrivateSubzhtsgl_Click()
Form4.Show
EndSub
5.4住户报修管理功能的设计
住户报修管理功能主要是对住户名称,住户地址,维修人员,维修日期,维修费用,物料费用,报修内容等进行具体的修改和添加,也可以实现查找功能
实现次功能的部分代码如下:
PrivateSubCommand1_Click()
IfCommand1.Caption="添加"Then
Command1.Caption="保存"
Data1.Recordset.AddNew
Text1.Locked=False
Text2.Locked=False
Text3.Locked=False
Text4.Locked=False
Text5.Locked=False
Text6.Locked=False
Text7.Locked=False
Text8.Locked=False
Text9.Locked=False
Text1.SetFocus
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
ExitSub
Else
Text1.Locked=True
Text2.Locked=True
Text3.Locked=True
Text4.Locked=True
Text5.Locked=True
Text6.Locked=True
Text7.Locked=True
Text8.Locked=True
Text9.Locked=True
Data1.Recordset.Update
Data1.Recordset.MoveLast
Command1.Caption="添加"
Data1.Refresh
Command2.Enabled=True
Command3.Enabled=True
Command4.Enabled=True
EndIf
EndSub
PrivateSubCommand2_Click()
Dimd
d=MsgBox("是否真的删除吗?",vbYesNo+vbQuestion,"删除")
Ifd=vbYesThen
Data1.Recordset.Delete
Data1.Recordset.MoveNext
IfData1.Recordset.EOF=TrueThen
Command4.Enabled=False
Data1.Recordset.MovePrevious
IfData1.Recordset.BOF=TrueThen
Command3.Enabled=False
Command2.Enabled=False
EndIf
EndIf
EndIf
Data1.Refresh
EndSub
PrivateSubCommand3_Click()
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThen
Command3.Enabled=False
Data1.Recordset.MoveNext
Else
Command3.Enabled=True
EndIf
Command4.Enabled=True
EndSub
PrivateSubCommand4_Click()
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
Command4.Enabled=False
Data1.Recordset.MovePrevious
Else
Command4.Enabled=True
EndIf
Command3.Enabled=True
EndSub
PrivateSubCommand5_Click()
IfText1.Locked=TrueOrText2.Locked=TrueOrText3.Locked=TrueOrText4.Locked=TrueOrText5.Locked=TrueThen
Text1.Locked=False
Text2.Locked=False
Text3.Locked=False
Text4.Locked=False
Text5.Locked=False
MsgBox"请输入查找编号"
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text1.SetFocus
Else
Dima
a="单据编号="&"'"&Text1.Text&"'"
Data1.Recordset.FindFirsta
IfData1.Recordset.NoMatchThen
MsgBox"没有此记录"
Else
Text1.Locked=True
Text2.Locked=True
Text3.Locked=True
Text4.Locked=True
Text5.Locked=True
EndIf
EndIf
EndSub
PrivateSubForm_Load()
Data1.DatabaseName=App.Path&"\db.mdb"
Data1.Refresh
Me.Width=10560
Me.Height=7650
IfData1.Recordset.EOFThen
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
EndIf
Text1.Locked=True
Text2.Locked=True
Text3.Locked=True
Text4.Locked=True
Text5.Locked=True
Text6.Locked=True
Text7.Locked=True
Text8.Locked=True
Text9.Locked=True
EndSub
5.5房屋及住户资料界面的设计
房屋及住户资料功能主要可以对楼宇单元,住户名称,楼层,联系电话,房号,使用状况,房型,迁入时间,建筑面积,住户备注等进行添加,删除,查找等进行修改
实现部分代码如下:
PrivateSubCommand1_Click()
IfCommand1.Caption="添加"Then
Command1.Caption="保存"
Data1.Recordset.AddNew
Text1.Locked=False
Text2.Locked=False
Text3.Locked=False
Text4.Locked=False
Text5.Locked=False
Text6.Locked=False
Text7.Locked=False
Text8.Locked=False
Text9.Locked=False
Text10.Locked=False
Text1.SetFocus
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
ExitSub
Else
Text1.Locked=True
Text2.Locked=True
Text3.Locked=True
Text4.Locked=True
Text5.Locked=True
Text6.Locked=True
Text7.Locked=True
Text8.Locked=True
Text9.Locked=True
Text10.Locked=True
Data1.Recordset.Update
Data1.Recordset.MoveLast
Command1.Caption="添加"
Data1.Refresh
Command2.Enabled=True
Command3.Enabled=True
Command4.Enabled=True
EndIf
EndSub
PrivateSubCommand2_Click()
Dimd
d=MsgBox("是否真的删除吗?",vbYesNo+vbQuestion,"删除")
Ifd=vbYesThen
Data1.Recordset.Delete
Data1.Recordset.MoveNext
IfData1.Recordset.EOF=TrueThen
Command4.Enabled=False
Data1.Recordset.MovePrevious
IfData1.Recordset.BOF=TrueThen
Command3.Enabled=False
Command2.Enabled=False
EndIf
EndIf
EndIf
Data1.Refresh
EndSub
PrivateSubCommand3_Click()
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThen
Command3.Enabled=False
Data1.Recordset.MoveNext
Else
Command3.Enabled=True
EndIf
Command4.Enabled=True
EndSub
PrivateSubCommand4_Click()
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
Command4.Enabled=False
Data1.Recordset.MovePrevious
Else
Command4.Enabled=True
EndIf
Command3.Enabled=True
EndSub
PrivateSubCommand5_Click()
IfText1.Locked=TrueOrText2.Locked=TrueOrText3.Locked=TrueOrText4.Locked=TrueOrText5.Locked=TrueThen
Text1.Locked=False
Text2.Locked=False
Text3.Locked=False
Text4.Locked=False
Text5.Locked=False
MsgBox"请输入查找编号"
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text1.SetFocus
Else
Dima
a="楼宇单元="&"'"&Text1.Text&"'"
Data1.Recordset.FindFirsta
IfData1.Recordset.NoMatchThen
MsgBox"没有此记录"
Else
Text1.Locked=True
Text2.Locked=True
Text3.Locked=True
Text4.Locked=True
Text5.Locked=True
EndIf
EndIf
EndSub
PrivateSubForm_Load()
Data1.DatabaseName=App.Path&"\db.mdb"
Data1.Refresh
Me.Width=10935
Me.Height=7830
IfData1.Recordset.EOFThen
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
上一篇:
VB015学生公寓管理系统2(论文和程序)
下一篇:
超市进销存管理系统的开发