源代码清单.docVIP

附录：主要窗体的源代码： 1：订房信息窗体的源代码： Option Explicit 是否改动过记录，ture为改过 Dim mblChange As Boolean Dim mrc As ADODB.Recordset Public txtSQL As String Private Sub cboItem_Change(Index As Integer) 有变化设置gblchange mblChange = True End Sub Private Sub cboItem_Click(Index As Integer) Dim mrcc As ADODB.Recordset Dim intCount As Integer Dim MsgText As String If gintBmode = 1 Then If Index = 0 Then txtSQL = select * from rooms where roomNO = Trim(cboItem(0)) and putup 是 Set mrcc = ExecuteSQL(txtSQL, MsgText) For intCount = 1 To 3 cboItem(intCount).Clear cboItem(intCount).AddItem mrcc.Fields(intCount) cboItem(intCount).ListIndex = 0 Next intCount txtItem(5) = mrcc.Fields(5) mrcc.Close End If End If End Sub Private Sub cboItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCode End Sub Private Sub cmdExit_Click() If mblChange And cmdSave.Enabled Then If MsgBox(保存当前记录的变化吗？, vbOKCancel + vbExclamation, 警告) = vbOK Then 保存 Call cmdSave_Click End If End If Unload Me End Sub Private Sub cmdSave_Click() Dim intCount As Integer Dim sMeg As String Dim mrcc As ADODB.Recordset Dim MsgText As String For intCount = 0 To 3 If Trim(txtItem(intCount) ) = Then Select Case intCount Case 0 sMeg = 顾客姓名 Case 1 sMeg = 身份证号码 Case 2 sMeg = 折扣 Case 3 sMeg = 入住时间 End Select sMeg = sMeg 不能为空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount For intCount = 0 To 3 If Trim(cboItem(intCount) ) = Then