- 博客(4)
- 收藏
- 关注
RSS订阅原创 机房收费系统之组合查询
组合查询其实就是多个查询条件的限定，只要思路清晰了，执行起来便容易多了。首先我把这三个查询条件看作三个整体，定义了三个过程，并将combo的字段转换成数据库中对应的字段名，执行语句时直接调用，这样在查询过程中就减少了代码量。比如定义第一查询条件：Private Sub InquireCondition1() '定义第一查询条件过程，将combo的字段名转换成数据库对应
2013-11-23 21:37:45
1275
21
原创 机房收费系统之获取当前计算机用户名
首先，在模块中引用API函数GetUserName。Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long然后在窗体中加载一下就可以了：Private Sub Form_Load()
2013-11-20 21:10:51
1871
11
原创 机房收费系统之导出为Excel
很多查询结果在MSHFlexGrid中显示后，我们还希望有那么一个独立的地方呈现这些数据，既清晰还可以进行一些编辑运算。下面是如何实现MSHFlexGrid中查询结果显示在Eccel表格中。首先，选择 工程—引用—Microsoft Excel 14.0 Object Library 。 代码部分：Private Sub cmdTable_Click() Dim i As In
2013-11-17 21:58:22
1395
13
原创 机房收费系统之向表中插入NULL值,INSERT失败
在实现充值功能时，向数据库表中添加数据时，出现了这样的错误提示： 也就是说在添加时没有向serial字段添加任何信息，而serial字段又不允许为空，导致向表中添加数据失败。 原因分析：SQL数据库中，建立表时没有将id列标识规范设置为“是”。 这里有两个解
2013-11-09 21:13:03
1471
7
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人