Text9.Text = \Text10.Text = \Text11.Text = \End Sub
Private Sub Command2_Click() Unload Me End Sub
修改学生成绩窗口 1.修改学生成绩界面说明 管理员可根据需要对学生信息进行修改（在相应信息处正确进行修改），修改完毕后单击“修改”按钮即可成功修改学生信息。 2.修改学生成绩界面代码 Private Sub Command1_Click() Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset Dim gg As New ADODB.Recordset Dim sql, rt As String Dim z, a As String Dim zy, bj, xh, xm, jsjwl, jsjzcyl, jsjyyytg, glxxxt, xxfgc, bgrj, bz As String db.Open sql = \学生成绩表1\rs.Open sql, db, adOpenStatic, adLockOptimistic a = \学生成绩表1 set 专业= '\班级= '\Text2.Text & \学号= '\姓名= '\计算机网络='\计算机组成原理= '\计算机应用与提高= '\& Text7.Text & \管理信息系统='\& Text8.Text & \信息法律规程= '\办公软件= '\备注= '\姓名= '\
gg.Open a, db, adOpenStatic, adLockOptimistic MsgBox (\修改成功\DataGrid1.Refresh End Sub
Private Sub Command2_Click() Unload Me End Sub 档案查询窗口 1.档案查询界面说明 管理员根据需要选择所要查询的对象，单击“查询”按钮即可查询成功。 2.档案查询界面代码 Private Sub Command1_Click() Dim kl As String Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String Dim rs1 As New ADODB.Recordset Dim sql1 As String kl = Combo1.Text db.Open sql = \学生档案表\rs.Open sql, db, adOpenStatic, adLockReadOnly sql1 = \学生档案表 where 学号='\ rs1.Open sql1, db, adOpenStatic, adLockReadOnly If rs.RecordCount = 0 Then
MsgBox \表内无记录\如果为空，弹出对话框 Else
rs.MoveFirst '如果不为空，定位到选定的记录 Text1.Text = rs1.Fields(0).Value
Text2.Text = rs1.Fields(1).Value '显示相应字段的内容 Text3.Text = rs1.Fields(2).Value Text4.Text = rs1.Fields(3).Value Text5.Text = rs1.Fields(4).Value Text6.Text = rs1.Fields(5).Value Text7.Text = rs1.Fields(6).Value Text8.Text = rs1.Fields(7).Value Text9.Text = rs1.Fields(8).Value Text10.Text = rs1.Fields(9).Value Text11.Text = rs1.Fields(10).Value Text12.Text = rs1.Fields(11).Value Text13.Text = rs1.Fields(12).Value MsgBox (\查询成功\ Adodc1.Refresh End If End Sub Private Sub Command2_Click() Unload Me End Sub 注册查询窗口 1.注册查询界面说明 管理员根据需要选择所要查询的对象，单击“查询”得到该对象的注册信息。 2.注册查询界面代码 Private Sub Command1_Click() Dim kl As String
Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String
Dim rs1 As New ADODB.Recordset
Dim sql1 As String kl = Combo1.Text db.Open
sql = \学生注册表\
rs.Open sql, db, adOpenStatic, adLockReadOnly
sql1 = \学生注册表 where 姓名='\ rs1.Open sql1, db, adOpenStatic, adLockReadOnly If rs.RecordCount = 0 Then MsgBox \表内无记录\如果为空，弹出对话框 Else rs.MoveFirst '如果不为空，定位到选定的记录 Text1.Text = rs1.Fields(0).Value Text2.Text = rs1.Fields(1).Value '显示相应字段的内容 Text3.Text = rs1.Fields(2).Value Text4.Text = rs1.Fields(3).Value Text5.Text = rs1.Fields(4).Value Text6.Text = rs1.Fields(5).Value Text7.Text = rs1.Fields(6).Value MsgBox (\查询成功\ Adodc1.Refresh End If End Sub Private Sub Command2_Click() Unload Me End Sub 用户修改窗口 1.用户修改界面说明
管理员根据需要修改用户权限信息。单击“修改”即可成功。 2.用户修改界面代码
Private Sub Command1_Click() Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset Dim gg As New ADODB.Recordset Dim sql, rt As String Dim z, a As String Dim yhm, mm, bz As String db.Open sql = \用户管理表\rs.Open sql, db, adOpenStatic, adLockOptimistic a = \用户管理表 set 用户名= '\密码= '\Text3.Text & \备注= '\用户名= '\MsgBox (\修改成功\End Sub Private Sub Command2_Click() Unload Me End Sub 用户添加窗口 1.用户添加界面说明 管理员根据需要添加用户信息。单击“添加”按钮即可添加成功。 2.用户添加界面代码 Private Sub Command1_Click() Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql, rt As String Dim yhm, mm, bz As String db.Open
sql = \用户管理表\
rs.Open sql, db, adOpenStatic, adLockOptimistic