wait.frm

该系统为酒店日常管理提供了很大的方便

      AutoSize        =   -1  'True
      Caption         =   "预达日期:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   120
      TabIndex        =   50
      Top             =   4440
      Width           =   945
   End
   Begin VB.Label Label9 
      AutoSize        =   -1  'True
      Caption         =   "付款帐号:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   120
      TabIndex        =   49
      Top             =   3960
      Width           =   945
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True
      Caption         =   "付款单位:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   120
      TabIndex        =   48
      Top             =   3480
      Width           =   945
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      Caption         =   "人数:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   120
      TabIndex        =   47
      Top             =   3000
      Width           =   525
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      Caption         =   "订房间数:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   120
      TabIndex        =   46
      Top             =   2520
      Width           =   945
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "VIP等级:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   120
      TabIndex        =   45
      Top             =   2040
      Width           =   840
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "国籍代码:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   120
      TabIndex        =   44
      Top             =   1560
      Width           =   945
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "国籍名称:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   120
      TabIndex        =   43
      Top             =   1080
      Width           =   945
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "客人名称:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   120
      TabIndex        =   42
      Top             =   600
      Width           =   945
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "预订单号:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   120
      TabIndex        =   41
      Top             =   120
      Width           =   945
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim t_rec As Recordset
Dim yx_data As Database
Dim wrk As Workspace

Private Sub Cmd1_Click()
    t_rec.AddNew
        t_rec!YDD_H = UCase(Trim(m_ydd_h.Text))
        t_rec!KR_MC = UCase(Trim(m_krmc.Text))
        t_rec!GJMC = UCase(Trim(m_gjmc.Text))
        t_rec!GJDM = Trim(m_gjdm.Text)
        t_rec!VIP_MC = UCase(Trim(m_vip_mc.Text))
        
        t_rec!DF_JS = CDec(Trim(m_df_js.Text))
        t_rec!RS = CDec(Trim(m_rs.Text))
        
        t_rec!FKDW = UCase(Trim(m_fkdw.Text))
        
        t_rec!FKZH = CDec(Trim(m_fkzh.Text))
        
        t_rec!RZRQ = CDate(Trim(m_rzrq.Text))
        t_rec!LDRQ = CDate(Trim(m_ldrq.Text))
        
        t_rec!YDBC = UCase(Trim(m_ydbc.Text))
        t_rec!YDSJ = UCase(Trim(m_ydsj.Text))
        t_rec!YLSJ = UCase(Trim(m_ylsj.Text))
        t_rec!YLBC = UCase(Trim(m_ylbc.Text))
        t_rec!CHCL = UCase(Trim(m_chcl.Text))
        t_rec!RHL = UCase(Trim(m_rhl.Text))
        
        t_rec!YJ_DJ = CDec(Trim(m_yj_dj.Text))
        t_rec!YJ_FT = UCase(Trim(m_yj_ft.Text))
        t_rec!BZ = UCase(Trim(m_bz.Text))
        
        t_rec!KR_FL_S = UCase(Trim(m_kr_fl_s.Text))
        t_rec!QP_FL_S = UCase(Trim(m_qp_fl_s.Text))
        t_rec!DP_FL_S = UCase(Trim(m_dp_fl_s.Text))
        t_rec!KR_FL_J = CDec(Trim(m_kr_fl_j.Text))
        t_rec!QP_FL_J = CDec(Trim(m_qp_fl_j.Text))
        t_rec!DP_FL_J = CDec(Trim(m_dp_fl_j.Text))
        
        t_rec!TSFW = UCase(Trim(m_tsfw.Text))
        t_rec!KHDM = UCase(Trim(m_khdm.Text))
        t_rec!YWDW_MC = UCase(Trim(m_ywdw_mc.Text))
        t_rec!LXDH = UCase(Trim(m_lxdh.Text))
        t_rec!DF_FS = UCase(Trim(m_df_fs.Text))
        
        t_rec!GZ_JS = CDec(Trim(m_gz_js.Text))
        
        t_rec!YDRQ = CDate(Trim(m_ydrq.Text))
        
        t_rec!DFY_DM = UCase(Trim(m_dfy_dm.Text))
        t_rec!RZ_FT = UCase(Trim(m_rz_ft.Text))
        t_rec!SHXL_SJ = UCase(Trim(m_shxl_sj.Text))
        
        t_rec!DF_LX1 = CDec(Trim(m_df_lx1.Text))
        t_rec!DF_LX2 = CDec(Trim(m_df_lx2.Text))
        t_rec!DF_LX3 = CDec(Trim(m_df_lx3.Text))
        t_rec!DF_LX4 = CDec(Trim(m_df_lx4.Text))
        t_rec!ZKLX = CDec(Trim(m_zklx.Text))
        
        t_rec!jf_fs = UCase(Trim(m_jf_fs.Text))
        t_rec!BDJDDW_MC = UCase(Trim(m_bdjddw_mc.Text))
        t_rec!DFR_NAME = UCase(Trim(m_dfy_dm.Text))
        t_rec!CZY = UCase(Trim(m_czy.Text))
        t_rec!LOCK_NO = 0
    
    t_rec.Update
    m_ydd_h.SetFocus
    m_ydd_h.SelStart = 0
    m_ydd_h.SelLength = Len(Trim(m_ydd_h.Text))
    
