宾馆管理信息系统论文

                    sMeg=”标准名称”
                    Case 2
                         sMeg=”房间面积”
                    Case 3
                         sMeg=”床位数量”
                    Case 4
                         sMeg=”床位单价”
               End Select
               sMeg=sMeg&”不能为空!”
               MsgBox sMeg,vbOkOnly+vbExclamation,”警告”
               txtItem(intCount).SetFocus
              

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