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
Text10.Locked=True
EndSub
5.6收费项目管理的设计
收费项目管理功能主要可以对收费名称,收费日期,金额,备注等项目进行添加,删除,查找
实现代码:
PrivateSubCommand1_Click()
IfCommand1.Caption="添加"Then
Command1.Caption="保存"
Data1.Recordset.AddNew
Text1.Locked=False
Text2.Locked=False
Text3.Locked=False
Text4.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
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=9360
Me.Height=6885
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
EndSub
5.7物业收费管理界面的设计
物业收费管理功能主要可以对单据编号,住户名称,物业地址,收费年月,银行帐号,工作单位,缴费日期,缴费金额等项目进行添加,删除,选择上一条等进行操作
实现部分代码如下:
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
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
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
EndSub
5.8用户口令修改界面的设计
用户口令修改功能可以对当前用户的密码进行修改
实现代码如下:
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Data1.DatabaseName=App.Path+"\db.mdb"
Data1.RecordSource="用户管理"
Me.Height=3945
Me.Width=5475
EndSub
PrivateSubCommand1_Click()
IfText1.Text=""AndText2.Text=""AndText3.Text=""Then
MsgBox"你没有输入更新信息!"
Else
IfText1.Text=""Then
MsgBox"请输入原密码!"
Else
IfText2.Text=""Then
MsgBox"你没有输入新密码!"
Else
IfText3.Text=""Then
MsgBox"请确认你的新密码!"
Else
IfText2.Text<>Text3.TextThen
MsgBox"你两次输入的密码不同,请重新输入新密
上一篇:
VB015学生公寓管理系统2(论文和程序)
下一篇:
毕业论文--基于Android平台的交通事故快速处理与查询系统