frmmain.frm

菜谱管理系统。比较简单的VB代码

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain 
   AutoShowChildren=   0   'False
   BackColor       =   &H8000000C&
   Caption         =   "Digital Cook Book"
   ClientHeight    =   5550
   ClientLeft      =   60
   ClientTop       =   750
   ClientWidth     =   8325
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   1  'CenterOwner
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   7800
      Top             =   4920
   End
   Begin MSComctlLib.StatusBar sbStatusBar 
      Align           =   2  'Align Bottom
      Height          =   270
      Left            =   0
      TabIndex        =   0
      Top             =   5280
      Width           =   8325
      _ExtentX        =   14684
      _ExtentY        =   476
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   9022
            Text            =   "Status"
            TextSave        =   "Status"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            AutoSize        =   2
            TextSave        =   "7/25/2003"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            AutoSize        =   2
            TextSave        =   "11:39 PM"
         EndProperty
      EndProperty
   End
   Begin MSComDlg.CommonDialog dlgCommonDialog 
      Left            =   7440
      Top             =   4920
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu File 
      Caption         =   "&File"
      Begin VB.Menu FilePrint 
         Caption         =   "&Print"
         Enabled         =   0   'False
         Shortcut        =   ^P
      End
      Begin VB.Menu sep2 
         Caption         =   "-"
      End
      Begin VB.Menu FileClose 
         Caption         =   "Close Form"
         Enabled         =   0   'False
         Shortcut        =   ^C
      End
      Begin VB.Menu sep1 
         Caption         =   "-"
      End
      Begin VB.Menu FileExit 
         Caption         =   "E&xit"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu Recipes 
      Caption         =   "&Recipes"
      Begin VB.Menu RecipesMeals 
         Caption         =   "&Meals"
         Shortcut        =   ^M
      End
      Begin VB.Menu RecipesDeserts 
         Caption         =   "&Deserts"
         Shortcut        =   ^D
      End
   End
   Begin VB.Menu window 
      Caption         =   "&Window"
      WindowList      =   -1  'True
      Begin VB.Menu tile 
         Caption         =   "&Tile"
         Enabled         =   0   'False
      End
      Begin VB.Menu cascade 
         Caption         =   "&Cascade"
         Enabled         =   0   'False
      End
   End
   Begin VB.Menu About 
      Caption         =   "&About"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Programed By James Letner (J-SOFT)


Private Sub About_Click()

'Keeps the user updated on the programs status

fMainForm.sbStatusBar.Panels(1).Text = "Status: Loading Page..."
fMainForm.sbStatusBar.Refresh

' Opens the about form and keeps the form on top until closed

frmAbout.Show 1

End Sub

Private Sub FileExit_Click()

' Terminates the program and returns to the operating system

End

End Sub

Private Sub MDIForm_Load()

' forces the caption to display product name and version

Me.Caption = "Digital Cook Book " & App.Major & "." & App.Minor & "." & App.Revision

'Changes the text of the status bar to keep the user updated
'on whata the program is doing

sbStatusBar.Panels(1).Text = "Status: Program Loading......."
sbStatusBar.Refresh
Timer1.Enabled = True

End Sub

Private Sub RecipesDeserts_Click()

'Keeps the user updated on the programs status

sbStatusBar.Panels(1).Text = "Status: Opening Database..."
sbStatusBar.Refresh

' Shows the frmDeserts for the user

frmDeserts.Show

End Sub



Private Sub RecipesMeals_Click()

' Shows the frmMeals for the user

frmMeals.Show
sbStatusBar.Panels(1).Text = "Status: Opening Database... "
sbStatusBar.Refresh

End Sub

Private Sub Timer1_Timer()

'Changes the Status text to keep the user updated on what the
'Program is doing

sbStatusBar.Panels(1).Text = "Status: Running... "
sbStatusBar.Refresh
Timer1.Enabled = False

End Sub