学生信息系统优化总结

学生信息系统优化

 

1、查询时,如果取消勾选“按学号”,文本框中的1 不会清楚,这个的解决办法是加入一段代码,

Private Sub Check1_Click()

  If Check1.Value = 1 Then

    txtSID.Visible = True

  Else

    txtSID.Text =""

  End If

End Sub

 

2、下拉框中可以输入字符怎么po,在属性中更改一下就可以了

combo的style属性默认值是0-dropdown combo,把它更改为2-dropdown list

0-dropdown combo 下拉式组合框,包括一个下拉式列表和一个文本框,可以从列表选择活在文本框中输入

1-dropdown combo  简单组合框,包括一个文本框和一个不能下拉的列表,可以从列表中选择或在文本框中输入内容

2-dropdown combo  下拉式列表,这种样式仅允许从下拉式列表中选择

3、MSGFlexGrid查询时有空行,修改代码

 

4日历问题有两个办法

在工程-部件 中添加Microsoft Windows common controls-2 6.0, 然后可以添加DTPicker控件也可以添加MonthView控件,最终的实现结果是一样的。 

 

 

 

但是我认为有点不太好,因为要一个月一个月的去点,所以我设置了一下UpDown属性,变成了这个样子我觉得这样很方便

 

 

 

 

5数据库为空时

在修改的窗体中加入代码

 

先判断数据库是否为空,如果这个时候去点击修改记录什么的,会报出错误,所以索性就让它不能用好了,于是我加上了后面两行代码,就是控件都不可用了,这样避免了报出错误。

 

 

 

6在添加成绩窗体中

设置选中学号自动弹出姓名

 

Private SubcomboSID_Click()

    Dim mrc As ADODB.Recordset

    Dim txtSQL As String

    Dim MsgText As String

    txtSQL = "select*from student_infowhere student_Name='" & comboSID.ListCount & "'"

    Set mrc = ExecuteSQL(txtSQL, MsgText)

    txtname.Text = mrc.Fields(1)

End Sub

 

7在设置课程窗口中,避免重复添加课程

 

Private SubcmdAdd_Click()

Dim selectcourseAs Integer

Dim i As Integer

Dim j As Integer

 For selectcourse = 0 Tolistallcourse.ListCount - 1

    If listallcourse.Selected(selectcourse) =True Then

        listselectcourse.AddItemlistallcourse.List(listallcourse.ListIndex)

            '  向listselectcourse列表中添加课程

            For i = 0 Tolistselectcourse.ListCount - 1

                For j = i + 1 Tolistselectcourse.ListCount

                '判断在list列表中是否有相同的名称

                If listselectcourse.List(i) =listselectcourse.List(j) Then

                    listselectcourse.RemoveItemj

                    MsgBox "已添加此课程!", vbOKOnly + vbExclamation, "提示"

                    Exit Sub

                End If

            Next j

        Next i

    End If

Next selectcourse

End Sub

学生信息系统还只是一个开始,我会在学习的路上越走越远的!

 

 

评论 33
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

荼白z

感谢老板请我喝咖啡

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值