'系统变量设置
Public _Username As String '保存当前登录用户的工号!
Public _gc As String '保存当前登录用户的工厂
Public _UserGroup As String '保存该用户的分组即岗位编号
Public _name As String '用户名变量
Public _bh As String '工号
Public _nam As String
Public _gw As String '记录岗位
Public _dlmmkg As Boolean '判断录登陆密码是否为空
Public _bmcj As String '部门车间名称变量
Public _jm As String '级码,用于查找下属
Public _ipid As String '用于记录IP地址
Public _scbj As String '用于记录班级
Public _qxmm As String '用于记录权限密码
Public _dlmm As String '用于记录登陆密码
Public rdt As DataTable
Public _bbh As Integer '用于记录版本号
Public _PrimaryKey As String '用于记录当前表的主键列名称
Public nStyle As C1.Win.C1FlexGrid.CellStyle
Public jc As Double
Public DrawGannt As Boolean = True '用于甘特图
Public _zmmc As String
'下面代码用于身份证读卡系统使用
Public Declare Function CVR_InitComm Lib "termb.dll" Alias "CVR_InitComm" (ByVal Port As Integer) As Integer '连接设备
Public Declare Function CVR_Authenticate Lib "termb.dll" Alias "CVR_Authenticate" () As Integer '验证身份证
Public Declare Function CVR_Read_Content Lib "termb.dll" Alias "CVR_Read_Content" (ByVal Active As Integer) As Integer '读取身份证信息
Public Declare Function CVR_CloseComm Lib "termb.dll" Alias "CVR_CloseComm" () As Integer
'下面代码为在窗口中导入EXCEL文件用
Public Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
Dim axWebBrowser As Object = sender.ActiveXInstance
Dim refmissing As [Object] = System.Reflection.Missing.Value
Dim args As Object() = New Object(3) {}
args(0) = 24
args(1) = 2
args(2) = refmissing
args(3) = refmissing
axWebBrowser.[Gettype]().InvokeMember("ExecWB", 256, Nothing, axWebBrowser, args)
End Sub
'--------------------------------隐藏窗口---------------------------------------------
Public Dim nfi As new System.Windows.Forms.NotifyIcon '定义通知区域小图标
Public Dim cms As new System.Windows.Forms.ContextMenuStrip '定义右键菜单
'图标双击事件
Public Sub ICON_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Forms("信息接收窗口").visible=True '设置主窗体显示 这个代码帮助中有的
End Sub
加好友 
发短信
Post By：2021/8/10 8:35:00 [只看该作者]
