专家坐堂-项目发布后升级出错Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If FileSys.DirectoryExists("\\\\192.168.44.202\\e\\更新包\\系统") Then

If Syscmd.Project.Update(False,False) = False Then

For Each dt As DataTable In DataTables

dt.GlobalHandler.BeforeLoad = True

dt.GlobalHandler.BeforeSaveDataRow = True

dt.GlobalHandler.BeforeDeleteDataRow = True

dt.GlobalHandler.BeforeAddDataRow = True

\'baseMainform.visible=False

Dim IPAdress As System.Net.IPAddress

Dim HostName As String

HostName = System.Net.Dns.GetHostName \'获得本机的机器名

IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) \'获得本机的IP

OutPut.Show( HostName ) \'本机机器名

OutPut.Show(IPAdress.ToString ) \'本机的IP

Vars("ipaddrss") = IPAdress.ToString

Dim dr As DataRow = DataTables("tbfcpclist").Find("ipaddress = \'" & IPAdress.Tostring & "\'")

If dr IsNot Nothing Then

Vars("user") = dr("username")

Vars("mail") = dr("mailaddress")

Dim lastrow As Long \'日程表加载上次的数据

If dr("日程明细") Is Nothing Then

dr("日程明细") = 0

lastrow = 0

Else

lastrow = dr("日程明细")

End If

Vars("lastrow") = lastrow

\'重新加载

If lastrow > 0 Then

DataTables("日程明细").LoadFilter = "_identify <= \'" & lastrow & "\'"

Else

DataTables("日程明细").LoadFilter = ""

End If

DataTables("日程明细").Load

DataTables("信息查阅情况").LoadFilter = "人名 = \'" & Vars("user") & "\' and 状态 = 0 "

DataTables("信息查阅情况").Load

\' End If

Tables("tbfcpclist").Sort = "group ,username "

For Each drr As Row In Tables("tbfcpclist").Rows

drr("useranddepartment") =drr("department") & " | " & drr("username")

MainTable = Tables("日程明细")

AddHandler nfi.DoubleClick, AddressOf Icon_DoubleClick \'为通知区域图标添加双击事件

\'nfi.ContextMenuStrip = cms

nfi.Text = "TBFC OA" \'鼠标移上去显示的文本

nfi.Icon = new Icon(ProjectPath & "\\Images\\001.ico") \'图标地址

Dim tsmi1 As new System.Windows.Forms.ToolStripMenuItem("打开",GetImage(projectpath & "\\images\\会议管理图标.png")) \'定义一个菜单选项(带图标)

AddHandler tsmi1 .Click, AddressOf Menu1_Click \'为这个菜单选项添加点击事件

Dim tsmi2 As new System.Windows.Forms.ToolStripMenuItem("退出",GetImage(projectpath & "\\images\\Reject.ico")) \'定义一个菜单选项

AddHandler tsmi2 .Click, AddressOf Menu1_Click \'为这个菜单选项添加点击事件

cms.Items.Add(tsmi1) \'为全局变量CMS 也就是右键菜单添加 "菜单一"

cms.Items.Add(tsmi2) \'为全局变量CMS 也就是右键菜单添加 "菜单二"

nfi.ContextMenuStrip = cms

nfi.Visible = True \'设置为显示

BasemainForm.ShowInTaskBar = False \'任务栏不显示

Vars("网络状态") = True

Dim drpf As DataRow = DataTables("个人日志").Find("人员 = \'" & Vars("user") & "\'")

If drpf Is Nothing Then

Dim dr1 As DataRow = DataTables("个人日志").AddNew()

dr1("人员") = Vars("user")

Dim dr2 As DataRow = DataTables("个人日志").AddNew()

dr2("人员") = Vars("user")

Dim dr3 As DataRow = DataTables("个人日志").AddNew()

dr3("人员") = Vars("user")

Dim dr4 As DataRow = DataTables("个人日志").AddNew()

dr4("人员") = Vars("user")

End If

DataTables("个人日志").Save

Tables("个人日志").Filter = "人员 = \'" & Vars("user") & "\'"

Tables("日志紧急情况").Sort = " 紧急程度 "

Vars("width") = 1026

Vars("height") = 732

Forms("mainform").Open

Else

MessageBox.Show("IP地址:" & Vars("ipaddrss") & ",请联系添加该电脑权限!")

Syscmd.Project.Exit(False)

Return

End If

Else

GOTO E

End If