📄 frmmain.frm
字号:
VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash9c.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm frmMain
BackColor = &H80000010&
Caption = "欢欢图书销售系统"
ClientHeight = 7860
ClientLeft = 165
ClientTop = 855
ClientWidth = 9240
Icon = "frmMain.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture1
Align = 1 'Align Top
Height = 7095
Left = 0
ScaleHeight = 7035
ScaleWidth = 9180
TabIndex = 1
Top = 825
Width = 9240
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1
Height = 6975
Left = 0
TabIndex = 2
Top = 0
Width = 9255
_cx = 16325
_cy = 12303
FlashVars = ""
Movie = "D:\VB界面.swf"
Src = "D:\VB界面.swf"
WMode = "Window"
Play = 0 'False
Loop = -1 'True
Quality = "High"
SAlign = ""
Menu = -1 'True
Base = ""
AllowScriptAccess= ""
Scale = "ShowAll"
DeviceFont = 0 'False
EmbedMovie = 0 'False
BGColor = ""
SWRemote = ""
MovieData = ""
SeamlessTabbing = -1 'True
Profile = 0 'False
ProfileAddress = ""
ProfilePort = 0
AllowNetworking = "all"
AllowFullScreen = "false"
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 5040
Top = 3600
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 70
ImageHeight = 43
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0CCA
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":18CD
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":218B
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2DCA
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3AC3
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4732
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":53EE
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":6053
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 825
Left = 0
TabIndex = 0
Top = 0
Width = 9240
_ExtentX = 16298
_ExtentY = 1455
ButtonWidth = 2037
ButtonHeight = 1296
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 8
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 8
EndProperty
EndProperty
End
Begin VB.Menu mnuBook
Caption = "书库管理"
Begin VB.Menu mnuBookRecord
Caption = "基本资料"
End
Begin VB.Menu mnuInRecord
Caption = "图书入库"
End
Begin VB.Menu mnuBookReport
Caption = "图书报表"
End
End
Begin VB.Menu mnuSale
Caption = "销售管理"
Begin VB.Menu mnuBookSale
Caption = "图书销售"
End
Begin VB.Menu mnuPrice
Caption = "价格维护"
End
Begin VB.Menu mnuSalesReport
Caption = "销售明细"
End
Begin VB.Menu mnuMoneyReport
Caption = "销售报表"
End
End
Begin VB.Menu mnuSystem
Caption = "系统管理"
Begin VB.Menu mnuUser
Caption = "帐号管理"
End
Begin VB.Menu mnuEditPwd
Caption = "修改密码"
End
Begin VB.Menu mnuLogin
Caption = "重新登录"
End
Begin VB.Menu mnuExit
Caption = "退出系统"
End
End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim fPath As String
Private Sub MDIForm_Load()
showflash
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
Dim a As Integer
Select Case exitType '判断关闭主窗体的类型exittype
Case 0
' 如果是退出
a = MsgBox("确认要退出系统吗？", 36)
If a = 6 Then '点击“确定”
Kill fPath
If rs.State = 1 Then rs.Close
If con.State = 1 Then con.Close
End '退出程序
Else
Cancel = -1 '取消,不关闭
End If
Case 1
'如果是重新登陆
a = MsgBox("确认要重新登陆系统吗？", 36)
If a = 6 Then '点击“确定”
frmlogin.Show
Unload Me
Kill fPath
exitType = 0 '重新赋值给全局变量
Else
Cancel = -1 '取消，不关闭
exitType = 0 '重新赋值给全局变量
End If
End Select
End Sub
Private Sub mnuBookRecord_Click()
frmBookRecord.Show
End Sub
Private Sub mnuBookReport_Click()
frmBookReport.Show
End Sub
Private Sub mnuBookSale_Click()
frmBookSale.Show
End Sub
Private Sub mnuEditPwd_Click()
frmEditPwd.Show
End Sub
Private Sub mnuExit_Click()
exitType = 0
Unload Me
End Sub
Private Sub mnuInRecord_Click()
frmBookIn.Show
End Sub
Private Sub mnuLogin_Click()
exitType = 1
rs.Close
con.Close
Unload Me
End Sub
Private Sub mnuMoneyReport_Click()
frmBookSaleReport.Show
End Sub
Private Sub mnuPrice_Click()
frmPrice.Show
End Sub
Private Sub mnuSalesReport_Click()
frmSalesReport.Show
End Sub
Private Sub mnuUser_Click()
frmUser.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index '判断是点击哪个按钮
Case 1
mnuBookRecord_Click '基本信息菜单
Case 2
mnuInRecord_Click '图书入库菜章
Case 3
mnuBookSale_Click '图书销售菜单
Case 4
mnuPrice_Click '价格维护菜单
Case 5
mnuBookReport_Click '图书报表菜单
Case 6
mnuSalesReport_Click '销售明细报表菜单
Case 7
mnuMoneyReport_Click '销售报表菜单
Case 8
mnuExit_Click '退出菜单
End Select
End Sub
Sub showflash()
fPath = App.Path & "\Temp_login"
Dim lpbits() As Byte
lpbits = LoadResData(102, "FLASH")
Open fPath For Binary As #1
Put #1, , lpbits
Close 1
ShockwaveFlash1.Movie = fPath
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -