宾馆管理信息系统论文

nbsp;    Dim sSql As String
     Dim intCount As Integer
     Dim MsgText As String
     Dim mrcc As ADODB.Recordset
     If gintRmode=1 Then ‘判断是否处于添加状态
        Me.Caption=me.Caption&“添加”
        txtSQL=”select DISTINCT typename from roomtype”
        Set mrc=ExecuteSQL(txtSQL,MsgText)
        If Not mrc.EOF Then
             Do While Not mrc.EOF
                cboItem(0).AddItem Trim(mrc.Fields(0))
                mrc.MoveNext
             Loop
             cboItem(0).ListIndex=0‘显示记录内容
        Else
             MsgBox “请先进行客房标准设置!”,vbOKOnly+vbExclamation,“警告”
             cmdSave.Enabled=Fals

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >>