- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于项目的登录窗口 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=161679)
-- 发布时间：2021/3/26 13:20:00
-- 关于项目的登录窗口
项目的登录窗口，已经做了隐藏标题，但还有窗口上面还有些没去掉，请问要怎么做
此主题相关图片如下：qq截图20210326131907.png
-- 发布时间：2021/3/26 13:34:00
--
显示控制框设置为false
-- 发布时间：2021/3/26 13:42:00
--
在项目属性那还是在窗口那，我这窗口是主窗口模式，主窗口模式没有控制框
-- 发布时间：2021/3/26 13:44:00
--
没看懂，截图整个项目看看
-- 发布时间：2021/3/26 13:50:00
--
此主题相关图片如下：qq截图20210326134843.png
[此贴子已经被作者于2021/3/26 13:50:50编辑过]
-- 发布时间：2021/3/26 14:02:00
--
1楼截图箭头处是哪个位置？
-- 发布时间：2021/3/26 14:14:00
--
运行后窗口就这样了
此主题相关图片如下：qq截图20210326141342.png
-- 发布时间：2021/3/26 14:20:00
--
确定是主窗口，不是模式窗口？
afteropenproject事件写了什么代码？
-- 发布时间：2021/3/26 14:35:00
--
If Syscmd.Project.Update(False,False) = False Then \'如果没有升级
If Vars("操作员")<>"胡伟新"
BaseMainForm.Controls("C1StatusBar1").Visible = False \'隐藏状态栏\'
basemainform.FormBorderStyle = 0 \'\'隐藏标题
TableCaptionVisible = False\' \' 隐藏表
RibbonTabs("业务类型").Visible=False
RibbonTabs("公共基础资料维护").Visible=False
RibbonTabs("系统更新").Visible=False
RibbonTabs("修改密码").Visible=False
End If
BaseMainform.Text =DataTables("one").Datarows(0)("版本号")
Forms("下载中").Open
basemainform.icon = new icon(ProjectPath & "\\Images\\hys16.ico")
For Each fdr As DataRow In DataTables("基础表").Select("删除=true")
If DataTables("订单").DataCols.Contains(fdr("列号"))
Dim Builder As New ADOXBuilder("接单管理")
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("订单")
.DeleteColumn(fdr("列号"))
End With
Builder.Close() \'关闭ADOXBuilder
End If
Next
DataTables("基础表").DeleteFor("删除=true")
DataTables.Unload("订单")
DataTables.load("订单")
Dim dt1 As Date = Date.Today.AddYears(-DataTables("one").Datarows(0)("订单最近n年记录"))
Dim dt2 As Date = Date.Today.AddYears(-1)
DataTables("订单").LoadFilter="NO20 >= \'" & dt1 & "\'"
DataTables("订单").Load
DataTables("二维码流水").LoadFilter="流水日期 >= \'" & dt2 & "\'"
DataTables("二维码流水").Load
Tables("二维码流水").Sort="流水日期 desc"
Forms("下载中").Close
If webdatatf=True Then
Forms("登录").Open
Else
Forms("连接").Open
End If
Else
MessageBox.show("更新成功,系统重启","提示" )
Application.ReStart
End If
-- 发布时间：2021/3/26 14:40:00
--
If Vars("操作员")<>"胡伟新"
BaseMainForm.Controls("C1StatusBar1").Visible = False \'隐藏状态栏\'
basemainform.FormBorderStyle = 0 \'\'隐藏标题
TableCaptionVisible = False\' \' 隐藏表
RibbonTabs("业务类型").Visible=False
RibbonTabs("公共基础资料维护").Visible=False
RibbonTabs("系统更新").Visible=False
RibbonTabs("修改密码").Visible=False
RibbonTabs.HideTabHeaderRow = True
End If