![](https://img-blog.csdnimg.cn/20201014180756919.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
第一次机房收费系统
张伟杰-Vijay
这个作者很懒,什么都没留下…
展开
-
机房收费系统—前期配置
前言 机房收费系统的配置其实非常简单,只要按照要求一步一步来就可以,虽然会出错,但是毕竟还有很多巨人们。出现的问题 我是先进行的第二步,即先附加数据库;然后再配置ODBC数据源,最后才注册文件的。 一、第一个遇到的问题就是附加数据库失败,如下图: 原因:提示信息中说拒绝访问数据库文件,意思就是用户权限不够。 解决方法:找到要附加的mdf文件,点击属性中的安全页面,找到Au原创 2017-10-28 15:50:05 · 407 阅读 · 46 评论 -
机房收费系统—组合查询
前言 最近敲机房敲到了组合查询,我发现有好几个窗体都涉及到了组合查询,我敲的是学生上机统计信息这个窗体,下面我说说我的想法。窗体逻辑 首先,怎么确定窗体的运行过程呢?我的办法就是通过盲人摸象的方法一个一个按钮试出它的功能,当然我们知道的一些简单的操作就不用说了,比如说哪里没有填肯定要提醒的。当我填完第一行的时候,点击查询很自然就显示出结果了;当我填完第一行,又选择了组合关系,点击查询提示请选择字原创 2017-11-18 11:11:47 · 429 阅读 · 42 评论 -
机房收费系统—子窗体如何显示
如何让子窗体显示在picturebox的上面 1.通过站在巨人的肩膀,我发现可以用SetParent函数来解决这一问题。 首先就是对这个函数的声明,在模块中添加函数。Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long h原创 2017-11-05 15:55:38 · 429 阅读 · 24 评论 -
关于VB中的WithEvents关键字理解
【前言】 最近敲机房敲到了日结账单,对于报表和VB的交互我们还是第一次接触,但是我们却可以借助巨人的肩膀。但是我在看巨人博客的时候,发现在定义报表对象的时候却有一些不同。带着这样的疑问,我就想知道到底有什么区别。【WithEvents关键字】 我们在使用报表的时候,当然得先定义一个变量,由于它属于对象变量,所以我们在使用前还必须实例化。 但是我却发现有两种定义代码,接下来就让我们了解一下有原创 2017-12-17 23:25:48 · 13426 阅读 · 26 评论 -
机房收费系统—日结账单
前言 这个星期机房敲完了日周结账单和上下机,但是不同的人看待问题的角度不一样,所以大家做出来的机房也有一些差别,下面我就说一说我的想法。问题的由来 经过机房收费系统的尝试,相信大家都对原来的系统有了一些想法,或许原来的系统有些地方优化的不是很好,当然也正是因为这样给了我们想象的空间。 我发现如果有一段时间我们没有查看日结账单,那么下一次的上期余额就会变成0,当然这是不行的。因为这个问题我也原创 2017-12-24 17:36:38 · 826 阅读 · 42 评论 -
机房收费系统—实现子窗体自动最小化
前言 机房终于进入收尾工作了,但是在优化的时候,我发现在原系统中,当我们点击一个子窗体出现的时候,其他的子窗体会自动最小化到主窗体的左下角,那么这个功能是怎么实现的呢?功能实现 其实,让子窗体自动最小化很简单,只需要几行很简单的代码就可以搞定了。请看下面的代码:'当窗体成为活动窗体或该窗体获得焦点时,触发的事件Private Sub Form_Activate() Dim a As F原创 2017-12-29 17:47:24 · 872 阅读 · 34 评论 -
机房收费系统—解决子窗体最小化时,程序一关闭VB就崩溃问题
前言 不知道大家有没有出现过这样的问题,当子窗体是最小化状态时,点击主窗体右上角的[×]按钮,或者直接关闭该子窗体时,VB就会停止运行。曾经这个问题一度困扰了我,但是原系统这样操作确确实实是没有问题的。解决方法 在解决这个问题之前,先来一些准备工作。 不知道大家是否知道,一个窗体在卸载时发生的事件的顺序,其实是这样的:Form_QueryUnload() -> Form_Unload()原创 2017-12-29 20:57:33 · 1182 阅读 · 41 评论