frmabout.frm

餐饮管理系统数据库设计文档 表名：bzqbj（保质期报警表） 字段名 字段类型 字段长度 （0表示不允许NULL

VERSION 5.00
Begin VB.Form frmAbout 
   BackColor       =   &H00C0FFFF&
   BorderStyle     =   0  'None
   Caption         =   "About prjDZM"
   ClientHeight    =   3630
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5865
   ClipControls    =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3630
   ScaleWidth      =   5865
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Tag             =   "About prjDZM"
   Begin VB.Frame famAbout 
      BackColor       =   &H00A56E3A&
      Height          =   3495
      Left            =   60
      TabIndex        =   0
      Top             =   60
      Width           =   5715
      Begin VB.CommandButton cmdOK 
         Appearance      =   0  'Flat
         Cancel          =   -1  'True
         Default         =   -1  'True
         Height          =   450
         Left            =   3780
         Picture         =   "frmAbout.frx":0000
         Style           =   1  'Graphical
         TabIndex        =   2
         Tag             =   "OK"
         Top             =   2700
         Width           =   1455
      End
      Begin VB.PictureBox picIcon 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FF8080&
         BorderStyle     =   0  'None
         ClipControls    =   0   'False
         ForeColor       =   &H80000008&
         Height          =   480
         Left            =   420
         Picture         =   "frmAbout.frx":07C7
         ScaleHeight     =   480
         ScaleMode       =   0  'User
         ScaleWidth      =   480
         TabIndex        =   1
         TabStop         =   0   'False
         Top             =   420
         Width           =   480
      End
      Begin VB.Label lblVersion 
         BackStyle       =   0  'Transparent
         Caption         =   "2002年   标准网络版Version  3.0"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFC0FF&
         Height          =   225
         Left            =   1410
         TabIndex        =   5
         Tag             =   "Version"
         Top             =   840
         Width           =   3795
      End
      Begin VB.Label lblTitle 
         BackStyle       =   0  'Transparent
         Caption         =   "成功食府餐饮酒家管理系统"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   16.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   480
         Left            =   1200
         TabIndex        =   4
         Tag             =   "Application Title"
         Top             =   300
         Width           =   4305
      End
      Begin VB.Label lblDescription 
         BackStyle       =   0  'Transparent
         Caption         =   "淄博成功软件工作室 TEL:[phone]"
         ForeColor       =   &H0000FFFF&
         Height          =   720
         Left            =   1410
         TabIndex        =   3
         Tag             =   "App Description"
         Top             =   1185
         Width           =   3795
      End
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdOK_Click()
    Unload frmAbout
End Sub

Private Sub Form_Load()
On Error Resume Next
    'SetTopMostWindow frmAbout.hwnd, True
End Sub

Private Sub Form_LostFocus()
On Error Resume Next
    Unload frmAbout
End Sub