ApplicationMenu.visible = False
basemainform.icon = Nothing
basemainform.showicon = False
If User.Group <> "发运地磅" Then
Tables("JHS").visible =True
Tables("FAJHB").visible =True
Else
Tables("JHS").visible =False
Tables("FAJHB").visible =True
End If
If User.Group ="发运地磅" Then
Forms("发运地磅").open()
ElseIf User.Group="销售开piao"
forms("窗口2").open()
End If
CurrentTable.DataTable.LoadTop = "100 percent"
If User.Group = "销售开piao" Then
DataTables("JHS").LoadFilter =""
DataTables("FAJHB").LoadFilter =""
Else
DataTables("JHS").LoadFilter = "客户名 = '" & User.Name & "'"
DataTables("FAJHB").LoadFilter = "客户名 = '" & User.Name & "'"
End If