学生课设家教管理系统

7.19 数据库原理 1A304 14:00-16:00 7.21 操作系统原理 1B212右 14:00-16:00 7.23信息资源组织与管理 1B317 9:00-11:00 添加 Private Sub Command4_Click() Text1 = InputBox("请输入客户编号", "添加编号") Text2 = InputBox("请输入性别", "添加性别") Text3 = InputBox("请输入工作单位", "添加工作单位") Text4 = InputBox("请输入地址", "添加地址") Text5 = InputBox("请输入电话", "添加电话") Text6 = InputBox("请输入姓名", "添加姓名") Text7 = InputBox("请输入业务种类", "添加业务种类") Text8 = InputBox("请输入职位", "添加职位") ask = MsgBox("添加否?", vbYesNo) If ask = 6 Then Adodc1.Recordset.AddNew If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast 登录 Private Sub Command1_Click() Adodc1.RecordSource = "select username,password from Users where username=" & "'" & Text1.Text & "'" Adodc1.Refresh If Text1.Text = "" Then MsgBox "用户名或密码不能为空!", , "警告!" Else If Text1.Text = Trim(Text3.Text) And Text2.Text = Trim(Text4.Text) Then 登录.Visible = False 企业客户管理信息系统.Visible = False Form3.Show Else MsgBox "用户名或密码错误！", , "登录失败！" End If End If End Sub 查询 Dim mno As String mno = InputBox("请输入客户编号", "查找窗") Adodc1.Recordset.Find "客户编号='" & mno & "'", , , 1 If Adodc1.Recordset.EOF Then MsgBox "无此学号!", , "提示" 首记录、上一条、下一条、未记录、查找 Private Sub Command10_Click(Index As Integer) Select Case Index Case 0 Data1.Recordset.MoveFirst Case 1 Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst Case 2 Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast Case 3 Data1.Recordset.MoveLast Case 4 Dim mno As String mno = InputBox("请输入客户编号", "查找窗") Data1.Recordset.Find "客户编号='" & mno & "'", , , 1 If Data1.Recordset.EOF Then MsgBox "无此编号!", , "提示" End Select End Sub 新增、删除、更新、放弃、结束 Private Sub Command11_Click(Index As Integer) Dim ask As Integer Select Case Index Case 0 Data1.Recordset.AddNew Case 1 ask = MsgBox("删除否?", vbYesNo) If ask = 6 Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End If Case 2 Data1.Recordset.Update Case 3 Data1.Recordset.CancelUpdate Case 4 修改.Visible = False End Select End Sub