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         =   "書庫管理"
      Begin VB.Menu mnuBookRecord 
         Caption         =   "基本資料"
      End
      Begin VB.Menu mnuInRecord 
         Caption         =   "圖書入庫"
      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         =   "帳號管理"
      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 '圖書入庫菜章
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