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