宾馆管理信息系统论文

>    Set mrc=ExecuteSQL(txtSQL,MsgText)
    If mrc.EOF=False Then
        MsgBox”已经存在相同客房标准的记录!”,vbOKOnly+vbExclamation,“警告”
        txtItem(1).Setfocus
        Exit Sub
    End If
    txtSQL=”delete from roomtype where typeid=’”&Trim(txtItem(0))&”’”‘删除已有记录
    Set mrc=ExecuteSQL(txtSQL,MsgText)
    txtSQL=”select *from roottype”‘添加新记录
    Set mrc=ExecuteSQL(txtSQL,MsgText)
    mrc.AddNew
    For intCount=0 To 3
        mrc.Fields(intCount)=Trim(txtItem(intCount))
    Next intCount
    For intCount=0 To 3
        mrc.Fields(intCount+4)=Trim(Combo1(intCount))
    Next intCount
    mrc.Fields(8)=Trim(txtItem(4))
    mrc.Update ‘更新数据库
    mrc.Close
    if gintTmode=1 Then ‘判断是否属于添加状态
       MsgBox “添加纪录成功!”,vbOKOnly+vbExclamtion,“添加记录”
       For intCount=0 To 4
   

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