毕业设计源代码.doc
《毕业设计源代码.doc》由会员分享,可在线阅读,更多相关《毕业设计源代码.doc(33页珍藏版)》请在三一办公上搜索。
1、毕业设计源代码学生姓名: 班级学号: 指导教师: 职 称: 所在系(教研室): 其中登录按钮的源码如下:Private Sub cmdLogin_Click() 首先检查用户是否输入了用户名和密码 If txtUser.Text = Then MsgBox 请输入用户名!, vbOKOnly + vbInformation, 注意 txtUser.SetFocus Exit Sub ElseIf txtPwd.Text = Then MsgBox 请输入密码!, vbOKOnly + vbInformation, 注意 txtPwd.SetFocus Exit Sub End If Dim s
2、qluser As String 构造查询该用户名和密码的sql语句 sqluser = select * from UserTable where Username = & txtUser.Text _ & and Password = & txtPwd.Text & rs_user.CursorLocation = adUseClient 打开数据游标 rs_user.Open sqluser, conn, adOpenKeyset, adLockPessimistic If rs_user.EOF = True Then MsgBox 用户名或密码不正确!, vbOKOnly + vbI
3、nformation, 注意 rs_user.Close 清空txtUser和txtPwd文本框 txtUser.Text = txtPwd.Text = Exit Sub Else 还需使其他菜单可用 MDIfrmMain.mnAddUser.Enabled = True MDIfrmMain.mnBasicData.Enabled = True MDIfrmMain.mnWuYe.Enabled = True MDIfrmMain.mnDataTg.Enabled = True 提示用户登录成功并关闭游标和登录窗口 MsgBox 登录成功!, vbOKOnly + vbInformatio
4、n, 注意 rs_user.Close Unload Me End If End Sub并添加相关代码.其中重点分析按钮源码如下:。添加按钮的代码:Private Sub cmdAdd_Click() 设置除保存和取消按钮外的其他按钮不可用 cmdAdd.Enabled = False cmdEdit.Enabled = False cmdDel.Enabled = False cmdSave.Enabled = True cmdCancel.Enabled = True cmdFirst.Enabled = False cmdPrev.Enabled = False cmdNext.Enab
5、led = False cmdLast.Enabled = False cmdQuery.Enabled = False 需要清空所有text框,并且设置它们可写 For i = 0 To 14 Text1(i).Text = Text1(i).Enabled = True Next i Combo1.Enabled = True add变量用于保存时判断是从添加还是修改后保存 add = 1 Text1(0).SetFocus Text1(13).Text = DateEnd Sub修改按钮的源码:Private Sub cmdEdit_Click() 设置除保存和取消按钮外的其他按钮不可用
6、 cmdAdd.Enabled = False cmdEdit.Enabled = False cmdDel.Enabled = False cmdSave.Enabled = True cmdCancel.Enabled = True cmdFirst.Enabled = False cmdPrev.Enabled = False cmdNext.Enabled = False cmdLast.Enabled = False cmdQuery.Enabled = False 需要设置除主键之外的text框可写 For i = 1 To 14 Text1(i).Enabled = True N
7、ext i Combo1.Enabled = True add = 0End Sub删除按钮的源码如下:Private Sub cmdDel_Click() 当单击删除记录时,需要弹出一个提示框,警告用户 Dim answer As String answer = MsgBox(确定要删除吗?, vbYesNo, ) 确实删除 If answer = vbYes Then rs_client.Delete 删除当前记录 rs_client.Update 更新删除 MsgBox 成功删除!, vbOKOnly + vbExclamation, Else Exit Sub End If 删除之后,
8、显示总信息条数需要减 1 Text2.Text = Val(Text2.Text) - 1 删除当前记录后,需要显示下一条记录,如果删除的是最后一条记录,则显示上一条记录 先移动rs_client记录到后一条 rs_client.MoveNext If rs_client.EOF Then rs_client.MovePrevious 如果没有到记录首则显示改记录 If Not rs_client.BOF Then For i = 0 To 14 Text1(i).Text = rs_client.Fields(i) Next i If rs_client.Fields(15) = 男 The
9、n Combo1.ListIndex = 0 Else Combo1.ListIndex = 1 End If 如果到记录首,则表格已经为空,置所有text框显示为空 ElseIf rs_client.BOF Then For i = 0 To 14 Text1(i).Text = Next i End If 如果删除的不是首尾记录,则显示当前记录即可 Else For i = 0 To 14 Text1(i).Text = rs_client.Fields(i) Next i If rs_client.Fields(15) = 男 Then Combo1.ListIndex = 0 Else
10、 Combo1.ListIndex = 1 End If End If End Sub保存按钮的源码如下:Private Sub cmdSave_Click() 检测数据是否完整 If Text1(0).Text = Then MsgBox 住户编号不可为空!, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then MsgBox 物业地址不可为空!, vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub ElseIf Tex
11、t1(3).Text = Or IsNumeric(Text1(3).Text) = False Then MsgBox 建筑面积应为数字!, vbOKOnly + vbInformation, 注意 Text1(3).SetFocus Exit Sub ElseIf Text1(4).Text = Or IsNumeric(Text1(4).Text) = False Then MsgBox 使用面积应为数字!, vbOKOnly + vbInformation, 注意 Text1(4).SetFocus Exit Sub ElseIf Text1(5).Text = Then MsgBox
12、 业主姓名不可为空!, vbOKOnly + vbInformation, 注意 Text1(5).SetFocus Exit Sub ElseIf IsDate(Text1(13).Text) = False Then MsgBox 入住日期书写不对,应为2000-1-1这样的格式!, vbOKOnly + vbInformation, 注意 Text1(13).SetFocus Exit Sub ElseIf Not Text1(14).Text = And IsDate(Text1(14).Text) = False Then MsgBox 迁出时间应为空或2000-1-1这样的格式!,
13、 vbOKOnly + vbInformation, 注意 Text1(14).SetFocus Exit Sub End If 添加数据后保存 If add = 1 Then 检测住户编号这个主键是否已经在表中存在 Dim rs_check As New ADODB.Recordset Dim sqlCheck As String sqlCheck = select * from Client where 住户编号= & (Text1(0).Text) & rs_check.Open sqlCheck, conn, adOpenStatic, adLockOptimistic If Not
14、rs_check.EOF And Not rs_check.BOF Then MsgBox 该住户编号已经存在,请重填一个!, vbOKOnly + vbInformation, 注意 rs_check.Close Text1(0).SetFocus Text1(0).Text = Exit Sub End If rs_check.Close 主键不重复,可以加入表中 rs_client.AddNew For i = 0 To 14 rs_client.Fields(i) = Text1(i).Text Next i rs_client.Fields(15) = Combo1.Text rs_
15、client.Update 添加保存之后,显示总信息条数需要加1 Text2.Text = Val(Text2.Text) - 1 修改数据后的保存 Else rs_client.Update End If MsgBox 保存数据成功!, vbOKOnly + vbInformation, 祝贺 保存后需要设置其他按钮可用,以及各个text框不可写 cmdAdd.Enabled = True cmdEdit.Enabled = True cmdDel.Enabled = True cmdSave.Enabled = False cmdCancel.Enabled = False cmdFirs
16、t.Enabled = True cmdPrev.Enabled = True cmdNext.Enabled = True cmdLast.Enabled = True cmdQuery.Enabled = True For i = 0 To 14 Text1(i).Enabled = False Next i Combo1.Enabled = FalseEnd Sub其中添加,修改,删除按包的源码设计同上,重点分析保存按钮的源码如下:Private Sub cmdSave_Click() 检测数据是否完整 If Text1(0).Text = Then MsgBox 设备编号不可为空!,
17、vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then MsgBox 设备名称不可为空!, vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub ElseIf IsDate(Text1(5).Text) = False Then MsgBox 购买日期书写不对,应为2000-1-1这样的格式!, vbOKOnly + vbInformation, 注意 Text1(5).SetFocus Exit Sub End If 添加数
18、据后保存 If add = 1 Then 检测房间编号这个主键是否已经在表中存在 Dim rs_check As New ADODB.Recordset Dim sqlCheck As String sqlCheck = select * from Equipment where 设备编号= & (Text1(0).Text) & rs_check.Open sqlCheck, conn, adOpenStatic, adLockOptimistic If Not rs_check.EOF And Not rs_check.BOF Then MsgBox 该设备编号已经存在,请重填一个!, v
19、bOKOnly + vbInformation, 注意 rs_check.Close Text1(0).SetFocus Text1(0).Text = Exit Sub End If rs_check.Close 主键不重复,可以加入表中 rs_equip.AddNew For i = 0 To 6 rs_equip.Fields(i) = Text1(i).Text Next i rs_equip.Update 添加之后显示总共条数信息加 1 Text2.Text = Val(Text2.Text) + 1 修改数据后的保存 Else rs_equip.Update End If MsgB
20、ox 保存数据成功!, vbOKOnly + vbInformation, 祝贺 保存后需要设置其他按钮可用,以及各个text框不可写 cmdAdd.Enabled = True cmdEdit.Enabled = True cmdDel.Enabled = True cmdSave.Enabled = False cmdCancel.Enabled = False cmdFirst.Enabled = True cmdPrev.Enabled = True cmdNext.Enabled = True cmdLast.Enabled = True cmdQuery.Enabled = Tru
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 毕业设计 源代码

链接地址:https://www.31ppt.com/p-2388261.html