Public mu As System.Threading.Mutex '控制程序不能重复打开
Public DrawGannt As Boolean = True '绘制甘待图
Public Canflt As Boolean = True '打开筛选开关
Public CanBuildtree,CanAddnew,CanUpTask,CanLoad,ldtreeLoad As Boolean '重建目录树开关,新增行权限,刷新任务数,按页加载,从加载树加载
Public Canopen As Boolean = True
Public YS As Integer = 2010 '开始年度
Public YE As Integer = 2040 '截止年度
Public Curdtb As DataTable '当前datatable
Public Curtb As Table '当前table
Public CopyId As Integer = 0 '菜单复制行及表单开关
Public taskId,switchID,RowsTotal,RowsPage As Integer '任务ID,窗口切换ID,总行数,每页行数
'--------以下为所有用户通用部份-------------
Public db_Name,db_User,db_Pwd,db_IP,db_IP1,db_IP2,sql_Path,sql_Port,ftp_Host,ftp_User,ftp_Pwd,ftp_Port As String '数据库连接参数
Public MyRole_informat As String '数据窗口,查询窗口,in格式角色.
Public MyLname,MyName,MyGroup,MyRole,MyRoleDep,MyRight,Mydata,sys_Editor,Role_informat,Role_all,Role_swtx,Role_load As String '登录名,姓名,部门,角色,权限,数据源,编辑者,in格式角色,通用授权角色,授权表2角色,授权加载数据角色
Public MyTable,Dcol,N_Role,P_Role,Mypf,printer,prt_method,prt_tbName As String '当前表,目标列(不同列弹出产品编码选择窗),后一授权角色,前一授权角色,前辍,当前打印机,打印方式,打印格式
Public Loadflt_User,flt_range,flt_Load,flt_Stock,flt_date,flt_dateCol,flt_FztOver,flt_01,flt_02,flt_tb1,flt_tb2 As String '自定义加载条件,权限范围,加载筛选,库存筛选,日期筛选,日期列,流程状态与结案,通用筛选条件1,2
Public winlb,Mtb,Ctb,Rcol,Idcol,Indexcol,Fzt,Loadlb_All As String '窗口类别,主表,明细表,关联列,识别列,索引列,流程状态,所有单据加载类别
Public Curtask,Company,Supplier,Customer,Uid,WinName,QueryWinName,Querytb,QueryTrcol,fltTrcol As String '当前任务类别,公司,入库单位,出库单位,单据识别号,窗口名,查询窗口名,查询窗口表名,查询目录树列,筛选目录树列
Public Sum_on,chk_Sum,Switcher,Register,source,prt_Landscape As Boolean '统计开关,显示合计,切换目录树,注册,产品来源,打印方向,允许模糊查找
'----打印参数:顺序号,流程编号,节点层数,每页表格行数,页眉间距,页眉行距,页脚间距,页脚行距,页边距(左右上下)
Public Mysx,Fid,lv,prt_rs,prt_Upspacing,prt_Uplinespacing,prt_Bottomspacing,prt_Bottomlinespacing,prt_PageL,prt_PageR,prt_PageT,prt_PageB As Integer
Public prt_rh,prt_tbfontsize,prt_Upfontsize,prt_Bottomfontsize,prt_PaperW,prt_PaperH As Double '每页表格行高,表格字号,页眉字号,页脚字号,纸张宽,高
Public winN_dtb,winN_qtb,Wtbs,sqlList As New List(of String) '数据窗口名,查询窗口名,窗口表集合,sql事务语句集合
Public flt_dateS,flt_dateE As Date '定义打印行高(有auto和具体数值)
Public Page As Integer = 1 '加载页
Public Page_C As Integer = 1 '自定义加载当前页
'--------用右侧X关闭窗口时---------------------------------------------------
Public Sub FormTab_TabPageClosing(ByVal sender As Object, ByVal e As C1.Win.C1Command.TabPageCancelEventArgs)
e.Cancel = True
Functions.Execute("Save_Close",sender.SelectedTab.Text)
Dim tab As object = Forms("通知").panel.parent.parent
WinName = tab.SelectedTab.text
Functions.Execute("switchWindows",tab.SelectedTab.text)
End Sub
'--------双击页签关闭窗口---------------------------------------------------
Public Sub FormTab_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If sender.SelectedTab.Text = "通知" Then Return
Dim TabRect As Rectangle = sender.SelectedTab.TabBounds '定义点击区域为窗口标签的范围
If e.Button = System.Windows.Forms.MouseButtons.Left And TabRect.Contains(e.Location) Then '鼠标左键在有效区域点击时
Functions.Execute("Save_Close",sender.SelectedTab.Text)
Dim tab As object = Forms("通知").panel.parent.parent
WinName = tab.SelectedTab.text
Functions.Execute("switchWindows",tab.SelectedTab.text)
End If
End Sub
'--------切换窗口后(切换后的窗口变为当前活动窗口后)--------------------------
Public Sub FormTab_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim tab As object = Forms("通知").panel.parent.parent
WinName = tab.SelectedTab.text
Functions.Execute("switchWindows",sender.SelectedTab.Text)
End Sub
加好友 
发短信
Post By：2016/3/10 0:52:00 [显示全部帖子]
此主题相关图片如下：qq截图20160310004606.png