机房收费系统总结（四）

前言

每一次的总结，都会有不一样的收获。

正文

一、命名规则

1、匈牙利命名规则

基本原则是：变量名=属性+类型+对象描述，其中每一个对象的名称都要求有明确含义，可以取对象名字全程或一部分。保证名字的连贯性并且容易记忆，容易理解。百度百科

开头字母用变量类型或者窗体等的缩写，其余部分用变量的英文或者英文缩写，并且要求第一个字母大写。

例如：在机房中的 修改密码 的窗体命名就可以命名为：frmModifypwd

2、驼峰式命名法

又称为小驼峰命名 百度百科

第一个单词以小写字母开始，第二个单词的首字母大写以及后面单词的首字母全部大写

例如：在C语言中的，定义一个变量：int myFirstName；

3、帕斯卡命名法

又称为大驼峰命名，常用于类名、命名空间等 百度百科

第一个单词以大写字母开始，第二个单词的首字母大写以及后面单词的首字母全部大写

例如：在C语言中的，定义一个变量：int MyFirstName ；

ps：在后面的两种命名中，仔细观察是不是感觉很像现实中的骆驼的驼峰

二、在机房中，删除数据库中的内容，窗体表格中应该怎么办？

1、清空表格，重新进行遍历，再次显示

例如：机房中增加和删除用户窗体，删除

txtSQL = "Delete from User_Info where userID= '" & Trim(myFlexgrid.TextMatrix(myFlexgrid.RowSel, 0)) & "'"
Set mrcUser = ExecuteSQL(txtSQL, MsgText)

myFlexgrid.Clear
myFlexgrid.Rows = 2
'表格的首行
With myFlexgrid
.CellAlignment = 4
.TextMatrix(0, 0) = "用户名"
.TextMatrix(0, 1) = "姓名"
.TextMatrix(0, 2) = "开户人"
End With
'判断所选用户级别
txtSQL = "select *from User_Info where Level='" & Trim(cmbUserClass.Text) & "'"
Set mrcUser = ExecuteSQL(txtSQL, MsgText)
myFlexgrid.Rows = myFlexgrid.Rows - 1
Do While Not mrcUser.EOF
With myFlexgrid
.Rows = .Rows + 1
.CellAlignment = 4
.TextMatrix(.Rows - 1, 0) = Trim(mrcUser.Fields(0))
.TextMatrix(.Rows - 1, 1) = Trim(mrcUser.Fields(3))
.TextMatrix(.Rows - 1, 2) = Trim(mrcUser.Fields(4))

mrcUser.MoveNext
End With
Loop
mrcUser.Close

2、 MSHFLEXGRID控件的方法：RemoveItem 从网格中清除一行

例如：机房中选择学生下机：

txtSQL = "select * from online_Info where cardno= '" & Trim(myFlexgrid.TextMatrix(myFlexgrid.RowSel, 0)) & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
frmmain.Show
frmmain.txtcardNo = mrc.Fields(0)    '将卡号赋给frmMain窗体中的卡号文本框
frmmain.cmdOffLine = True    '执行下机操作
myFlexgrid.RemoveItem myFlexgrid.RowSel '删除Msflexgrid表中选中的一行

在第二种解决办法中需要将MSHFLEXGRID控件的固定行取消，否则会报错。（目前没有发现其他的解决办法）

总结

在学习的过程中，同样的功能会有不同的解决办法，并不是一条路，每一种方法中都会有不一样的知识点，都可以完成这个功能，有的简单，有的却要写很多的代码，但是最终都可以得到很好的解决。遇到问题，解决问题，让我们不断的成长。