机房收费系统难点总结（1）

在做机房收费系统过程中，遇到了几个难点：1，MSHFlexGrid控件，中表格单行的选中和删除；2，上下机窗体消费金额的计算；3，组合查询；4，结账；5，导出Excel；6，报表

先总结两个：

1，在“添加删除用户”窗体中有删除用户这项功能。要求在单击“删除”按钮后，将MSHFlexGrid控件中单击选中的一行删除。

实现单击选中一行的代码;

[vb] view plain copy

1. <span style="font-size:24px;"><span style="color:#33cc00;">'单击，选中一行</span>  
2. Private Sub myflexgrid_mousedown(button As Integer, shift As Integer, x As Single, y As Single)  
3.    x = myflexgrid.Row  
4.     For j = 0 To myflexgrid.Rows - 1  
5.         myflexgrid.Row = j  
6.         For i = 0 To myflexgrid.Cols - 1  
7.             myflexgrid.Col = i  
8.             myflexgrid.CellBackColor = vbWhite  
9.         Next i  
10.     Next j  
11.     myflexgrid.Row = x  
12.      If myflexgrid.CellBackColor = vbBlue Then  
13.         For i_Col = 0 To myflexgrid.Cols - 1  
14.             myflexgrid.Col = i_Col  
15.             myflexgrid.CellBackColor = vbWhite  
16.         Next i_Col  
17.     Else  
18.         For i_Col = 0 To myflexgrid.Cols - 1  
19.             myflexgrid.Col = i_Col  
20.             myflexgrid.CellBackColor = vbBlue  
21.         Next i_Col  
22.     End If</span>  

[vb] view plain copy

1. <span style="font-size:24px;">End Sub</span>  

然后在“删除”按钮的单击事件中，利用MSHFlexGrid的RemoveItem属性，删除选中行。

2，上、下机窗体，消费时间的计算。

此处用到的函数有：DateDiff()、CDate()

这里一定要注意DateDiff()函数中后面两个参数的数据类型是日期型，所以如果要将数据类型为字符串的文本框文本转换为日期型——用CDate()函数；还要注意上机与下机不在同一天的情况（学校机房可能极少有这种情况，但是我们得考虑）

实现代码：

[vb] view plain copy

1. <span style="font-size:24px;">txtConsumeTime.Text = DateDiff("n", CDate(txtOnComputerDate.Text), CDate(txtDownComputerDate.Text)) + DateDiff("n", TimeValue(mrc.Fields(7)), TimeValue(txtDownComputerTime.Text))  
2. </span>