![](https://img-blog.csdnimg.cn/20201014180756757.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
机房
Grace-tt
一枚非常上进的小白
展开
-
机房收费系统之结账
结账选项卡工程——部件——控件——Microsoft Tabbed Dialog Control 6.0 结账思路购卡:card_info 表中未结账,当前操作员的卡号信息充值:recahrge_info 表中未结账的,该操作员的充值信息退卡:cancelcard_info表中 未结账,该操作员的退卡信息临时用户:card_info 表中未结账的,该操作员的,临时用户的...原创 2019-11-26 17:19:38 · 382 阅读 · 13 评论 -
机房收费系统之报表制作
1.制作报表的软件:Grid++Report 报表设计器2.制作步骤(1) 制作报表头:右击-插入-报表节-报表头(2)插入一个静态框,写入标题(3)显示明细表格:右击-插入-报表节-明细网格,如下(4)连接数据库注意事项:要点击允许保存密码,否则可能会出现连接数据库不成功数据库连接串在上述步骤设置完成之后会自动显示,查询sql语句需要自己书写,点击...原创 2019-11-26 15:07:04 · 418 阅读 · 12 评论 -
机房收费系统上级状态管理之全部下机和选中下机
机房上级状态管理之全部下机和选中下机全部下机:操作员有权力将所有正在上机的卡号全部进行下机操作,我们需要考虑的问题是如何能够将所有正在上机的卡号全部进行下机操作,这时候只需要定义一个数组,这个数组可以代表各个卡号,然后一直循环进行下机操作。选中下机:操作员有权力从正在上机的卡号中选择特定的卡号进行下机操作全部/选中 ...原创 2019-11-21 19:34:36 · 286 阅读 · 20 评论 -
机房收费系统之登录窗体(一般用户和操作员)
实现思路大家在点原机房的时候,有没有发现,当一般用户登录的时候,它还可以上别人的卡号,查询别人的消费记录和余额,于是,我做了两个登录界面,右边界面是一般用户登录界面,一般用户用卡号登录,登录就是上机(需要调用上机代码),左边界面是管理者登录界面(操作员和管理员)。登录流程图(一般用户和管理者)一般用户代码展示(管理者类似)Private Sub cmdok_Click()...原创 2019-11-26 14:52:34 · 636 阅读 · 13 评论 -
机房收费系统下机之动态显示余额和强制下机(1)
在做下机的时候,我们要考虑到一个问题,就是强制下机的问题,如果我卡里面只有30元,却玩了40元的,那么在下机余额就是负的了,这时候再去充值就不合理了,所以我加了一个动态显示余额和强制下机的功能,我的动态计算是15分钟计算一次的,涉及到小数点,一分钟扣除一次误差可能比较大思路动态显示:消费时间,消费金额和余额不断变化消费时间每一分钟都在变化消费金额每15分钟每15分钟扣除一次余额每15分钟...原创 2019-11-20 20:45:11 · 363 阅读 · 14 评论 -
机房收费系统下机之动态显示余额和强制下机(2)
具体讲解参考上一篇博客:封装下机代码Public Function offline(cardno As String) Dim mrcline As ADODB.Recordset Dim mrcbasic As ADODB.Recordset Dim mrccash As ADODB.Recordset Dim mrcupdate As ADODB.Recor...原创 2019-11-20 20:44:37 · 292 阅读 · 19 评论 -
导出为excel无法引用解决方法
引用的时候没有上述选项解决方法:1.点击浏览(工程-引用)2.查找范围为excel所在的位置,文件名为EXCEL.EXE,文件类型选择所有文件这样操作之后在引用就可以了...原创 2019-09-05 14:40:17 · 1315 阅读 · 12 评论 -
机房收费系统之收取金额和退还金额查询
流程图代码实现Private Sub cmdexport_Click() Call ExportToExcel(MSFlexGrid1)End SubPrivate Sub cmdinquery_Click() Dim txtsql, msgtext As String Dim mrc As Adodb.Recordset '判断起始日期是否小...原创 2019-09-05 14:35:50 · 315 阅读 · 13 评论 -
如何将MSFlexGrid表格数据导出为Excel
1.引用2.在模块中编写代码Public Function ExportToExcel(msflexgrid As msflexgrid) Dim xlapp As Excel.Application '定义excel类 Dim xlbook As Excel.Workbook '定义工作簿类 Dim xlsheet As Excel.Worksheet '定义工...原创 2019-09-05 11:53:21 · 990 阅读 · 11 评论 -
机房之一般用户查询充值记录
流程图代码实现Private Sub cmdinquery_Click() Dim mrc As ADODB.Recordset Dim txtsql, msgtext As String '判断文本框是否为空 If testtxt(txtcardno.Text) = False Then MsgBox "请输入卡号!", 0 + 4...原创 2019-09-05 11:46:49 · 412 阅读 · 9 评论 -
机房收费系统之充值窗体
流程图代码实现Private Sub cmdok_Click() Dim mrc As ADODB.Recordset Dim txtsql As String Dim msgtext As String Dim a As String Dim c As Date '判断是否输入卡号 If testtxt(txtcardno...原创 2019-09-03 20:31:36 · 245 阅读 · 10 评论 -
机房之一般用户查询余额
流程图代码实现Private Sub cmdinquery_Click() Dim mrc As ADODB.Recordset Dim txtsql As String Dim msgtext As String '卡号输入不能为空 If testtxt(txtcardno.Text) = False Then MsgBox...原创 2019-09-03 17:33:00 · 258 阅读 · 13 评论 -
机房收费系统之一般用户修改密码窗体
界面设计流程图代码实现Private Sub cmdexit_Click() '卸载当前窗体 Unload MeEnd SubPrivate Sub cmdok_Click() Dim mrc As ADODB.Recordset Dim txtsql As String Dim msgtext As String '判断...原创 2019-08-31 11:09:26 · 251 阅读 · 15 评论 -
机房之设置管理员,操作员和一般用户可见的权限
机房收费系统中:一般用户只可以看见一般用户的内容,操作员可以看见操作员和一般用户的内容,管理员权限最大,可以看见三者所以在设置用户登录的时候需要对他们可以看见的权限进行限制,在设置用户权限的时候用到了select case 语句,下面是代码实现过程:通过设置他们的可见性来实现权限的设置下面介绍一下select case语句的用法在select case 语句中可以使用关系运算符>...原创 2019-08-23 09:54:08 · 1323 阅读 · 18 评论 -
经典代码总结-限制登陆次数
原创 2019-08-23 09:21:49 · 568 阅读 · 16 评论 -
机房配置-ODBC配置,附加数据库,注册控件
1.安装机房.exe文件登录的初始化用户名:11密码:1234562.使用ODBC数据源配置文件DSN数据库名称:charge服务器:(local)用户名:sa密码:123456数据库:charge_sys3.向sql server当中附加数据库将数据文件(.mdf)和日志文件(.ldf)放在一个位置,然后附加数据库,刚开始我把他直接放在桌面上,但是附加的时候找不到,后来放到E...原创 2019-08-22 21:27:22 · 333 阅读 · 14 评论