学生信息管理系统和机房收费系统都用到了模块,对于模块,有的东西还是一知半解,但是也有一部分理解了,跟大家分享一下。
在组合查询中,我们需要将文本框中输入的内容转化成数据库可以识别的内容。然后有一些内容是重复的,所以在模块中使用一些代码我们就可以适当地减少一些冗余并且实现转化的功能。代码如下:

Public Function field(a As String) As StringSelect Case aCase "学号"field = "studentno"Case "姓名"field = "studentname"Case "卡号"field = "cardno"Case "金额"field = "cash"Case "系别"field = "department"Case "年级"field = "grade"Case "班级"field = "class"Case "性别"field = "sex"Case "状态"field = "status"End SelectEnd Function

在组合查询中我们还有清空的一个功能,在模块中通过几行代码也可以将其实现。模块中写:

Public Function da(frm)Dim ctrl As ControlFor Each ctrl In frm.ControlsIf TypeOf ctrl Is TextBox Then   '是否为文本框TextBoxctrl.Text = ""End IfIf TypeOf ctrl Is ComboBox Thenctrl.Text = ""End IfNextEnd Function

窗体中写:

Call da(Me)

当然还有一个主窗体的转换的过程,我们也可以通过模块来实现。具体的sub main的意思及使用方法参见我的博客:sub main 的使用
代码如下:

Sub main()Dim fLogin As New frmLoginfLogin.Show vbModalIf fLogin.LoginSucceeded ThenEndEnd IfUnload fLoginDim fMainForm As frmMainSet fMainForm = New frmMainfMainForm.ShowEnd Sub

总结:百科中对模块给出了如下的解释:在程序设计中,为完成某一功能所需的一段程序或子程序;或指能由编译程序、装配程序等处理的独立程序单位;或指大型软件系统的一部分。我认为这就像小学时候学的合并同类项一样,讲同种类型的东西拿出来以减少代码的冗余。
一点愚见,望大家不吝赐教。

机房收费系统之模块的使用相关推荐

  1. 第一次机房收费系统之DLL注册“找不到指定的模块”

    配置ODBC之后,就是进行控件注册了,如下所示: 需要注册文件"机房收费系统所需素材"中的3个控件 在cmd命令中输入"regsvr32 + 路径 + 控件名称" ...

  2. 机房收费系统【VB版】——前期准备

    前言: 没有源码和参考的机房收费系统,很犯怵的开始,完全不懂如何下手,经过后来小伙伴的交流和巨人的博客. 准备: 1.安装机房收费系统程序 1.1添加ODBC数据源--添加文件DSN--附加数据库-- ...

  3. 重构机房收费系统(二)

    接上篇<机房收费系统重构(一)> 二.概要设计 完成了用例图,并用结合用例图完善了一下需求分析说明书,忘记是第几次修订需求分析说明书.有了用例图,很自然就进入了概要设计阶段.我认为这一阶段 ...

  4. 重构机房收费系统(一)

    从10月1号开始重构学校机房收费系统,没想到这次重构,推翻,再重构--用了两周时间. 这次整体架构采用三层,并融入了一些设计模式. 下面介绍这次重构的过程: 一.从UML用例图开始 对于机房收费系统的 ...

  5. 【机房收费系统】---导出Excel表

    一.背景 机房收费系统中有很多地方用到了"导出Excel表"这个功能,那么,怎么导出呢? 二.导出Excel表 1.电脑安装office 2.引用 之前已经有一篇博客介绍过如何引用 ...

  6. 机房收费系统个人重构版:软工文档中那些图

    [前言]    图,提到这个字的时候脑海中就会出现许许多多的图像,它的重要性相信大家都明白,相比于文字来说它更生动形象正好符合人类大脑的记忆规律:很多人也知道动画片制作原理也是用一张张图片只不过转换的 ...

  7. 机房收费系统个人重构版:透过文档谈文档驱动开发

    [背景] 机房收费系统个人重构已接近尾声,在最后阶段自己去补文档以及其中涉及到的图!经过将近一周的奋战将其完善,并最终通过师父的验收.透过这次机房重构写文档和画图,自己感触颇深,在此与大家共享. [文 ...

  8. 机房收费系统合作版(一):开始团队合作之旅

    时光荏苒,犹记去年这时开始自己人生的第一个系统(机房收费系统个人版)的开发,又至刚刚弄完的机房收费个人重构版,至此自己对这个系统已开发了二次,趁热打铁于是乎轰轰烈烈的开始了自己对机房收费的第三遍合作之 ...

  9. 重做《机房收费系统》——概要设计(UI)

    重做<机房收费系统>--概要设计(UI) 系统的概要设计大致涉及到UML图的包图和类图.是从系统的大体框架上进行设计.利用分层的思想将该程序进行切分,使得程序更有条理性,不同的层次负责不同 ...

最新文章

  1. 拿下斯坦福和剑桥双offer,00后的算法学习之路
  2. 你的声音作为一种“武器”:人类战争中声学活动
  3. matlab 条形图与面积图
  4. Mathcad Prime 下载 安装 与 和谐教程
  5. linux脚本 sed,Linux脚本利器sed
  6. 音视频开发(9)--视频编解码的理论和实践
  7. 不规则图形数格子的方法_北师大版五年级数学上册数学6.1组合图形的面积微课堂、同步练习、图文解读...
  8. Linux 删除除某个文件之外的所有文件
  9. wikioi 1306 机智Trie树
  10. Windows server 2012体验之活动目录回收站
  11. java的mime类型_MIME类型大全
  12. 个推科普漫画,解读《女心理师》中的智能语音识别系统
  13. 搭建VUE脚手架 + 引入element-ui
  14. keil和protues仿真点亮一个LED灯
  15. 浙江电信张涛:天翼阅读未来将收费 资费采用包月形
  16. 戴着镣铐跳舞 P2P市场迎来“千P大战”
  17. oracle 求正数总和,为什么sum时负数不能相加?
  18. JSP书香味道点餐系统课设
  19. Linux系统 Shell脚本语言
  20. VueCompilerError: v-html will override element children.

热门文章

  1. Java入门-获取MySQL数据
  2. 黑苹果社区近期打不开做出回应
  3. 商户收款成老大难?拉卡拉智能POS来帮你
  4. 西游记中好色的猪八戒
  5. 区块链电商:全流程溯源防伪,扫码购物新升级
  6. 今年跳槽稳了,60K*16 薪!
  7. 在大厂月薪35K-60K的程序员,和15-25K的程序员差别在哪里?
  8. 带你浅浅了解自动驾驶激光雷达
  9. 18篇遥感领域经典论文【附PDF】
  10. java系统答辩时提问的问题,管理系统答辩论文_行政管理学答辩_计算机答辩问题...