📄 数据库连接.frm
字号:
TabIndex = 14
Top = 1680
Width = 1440
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "原料信息查询"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 480
MouseIcon = "数据库连接.frx":3FD2
MousePointer = 99 'Custom
TabIndex = 13
Top = 1200
Width = 1440
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "原料信息修改"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 480
MouseIcon = "数据库连接.frx":42DC
MousePointer = 99 'Custom
TabIndex = 12
Top = 720
Width = 1440
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "原料信息输入"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 480
MouseIcon = "数据库连接.frx":45E6
MousePointer = 99 'Custom
TabIndex = 11
Top = 240
Width = 1440
End
End
Begin VB.Frame Frame1
Caption = "产品管理"
Height = 2655
Left = 120
TabIndex = 0
Top = 1200
Width = 2295
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "生产单"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 480
MouseIcon = "数据库连接.frx":48F0
MousePointer = 99 'Custom
TabIndex = 10
Top = 2160
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "产品信息删除"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 480
MouseIcon = "数据库连接.frx":4BFA
MousePointer = 99 'Custom
TabIndex = 9
Top = 1680
Width = 1440
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "产品信息查询"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 480
MouseIcon = "数据库连接.frx":4F04
MousePointer = 99 'Custom
TabIndex = 8
Top = 1200
Width = 1440
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "产品信息修改"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 480
MouseIcon = "数据库连接.frx":520E
MousePointer = 99 'Custom
TabIndex = 7
Top = 720
Width = 1440
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "产品信息输入"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 480
MouseIcon = "数据库连接.frx":5518
MousePointer = 99 'Custom
TabIndex = 6
Top = 240
Width = 1440
End
End
Begin VB.Line Line1
X1 = 0
X2 = 10920
Y1 = 0
Y2 = 0
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "企 业 生 产 管 理 系 统"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 2040
TabIndex = 25
Top = 240
Width = 6960
End
Begin VB.Menu menu1
Caption = "产品管理(&P)"
Index = 1
Begin VB.Menu menu2
Caption = "产品信息输入(&I)"
Index = 2
End
Begin VB.Menu menu3
Caption = "产品信息修改(&U)"
Index = 3
End
Begin VB.Menu menu4
Caption = "产品信息查询(&Q)"
Index = 4
End
Begin VB.Menu menu5
Caption = "产品信息删除(&D)"
Index = 5
End
Begin VB.Menu menu6
Caption = "产品生产单(&PL)"
Index = 6
End
End
Begin VB.Menu menu7
Caption = "原料管理(&O)"
Index = 7
Begin VB.Menu menu8
Caption = "原料信息输入(&I)"
Index = 8
End
Begin VB.Menu menu9
Caption = "原料信息修改(&U)"
Index = 9
End
Begin VB.Menu menu10
Caption = "原料信息查询(&Q)"
Index = 10
End
Begin VB.Menu menu11
Caption = "原料信息删除(&D)"
Index = 11
End
Begin VB.Menu menu12
Caption = "原料订购单(&O)"
Index = 12
End
End
Begin VB.Menu menu13
Caption = "销售管理(&T)"
Index = 13
Begin VB.Menu menu14
Caption = "销售信息输入(&I)"
Index = 14
End
Begin VB.Menu menu15
Caption = "销售信息修改(&U)"
Index = 15
End
Begin VB.Menu menu16
Caption = "销售信息查询(&Q)"
Index = 16
End
Begin VB.Menu menu17
Caption = "销售信息删除(&D)"
Index = 17
End
Begin VB.Menu menu18
Caption = "销售单(&S)"
Index = 18
End
End
Begin VB.Menu menu19
Caption = "人事管理(&W)"
Index = 19
Begin VB.Menu menu20
Caption = "员工信息输入(&I)"
Index = 20
End
Begin VB.Menu menu21
Caption = "员工信息修改(&U)"
Index = 21
End
Begin VB.Menu menu22
Caption = "员工信息查询(&Q)"
Index = 22
End
Begin VB.Menu menu23
Caption = "员工信息删除(&D)"
Index = 23
End
End
Begin VB.Menu menu24
Caption = "生产规划(&D)"
Index = 24
Begin VB.Menu menu25
Caption = "产品销售计算(&SC)"
Index = 25
End
Begin VB.Menu menu26
Caption = "原料订购计算(&OC)"
Index = 26
End
End
Begin VB.Menu menu27
Caption = "统计报表(&C)"
Index = 27
Begin VB.Menu menu28
Caption = "产品生产统计报表(&PC)"
Index = 28
End
Begin VB.Menu menu29
Caption = "产品销售统计报表(&SC)"
Index = 29
End
Begin VB.Menu menu30
Caption = "原料订购统计报表(&OC)"
Index = 30
End
End
Begin VB.Menu menu31
Caption = "系统维护(&S)"
Index = 31
Begin VB.Menu menu32
Caption = "用户信息(&M)"
Index = 32
End
Begin VB.Menu menu33
Caption = "权限管理(&R)"
Index = 33
End
End
Begin VB.Menu menu34
Caption = "退出系统(&E)"
Index = 34
Begin VB.Menu about36
Caption = "关于系统(&A)"
Index = 36
End
Begin VB.Menu quit35
Caption = "退出系统(&Q)"
Index = 35
End
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub about_Click(Index As Integer)
frmAbout.Show
End Sub
Private Sub about36_Click(Index As Integer)
frmAbout.Show
End Sub
Private Sub Form_Load()
If frmLogin.Combo1.ListIndex = 0 Then
Form2.Label2.Enabled = False
Form2.Label4.Enabled = False
Form2.Label5.Enabled = False
Form2.Label8.Enabled = False
Form2.Label10.Enabled = False
Form2.Label11.Enabled = False
Form2.Label12.Enabled = False
Form2.Label13.Enabled = False
Form2.Label14.Enabled = False
Form2.Label15.Enabled = False
Form2.Label16.Enabled = False
Form2.Label17.Enabled = False
Form2.Label18.Enabled = False
Form2.Label23.Enabled = False
Form2.Label25.Enabled = False
Form2.Label26.Enabled = False
Form2.Label27.Enabled = False
Form2.Label29.Enabled = False
Form2.Frame5.Visible = False
Form2.Frame9.Visible = True
Form2.menu3.Item(3).Enabled = False
Form2.menu5.Item(5).Enabled = False
Form2.menu6.Item(6).Enabled = False
Form2.menu9.Item(9).Enabled = False
Form2.menu11.Item(11).Enabled = False
Form2.menu12.Item(12).Enabled = False
Form2.menu15.Item(15).Enabled = False
Form2.menu17.Item(17).Enabled = False
Form2.menu18.Item(18).Enabled = False
Form2.menu21.Item(21).Enabled = False
Form2.menu23.Item(23).Enabled = False
Form2.menu24.Item(24).Enabled = False
Form2.menu27.Item(27).Enabled = False
Form2.menu31.Item(31).Enabled = False
Form22.Check1 = 1
Form22.Check3 = 1
Form22.Check6 = 1
Form22.Check8 = 1
Form22.Check16 = 1
Form22.Check18 = 1
Form22.Check27 = 1
Form22.Check28 = 1
Else
Form2.Frame5.Visible = True
Form2.Frame9.Visible = False
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &H80000012
Label2.ForeColor = &H80000012
Label3.ForeColor = &H80000012
Label4.ForeColor = &H80000012
Label5.ForeColor = &H80000012
Label7.ForeColor = &H80000012
Label8.ForeColor = &H80000012
Label9.ForeColor = &H80000012
Label10.ForeColor = &H80000012
Label11.ForeColor = &H80000012
Label12.ForeColor = &H80000012
Label13.ForeColor = &H80000012
Label14.ForeColor = &H80000012
Label15.ForeColor = &H80000012
Label16.ForeColor = &H80000012
Label17.ForeColor = &H80000012
Label18.ForeColor = &H80000012
Label19.ForeColor = &H80000012
Label20.ForeColor = &H80000012
Label22.ForeColor = &H80000012
Label23.ForeColor = &H80000012
Label24.ForeColor = &H80000012
Label25.ForeColor = &H80000012
Label26.ForeColor = &H80000012
Label6.ForeColor = &H80000012
Label27.ForeColor = &H80000012
Label28.ForeColor = &H80000012
Label29.ForeColor = &H80000012
Label30.ForeColor = &H80000012
End Sub
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &H80000012
Label2.ForeColor = &H80000012
Label3.ForeColor = &H80000012
Label4.ForeColor = &H80000012
Label5.ForeColor = &H80000012
End Sub
Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.ForeColor = &H80000012
Label8.ForeColor = &H80000012
Label9.ForeColor = &H80000012
Label10.ForeColor = &H80000012
Label11.ForeColor = &H80000012
End Sub
Private Sub Frame3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label12.ForeColor = &H80000012
Label13.ForeColor = &H80000012
End Sub
Private Sub Frame4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label14.ForeColor = &H80000012
Label15.ForeColor = &H80000012
Label16.ForeColor = &H80000012
End Sub
Private Sub Frame5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label17.ForeColor = &H80000012
Label18.ForeColor = &H80000012
End Sub
Private Sub Frame6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label19.ForeColor = &H80000012
Label20.ForeColor = &H80000012
End Sub
Private Sub Frame7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label22.ForeColor = &H80000012
Label23.ForeColor = &H80000012
Label24.ForeColor = &H80000012
Label25.ForeColor = &H80000012
Label26.ForeColor = &H80000012
End Sub
Private Sub Frame8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.ForeColor = &H80000012
Label27.ForeColor = &H80000012
Label28.ForeColor = &H80000012
Label29.ForeColor = &H80000012
End Sub
Private Sub Frame9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label30.ForeColor = &H80000012
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -