www.pudn.com > Pepsi_five.rar > DERpt.Dsr

VERSION 5.00 
Begin {C0E45035-5775-11D0-B388-00A0C9055D8E} DERpt  
   ClientHeight    =   4890 
   ClientLeft      =   0 
   ClientTop       =   0 
   ClientWidth     =   5145 
   _ExtentX        =   9075 
   _ExtentY        =   8625 
   FolderFlags     =   1 
   TypeLibGuid     =   "{47C0924C-4209-450C-BE48-13EEB027BC40}" 
   TypeInfoGuid    =   "{7C7AD986-00CD-4D4D-9760-096362B8E81A}" 
   TypeInfoCookie  =   0 
   Version         =   4 
   NumConnections  =   1 
   BeginProperty Connection1  
      ConnectionName  =   "ConJxc" 
      ConnDispId      =   1001 
      SourceOfData    =   3 
      ConnectionSource=   "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=E:\newmis\data\db_jxc.mdb" 
      Expanded        =   -1  'True 
      QuoteChar       =   96 
      SeparatorChar   =   46 
   EndProperty 
   NumRecordsets   =   2 
   BeginProperty Recordset1  
      CommandName     =   "ComRptMat" 
      CommDispId      =   1002 
      RsDispId        =   1006 
      CommandText     =   "rpt_mat" 
      ActiveConnectionName=   "ConJxc" 
      CommandType     =   2 
      dbObjectType    =   1 
      Expanded        =   -1  'True 
      IsRSReturning   =   -1  'True 
      NumFields       =   10 
      BeginProperty Field1  
         Precision       =   0 
         Size            =   8 
         Scale           =   0 
         Type            =   200 
         Name            =   "p_id" 
         Caption         =   "p_id" 
      EndProperty 
      BeginProperty Field2  
         Precision       =   19 
         Size            =   8 
         Scale           =   0 
         Type            =   6 
         Name            =   "unit_price" 
         Caption         =   "unit_price" 
      EndProperty 
      BeginProperty Field3  
         Precision       =   7 
         Size            =   4 
         Scale           =   0 
         Type            =   4 
         Name            =   "matbegqty" 
         Caption         =   "matbegqty" 
      EndProperty 
      BeginProperty Field4  
         Precision       =   19 
         Size            =   8 
         Scale           =   0 
         Type            =   6 
         Name            =   "matbegprice" 
         Caption         =   "matbegprice" 
      EndProperty 
      BeginProperty Field5  
         Precision       =   7 
         Size            =   4 
         Scale           =   0 
         Type            =   4 
         Name            =   "orderqty" 
         Caption         =   "orderqty" 
      EndProperty 
      BeginProperty Field6  
         Precision       =   19 
         Size            =   8 
         Scale           =   0 
         Type            =   6 
         Name            =   "orderprice" 
         Caption         =   "orderprice" 
      EndProperty 
      BeginProperty Field7  
         Precision       =   7 
         Size            =   4 
         Scale           =   0 
         Type            =   4 
         Name            =   "saleqty" 
         Caption         =   "saleqty" 
      EndProperty 
      BeginProperty Field8  
         Precision       =   19 
         Size            =   8 
         Scale           =   0 
         Type            =   6 
         Name            =   "saleprice" 
         Caption         =   "saleprice" 
      EndProperty 
      BeginProperty Field9  
         Precision       =   7 
         Size            =   4 
         Scale           =   0 
         Type            =   4 
         Name            =   "matendqty" 
         Caption         =   "matendqty" 
      EndProperty 
      BeginProperty Field10  
         Precision       =   19 
         Size            =   8 
         Scale           =   0 
         Type            =   6 
         Name            =   "matendprice" 
         Caption         =   "matendprice" 
      EndProperty 
      NumGroups       =   0 
      ParamCount      =   0 
      RelationCount   =   0 
      AggregateCount  =   0 
   EndProperty 
   BeginProperty Recordset2  
      CommandName     =   "ComPro" 
      CommDispId      =   -1 
      RsDispId        =   -1 
      CommandText     =   "Product" 
      ActiveConnectionName=   "ConJxc" 
      CommandType     =   2 
      dbObjectType    =   1 
      RelateToParent  =   -1  'True 
      ParentCommandName=   "ComRptMat" 
      IsRSReturning   =   -1  'True 
      NumFields       =   5 
      BeginProperty Field1  
         Precision       =   0 
         Size            =   8 
         Scale           =   0 
         Type            =   200 
         Name            =   "p_id" 
         Caption         =   "p_id" 
      EndProperty 
      BeginProperty Field2  
         Precision       =   0 
         Size            =   30 
         Scale           =   0 
         Type            =   200 
         Name            =   "product_name" 
         Caption         =   "product_name" 
      EndProperty 
      BeginProperty Field3  
         Precision       =   0 
         Size            =   18 
         Scale           =   0 
         Type            =   200 
         Name            =   "product_model" 
         Caption         =   "product_model" 
      EndProperty 
      BeginProperty Field4  
         Precision       =   0 
         Size            =   2 
         Scale           =   0 
         Type            =   200 
         Name            =   "type_id" 
         Caption         =   "type_id" 
      EndProperty 
      BeginProperty Field5  
         Precision       =   0 
         Size            =   4 
         Scale           =   0 
         Type            =   200 
         Name            =   "unit" 
         Caption         =   "unit" 
      EndProperty 
      NumGroups       =   0 
      ParamCount      =   0 
      RelationCount   =   1 
      BeginProperty Relation1  
         ParentField     =   "p_id" 
         ChildField      =   "p_id" 
         ParentType      =   0 
         ChildType       =   0 
      EndProperty 
      AggregateCount  =   0 
   EndProperty 
End 
Attribute VB_Name = "DERpt" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = True 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
 
Private Sub DataEnvironment_Initialize() 
    strConnect = "Provider=Microsoft.Jet.OLEDB.3.51;Persist " & _ 
    "Security Info=False;Data Source=" & App.Path & "\data\db_jxc.mdb" 
    ConJxc.ConnectionString = strConnect 
End Sub