End Sub

Private Sub Cmd2_Click()
    End
End Sub

Private Sub Form_Load()
       Dim sys_uid As String, sys_pwd As String
         sys_uid = "db2user"
         sys_pwd = "db2user"
       
        Set wrk = CreateWorkspace("", "admin", "")
        Set yx_data = wrk.OpenDatabase("YX", dbDriverNoPrompt, False, "uid=" & sys_uid & ";pwd=" & sys_pwd)
        Set t_rec = yx_data.OpenRecordset("select * from YD_WAIT", 2, 0, 2)
        If Not t_rec.BOF Then
                t_rec.MoveLast
        End If
End Sub

Private Sub m_df_js_LostFocus()
    If Not m_df_js = "" Then
        If IsNumeric(Trim(m_df_js.Text)) Then
            m_rs.SetFocus
            m_rs.SelStart = 0
            m_rs.SelLength = Len(Trim(m_rs.Text))
        Else
            m_df_js.SetFocus
            m_df_js.SelStart = 0
            m_df_js.SelLength = Len(Trim(m_df_js.Text))
            
        End If
        
    Else
            m_df_js = "0"
             m_rs.SetFocus
            m_rs.SelStart = 0
            m_rs.SelLength = Len(Trim(m_rs.Text))
    End If
        
End Sub

Private Sub m_df_lx1_LostFocus()
    If Not m_df_lx1 = "" Then
        If IsNumeric(Trim(m_df_lx1.Text)) Then
            m_df_lx2.SetFocus
            m_df_lx2.SelStart = 0
            m_df_lx2.SelLength = Len(Trim(m_df_lx2.Text))
        Else
            m_df_lx1.SetFocus
            m_df_lx1.SelStart = 0
            m_df_lx1.SelLength = Len(Trim(m_df_lx1.Text))
            
        End If
        
    Else
            m_df_lx1 = "0"
            m_df_lx2.SetFocus
            m_df_lx2.SelStart = 0
            m_df_lx2.SelLength = Len(Trim(m_df_lx2.Text))
    End If
End Sub

Private Sub m_df_lx2_LostFocus()
    If Not m_df_lx2 = "" Then
        If IsNumeric(Trim(m_df_lx2.Text)) Then
            m_df_lx3.SetFocus
            m_df_lx3.SelStart = 0
            m_df_lx3.SelLength = Len(Trim(m_df_lx3.Text))
        Else
            m_df_lx2.SetFocus
            m_df_lx2.SelStart = 0
            m_df_lx2.SelLength = Len(Trim(m_df_lx2.Text))
            
        End If
        
    Else
            m_df_lx2 = "0"
            m_df_lx3.SetFocus
            m_df_lx3.SelStart = 0
            m_df_lx3.SelLength = Len(Trim(m_df_lx3.Text))
    End If
End Sub

Private Sub m_df_lx3_LostFocus()
    If Not m_df_lx3 = "" Then
        If IsNumeric(Trim(m_df_lx3.Text)) Then
            m_df_lx4.SetFocus
            m_df_lx4.SelStart = 0
            m_df_lx4.SelLength = Len(Trim(m_df_lx4.Text))
        Else
            m_df_lx3.SetFocus
            m_df_lx3.SelStart = 0
            m_df_lx3.SelLength = Len(Trim(m_df_lx3.Text))
            
        End If
        
    Else
            m_df_lx3 = "0"
            m_df_lx4.SetFocus
            m_df_lx4.SelStart = 0
            m_df_lx4.SelLength = Len(Trim(m_df_lx4.Text))
    End If
