发布时间 : 星期六 文章学生信息管理系统软件 - 毕业论文更新完毕开始阅读c4f43ecdaa00b52acfc7ca43
学生信息管理系统软件设计
Private Sub Form_Load() '窗体加载时候注册时间文本框获得当前时间 Text4.Enabled = False Text4.Text = Date End Sub
3.5.2密码修改窗体设计
添加一个窗体(frm_modify)、一个图像列表控件、一个ListView控件。在图像列表控件属性页插入一张图片作为用户的图标,在ListView属性页图像列表把图标图像列表选项设置为ImageList1。该部分主要完成用户密码修改的功能(管理员修改首页用户的密码、普通用户修改自己的密码)。 代码如下:
Private Sub Command1_Click() '确认按钮 With reco
If Text2.Text <> trim(.Fields(\)Then MsgBox (\当前密码错误!请重新输入!\错误\ Text2.Text = \ Else
If Text3.Text <> Text4.Text Then
MsgBox (\两次密码输入不一致!\错误\ Text3.Text = \ Text4.Text = \Else
.Fields(\ .Update
MsgBox (\密码修改成功!\提示\ Text4.Text = \ Text2.Text = \ Text3.Text = \
Command1.Enabled = False End If End If End With End Sub
Private Sub Form_Load()
16
学生信息管理系统软件设计
Dim list As ListItem Dim i As String Text1.Enabled = False Close_Reco
If Asort = \管理员\
reco.Open \ Else
reco.Open \ End If
If reco.RecordCount > 0 Then Do While Not reco.EOF i = reco.Fields(\
Set list = ListView1.ListItems.Add(, , i, 1) reco.MoveNext Loop End If End Sub
Private Sub ListView1_Click() Dim i As String
i = ListView1.SelectedItem '获取列表框中的用户名 With reco
.MoveFirst '将当前指针移到记录集的第一条 .Find \ '开始向下检索一列名为i的记录 Text1.Text = .Fields(\ End With Text2.SetFocus End Sub
3.6 学生基本情况更新窗体设计
添加一个窗体(frm_qkbgx)、一个ADO控件。把ADO控件的属性设置为连接到maokeyang数据库、把记录源设置为数据库里面的student表,分别把窗体上的文本框(除查询学号文本框外)和下拉框的数据源设置为adodc1、把数据字段分别设置为数据库里面对应的字段。该部分主要完成学生基本情况的操作。
代码如下:
17
学生信息管理系统软件设计
Private Sub Command1_Click() '添加按钮 Adodc1.Recordset.AddNew Text1.Text = \Text2(1).Text = \Text3(0).Text = \Text4(1).Text = \Text5(0).Text = \Text6(1).Text = \Text7(0).Text = \Combo1.Text = \Combo2.Text = \Command1.Enabled = False Command11.Enabled = True Command7.Enabled = True Command6.Enabled = True Command8.Enabled = True Command9.Enabled = True End Sub
Private Sub Command11_Click() With Adodc1.Recordset .Fields(\.Fields(\.Fields(\.Fields(\
.Fields(\.Fields(\
.Fields(\.Fields(\.Fields(\If Text1.Text = .Fields(\MsgBox (\学号不能重复!\提示\Text1.Text = \Text1.SetFocus Else
'更新按钮 18
学生信息管理系统软件设计
.Update
MsgBox (\添加成功!\提示\ Command1.Enabled = True Command11.Enabled = False End If End With End Sub
Private Sub Command2_Click() '删除按钮
If MsgBox(\你真的要删除该学生信息吗?\删除信息\Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast End If End If End Sub
Private Sub Command3_Click() '修改按钮 With Adodc1.Recordset .Fields(\.Fields(\.Fields(\.Fields(\
.Fields(\.Fields(\
.Fields(\.Fields(\.Fields(\.Update
MsgBox (\修改成功!\提示\End With End Sub
Private Sub Command5_Click() '查询按钮
19