SQL 数据库课程设计学生成绩系统(6)

SQL 数据库课程设计学生成绩系统

4.4. 用户管理模块 4.4.1 说明

创建、删除用户。设定用户权限。

4.4.2

窗体设计

4.4.3 代码设计

上一条（Command1）处理（Click）

Private Sub Command1_Click() Command2.Enabled = True

Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Command1.Enabled = False Adodc1.Recordset.MoveFirst End If End Sub

下一条（Command2）处理（Click）

Private Sub Command2_Click() Command1.Enabled = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Command2.Enabled = False Adodc1.Recordset.MoveLast End If End Sub

添加（Command3）处理（Click）

Private Sub Command3_Click()

If Command3.Caption = "添加" Then Command3.Caption = "确定"

Command1.Enabled = False