![](https://img-blog.csdnimg.cn/20201014180756916.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
机房收费系统
Jeff~李
这个作者很懒,什么都没留下…
展开
-
VB6.0使用Excel - 引用“Microsoft Excel 16.0 Object Library”时找不到该引用-解决方法
首先点击引用-然后点击浏览然后是这样的然后点击两下向上一级 找到Program Files 这个文件夹进去之后找到Microsoft Office双击打开,然后找到root 文件夹进去找到Office16 就行了 然后输入文件名 excel 然后打开 就OK了。...原创 2019-03-28 09:29:51 · 6560 阅读 · 5 评论 -
机房收费系统之收取金额查询
首先是要加入一个新的控件工程—部件—Microsoft Windows Common controls-2.6.0 有一个这个控件,就是我们要用的控件DTPicker控件。然后就是查询的代码了,只要的查询语句是txtSQL = "select * from ReCharge_info where date > '" & begindate.Value & "' an...原创 2019-04-02 19:53:43 · 158 阅读 · 4 评论 -
机房收费系统之正在值班教师
这个总体来说就非常的简单,把OnWork 表里的数据展示出来,就行了。 With MSFlexGrid1 .Rows = 2 .CellAlignment = 4 .TextMatrix(0, 0) = "教师" .TextMatrix(0, 1) = "级别" .Tex...原创 2019-03-31 14:39:22 · 219 阅读 · 4 评论 -
机房收费系统之下机
下机 是一个相对有难度的窗体了,一开始我的思路很乱,不知道该怎么写,还要算时间,算金额,感觉很麻烦,然后看了好多大佬们的思路,画了个流程图 Dim msgText As String '查询信息名称 Dim mrc As ADODB.Recordset 'st...原创 2019-04-04 18:44:50 · 171 阅读 · 2 评论 -
第一次机房收费系统之基本数据设定
这个窗体还是很简单的,我觉得在加载的时候,先查询数据库BasicData,把数据库里面查询的内容显示到窗体的text控件中,然后加载的时候文本框enabled属性为False,点击修改把文本框的enabled属性改为True。点击确定时,直接查询,并把数据更新到数据库,然后关闭数据库,就行了。下面是我的代码展示:Private Sub CmdOk_Click() D...原创 2019-03-31 11:13:55 · 199 阅读 · 5 评论