添加删除用户这个窗口看起来并不是太难,但是还是有一些细节需要注意的。
首先,要设置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了,可以尝试下下。