📄 frm_main.frm
字号:
VERSION 5.00
Begin VB.Form Frm_Main
AutoRedraw = -1 'True
BorderStyle = 1 'Fixed Single
Caption = "稿费发放管理系统"
ClientHeight = 7680
ClientLeft = 45
ClientTop = 330
ClientWidth = 11760
ClipControls = 0 'False
Icon = "Frm_Main.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
NegotiateMenus = 0 'False
Picture = "Frm_Main.frx":08CA
ScaleHeight = 7680
ScaleWidth = 11760
StartUpPosition = 1 '所有者中心
WhatsThisHelp = -1 'True
Begin VB.Timer Timer1
Interval = 100
Left = 690
Top = 6660
End
Begin VB.PictureBox PicMaintenance
BorderStyle = 0 'None
Height = 675
Left = 4830
Picture = "Frm_Main.frx":148B0
ScaleHeight = 675
ScaleWidth = 7050
TabIndex = 7
ToolTipText = "4830,585"
Top = 585
Width = 7050
Begin VB.Label LblDeleteItem
BackStyle = 0 'Transparent
BeginProperty Font
Name = "黑体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 5475
TabIndex = 11
Top = 180
Width = 1365
End
Begin VB.Label LblAddItem
BackStyle = 0 'Transparent
BeginProperty Font
Name = "黑体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 3990
TabIndex = 10
Top = 180
Width = 1365
End
Begin VB.Label LblOP
BackStyle = 0 'Transparent
BeginProperty Font
Name = "黑体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 2820
TabIndex = 9
Top = 180
Width = 1005
End
Begin VB.Label LblAdministrator
BackStyle = 0 'Transparent
BeginProperty Font
Name = "黑体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 1005
TabIndex = 8
Top = 180
Width = 1680
End
End
Begin VB.Label LblFormation
BackStyle = 0 'Transparent
Caption = "版权所有：明日科技 http://www.mingrisoft.com"
ForeColor = &H0000FFFF&
Height = 195
Left = 165
TabIndex = 13
Top = 7440
Width = 5820
End
Begin VB.Label LblTime
BackStyle = 0 'Transparent
ForeColor = &H0000FFFF&
Height = 195
Left = 10350
TabIndex = 12
Top = 7455
Width = 1395
End
Begin VB.Label LblUpdateRecord
BackStyle = 0 'Transparent
BeginProperty Font
Name = "黑体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 8550
TabIndex = 6
Top = 780
Width = 1365
End
Begin VB.Label LblAddRecord
BackStyle = 0 'Transparent
BeginProperty Font
Name = "黑体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 6525
TabIndex = 5
Top = 780
Width = 1365
End
Begin VB.Label LblEnd
BackStyle = 0 'Transparent
BeginProperty Font
Name = "黑体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 10950
TabIndex = 4
Top = 105
Width = 735
End
Begin VB.Label LblStat
BackStyle = 0 'Transparent
BeginProperty Font
Name = "黑体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 9615
TabIndex = 3
Top = 105
Width = 735
End
Begin VB.Label LblFind
BackStyle = 0 'Transparent
BeginProperty Font
Name = "黑体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 8565
TabIndex = 2
Top = 105
Width = 735
End
Begin VB.Label LblMaintenance
BackStyle = 0 'Transparent
BeginProperty Font
Name = "黑体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 7545
TabIndex = 1
Top = 105
Width = 735
End
Begin VB.Label LblData
BackStyle = 0 'Transparent
BeginProperty Font
Name = "黑体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 6525
TabIndex = 0
Top = 105
Width = 735
End
End
Attribute VB_Name = "Frm_Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub LblAddItem_Click()
LblAdministrator.Caption = ""
LblOP.Caption = ""
LblAddItem.Caption = "添加项目"
LblDeleteItem.Caption = ""
Load Main_Magazine
Main_Magazine.Show
Me.Hide
End Sub
Private Sub LblAddRecord_Click()
LblAddRecord.Caption = "添加记录"
LblUpdateRecord.Caption = ""
Load Main_Charge
Main_Charge.Show
Main_Charge.FraAdd.Visible = True
Main_Charge.FraUpdate.Visible = False
Me.Hide
End Sub
Private Sub LblAdministrator_Click()
LblAdministrator.Caption = "系统管理员"
LblOP.Caption = ""
LblAddItem.Caption = ""
LblDeleteItem.Caption = ""
Load Main_Administrator
Main_Administrator.Show
Me.Hide
End Sub
Private Sub LblData_Click()
LblData.Caption = "数据"
LblMaintenance.Caption = ""
LblFind.Caption = ""
LblStat.Caption = ""
LblAdministrator.Caption = ""
LblOP.Caption = ""
LblAddItem.Caption = ""
LblDeleteItem.Caption = ""
PicMaintenance.Visible = False
End Sub
Private Sub LblDeleteItem_Click()
LblAdministrator.Caption = ""
LblOP.Caption = ""
LblAddItem.Caption = ""
LblDeleteItem.Caption = "删除项目"
Load Main_Magazine_Delete
Main_Magazine_Delete.Show
Me.Hide
End Sub
Private Sub LblFind_Click()
LblData.Caption = ""
LblMaintenance.Caption = ""
LblFind.Caption = "查询"
LblStat.Caption = ""
LblAdministrator.Caption = ""
LblOP.Caption = ""
LblAddItem.Caption = ""
LblDeleteItem.Caption = ""
LblAddRecord.Caption = ""
LblUpdateRecord.Caption = ""
Load Main_Find
Main_Find.Show
Me.Hide
End Sub
Private Sub lblMaintenance_Click()
PicMaintenance.Visible = True
LblData.Caption = ""
LblMaintenance.Caption = "维护"
LblFind.Caption = ""
LblStat.Caption = ""
LblAddRecord.Caption = ""
LblUpdateRecord.Caption = ""
End Sub
Private Sub LblOP_Click()
LblAdministrator.Caption = ""
LblOP.Caption = "操作员"
LblAddItem.Caption = ""
LblDeleteItem.Caption = ""
Load Main_OP
Main_OP.Show
Me.Hide
End Sub
Private Sub LblStat_Click()
LblData.Caption = ""
LblMaintenance.Caption = ""
LblFind.Caption = ""
LblStat.Caption = "统计"
LblAdministrator.Caption = ""
LblOP.Caption = ""
LblAddItem.Caption = ""
LblDeleteItem.Caption = ""
LblAddRecord.Caption = ""
LblUpdateRecord.Caption = ""
Load Main_Stat
Main_Stat.Show
Me.Hide
End Sub
Private Sub LblUpdateRecord_Click()
LblAddRecord.Caption = ""
LblUpdateRecord.Caption = "修改记录"
Load Main_Charge
Main_Charge.Show
Main_Charge.FraAdd.Visible = False
Main_Charge.FraUpdate.Visible = True
Me.Hide
End Sub
Private Sub LblTime_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X < 10350 And Y < 7200 Then
LblTime.ToolTipText = Format(Date, "yyyy年m月d日")
End If
End Sub
Private Sub Timer1_Timer()
LblTime = Time
End Sub
Private Sub LblEnd_Click()
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -