担保公司管理系统完工
摘要：暑假的时候，表哥就跟我说了让我帮他做一个系统。尽管百般推辞，我还是拜倒在他的左一桌右一桌的邀请上了。他所在的公司就是廊坊市的一所担保公司。虽然是个很大的公司，可是公司里每个人的业务大多是靠个人整理，到最后整理起来非常麻烦。同事们仍然坚持着 原始的记录方法，而我大哥想凭借自己编程的底子，做出一个管理系统。受尽折磨之后，他准备把折磨丢给我……没办法，做弟弟的，得让着哥哥点儿。那时候我还没有做完机房收费系统，根本没心思接这事儿。所以我跟他约定，等开学再给他做。一开始我准备拖一拖的。因为我刚刚做完机房收费系统，太想见识一下软件工程了，可是我一开学，他就给我发来了需求的文档（写的很明白）……前后算起来，
阅读全文
posted @
2012-12-13 19:28
刘正权的博客
阅读(193)
推荐(0) 编辑
VB中的atn函数
摘要：Atn函数返回一个double类型，指定一个数的反正切值。用法就是：Atn(number)。number参数是一个double或者任何有效的数值表达式。Atn函数的参数值（number）为直角三角形的两条直角边的比值（对边比邻边）。返回以弧度为单位的角。值的范围是-π/2和π/2之间。Atn是Tan函数的反三角函数，Tan的参数值为角度，返回直角三角形的两边的比值。下面介绍个例子：我要判断两个点的位置并求出两个点组成的线段与水平面之间的夹角，用了一个Function函数，它的声明如下：Public Function getAngel(ByVal x1 As Long, _ ...
阅读全文
posted @
2011-12-11 17:32
刘正权的博客
阅读(888)
推荐(0) 编辑
VB与Matlab
摘要：最近对Matlab有了全新的认识，同时也在学习中找到了学习的乐趣。大二上学期的时候学了半年的Matlab，除了反感想不出什么新的形容词。而今年开的数学实验课又是基于Matlab的。头疼。。。在我感觉，Matlab没有VB快捷，总感觉有了可视化的VB，就不需要再去学什么Matlab。而今年我看到了许多人为了数学建模痴迷的在教室奋斗了三天三夜。我开始反思了，开始对Matlab老师说的话有了新的认识，对Matlab有了新的认知。下面就谈谈结合VB谈谈Matlab。~变量处理近些天来，我一直研究Matlab，我出奇的发现：Matlab比VB更加快捷。在Matlab语言中，无需对变量进行声明，直接使用新
阅读全文
posted @
2011-09-24 21:19
刘正权的博客
阅读(665)
推荐(0) 编辑
百米倒计时小例子
摘要：在研究类这块，有个小例子对我的帮助特别大。在这里跟大家分享一下。本例中，主要讲的百米赛跑中的计时。下面是TimerTask类模块中代码：Option Explicit Public Event UpdateTime(ByVal dblJump As Double)
Public Event ChangeText() Public Sub TimerTask(ByVal Duration As Double) Dim dblStart As Double Dim dblSecond As Double Dim dblSoFar As Double dblSta...
阅读全文
posted @
2011-09-08 15:42
刘正权的博客
阅读(201)
推荐(0) 编辑
机房收费系统——表
摘要：提起机房收费系统的表，真的挺头疼的。因为要求是“表”要自己建。我起步的时候，仅仅是表就想了一天——建几个表，从那个表开始做，表的信息会不会建不全，如果不全将来会不会很难改……纠结了一段时间，还是硬着头皮坐下来了。我的计划是一步一步做，需要哪个表，建哪个表。做完第一个模块之后，感觉其实也并没有想象中的那么难。建完第一个表，就会产生下一个需求，自然下一个表应运而生。下面就是我建的表，尽管能够实现功能，但是我知道肯定会有不科学的地方。我一共建了10个表，每个表都是因为产生需求建立的。尽管能够实现功能，但是有时有我自己都觉得这样或那样的不科学。毕竟是第一次嘛，呵呵，有原谅自己了。以后再建表一定要规划好
阅读全文
posted @
2011-08-22 14:49
刘正权的博客
阅读(129)
推荐(0) 编辑
自动调节MSHFlexGrid控件的行高列宽
摘要：做机房收费系统在做学生上机查看机上记录模块的时候，使用到了MSHFlexGrid这个控件。用这么控件显示数据的时候，遇到了小小的问题。程序运行到显示这个模块的界面的时候，数据总是显示不在界面内，但是导出Execel之后，数据显示是完整的。这是为什么呢？肯定是数据过长，导致该控件无法完整的显示数据。后来从贾林那里淘来了一个函数。能够根据数据自动调整MSHFlexGrid控件的行高，列宽。函数如下：Option ExplicitPublic Sub AdjustColWidth(frmCur As Form, _ gridCur As Object, _ Optional bNullRow As
阅读全文
posted @
2011-08-22 11:23
刘正权的博客
阅读(1336)
推荐(0) 编辑
机房收费系统总结
摘要：将近一个月的时间，机房收费系统终于完工了。兴奋无比的去测试，却测出了数之不尽的错误。真是“乘兴而来，败兴而归”呀！测试的过程，是我怎样也无法忘记的。做系统时，我只想着怎样去实现功能，却忽视了系统的健壮性，至于做系统中出现的各种错误，可以查看我的机房收费系统验收报告。然而，通过这次做系统，我感觉自己还是得到了很大的提升。在思想方面。首先，我看到了自己的缺陷，自己离要实现的目标还有很长的路要走。其次，我深深的意识到，仅仅从技术上完成用户的要求是远远不够的，系统地健壮性同样重要。感觉一个成功的软件，必须具有较好的兼容性，可移植性，绿色性。删除卸载时，能够做到环保（别写再一次软件，要重新装一次系统）。
阅读全文
posted @
2011-08-22 09:05
刘正权的博客
阅读(219)
推荐(0) 编辑
机房收费系统验收报告
摘要：机房收费系统收费报告 1、项目信息 项目名称： 机房收费系统 项目开始时间： 2011-7-23 项目结束时间： 2011-8-20 2、项目概述 该项目，主要用于做学校机房中，学生上下机管理系统。该项目中，限定了用户的权限，做到更好的管理学生的上下机过程及相关事项。 3、验收测试环境 远程到五楼机房电脑，将安装包安装到机器上，进行测试。 开发人员： 测试人员： 4、验收及测试结果 5、验收总结 系统验收结果有以下问题： a）、对...
阅读全文
posted @
2011-08-20 15:43
刘正权的博客
阅读(225)
推荐(0) 编辑
app.path的用法
摘要：开始敲红皮书第一个例子的时候，数据库的路径我是这样写的：objCn.ConnectionString = "Provider=Microsoft.Jet.oledb.3.51;" & "Data Source=G:\SQL Server\数据库实例\数据库实例1\实例01.mdb" 这样我将该文件夹移动后，程序的路径就不能识别，导致运行出错。app.path能够很好的解决这个问题。app是一个对象，指程序本身。app.path是系统内的一个变量值，app.path是返回程序所在的路径（是程序的工作目录，不一定都是程序路径），一个相对路径。如果你要
阅读全文
posted @
2011-08-12 15:05
刘正权的博客
阅读(421)
推荐(0) 编辑
学生管理系统信息查询部分主要功能总结
摘要：对于信息查询部分，这部分功能相对来说比较简单，主要包括查询学籍，查询成绩两大部分。主要就用到了MSFlexGrid控件。 对于这一块的功能，我感觉dd（4）这个布尔型变量数组用的比较好。这一变量只要用作标记作用。选择一种方式查询，选择哪一种，还是选择多种方式查询信息，通过dd（）的标记，都能很好的记录作用。 原先一直都感觉布尔型变量挺简单的，真的没想到，它还能在学生管理这样的系统中起到很大作用。If Trim(txtName.Text) = "" Then MsgBox "姓名不能为空", vbOKOnly + vbExclamation, "
阅读全文
posted @
2011-08-12 15:03
刘正权的博客
阅读(342)
推荐(0) 编辑
set语句
摘要：将对象引用赋给变量或属性。 语法 Set objectvar = {[New] objectexpression | Nothing} Set 语句的语法包含下面部分： 部分 描述 objectvar 必需的。变量或属性的名称，遵循标准变量命名约定。 New 可选的。通常在声明时使用 New，以便可以隐式创建对象。如果 New 与 Set 一起使用，则将创建该类的一个新实例。如果 objectvar 包含了一个对象引用，则在赋新值时释放该引用。不能使用 New 关键字来创建任何内部数据类型的新实例，也不能创建从属对象。objectexpression 必需的。由对象名，所声明的相同对象类型的其
阅读全文
posted @
2011-08-12 14:54
刘正权的博客
阅读(264)
推荐(0) 编辑
VB中的数据类型
摘要：1.Boolean 布尔型，这种类型，只有真、假（即true or false）两个值，它占用两个字节。2.Byte 字节型 他占用一个字节，他的范围是0—2553.Integer 整型 它占用两个字节，通常用%来表示 ，例a%；它占用2个字节（C语言中为4个字节），它的范围是0----32768/327674.Long 长整型 它占用4个字节，它的简写符号是&，它的范围是-2147483648到2147483647。对于整型和长整型，我们通常会选用长整型，尽管长整型比较大，但是相对于整型会比较快，因为CPU一般是32位的，长整型可以一次把数据存储到寄存器里或CPU里面，还有长整型的兼
阅读全文
posted @
2011-08-12 14:44
刘正权的博客
阅读(2647)
推荐(0) 编辑
Windows API:GetUserName的用法
摘要：说明:取得当前用户的名字库名:advapi32.dll分类:硬件与系统函数实例:获得当前windows登录的用户名Option ExplicitPrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Sub Form_Load() Dim str As String Dim cnt As Long Dim dl As Long Dim CurUs
阅读全文
posted @
2011-07-18 09:57
刘正权的博客
阅读(540)
推荐(0) 编辑
