📄 oamain
字号:
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Index = 0
Left = 4860
TabIndex = 12
Top = 0
Visible = 0 'False
Width = 1305
End
Begin VB.Label lblSelect
AutoSize = -1 'True
BackColor = &H00C1F2F6&
Caption = "11"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 0
Left = 4260
TabIndex = 15
Top = 60
Visible = 0 'False
Width = 180
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
Index = 0
Visible = 0 'False
X1 = 0
X2 = 1080
Y1 = 0
Y2 = 660
End
Begin VB.Line Line3
BorderColor = &H00FF0000&
Index = 0
Visible = 0 'False
X1 = 1020
X2 = 780
Y1 = 660
Y2 = 720
End
Begin VB.Line Line2
BorderColor = &H00FF0000&
Index = 0
Visible = 0 'False
X1 = 960
X2 = 1080
Y1 = 360
Y2 = 660
End
Begin VB.Label lblMove
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "11"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 495
Left = 2640
TabIndex = 13
Top = 0
Visible = 0 'False
Width = 1125
End
End
Begin VB.PictureBox Picture3
BackColor = &H00FFFFFF&
Height = 1515
Left = 1500
ScaleHeight = 1455
ScaleWidth = 8475
TabIndex = 17
Top = 6900
Visible = 0 'False
Width = 8535
Begin VB.PictureBox Node
BackColor = &H000000FF&
Height = 1000
Index = 0
Left = 0
ScaleHeight = 945
ScaleWidth = 945
TabIndex = 18
Top = 0
Width = 1000
End
Begin VB.Line Line4
Index = 0
Visible = 0 'False
X1 = 0
X2 = 300
Y1 = 180
Y2 = 180
End
Begin VB.Label lblCaption
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "11"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 180
Index = 0
Left = 600
TabIndex = 19
Top = 120
Visible = 0 'False
Width = 195
End
End
Begin VB.Label lblState
BackColor = &H00888C15&
BorderStyle = 1 'Fixed Single
Caption = "11"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 1560
TabIndex = 10
Top = 600
Width = 7995
End
Begin VB.Menu menuFile
Caption = "44"
NegotiatePosition= 1 'Left
Begin VB.Menu menuExit
Caption = "666"
End
Begin VB.Menu meunExit
Caption = "11"
End
End
Begin VB.Menu menuBasic
Caption = "644"
Begin VB.Menu menuBasicItem
Caption = "644"
Index = 0
End
End
Begin VB.Menu menuPurchase
Caption = "645"
Begin VB.Menu menuPurchaseItem
Caption = "645"
Index = 0
End
End
Begin VB.Menu menuStock
Caption = "2130"
Begin VB.Menu menuStockItem
Caption = "645"
Index = 0
End
End
Begin VB.Menu menuSell
Caption = "646"
Begin VB.Menu menuSellItem
Caption = "646"
Index = 0
End
End
Begin VB.Menu menuFinance
Caption = "144"
Begin VB.Menu menuFinanceItem
Caption = "144"
Index = 0
End
End
Begin VB.Menu menuAnalyzer
Caption = "615"
Begin VB.Menu menuAnalyzerItem
Caption = "615"
Index = 0
End
End
Begin VB.Menu menu7
Caption = "11"
Visible = 0 'False
End
Begin VB.Menu menu8
Caption = "11"
Visible = 0 'False
End
Begin VB.Menu menu9
Caption = "11"
Visible = 0 'False
End
Begin VB.Menu menu10
Caption = "11"
Visible = 0 'False
End
Begin VB.Menu menuHelp
Caption = "647"
Begin VB.Menu menuPower
Caption = "629"
End
Begin VB.Menu menuMediPS
Caption = "639"
End
Begin VB.Menu menudddd
Caption = "652"
End
Begin VB.Menu menuIndex
Caption = "43"
End
Begin VB.Menu menuAbout
Caption = "305"
End
End
End
Attribute VB_Name = "PubOAMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public IsDown As Integer
Dim cx As Integer, cy As Integer
Private Sub TimeWarning()
Dim rstEmail As Recordset
Set rstEmail = New Recordset
rstEmail.Open "Select SendMen from PubOAData Where addressee='" & LoginName & "' ", GetCNClient, adOpenForwardOnly
If rstEmail.EOF Then
Warning "0"
' Me.VtlMenu.MenuCur = 1
Else
Warning "1"
' Me.VtlMenu.MenuCur = 3
End If
End Sub
Private Sub cmdLink_Click()
Dim ServerName As String
If Me.TDBGrid1.Columns.Count > 2 Then
If IsNull(Me.TDBGrid1.Columns(3).Value) Then
Exit Sub
Else
ServerName = Me.TDBGrid1.Columns(3).Value
End If
Else
If IsNull(Me.TDBGrid1.Columns(1).Value) Then
Exit Sub
Else
ServerName = Me.TDBGrid1.Columns(1).Value
End If
End If
If LinkServer(ServerName) = 1 Then
MisMsg "测试连接成功。"
End If
End Sub
Private Sub cmdSend_Click()
Dim ServerName As String
If Me.TDBGrid1.Columns.Count > 2 Then
If IsNull(Me.TDBGrid1.Columns(3).Value) Then
Exit Sub
Else
ServerName = Me.TDBGrid1.Columns(3).Value
End If
Else
If IsNull(Me.TDBGrid1.Columns(1).Value) Then
Exit Sub
Else
ServerName = Me.TDBGrid1.Columns(1).Value
End If
End If
If LinkServer(ServerName) = 0 Then Exit Sub
If Me.RtxtSend.Text = "" Then Exit Sub
tcpClient.SendData LoginName & ": " & Trim(RtxtSend.Text)
Me.RtxtSend.Text = ""
End Sub
Private Sub FormLoadMenu()
End Sub
Private Function iniMenu() As Integer
On Error GoTo Err_iniMenu
Dim rstMenu As Recordset, i As Integer, rstItem As Recordset, j As Integer
iniMenu = 0
Me.menuBasic.Visible = False
Me.menuPurchase.Visible = False
Me.menuSell.Visible = False
Me.menuPurchase.Visible = False
Me.MenuStock.Visible = False
Me.menuFinance.Visible = False
Me.menuAnalyzer.Visible = False
Set rstMenu = New Recordset
rstMenu.Open "Select * From v_UserWork_Group where UserID='" & LoginName & "' ", GetCNClient, adOpenForwardOnly
Do Until rstMenu.EOF
Select Case UCase(rstMenu![sysGroupID])
Case "BASIC"
Me.menuBasic.Visible = True
Set rstItem = New Recordset
rstItem.Open "Select * From v_UserWork_Item where (IsSingle=2 or IsSingle=" & GIsSingleWork & ") and UserID = '" & LoginName & "' and sysGroupID='BASIC' Order by SubGroupID,IndexNo ", GetCNClient, adOpenForwardOnly
i = 1
j = 0
Do Until rstItem.EOF
If j <> rstItem![SubGroupID] Then
Load Me.menuBasicItem(i)
Me.menuBasicItem(i).Caption = "-"
i = i + 1
End If
Load Me.menuBasicItem(i)
Me.menuBasicItem(i).Tag = rstItem![FunctionID]
If IsNumeric(rstItem![Explain]) Then
Me.menuBasicItem(i).Caption = LoadResString(Val(rstItem![Explain] & GLanguageID))
Else
Me.menuBasicItem(i).Caption = rstItem![Explain]
End If
'Me.menuBasicItem(i).Caption = rstItem![Explain]
Me.menuBasicItem(i).Visible = True
j = rstItem![SubGroupID]
rstItem.MoveNext
i = i + 1
Loop
Me.menuBasicItem(0).Visible = False
Set rstItem = Nothing
Case "PURCHASE"
Me.menuPurchase.Visible = True
Set rstItem = New Recordset
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -