rq.frm

小型酒店管理系统

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{A964BDA3-3E93-11CF-9A0F-9E6261DACD1C}#3.0#0"; "RESIZE32.OCX"
Begin VB.Form RQ 
   Caption         =   "日期"
   ClientHeight    =   2160
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4035
   Icon            =   "RQ.frx":0000
   LinkTopic       =   "Form3"
   ScaleHeight     =   2160
   ScaleWidth      =   4035
   StartUpPosition =   2  '屏幕中心
   Begin ResizeLibCtl.ReSize ReSize1 
      Left            =   1080
      Top             =   1680
      _Version        =   196608
      _ExtentX        =   741
      _ExtentY        =   741
      _StockProps     =   64
      Enabled         =   -1  'True
      FormMinWidth    =   0
      FormMinHeight   =   0
      FormDesignHeight=   2160
      FormDesignWidth =   4035
   End
   Begin MSComCtl2.MonthView MONTHVIEW1 
      Height          =   2160
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4035
      _ExtentX        =   7117
      _ExtentY        =   3810
      _Version        =   393216
      ForeColor       =   -2147483630
      BackColor       =   -2147483633
      BorderStyle     =   1
      Appearance      =   0
      MonthBackColor  =   -2147483628
      StartOfWeek     =   24576001
      TitleBackColor  =   -2147483647
      TitleForeColor  =   -2147483624
      CurrentDate     =   36568
   End
End
Attribute VB_Name = "RQ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Resize()
    MONTHVIEW1.Height = Me.ScaleHeight
    MONTHVIEW1.Width = Me.ScaleWidth
End Sub
Private Sub Form_Load()
    MONTHVIEW1.Value = Now
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Date = MONTHVIEW1.Value
End Sub
Private Sub MONTHVIEW1_DblClick()
    Unload Me
    
End Sub