没有合适的资源?快使用搜索试试~ 我知道了~
VB酒店管理系统源代码.docx
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 58 浏览量
2022-06-18
07:07:35
上传
评论
收藏 5.65MB DOCX 举报
温馨提示
试读
16页
VB酒店管理系统源代码
资源推荐
资源详情
资源评论
VB 酒店管理系统源代码
Private Sub exit_Click()
End
End Sub
Private Sub xno_Click()
Form12.Show
End Sub
Private Sub gues$nfo_Click()
Form7.Show
End Sub
Private Sub guestroom_Click()
Form3.Show
End Sub
Private Sub MDIForm_Load()
End Sub
Private Sub roombook_Click()
Form10.Show
End Sub
Private Sub save_Click()
Form2.Show
End Sub
Private Sub cmdin_Click()
Form2.Show
Unload Form1
End Sub
Private Sub cmdout_Click()
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub cmd1_Click()
Sta$c i As Integer
If Text1.Text = "" Then
MsgBox "用户名不能为空!", vbOKOnly + vbCri$cal, "错误"
Text1.SetFocus
Exit Sub
End If
Adouser.Refresh
If Not Adouser.Recordset.EOF Then
Text1.Text = Adouser.Recordset!UserName
Text2.Text = Adouser.Recordset!Password
Else
Text1.Text = ""
Text2.Text = ""
End If
If Text1.Text = Text1.Text And Text2.Text = Text2.Text Then
Adouser.Recordset.Close
Unload Form2
frmmdi.Show
Else
MsgBox "用户名或密码不正确!", vbOKOnly + vbInforma$on, "提示"
i = i + 1
If i >= 3 Then
Adouser.Recordset.Close
End
End If
Text2.SetFocus
Unload Form2
End If
End Sub
Private Sub cmd2_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub cmdadd_Click()
Form4.Show
剩余15页未读,继续阅读
资源评论
omyligaga
- 粉丝: 53
- 资源: 2万+
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功