printday.frm

VB影碟出租系统

VERSION 5.00
Object = "{2D8BCEE7-021A-4575-99B6-5E26BF8B6DEE}#1.0#0"; "Form32.ocx"
Begin VB.Form PrintDay 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   Caption         =   "每日报表"
   ClientHeight    =   7455
   ClientLeft      =   0
   ClientTop       =   105
   ClientWidth     =   9975
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7455
   ScaleWidth      =   9975
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin Form32.SkyGzForm SkyGzForm1 
      Height          =   7455
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9975
      _ExtentX        =   17595
      _ExtentY        =   13150
      Icon            =   "PrintDay.frx":0000
      Begin VB.OLE OLE1 
         Appearance      =   0  'Flat
         Enabled         =   0   'False
         Height          =   6615
         Left            =   240
         TabIndex        =   1
         Top             =   600
         Width           =   9495
      End
   End
End
Attribute VB_Name = "PrintDay"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Download by http://www.codefans.net
Option Explicit

Private Sub Command1_Click()

Unload Me
End Sub


Private Sub Form_Load()
OLE1.Visible = True
OLE1.CreateLink App.Path & "\tablefile\" & DayRec.DTPicker1.Value & DayRec.mTableName & ".xls"

SkyGzForm1.Caption = Me.Caption
SkyGzForm1.hWnd = Me.hWnd
End Sub

Private Sub form_unload(cancel As Integer)
Unload Me
End Sub


Private Sub Form_Resize()
SkyGzForm1.Left = 0
SkyGzForm1.Top = 0
Me.Width = SkyGzForm1.Width - 5
Me.Height = SkyGzForm1.Height
Call SkyGzForm1.SetRgn(Me, 5)
End Sub

Private Sub SkyGzForm1_UnloadClick()
Unload Me
End Sub