机房
关注
分享
扫一扫
李子怡
这个作者很懒，什么都没留下…
展开
专栏收录文章
- 默认排序
- 最新发布
- 最早发布
- 最多阅读
- 最少阅读
-
SQL server附加数据库操作系统错误5：“5（拒绝访问。）”。5120
附加数据库遇到了这个问题。 这是权限的问题，解决方法： 数据库文件，例如我的是charge_sys_Data.MDF。右击属性——安全。选中组或用户名，单击编辑。如图， 勾选上完全控制的允许即可。如图 如果添加后，报错如图。 这是日志文件报错，则同上面步骤。即可解决。 ...原创 2018-08-14 19:14:35 · 3352 阅读 · 3 评论 -
注册文件“机房收费系统所需素材” 中的3个控件
建txt文件，输入，三条内容。如图： 最后属性改为bat。双击新建的文档，现在是批处理。 但是弹出了模块已加载，但对DllRegisterServer的调用失败。错误代码0x80070005。如图： 一般错误代码0x80070005是由于没有安装特定更新的正确权限或恶意软件造成的。 可以尝试，以管理员身份进行登录。 然后成功，则如图： ...原创 2018-08-14 19:51:45 · 476 阅读 · 6 评论 -
机房——周结账单制作报表
报表制作分为两步：1，利用报表设计器制作报表。 2，用代码导入报表模板，实现报表。如下是制作报表的步骤。 一.制作报表 报表要安装Grid++Report6.5。链接：https://pan.baidu.com/s/1QCsGVnE7JySDCYAyQIQEwA 1.打开软件的界面，如图： 2.点击插入，选择报表头，如图： 3.出现报表头，如图： 4.插入静态框，双击静态框，输...原创 2018-11-13 10:30:50 · 792 阅读 · 16 评论 -
VB程序变得很卡，并显示对象变量或with块变量未设置
刚解决完自己with变量未定义的问题，结果再次打开程序的时候，自己的程序变得很卡。只需一键，直接出现小圈圈转不停。有时候等半天，显示对象变量或with块变量未设置。出现这句话的原因，是因为没有从数据库中调用出来东西。但是各种都检查没问题，原来是自己忽略了这个，数据库没有连接上，如图： 如何解决呢。找到自己数据库的SQL server配置管理器，如图： 在SQL server服务...原创 2018-08-31 17:46:31 · 3113 阅读 · 10 评论 -
下标越界 实时错误381 vb
在敲学生上机状态查看时遇到了这个问题： 显示的是这里： 是在myFlexGrid中溢出问题： 解决方法： 扩大下标范围 选中myFlexGrid，右击属性如图： 我表格是第三列报错，属性只是设置了两列，把2改成所需要的5即可。 ...原创 2018-08-30 10:25:42 · 1450 阅读 · 8 评论 -
验收项目的收获
今天让师父瞅了一下自己的机房。得到一下的收获。 1.验收之前让别人点一下，因为不同的操作在同一个系统会报不同的错误。 2.窗体自己变动大小。 3.各种优化的点。例如SQL注入，控制输入长度，删除完会报错等等等。 4.逻辑问题，几条线连起来各个窗体。 还有师父说就算现在很忙，机房不要放下。要不重拾起会很麻烦。 我自己的收获： 最近因为学校要考两个证。自己也要自考要做项目，加上专业课，还...原创 2018-09-19 16:46:42 · 557 阅读 · 7 评论 -
vb调用控制输入数字和字母
防止SQL注入： 在模块写入 Public Function IsNumber(KeyAscii As Integer) As Integer Select Case KeyAscii Case 48 To 57 '只能输入数字 Case 65 To 90 '只能输入大写字母 Case 97 To 122 '只能输入小写字...原创 2018-10-02 09:50:45 · 1384 阅读 · 3 评论 -
减少代码冗余 机房
一：防止往下拉菜单输入： Private Sub comboRelation2_KeyPress(KeyAscii As Integer) '防止输入字符 KeyAscii = 0 'keyAscii=0?表示：取消本次输入的字符 End Sub 二：定义一个检查文本框是否为空的函数： 在模块中设函数： Public Function testtxt(txt As St...原创 2018-11-10 08:40:15 · 655 阅读 · 4 评论 -
显示操作员 机房
在其他窗体显示操作员： 先在登陆窗体： Public UserName As String 再设置登陆的用户名是 UserName UserName = Trim(txtUserName.Text) 一般窗体： Private Sub Form_Load() Label4.Caption = frmLogin.UserName End Sub MDI窗体： Pri...原创 2018-11-11 20:55:33 · 239 阅读 · 6 评论 -
机房，MDI窗体
一。 MDI窗体打开新的窗体关闭原先的窗体： Private Sub Form_Deactivate() '当不是活动窗体的时候，窗体卸载。 Unload Me End Sub 二。MDI窗体打开新的，原先窗体最小化： Private Sub Form_Deactivate() If Me.WindowState <> 1 Then ...原创 2018-11-05 15:11:37 · 238 阅读 · 7 评论 -
对象变量或with块变量未设置
原因： 因为没有成功连接数据库。 解决方面： 一.确定自己建立好连接了 1.确认自己模块没问题（ 曾经成功连接过数据库，就证明没问题）。 2.窗体中连接数据库的代码没问题。 Dim txtSQL As String Dim MsgText As String Dim mrc As ADODB.Recordset txtSQL = "select * from s...原创 2018-11-13 10:24:50 · 7334 阅读 · 6 评论 -
知识点 机房
一：val函数将由数字符号（包括正负号、小数点）组成的字符型数据转换成相应的数值型数据。 mrc.Fields(7) = Val(mrc.Fields(7)) + Val(Text2.Text) 'val函数 二：因为数值类型不同，比较大小出错，更改数据库中值的类型为int 三：所有列都居中： Private Sub cmdQuery_Click() Dim ...原创 2018-11-15 15:35:55 · 418 阅读 · 10 评论