---【机房收费系统】
杨幂等
你知道的越多,你不知道的越多!
展开
-
【机房收费系统】---组合查询
组合查询我们用到了Student_Info,首先你要告诉自己,它一点都不难,稍微用心下,就很容易明白其中的道理了。 一、代码思路0-30.首先,老规矩,先判断是否为空。1.当没有组合关系时,直接从学生表里查询信息,并显示数据;值得注意的是,刚开始,当没有选择组合关系时,也可以进行多行条件的组合查询。所以后来,我进行了优化,就是若未选择组合关系“或”或“与”,后面的com原创 2017-12-31 14:02:31 · 418 阅读 · 20 评论 -
【机房收费系统】---导出Excel表
一、背景机房收费系统中有很多地方用到了“导出Excel表”这个功能,话不多说,怎么导出呢?二、导出Excel表1、电脑安装office2、引用:工程---属性---原创 2017-12-22 19:20:01 · 569 阅读 · 44 评论 -
【机房收费系统】---如何引用Microsoft Excel xx.0 Object Library
在VB中要想实现将查到的数据导出到Excel表中,首先我们需要引用 “Microsoft Excel xx.0 Object Library”。这时我们可以点击“工程--引用--Microsoft Excel xx.0 Object Library(注:这里的“XX“意思是我们的PC上的office版本号,如果是office14,就是14.0;下面以office16为例展开介绍)”原创 2017-11-12 17:01:21 · 2847 阅读 · 32 评论 -
【机房收费系统】--SSTab控件与MSHFlexGrid控件
SSTab控件提供了一组选项卡,每个都充当一个容器,包含了其他的控件。1、VB中加载SSTab控件:在 工程→部件→控件 中勾选“Microsoft Tabbed Dialog Control”控件,点击应用2、SSTab控件属性:控件中每次只有一个选项卡是活动的,给用户提供了其所包含的控件,而其他选项卡都是隐藏的。要使用该控件,必须先确定打算如何在选项卡中放置原创 2017-09-28 11:58:37 · 932 阅读 · 29 评论 -
【机房收费系统】---上下机
一、前提当用户登录之后,注册一个卡号,可以进行上下机操作。二、上机上机代码:Private Sub cmdOnline_Click() Dim txtSQL As String Dim MsgText As String Dim mrc As ADODB.Recordset Dim mrc1 As ADODB.Records原创 2018-01-01 10:25:16 · 382 阅读 · 28 评论 -
【机房收费系统】---结账
一、查看某操作员的工作数据信息代码:Private Sub comboUserName_Click() Dim txtSQL As String Dim MsgText As String Dim mrc As ADODB.Recordset '通过用户名,显示真实姓名 txtSQL = "select * from User_I原创 2018-01-01 11:45:16 · 448 阅读 · 15 评论 -
【机房收费系统】---修改信息
前言在项目验收的前一天晚上,我发现了一个宝贝。而且我还发现,居然有很多小伙伴没有注意到这个“修改”按钮!!!功能个人觉得它的功能很厉害:在“操作员工作记录”中查询到符合条件的数据后,如果想要对其进行相应的修改,就用到了“修改”这个功能。它是这样工作滴:1)在查询结果中选择一行数据,点击修改按钮;2)被选择的信息赋值到修改窗体中,可以进行相应修改;3)修改完成后,新的数据原创 2018-01-01 13:35:17 · 548 阅读 · 29 评论