rhfrm203.frm

饲料生产控制系统

VERSION 5.00
Object = "{C4847593-972C-11D0-9567-00A0C9273C2A}#8.0#0"; "crviewer.dll"
Begin VB.Form RHFrm203 
   BorderStyle     =   1  '屌掕(幚慄)
   Caption         =   "尨椏巊梡検梊應乮儔僀儞暿乯"
   ClientHeight    =   14820
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   19110
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   14820
   ScaleWidth      =   19110
   WindowState     =   2  '嵟戝壔
   Begin CRVIEWERLibCtl.CRViewer CRViewer 
      Height          =   14775
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   19095
      DisplayGroupTree=   -1  'True
      DisplayToolbar  =   -1  'True
      EnableGroupTree =   0   'False
      EnableNavigationControls=   -1  'True
      EnableStopButton=   -1  'True
      EnablePrintButton=   -1  'True
      EnableZoomControl=   -1  'True
      EnableCloseButton=   -1  'True
      EnableProgressControl=   -1  'True
      EnableSearchControl=   -1  'True
      EnableRefreshButton=   -1  'True
      EnableDrillDown =   -1  'True
      EnableAnimationControl=   -1  'True
      EnableSelectExpertButton=   0   'False
      EnableToolbar   =   -1  'True
      DisplayBorder   =   0   'False
      DisplayTabs     =   0   'False
      DisplayBackgroundEdge=   -1  'True
      SelectionFormula=   ""
      EnablePopupMenu =   -1  'True
      EnableExportButton=   0   'False
      EnableSearchExpertButton=   0   'False
      EnableHelpButton=   0   'False
   End
End
Attribute VB_Name = "RHFrm203"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'******************************************************************************
'僔僗僥儉柤丗椦寭嶻嬈壓娭
'僾儘僌儔儉ID丗RHFrm203
'僾儘僌儔儉柤丗
'嶌惉幰丗滹奀撿
'嶌惉擔丗2007/08/08
'廋惓擔/廋惓幰丗
'******************************************************************************
Option Explicit

Public RS As New ADODB.Recordset

'******************************************************************************
' 柤徧丂丂丂: Form_Load
' 婘擻丂丂丂: 僼僅乕儉偺弶婜壔
' 嶲悢丂丂丂: 側偟
' 曉夞丂丂  : 側偟
'******************************************************************************
Private Sub Form_Load()
    Dim rep As New CRH203
On Error GoTo Err

    rep.Database.SetDataSource RS
    Me.CRViewer.ReportSource = rep
    Me.CRViewer.ViewReport
    
Resume_Err:
    Exit Sub

Err:
    '僄儔乕儘僌傪婰榐
    WriteErrLog "RHFrm203", "Form_Load", "", Err.Number, Err.Description
    Resume Resume_Err

End Sub

'******************************************************************************
' 柤徧丂丂丂: Form_Resize
' 婘擻丂丂丂:
' 嶲悢丂丂丂: 側偟
' 曉夞丂丂  : 側偟
'******************************************************************************
Private Sub Form_Resize()

On Error GoTo Err
    CRViewer.Top = 0
    CRViewer.Left = 0
    CRViewer.Height = ScaleHeight
    CRViewer.Width = ScaleWidth
    
Resume_Err:
    Exit Sub

Err:
    Resume Resume_Err
    
End Sub
'


Private Sub Form_Unload(Cancel As Integer)

    Call DelTemp

End Sub