hfrm304_1.frm

饲料生产控制系统

VERSION 5.00
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form HFrm304_1 
   BorderStyle     =   0  '側偟
   Caption         =   "Form1"
   ClientHeight    =   585
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   8160
   LinkTopic       =   "Form1"
   ScaleHeight     =   585
   ScaleWidth      =   8160
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '蛋虐 太把偺拞墰
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   5280
      Top             =   0
   End
   Begin MSForms.Label Label1 
      Height          =   855
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   8085
      Caption         =   "張棟拞丄偟偽傜偔偍懸偪偔偩偝偄両 丏丏丏"
      Size            =   "14261;1508"
      FontName        =   "俵俽 俹僑僔僢僋"
      FontEffects     =   1073741825
      FontHeight      =   480
      FontCharSet     =   128
      FontPitchAndFamily=   2
      FontWeight      =   700
   End
End
Attribute VB_Name = "HFrm304_1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public RS_Wait As New ADODB.Recordset
Public Model_Wait As Long

Private Sub Form_Load()
    pblnWait = False
End Sub


Private Sub Timer1_Timer()
    If pblnWait = True Then
        Unload Me
    Else
        Call f_Export2Excel(RS_Wait, Model_Wait)
    End If
End Sub