End Sub

Private Sub m_df_lx4_LostFocus()
    If Not m_df_lx4 = "" Then
        If IsNumeric(Trim(m_df_lx4.Text)) Then
            m_zklx.SetFocus
            m_zklx.SelStart = 0
            m_zklx.SelLength = Len(Trim(m_zklx.Text))
        Else
            m_df_lx4.SetFocus
            m_df_lx4.SelStart = 0
            m_df_lx4.SelLength = Len(Trim(m_df_lx4.Text))
            
        End If
        
    Else
            m_df_lx4 = "0"
            m_zklx.SetFocus
            m_zklx.SelStart = 0
            m_zklx.SelLength = Len(Trim(m_zklx.Text))
    End If
End Sub

Private Sub m_fkzh_LostFocus()
    If Not m_fkzh = "" Then
        If IsNumeric(Trim(m_fkzh.Text)) Then
            m_rzrq.SetFocus
            m_rzrq.SelStart = 0
            m_rzrq.SelLength = Len(Trim(m_rzrq.Text))
        Else
            m_fkzh.SetFocus
            m_fkzh.SelStart = 0
            m_fkzh.SelLength = Len(Trim(m_fkzh.Text))
            
        End If
        
    Else
            m_df_js = "0"
            m_rzrq.SetFocus
            m_rzrq.SelStart = 0
            m_rzrq.SelLength = Len(Trim(m_rzrq.Text))
    End If
End Sub

Private Sub m_gz_js_LostFocus()
    If Not m_gz_js = "" Then
        If IsNumeric(Trim(m_gz_js.Text)) Then
            m_ydrq.SetFocus
            m_ydrq.SelStart = 0
            m_ydrq.SelLength = Len(Trim(m_ydrq.Text))
        Else
            m_gz_js.SetFocus
            m_gz_js.SelStart = 0
            m_gz_js.SelLength = Len(Trim(m_gz_js.Text))
            
        End If
        
    Else
            m_df_js = "0"
            m_ydrq.SetFocus
            m_ydrq.SelStart = 0
            m_ydrq.SelLength = Len(Trim(m_ydrq.Text))
    End If
End Sub

Private Sub m_rs_LostFocus()
    If Not m_rs = "" Then
        If IsNumeric(Trim(m_rs.Text)) Then
            m_fkdw.SetFocus
            m_fkdw.SelStart = 0
            m_fkdw.SelLength = Len(Trim(m_fkdw.Text))
        Else
            m_rs.SetFocus
            m_rs.SelStart = 0
            m_rs.SelLength = Len(Trim(m_rs.Text))
            
        End If
        
    Else
            m_rs = "0"
            m_fkdw.SetFocus
            m_fkdw.SelStart = 0
            m_fkdw.SelLength = Len(Trim(m_fkdw.Text))
    End If
End Sub

Private Sub m_yj_dj_LostFocus()
    If Not m_yj_dj = "" Then
        If IsNumeric(Trim(m_yj_dj.Text)) Then
            m_yj_ft.SetFocus
            m_yj_ft.SelStart = 0
            m_yj_ft.SelLength = Len(Trim(m_yj_ft.Text))
        Else
            m_yj_dj.SetFocus
            m_yj_dj.SelStart = 0
            m_yj_dj.SelLength = Len(Trim(m_yj_dj.Text))
            
        End If
        
    Else
            m_df_js = "0"
            m_yj_ft.SetFocus
            m_yj_ft.SelStart = 0
            m_yj_ft.SelLength = Len(Trim(m_yj_ft.Text))
    End If
End Sub

Private Sub m_zklx_LostFocus()
     If Not m_zklx = "" Then
        If IsNumeric(Trim(m_zklx.Text)) Then
            m_jf_fs.SetFocus
            m_jf_fs.SelStart = 0
            m_jf_fs.SelLength = Len(Trim(m_jf_fs.Text))
        Else
            m_zklx.SetFocus
            m_zklx.SelStart = 0
            m_zklx.SelLength = Len(Trim(m_zklx.Text))
            
        End If
        
    Else
            m_zklx = "0"
'            m_jffs.SetFocus
'            m_jffs.SelStart = 0
'            m_jffs.SelLength = Len(Trim(jffs.Text))
    End If
End Sub