酒店客房管理系统设计VB程序源代码.docVIP

酒店客房管理系统设计系统源代码 酒店客房管理系统代码清单: frmAddlb窗体代码: Private Sub Command1_Click() Dim sql As String Dim conn As New adodb.Connection Dim rs_fjstyle As New adodb.Recordset If Trim(Text1.Text) = Then MsgBox 请输入房间类型, vbOKOnly + vbExclamation, Text1.SetFocus Exit Sub End If If Trim(Text2.Text) = Then MsgBox 请输入类型代号, vbOKOnly + vbExclamation, Text2.SetFocus Exit Sub End If If Trim(Text3.Text) = Then MsgBox 请输入房间数量, vbOKOnly + vbExclamation, Text3.SetFocus Exit Sub End If conn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= App.Path \data\database.mdb sql = select * from 客房类别 where 房间类型= Text1.Text rs_fjstyle.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_fjstyle.EOF Then rs_fjstyle.AddNew rs_fjstyle.Fields(1) = Trim(Text1.Text) rs_fjstyle.Fields(2) = Trim(Text2.Text) rs_fjstyle.Fields(3) = Trim(Text3.Text) rs_fjstyle.Update MsgBox 添加成功, vbOKOnly + vbExclamation, Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus rs_fjstyle.Close Else MsgBox 你添加的类别已存在,请输入新类别, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = Text2.Text = rs_fjstyle.Close Exit Sub End If End Sub Private Sub Command2_Click() Unload Me frmlbinfo.Show End Sub frmAdduser窗体代码: Private Sub Command1_Click() Dim sql As String Dim rs_add As New adodb.Recordset Dim conn As New adodb.Connection conn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= App.Path \data\database.mdb If Trim(Text1.Text) = Then MsgBox 用户名不能为空,请输入！, vbOKOnly + vbExclamation, Text1.SetFocus Else sql = select * from 用户信息 rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic While (rs_add.EOF = False) If Trim(rs_add.Fields(1)) = Trim(Text1.Text) Then MsgBox 已有这个用户, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = Exit Sub Else rs_add.MoveNext End If Wend If Trim(Text2.Text) Trim(Text3.Text) Then MsgBox 两次密码不一致, vbOKOnly + vbExclamation, Text2.Set