酒店客房管理系统设计VB程序源代码Word文档格式.docx

1、请输入房间数量Text3.SetFocusconn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & datadatabase.mdbsql = select * from 客房类别 where 房间类型= Text1.Text &rs_fjstyle.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_fjstyle.EOF Thenrs_fjstyle.AddNewrs_fjstyle.Fields（1） = Trim（Text1.Text）rs_fjsty

2、le.Fields（2） = Trim（Text2.Text）rs_fjstyle.Fields（3） = Trim（Text3.Text）rs_fjstyle.Update添加成功Text1.Text = Text2.Text = Text3.Text = rs_fjstyle.CloseElse你添加的类别已存在,请输入新类别End SubPrivate Sub Command2_Click（） Unload Me frmlbinfo.ShowfrmAdduser窗体代码:Dim rs_add As New adodb.Recordset If Trim（Text1.Text） = Msg

3、Box 用户名不能为空,请输入！ 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已有这个用户 Text1.Text = Text2.Text = Text3.Text = Exit Sub rs_add.MoveNext End If Wend If Trim（Text2.Text） Trim（

4、Text3.Text） Then两次密码不一致 Text2.SetFocus rs_add.AddNew rs_add.Fields（1） = Text1.Text rs_add.Fields（2） = Text2.Text rs_add.Update添加用户成功! Me.HideUnload MefrmdfAdd窗体代码:请输入姓名!日期不能为空!If Not IsDate（Text2.Text） Then请按照2006-12-30格式输入登记日期!请输入房间编号!If Trim（Text4.Text） = 请选择房间类型!Text4.SetFocusIf Trim（Text5.Text）

5、= 请交定金!Text5.SetFocusselect * from 预订客房rs_fjstyle.EOFrs_fjstyle.Fields（4） = Trim（DTPicker1.Value）rs_fjstyle.Fields（5） = Trim（DTPicker2.Value）rs_fjstyle.Fields（2） = Trim（Text3.Text）rs_fjstyle.Fields（3） = Trim（Text4.Text）rs_fjstyle.Fields（6） = Val（Text5.Text）Command3.Enabled = TrueText4.Text = Text5.T

6、ext = Private Sub Command3_Click（） conn.Open select 客人姓名,房间编号,房间类型,订房日期,订房时间,预交订金 from 预订客房 rs_fjstyle.CursorLocation = adUseClient rs_fjstyle.Open sql, conn, adOpenKeyset, adLockPessimistic DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False Set DataGrid1.DataS

7、ource = rs_fjstyle数据已更新! Private Sub Command4_Click（）Private Sub Form_Load（）Set DTPicker2.Value = TimefrmDfdy窗体代码:Dim rs_dfdybb As New adodb.Recordsetselect 房间编号,房间类别,日住宿费,周住宿费,月住宿费,预订,空房 from 客房信息rs_dfdybb.Open sql, conn, adOpenKeyset, adLockPessimisticSet DataReport1.DataSource = rs_dfdybb.DataSou

8、rce DataReport1.DataMember = rs_dfdybb.DataMember DataReport1.ShowDim rs_dfdy As New Recordset Dim conn As New adodb.Connection On Error GoTo loaderrorrs_dfdy.CursorLocation = adUseClient rs_dfdy.Open sql, conn, adOpenKeyset, adLockPessimistic Set DataGrid1.DataSource = rs_dfdyloaderror: MsgBox Err.

9、DescriptionfrmdfEdit窗体代码:Option ExplicitDim rs_xgkfinfo As New adodb.RecordsetPrivate Sub cmddel_Click（）Dim answer As String answer = MsgBox（确定要删除吗？, vbYesNo, ） If answer = vbYes Then DataGrid1.AllowDelete = True rs_xgkfinfo.Delete rs_xgkfinfo.Update DataGrid1.RefreshPrivate Sub cmdEdit_Click（） On E

10、rror GoTo cmdEdit cmddel.Enabled = False cmdEdit.Enabled = False cmdupdate.Enabled = True Command4.Enabled = False DataGrid1.AllowUpdate = TruecmdEdit: If Err.Number 0 Then-Private Sub DataGrid1_BeforeColUpdate（ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer） If ColIndex = 3 Then I

11、f Not IsDate（DataGrid1.Columns（3）.Value） Then Cancel = True请输入一个日期型数据。例如：1991/11/25-Private Sub cmdUpdate_Click（）Dim a As BooleanIf Not IsNull（DataGrid1.Bookmark） Then cmddel.Enabled = True cmdEdit.Enabled = True cmdupdate.Enabled = False修改成功!DataGrid1.AllowUpdate = FalseCommand4.Enabled = Truefrmdf

12、Find.Show rs_xgkfinfo.CursorLocation = adUseClient rs_xgkfinfo.Open sql, conn, adOpenKeyset, adLockPessimistic Set DataGrid1.DataSource = rs_xgkfinfoPrivate Sub Form_Unload（Cancel As Integer） Set DataGrid1.DataSource = Nothing rs_xgkfinfo.ClosefrmdfFind窗体:Private Sub Command1_Click（） 全部信息Private Sub

13、 Command2_Click（） 选择部份信息Dim rs_kffind As New adodb.RecordsetIf Check1.Value = vbChecked Then客人姓名= Trim（Text1.Text &） &If Trim（sql） = If Check2.Value = vbChecked Then请输入正确的格式,YYYY-MM-DD!, vbOKOnly + vbExclamation订房时间= Trim（CDate（Text2.Text） &订房日期=# CDate（Text2.Text） &#If Check3.Value = vbChecked Then房间编号= Trim（Text3.Text &If Check4.Value = vbChecked Then房间类型= Trim（Text4.Text &请选择查询方式!select 客人姓名,房间编号,房间类型,订房日期,订房时间,预交订金 from 预订客房 where sqlrs_kffind.CursorLocation = adUseClie