宾馆管理信息系统论文

nbsp;        Combo1(i).Additem ”是”
               Combo1(i).ListIndex=0
           Next i
         End With
         txtItem(0).Enabled=False
       End If
       Me.Caption=Me.caption&”修改”
End If
mblChang=False
 End Sub
Private Sub cmd_Click()’用户输入内容完毕后，单击cmdSave按钮触发Click事件
  Dim intCount As Integer
  Dim sMeg As String
  Dim MsgText As String
  For intCount=0 To 4 ‘判断是否输入内容
        If Trim(txtItem(intCount)&””)=”” Then
               Select Case intCount
                    Case 0
                         sMeg=”标准编号”
                    Case 1
     

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>