学生信息管理系统
连接SQL server数据库,借助vb进行编写。
张_Laura
Java领域优质创作者,华为云享专家
展开
-
【学生】vb中的各种限制
【前言】在学生信息管理系统中会遇到输入姓名、学号、联系电话和日期的时候,这个时候为了方便使用,往往是需要限制一下文本框的输入信息的。【正文】限制文本框只能输入数字和删除键Private Sub txtClassno_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57 ...原创 2019-08-12 18:35:56 · 1307 阅读 · 27 评论 -
【学生】学生优化(四)修改记录及“3021”
一、点击修改记录,记录没有修改的时候也会提示修改成功。加入一个判重。原码:进行判断的只有一个条件,但是有的窗体是几个条件同时进行约束的。'判断是否有重复记录 mrc.Delete txtSQL = "select * from result_Info where student_ID= '" & Trim(comboSID.Text) & "'" ...原创 2019-08-20 08:49:05 · 445 阅读 · 31 评论 -
【学生】学生优化(三)添加记录
一、日期控件原码中的日期是直接手动输入的,还需要限制输入的格式,格式不正确是会弹出警示框的,这样来说,用户体验不太好。最直接的方式就是使用日期控件,让用户直接手动输入就可以了。日期控件的添加:工具——部件——控件——“Microsoft Windows Common Controls-2.6.0”——应用——确定需要注意的是,需要限制日期的先后顺序。'判断出生日期早于...原创 2019-08-19 23:13:01 · 472 阅读 · 13 评论 -
【学生】学生优化(二)修改密码
修改密码时需要显示用户名和旧密码,并判断输入的旧密码是否是当前用户的密码。修改密码成功之后需要重新登录。加一个label框,来显示当前用户名。Private Sub Form_Load() Label4.Caption = "当前用户名为:" & UserNameEnd Sub从数据库中查询当前用户名和旧密码,并判断输入的旧密码是否正确。同时判断新旧密码...原创 2019-08-19 22:42:08 · 653 阅读 · 13 评论 -
【学生】设置MSF控件自动调整列宽
问题:在查询记录的窗体用到了MSFlexGrid控件,但是有的记录字数太多,被控件给“吞”了,这个时候可以设置自动调整列宽。解决:在模块中定义:Public Sub AdjustColWidth(frmCur As Form, gridCur As Object, Optional bNullRow As Boolean = True, Optional dblIncWid...原创 2019-08-19 22:29:08 · 805 阅读 · 11 评论 -
【学生】ListAllcourse禁止重复的用法
问题:在添加年级课程的时候,会出现重复添加的情况。解决方法:点击设置课程的时候直接清除之前的记录页。Private Sub cmdset_Click() Dim mrc As ADODB.Recordset Dim txtSQL As String Dim MsgText As String '清空控件中现有的记录 ...原创 2019-08-18 20:50:08 · 492 阅读 · 13 评论 -
【学生】解决循环查询问题
【前言】在修改窗体,点击查看记录的时候,它是在数据库中循环查询的。简单来说就是点上一条记录,可以一直点下去,没有尽头,但是这样又和我们的逻辑有些矛盾。【正文】正常的逻辑是:点击上一条记录可以一直查询到第一条记录,然后提示已经到了第一条记录,不能再查询了,这时这个按钮就已经失效了。还有就是可以点击第一条记录,直接查询到数据库的第一条记录,再点击上一条记录的时候,就会直接提示已经到...原创 2019-08-18 20:24:05 · 602 阅读 · 13 评论 -
【学生】学生优化(一)查询窗体
一、没有点击check的时候,text不可以输入。在学生信息管理系统中,有两个查询窗体,按照书上敲的,不需要点击check就可以在text控件输入,但是在查询的时候还是需要用到check控件的,所以需要限制一下。首先设置form_load在原代码的基础上再加上一段代码,限制text在程序一运行就不可以输入。txtSID.Enabled = FalsetxtName.Enab...原创 2019-08-18 18:20:02 · 479 阅读 · 8 评论 -
【学生】修改密码时显示旧密码
【前言】在进行学生信息管理系统的时候,在修改密码的时候需要验证原密码是否是正确的。【正文】加入一个label控件,显示现在的用户名。进入数据库进行查询,显示当前用户名。Private Sub Form_Load() Dim txtSQL As String Dim MsgText As String Width = 6252 Height =...原创 2019-08-16 10:58:19 · 1245 阅读 · 23 评论 -
【学生】子窗体和普通窗体的相关设置
【前言】在一开始敲学生的时候,会遇到子窗体和普通的窗体的设置问题,下面就简单的总结一下吧。【正文】上图标注了父窗体和子窗体以及普通窗体的区别。父窗体是直接添加的MDI窗体,一个程序里面只能有一个父窗体。子窗体就是普通窗体经过设置形成的。普通窗体—属性窗口—MDIChild—True,完成啦!一个程序里面只能有一个父窗体,但是可以有无数和子窗体和普通窗体,当然必须有父窗体...原创 2019-08-18 20:02:12 · 992 阅读 · 11 评论