📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "企业内部业务联系系统 1.0版"
ClientHeight = 7560
ClientLeft = 45
ClientTop = 615
ClientWidth = 10425
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 7560
ScaleWidth = 10425
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox pic
Appearance = 0 'Flat
BackColor = &H00808080&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 0
ScaleHeight = 300
ScaleWidth = 10815
TabIndex = 34
Top = 840
Width = 10815
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "当前登录部门："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Index = 1
Left = 105
TabIndex = 36
Top = 45
Width = 1575
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "当前登录部门："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 2
Left = 135
TabIndex = 35
Top = 75
Width = 1575
End
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 375
Left = 4710
ScaleHeight = 345
ScaleWidth = 4485
TabIndex = 32
Top = 1980
Visible = 0 'False
Width = 4515
Begin VB.Label lbl
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "该部门没有给您发送信息"
Height = 180
Index = 0
Left = 0
TabIndex = 33
Top = 90
Width = 4515
End
End
Begin VB.PictureBox picQuery
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 6105
Left = 15
ScaleHeight = 6075
ScaleWidth = 2805
TabIndex = 30
Top = 1155
Visible = 0 'False
Width = 2835
Begin VB.TextBox txt
Enabled = 0 'False
Height = 270
Index = 7
Left = 60
TabIndex = 19
Top = 2730
Width = 2685
End
Begin VB.CheckBox chkQuery
BackColor = &H00FFFFFF&
Caption = "回复人："
Height = 180
Index = 3
Left = 60
TabIndex = 18
Top = 2490
Width = 2265
End
Begin VB.TextBox txt
Enabled = 0 'False
Height = 270
Index = 6
Left = 60
TabIndex = 17
Top = 2130
Width = 2685
End
Begin VB.CheckBox chkQuery
BackColor = &H00FFFFFF&
Caption = "发件人："
Height = 180
Index = 2
Left = 60
TabIndex = 16
Top = 1890
Width = 2265
End
Begin VB.CommandButton cmdReturn
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Caption = "返回(&R)"
Height = 315
Left = 1050
Style = 1 'Graphical
TabIndex = 21
Top = 5460
Width = 945
End
Begin VB.CommandButton cmdQuery
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Caption = "查询(&Q)"
Height = 315
Left = 60
Style = 1 'Graphical
TabIndex = 20
Top = 5460
Width = 945
End
Begin VB.CheckBox chkQuery
BackColor = &H00FFFFFF&
Caption = "收件部门："
Height = 180
Index = 1
Left = 60
TabIndex = 14
Top = 1260
Width = 2265
End
Begin VB.ComboBox cboDept
Enabled = 0 'False
Height = 300
Index = 1
Left = 60
Style = 2 'Dropdown List
TabIndex = 15
Top = 1500
Width = 2685
End
Begin VB.CheckBox chkQuery
BackColor = &H00FFFFFF&
Caption = "发件部门："
Height = 180
Index = 0
Left = 60
TabIndex = 11
Top = 630
Width = 2265
End
Begin VB.ComboBox cboDept
Enabled = 0 'False
Height = 300
Index = 0
Left = 60
Style = 2 'Dropdown List
TabIndex = 13
Top = 870
Width = 2685
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "本次查询完毕。"
Height = 180
Index = 3
Left = 120
TabIndex = 38
Top = 4530
Visible = 0 'False
Width = 1260
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "本次查询为您找到 0 条记录。"
Height = 180
Index = 4
Left = 120
TabIndex = 37
Top = 4890
Visible = 0 'False
Width = 2430
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "请选择查询条件："
Height = 180
Left = 60
TabIndex = 31
Top = 180
Width = 1440
End
End
Begin VB.Frame fr
BeginProperty Font
Name = "宋体"
Size = 5.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4305
Left = 2880
TabIndex = 24
Top = 2985
Width = 7545
Begin VB.CommandButton cmdDelInfo
Caption = "删除信息(&D)"
Enabled = 0 'False
Height = 345
Left = 6150
TabIndex = 3
Top = 570
Width = 1155
End
Begin VB.TextBox txt
Height = 270
Index = 3
Left = 1290
Locked = -1 'True
TabIndex = 9
Top = 1080
Width = 4545
End
Begin VB.CommandButton cmdNext
Caption = "下一条(&N)"
Enabled = 0 'False
Height = 280
Left = 6150
TabIndex = 5
Top = 1380
Width = 1155
End
Begin VB.CommandButton cmdPrevious
Caption = "上一条(&P)"
Enabled = 0 'False
Height = 280
Left = 6150
TabIndex = 4
Top = 1080
Width = 1155
End
Begin VB.CommandButton cmdReadReply
Caption = "查看回复(&R)"
Default = -1 'True
Enabled = 0 'False
Height = 345
Left = 6150
TabIndex = 2
Top = 180
Width = 1155
End
Begin VB.TextBox txt
Height = 2130
Index = 5
Left = 150
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 12
Top = 2040
Width = 7245
End
Begin VB.TextBox txt
Height = 270
Index = 4
Left = 1290
Locked = -1 'True
TabIndex = 10
Top = 1380
Width = 4545
End
Begin VB.TextBox txt
Height = 270
Index = 2
Left = 1290
Locked = -1 'True
TabIndex = 8
Top = 780
Width = 4545
End
Begin VB.TextBox txt
Height = 270
Index = 1
Left = 1290
Locked = -1 'True
TabIndex = 7
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -