Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口工具条 代码优化指导！谢谢！


  共有2631人关注过本帖树形打印复制链接

主题：窗口工具条 代码优化指导！谢谢！
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：692 积分：6107 威望：0 精华：0 注册：2018/5/10 9:05:00 		窗口工具条 代码优化指导！谢谢！  发帖心情 Post By：2019/8/15 11:36:00 [显示全部帖子]

初学狐表  代码只是考虑实现功能  结果发现代码臃肿不堪
有些理念请教
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
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：692 积分：6107 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2019/8/15 11:46:00 [显示全部帖子]

工具条样板请见下图
图片点击可在新窗口打开查看此主题相关图片如下：工具条窗口.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：692 积分：6107 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2019/8/15 13:39:00 [显示全部帖子]

非常感谢 

代码指导学会了  现在是每个窗口打开执行这个工具条的代码有没有好的方式  譬如自定义函数 或者变量什么的  咋样实现最优 效率更高

目前都是复杂臃肿的方式实现  渴望更加简洁的实现方式  谢谢！

狐表内如何实现类似下图  登录就获取了权限信息  打开窗口如何和窗体工具条按钮进行关联呢  这样是不是效率更高呢


图片点击可在新窗口打开查看此主题相关图片如下：权限设计.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：692 积分：6107 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2019/8/15 13:52:00 [显示全部帖子]

如何把表标题颜色跟窗体颜色风格一样你   看起来感受差点

想改颜色部分具体见下图箭头指示

图片点击可在新窗口打开查看此主题相关图片如下：表颜色.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：692 积分：6107 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2019/8/15 13:54:00 [显示全部帖子]

或者就实现这个风格的界面

图片点击可在新窗口打开查看此主题相关图片如下：操作日志设计.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：692 积分：6107 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2019/8/15 14:03:00 [显示全部帖子]

假如想实现上图的配色  如何处理  开发的整个项目都想用这样类似的配色  感谢指导！

 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：692 积分：6107 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2019/8/15 14:06:00 [显示全部帖子]

包含菜单+窗体+表格  感谢指导！

 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：692 积分：6107 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2019/8/15 14:34:00 [显示全部帖子]

能提供一下这个参考代码的源项目文件么 自行研究看看  非常感谢！

 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：692 积分：6107 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2019/8/16 9:10:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：操作日志设计.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：主题代码.jpg
图片点击可在新窗口打开查看
非常感谢指导  

1、我这边仔细研究了一下葡萄城控件  发现有很多主题可以选择  目前狐表也是最新的C1控件  应该也可以通过变通的形式支持那么多主题吧
2、假如目前狐表内不能选择那么多主题  如何实现DEV类似控件的配色  麻烦指导一下 上面的代码可以改控件的颜色 但是对颜色不懂要改的和上图dev控件类似色太难了，能否直接指点代码实现方式  谢谢！

图片点击可在新窗口打开查看此主题相关图片如下：主题.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：692 积分：6107 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2019/8/16 11:45:00 [显示全部帖子]

1、目前狐表也是最新的C1控件 支持的主题有哪些
2、假如目前狐表内不能选择那么多主题   在狐表内实现DEV类似控件的配色应该是可以实现的吧  帮忙提供下指导或者狐表实现的案例
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询