初学狐表 代码只是考虑实现功能 结果发现代码臃肿不堪
有些理念请教
1、自定义窗口按钮工具条和权限配合如何优化
2、每个窗口打开执行这个工具条的代码有没有好的方式 譬如自定义函数 或者变量什么的 咋样实现最优 效率更高
Dim gxz As Boolean '工具 新增
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "S ELECT 新增 FROM [test].[dbo].[userqx] where [账号]= '" & User.name & "' and [窗体名称]= '" & e.Form.Name & "' "
gxz =cmd.ExecuteScalar()
If gxz = True Then
e.Form.Controls("GFxz").Enabled= True
Else
e.Form.Controls("GFxz").Enabled= False
End If
Dim gxg As Boolean '工具 修改
cmd.CommandText = "S ELECT 修改 FROM [test].[dbo].[userqx] where [账号]= '" & User.name & "' and [窗体名称]= '" & e.Form.Name & "' "
gxg =cmd.ExecuteScalar()
If gxg = True Then
e.Form.Controls("GFxg").Enabled= True
Else
e.Form.Controls("GFxg").Enabled= False
End If
Dim gbc As Boolean '工具 保存
cmd.CommandText = "S ELECT 保存 FROM [test].[dbo].[userqx] where [账号]= '" & User.name & "' and [窗体名称]= '" & e.Form.Name & "' "
gbc =cmd.ExecuteScalar()
If gbc = True Then
e.Form.Controls("GFbc").Enabled= True
Else
e.Form.Controls("GFbc").Enabled= False
End If
Dim gsx As Boolean '工具 刷新
cmd.CommandText = "S ELECT 刷新 FROM [test].[dbo].[userqx] where [账号]= '" & User.name & "' and [窗体名称]= '" & e.Form.Name & "' "
gsx =cmd.ExecuteScalar()
If gsx = True Then
e.Form.Controls("GFsx").Enabled= True
Else
e.Form.Controls("GFsx").Enabled= False
End If
Dim gsc As Boolean '工具 删除
cmd.CommandText = "S ELECT 删除 FROM [test].[dbo].[userqx] where [账号]= '" & User.name & "' and [窗体名称]= '" & e.Form.Name & "' "
gsc =cmd.ExecuteScalar()
If gsc = True Then
e.Form.Controls("GFsc").Enabled= True
Else
e.Form.Controls("GFsc").Enabled= False
End If
Dim gyl As Boolean '工具 预览
cmd.CommandText = "S ELECT 打印 FROM [test].[dbo].[userqx] where [账号]= '" & User.name & "' and [窗体名称]= '" & e.Form.Name & "' "
gyl =cmd.ExecuteScalar()
If gsc = True Then
e.Form.Controls("GFyl").Enabled= True
Else
e.Form.Controls("GFyl").Enabled= False
End If
Dim gdy As Boolean '工具 打印
cmd.CommandText = "S ELECT 打印 FROM [test].[dbo].[userqx] where [账号]= '" & User.name & "' and [窗体名称]= '" & e.Form.Name & "' "
gdy =cmd.ExecuteScalar()
If gdy = True Then
e.Form.Controls("GFdy").Enabled= True
Else
e.Form.Controls("GFdy").Enabled= False
End If
Dim gdc As Boolean '工具 导出
cmd.CommandText = "S ELECT 导出 FROM [test].[dbo].[userqx] where [账号]= '" & User.name & "' and [窗体名称]= '" & e.Form.Name & "' "
gdc =cmd.ExecuteScalar()
If gsc = True Then
e.Form.Controls("GFdc").Enabled= True
Else
e.Form.Controls("GFdc").Enabled= False
End If
Dim gtj As Boolean '工具 提交
cmd.CommandText = "S ELECT 提交 FROM [test].[dbo].[userqx] where [账号]= '" & User.name & "' and [窗体名称]= '" & e.Form.Name & "' "
gtj =cmd.ExecuteScalar()
If gtj = True Then
e.Form.Controls("GFtj").Enabled= True
Else
e.Form.Controls("GFtj").Enabled= False
End If
Dim gsh As Boolean '工具 审核
cmd.CommandText = "S ELECT 审核 FROM [test].[dbo].[userqx] where [账号]= '" & User.name & "' and [窗体名称]= '" & e.Form.Name & "' "
gsh =cmd.ExecuteScalar()
If gtj = True Then
e.Form.Controls("GFsh").Enabled= True
Else
e.Form.Controls("GFsh").Enabled= False
End If
Dim gja As Boolean '工具 结案
cmd.CommandText = "S ELECT 结案 FROM [test].[dbo].[userqx] where [账号]= '" & User.name & "' and [窗体名称]= '" & e.Form.Name & "' "
gja =cmd.ExecuteScalar()
If gja = True Then
e.Form.Controls("GFja").Enabled= True
Else
e.Form.Controls("GFja").Enabled= False
End If
Dim gft As Boolean '工具 反提
cmd.CommandText = "S ELECT 反提 FROM [test].[dbo].[userqx] where [账号]= '" & User.name & "' and [窗体名称]= '" & e.Form.Name & "' "
gft =cmd.ExecuteScalar()
If gft = True Then
e.Form.Controls("GFft").Enabled= True
Else
e.Form.Controls("GFft").Enabled= False
End If
Dim gfs As Boolean '工具 反审
cmd.CommandText = "S ELECT 反审 FROM [test].[dbo].[userqx] where [账号]= '" & User.name & "' and [窗体名称]= '" & e.Form.Name & "' "
gfs =cmd.ExecuteScalar()
If gfs = True Then
e.Form.Controls("GFfs").Enabled= True
Else
e.Form.Controls("GFfs").Enabled= False
End If
Dim gcq As Boolean '工具 重启
cmd.CommandText = "S ELECT 重启 FROM [test].[dbo].[userqx] where [账号]= '" & User.name & "' and [窗体名称]= '" & e.Form.Name & "' "
gcq =cmd.ExecuteScalar()
If gcq = True Then
e.Form.Controls("GFcq").Enabled= True
Else
e.Form.Controls("GFcq").Enabled= False
End If
加好友 
发短信
Post By：2019/8/15 11:36:00 [只看该作者]
