frm_rl.frm

美容院管理系统

VERSION 5.00
Object = "{8E27C92E-1264-101C-8A2F-040224009C02}#7.0#0"; "MSCAL.OCX"
Begin VB.Form frm_rl 
   BackColor       =   &H0080C0FF&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "修改日期"
   ClientHeight    =   3585
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5565
   Icon            =   "frm_rl.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3585
   ScaleWidth      =   5565
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command1 
      BackColor       =   &H00C0E0FF&
      Cancel          =   -1  'True
      Default         =   -1  'True
      Height          =   435
      Left            =   4125
      MaskColor       =   &H00FFFFFF&
      Picture         =   "frm_rl.frx":030A
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   3075
      UseMaskColor    =   -1  'True
      Width           =   1365
   End
   Begin MSACAL.Calendar Calendar1 
      Height          =   3165
      Left            =   -45
      TabIndex        =   1
      Top             =   0
      Width           =   5670
      _Version        =   524288
      _ExtentX        =   10001
      _ExtentY        =   5583
      _StockProps     =   1
      BackColor       =   8438015
      Year            =   2000
      Month           =   9
      Day             =   18
      DayLength       =   0
      MonthLength     =   0
      DayFontColor    =   0
      FirstDay        =   2
      GridCellEffect  =   1
      GridFontColor   =   10485760
      GridLinesColor  =   -2147483632
      ShowDateSelectors=   -1  'True
      ShowDays        =   -1  'True
      ShowHorizontalGrid=   -1  'True
      ShowTitle       =   -1  'True
      ShowVerticalGrid=   -1  'True
      TitleFontColor  =   255
      ValueIsNull     =   0   'False
      BeginProperty DayFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty GridFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty TitleFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
End
Attribute VB_Name = "frm_rl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Date = Calendar1.Value
frm_main.StatusBar1.Panels(4).Text = Format(Date, "yyyy-mm-dd")
Unload Me
End Sub

Private Sub Form_Load()
'frm_main.Toolbar1.Buttons(3).Enabled = False
Calendar1.Value = Date

End Sub

Private Sub Form_Unload(Cancel As Integer)
'frm_main.Toolbar1.Buttons(3).Enabled = True
End Sub