![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
机房收费系统
泡泡堂6688
这个作者很懒,什么都没留下…
展开
-
运行时错误'-2147217887'多步ole db操作产生错误。
机房收费系统登录时报错显示ole db操作产生错误错误原因:电脑名称太长超越了数据库中允许的计算机名字的长度**解决方案:**修改数据库中允许计算机名称的长度(1)打开SQLserver(2)设计online ,line 表格 选中 表右击选择设计编辑computer数据类型的长度修改为30可能遇见的为题没有权限:这时点击工具栏“工具” 点击选项**选择设计器:**表设计器和...原创 2018-10-26 15:21:36 · 4208 阅读 · 5 评论 -
如何一次在combo中添加N多个下拉选项
目标:为了使三个combo每个下拉菜单都显示卡号 姓名 上机日期 上机时间 下机日期 下机时间 消费金额 余额常规办法:Comboname1.AddItem "卡号"Comboname1.AddItem "姓名"Comboname1.AddItem "上机日期"Comboname1.AddItem "上机时间"Comboname1.AddItem "下机日期"Comboname2.A...原创 2018-11-14 20:51:51 · 3668 阅读 · 8 评论 -
机房收费(学生信息管理)系统模块代码解析
Sub Main() Dim flogin As New frmlogin '实例化flogin窗体 flogin.Show vbModal '使flogin窗体以模式化(批注一)窗体显示 If Not flogin.ok Then '如果登录不成功 End If ...原创 2019-01-24 15:35:10 · 715 阅读 · 19 评论 -
第一遍机房收费系统(登录窗体)
Private Sub cmdok_Click() Dim txtsql As String '用来存放记录集对象 Dim mrc As adodb.Recordset '用来存放返回信息 Dim mrc1 As adodb.Recordset Dim mrc2 As adodb.Recordset Dim msgtext As String...原创 2019-01-24 16:28:11 · 233 阅读 · 16 评论