📄 oamain.frm
字号:
VERSION 5.00
Object = "{28D47522-CF84-11D1-834C-00A0249F0C28}#1.0#0"; "GIF89.DLL"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{0D6234D1-DBA2-11D1-B5DF-0060976089D0}#6.0#0"; "TODG6.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{2254D35F-316C-11D4-A9BB-00105A83C563}#1.0#0"; "VERTMENU.OCX"
Begin VB.Form PubOAMain
Caption = "Form2"
ClientHeight = 8175
ClientLeft = 165
ClientTop = 450
ClientWidth = 10140
LinkTopic = "Form2"
ScaleHeight = 8175
ScaleWidth = 10140
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin VertMenu.VerticalMenu VtlMenu
Height = 4815
Left = 120
TabIndex = 14
Top = 660
Width = 1395
_ExtentX = 2461
_ExtentY = 8493
MenuCaption1 = "Menu1"
MenuItemIcon11 = "OAMain.frx":0000
End
Begin GIF89LibCtl.Gif89a Gif89a1
Height = 555
Left = 9000
OleObjectBlob = "OAMain.frx":031A
TabIndex = 0
Top = 60
Visible = 0 'False
Width = 555
End
Begin VB.Timer Timer1
Interval = 60000
Left = 1080
Top = 5700
End
Begin MSWinsockLib.Winsock tcpServer
Index = 0
Left = 600
Top = 5700
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin MSWinsockLib.Winsock tcpClient
Left = 120
Top = 5700
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 555
Left = 0
TabIndex = 1
Top = 0
Width = 10140
_ExtentX = 17886
_ExtentY = 979
ButtonWidth = 820
ButtonHeight = 926
AllowCustomize = 0 'False
Wrappable = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 6
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "-"
Style = 3
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "新增"
Key = "tbNew"
ImageIndex = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "发送"
Key = "tbSend"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "阅读"
Key = "tbRead"
ImageIndex = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除"
Key = "tbDel"
ImageIndex = 1
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "-"
Style = 3
EndProperty
EndProperty
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 3315
Left = 1560
ScaleHeight = 3315
ScaleWidth = 7455
TabIndex = 2
Top = 960
Visible = 0 'False
Width = 7455
Begin VB.CommandButton cmdSend
Caption = "发送(&S)"
Height = 375
Left = 6480
TabIndex = 9
Top = 1080
Width = 975
End
Begin VB.CommandButton cmdLink
Caption = "测试连接"
Height = 375
Left = 6480
TabIndex = 3
Top = 480
Width = 975
End
Begin TrueOleDBGrid60.TDBGrid TDBGrid1
Height = 915
Left = 0
OleObjectBlob = "OAMain.frx":0380
TabIndex = 4
Top = 0
Width = 6015
End
Begin RichTextLib.RichTextBox RTxtSummary
Height = 615
Left = 0
TabIndex = 5
Top = 1560
Width = 7395
_ExtentX = 13044
_ExtentY = 1085
_Version = 393217
ScrollBars = 3
AutoVerbMenu = -1 'True
TextRTF = $"OAMain.frx":2BB9
End
Begin RichTextLib.RichTextBox RtxtSend
Height = 855
Left = 0
TabIndex = 6
Top = 2460
Visible = 0 'False
Width = 7395
_ExtentX = 13044
_ExtentY = 1508
_Version = 393217
ScrollBars = 3
AutoVerbMenu = -1 'True
TextRTF = $"OAMain.frx":2E43
End
Begin VB.Label lblTopic
Caption = "主题："
Height = 255
Left = 60
TabIndex = 8
Top = 1320
Width = 4695
End
Begin VB.Label lblSend
Caption = "收件人：发件人："
Height = 255
Left = 60
TabIndex = 7
Top = 1020
Width = 4695
End
End
Begin VB.PictureBox Picture2
AutoSize = -1 'True
Height = 6840
Left = 1560
ScaleHeight = 6780
ScaleWidth = 10200
TabIndex = 11
Top = 4320
Visible = 0 'False
Width = 10260
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 3
Index = 0
Visible = 0 'False
X1 = 0
X2 = 1080
Y1 = 0
Y2 = 660
End
Begin VB.Line Line3
BorderColor = &H00FF0000&
BorderWidth = 3
Index = 0
Visible = 0 'False
X1 = 1080
X2 = 720
Y1 = 660
Y2 = 660
End
Begin VB.Line Line2
BorderColor = &H00FF0000&
BorderWidth = 3
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
ForeColor = &H80000008&
Height = 435
Left = 2460
TabIndex = 13
Top = 240
Visible = 0 'False
Width = 1410
End
Begin VB.Label lblNode
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000018&
BorderStyle = 1 'Fixed Single
Caption = "Node"
ForeColor = &H80000008&
Height = 450
Index = 0
Left = 1200
TabIndex = 12
Top = 360
Visible = 0 'False
Width = 1410
End
End
Begin VB.Label lblState
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Height = 255
Left = 1560
TabIndex = 10
Top = 660
Width = 7995
End
Begin VB.Menu menuFile
Caption = "文件"
NegotiatePosition= 1 'Left
Begin VB.Menu meunExit
Caption = "退出"
End
End
Begin VB.Menu menuBasic
Caption = "基础数据"
Begin VB.Menu menuBasicItem
Caption = "menuBasic"
Index = 0
End
End
Begin VB.Menu menuPurchase
Caption = "采购"
Begin VB.Menu menuPurchaseItem
Caption = "menuPurchase"
Index = 0
End
End
Begin VB.Menu menuStock
Caption = "库存"
Begin VB.Menu menuStockItem
Caption = "menuStock"
Index = 0
End
End
Begin VB.Menu menuSell
Caption = "销售"
Begin VB.Menu menuSellItem
Caption = "menuSell"
Index = 0
End
End
Begin VB.Menu menuFinance
Caption = "财务"
Begin VB.Menu menuFinanceItem
Caption = "menuFinance"
Index = 0
End
End
Begin VB.Menu menuAnalyzer
Caption = "分析"
Begin VB.Menu menuAnalyzerItem
Caption = "menuAnalyzerItem"
Index = 0
End
End
Begin VB.Menu menu7
Caption = "menu7"
Visible = 0 'False
End
Begin VB.Menu menu8
Caption = "menu8"
Visible = 0 'False
End
Begin VB.Menu menu9
Caption = "menu9"
Visible = 0 'False
End
Begin VB.Menu menu10
Caption = "menu10"
Visible = 0 'False
End
Begin VB.Menu menuPower
Caption = "权限设置"
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -