?? frmmain.frm
字號(hào):
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 = "歡歡圖書銷售系統(tǒng)"
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 = "書庫(kù)管理"
Begin VB.Menu mnuBookRecord
Caption = "基本資料"
End
Begin VB.Menu mnuInRecord
Caption = "圖書入庫(kù)"
End
Begin VB.Menu mnuBookReport
Caption = "圖書報(bào)表"
End
End
Begin VB.Menu mnuSale
Caption = "銷售管理"
Begin VB.Menu mnuBookSale
Caption = "圖書銷售"
End
Begin VB.Menu mnuPrice
Caption = "價(jià)格維護(hù)"
End
Begin VB.Menu mnuSalesReport
Caption = "銷售明細(xì)"
End
Begin VB.Menu mnuMoneyReport
Caption = "銷售報(bào)表"
End
End
Begin VB.Menu mnuSystem
Caption = "系統(tǒng)管理"
Begin VB.Menu mnuUser
Caption = "帳號(hào)管理"
End
Begin VB.Menu mnuEditPwd
Caption = "修改密碼"
End
Begin VB.Menu mnuLogin
Caption = "重新登錄"
End
Begin VB.Menu mnuExit
Caption = "退出系統(tǒng)"
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 '判斷關(guān)閉主窗體的類型exittype
Case 0
' 如果是退出
a = MsgBox("確認(rèn)要退出系統(tǒng)嗎？", 36)
If a = 6 Then '點(diǎn)擊“確定”
Kill fPath
If rs.State = 1 Then rs.Close
If con.State = 1 Then con.Close
End '退出程序
Else
Cancel = -1 '取消,不關(guān)閉
End If
Case 1
'如果是重新登陸
a = MsgBox("確認(rèn)要重新登陸系統(tǒng)嗎？", 36)
If a = 6 Then '點(diǎn)擊“確定”
frmlogin.Show
Unload Me
Kill fPath
exitType = 0 '重新賦值給全局變量
Else
Cancel = -1 '取消，不關(guān)閉
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 '判斷是點(diǎn)擊哪個(gè)按鈕
Case 1
mnuBookRecord_Click '基本信息菜單
Case 2
mnuInRecord_Click '圖書入庫(kù)菜章
Case 3
mnuBookSale_Click '圖書銷售菜單
Case 4
mnuPrice_Click '價(jià)格維護(hù)菜單
Case 5
mnuBookReport_Click '圖書報(bào)表菜單
Case 6
mnuSalesReport_Click '銷售明細(xì)報(bào)表菜單
Case 7
mnuMoneyReport_Click '銷售報(bào)表菜單
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
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -