宾馆管理信息系统论文

p;  Me.Caption=Me.Caption & ”添加”
      For i=0 To 3
        Combo1(i).AddItem ”否”
        Combo1(i).AddItem ”是”
        Combo1(i).ListIndex=0
      Next i
     ElseIf gintTmode=2 Then ‘判断是否处于修改状态
         Set mrc=ExecuteSql(txtSQL,MsgText)
         If mrc.EOF=false Then
            With mrc
               For intCount=0 To 3
                   txtItem(intCount)=.Fields(intCount)
               Next intCount
               txtItem(4)=.Fileds(8)
               For i=0 To 3
                   Combo1(i).Additem ”否”
          &

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