VB的控件名称.docVIP

控件名称： txtCourID txtCourCredit txtCourName chkCourCore cmdAdd cmdDelete cmdEdit cmdSave cmdCancel cmdFirst cmdPrevious cmdNext cmdLast cmdExit CourID 课程代号 CourName 课程名称 CourCredit 课程学分 CourCore 是否核心课程 ToolTipText属性： 确定：1 取消：2 终止：3 重试：4 忽略：5 是：6 否：7 课程信息管理模块代码： Dim AddMode As Boolean Sub clearcontrol() txtCourID.Text = txtCourName.Text = txtCourCredit.Text = chkCourCore.Value = 0 End Sub Sub ControltoField(rss As ADODB.Recordset) rss!CourID = Trim(txtCourID.Text) rss!CourName = Trim(txtCourName.Text) rss!CourCredit = Val(Trim(txtCourCredit.Text) + ) If chkCourCore.Value = 1 Then rss!CourCore = True Else rss!CourCore = False End If End Sub Sub FieldtoControl(rss As ADODB.Recordset) txtCourID.Text = Trim(rss!CourID) txtCourName.Text = Trim(rss!CourName) txtCourCredit.Text = Trim(rss!CourCredit) If rss!CourCore = True Then chkCourCore.Value = 1 Else chkCourCore.Value = 0 End If End Sub Sub cmdAdd_Click() Call SetCmdNotEnable(Me) Call clearcontrol If Not rs.EOF() And Not rs.BOF() Then rs.MoveLast rs.AddNew txtCourID.SetFocus AddMode = True txtCourID.Enabled = True End Sub Sub cmdCancel_Click() rs.CancelUpdate Call SetCmdEnable(Me) txtCourID.Enabled = True End Sub Sub cmdDelete_Click() If rs.EOF Or rs.BOF Or Trim(txtCourID) = Then MsgBox 无记录可删？, 48 + vbOKCancel, 警告 Exit Sub Else If MsgBox(当真要删除该课程信息码？, 48 + vbOKCancel, 警告) = 1 Then rs.Delete rs.Update Call clearcontrol Else Exit Sub End If End If If rs.RecordCount = 0 Then MsgBox 记录已全部删除！, 48, 提示 End If End Sub Sub cmdEdit_Click() AddMode = False Call SetCmdNotEnable(Me) If rs.EOF Or rs.BOF Or Trim(txtCourID) = Then MsgBox 无记录可修改？, 48 + vbOKCancel, 警告 Exit Sub End If txtCourID.Enabled = False End Sub Private Sub cmdExit_Click() Unload Me End Sub Sub cmdFirst_Click() If rs.RecordCount 0 Then rs.MoveFirst Call Me.FieldtoControl(rs) End If End Sub Sub cmdLast_Click() If rs.RecordCount 0 Then rs.MoveLast