机房收费系统——添加删除用户窗体

    添加删除用户这个窗口看起来并不是太难，但是还是有一些细节需要注意的。

   

 

    首先，要设置myflexgrid控件的属性，因为我们删除用户时要求选中一整条记录，而不是单个一个，这就要用到下面的代码：

 

     myflexgrid.SelectionMode = flexSelectionByRow     '单击的时候选择的是整行     myflexgrid.FocusRect = flexFocusNone               '在当前单元的周围画一个焦点框     myflexgrid.HighLight = flexHighlightWithFocus      '该值决定了所选定的单元是否突出显示

                 

                  就要就可以实现这个功能了，如图：

   

   

物理设计上要求大概就这么多了，让师父验收的时候还出现了一个小小的逻辑问题，你有没有想过，如果系统打包发布后，如果系统里面所有的用户都删完了怎么办，那岂不是无论如何也进不了这个系统了吗？这里其实只要一个技巧，添加一下段SELECT语句就可以，这样就可以为系统永久的设置一个总的系统管理员，而且保证这个管理员不会被删掉。

    首先，现在确定数据中要保留的用户名，假设我们要保留"zjx"这个系统管理员。

 

  

 

    那么为了避免这个用户不被删除，在用SELECT语句查询时，可以加上以下语句：

strSQL = "select * from user_info where level='" & Combo1.Text & "'" & " and userid <> 'zjx' "

     就OK了，可以尝试下下。