dataenvironment1.dsr

简单的VB信息管理系统 SQL数据库 简单的查询,删除,添加功能 并能生成报表

VERSION 5.00
Begin {C0E45035-5775-11D0-B388-00A0C9055D8E} DataEnvironment1 
   ClientHeight    =   7440
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   8745
   _ExtentX        =   15425
   _ExtentY        =   13123
   FolderFlags     =   1
   TypeLibGuid     =   "{1589E38E-66F9-4C5C-8064-2FBA6813CD67}"
   TypeInfoGuid    =   "{97ACE07E-CEC4-4A83-BA22-206BC238DFAA}"
   TypeInfoCookie  =   0
   Version         =   4
   NumConnections  =   1
   BeginProperty Connection1 
      ConnectionName  =   "Connection1"
      ConnDispId      =   1001
      SourceOfData    =   3
      ConnectionSource=   "Provider=SQLOLEDB.1;Password=33;Persist Security Info=True;User ID=sa;Initial Catalog=PInformation;Data Source=HQU-E211886BEAB"
      Expanded        =   -1  'True
      IsSQL           =   -1  'True
      QuoteChar       =   34
      SeparatorChar   =   46
   EndProperty
   NumRecordsets   =   2
   BeginProperty Recordset1 
      CommandName     =   "Command1"
      CommDispId      =   1002
      RsDispId        =   1004
      CommandText     =   "dbo.contactreport"
      ActiveConnectionName=   "Connection1"
      CallSyntax      =   "{? = CALL dbo.contactreport( ?) }"
      Grouping        =   -1  'True
      GroupingName    =   "A"
      Expanded        =   -1  'True
      SummaryExpanded =   -1  'True
      DetailExpanded  =   -1  'True
      IsRSReturning   =   -1  'True
      NumFields       =   7
      BeginProperty Field1 
         Precision       =   0
         Size            =   50
         Scale           =   0
         Type            =   200
         Name            =   "name"
         Caption         =   "name"
      EndProperty
      BeginProperty Field2 
         Precision       =   0
         Size            =   100
         Scale           =   0
         Type            =   200
         Name            =   "Address"
         Caption         =   "Address"
      EndProperty
      BeginProperty Field3 
         Precision       =   0
         Size            =   20
         Scale           =   0
         Type            =   200
         Name            =   "ZipCode"
         Caption         =   "ZipCode"
      EndProperty
      BeginProperty Field4 
         Precision       =   0
         Size            =   50
         Scale           =   0
         Type            =   200
         Name            =   "EmailAddress"
         Caption         =   "EmailAddress"
      EndProperty
      BeginProperty Field5 
         Precision       =   0
         Size            =   500
         Scale           =   0
         Type            =   200
         Name            =   "ContactNote"
         Caption         =   "ContactNote"
      EndProperty
      BeginProperty Field6 
         Precision       =   0
         Size            =   50
         Scale           =   0
         Type            =   200
         Name            =   "PhoneType"
         Caption         =   "PhoneType"
      EndProperty
      BeginProperty Field7 
         Precision       =   0
         Size            =   50
         Scale           =   0
         Type            =   200
         Name            =   "PhoneNumber"
         Caption         =   "PhoneNumber"
      EndProperty
      NumGroups       =   5
      BeginProperty Grouping1 
         Precision       =   0
         Size            =   50
         Scale           =   0
         Type            =   200
         Name            =   "name"
         Caption         =   "name"
      EndProperty
      BeginProperty Grouping2 
         Precision       =   0
         Size            =   100
         Scale           =   0
         Type            =   200
         Name            =   "Address"
         Caption         =   "Address"
      EndProperty
      BeginProperty Grouping3 
         Precision       =   0
         Size            =   20
         Scale           =   0
         Type            =   200
         Name            =   "ZipCode"
         Caption         =   "ZipCode"
      EndProperty
      BeginProperty Grouping4 
         Precision       =   0
         Size            =   50
         Scale           =   0
         Type            =   200
         Name            =   "EmailAddress"
         Caption         =   "EmailAddress"
      EndProperty
      BeginProperty Grouping5 
         Precision       =   0
         Size            =   500
         Scale           =   0
         Type            =   200
         Name            =   "ContactNote"
         Caption         =   "ContactNote"
      EndProperty
      ParamCount      =   2
      BeginProperty P1 
         RealName        =   "@RETURN_VALUE"
         UserName        =   "RETURN_VALUE"
         Direction       =   4
         Precision       =   10
         Scale           =   0
         Size            =   0
         DataType        =   3
         HostType        =   3
         Required        =   0   'False
      EndProperty
      BeginProperty P2 
         RealName        =   "@contactID"
         Direction       =   1
         Precision       =   10
         Scale           =   0
         Size            =   0
         DataType        =   3
         HostType        =   3
         Required        =   -1  'True
      EndProperty
      RelationCount   =   0
      AggregateCount  =   0
   EndProperty
   BeginProperty Recordset2 
      CommandName     =   "Command2"
      CommDispId      =   1005
      RsDispId        =   1008
      CommandText     =   "dbo.VIEW2"
      ActiveConnectionName=   "Connection1"
      CommandType     =   2
      dbObjectType    =   2
      Expanded        =   -1  'True
      IsRSReturning   =   -1  'True
      NumFields       =   2
      BeginProperty Field1 
         Precision       =   23
         Size            =   16
         Scale           =   3
         Type            =   135
         Name            =   "alarmtime"
         Caption         =   "alarmtime"
      EndProperty
      BeginProperty Field2 
         Precision       =   0
         Size            =   1000
         Scale           =   0
         Type            =   200
         Name            =   "remindernote"
         Caption         =   "remindernote"
      EndProperty
      NumGroups       =   0
      ParamCount      =   0
      RelationCount   =   0
      AggregateCount  =   0
   EndProperty
End
Attribute VB_Name = "DataEnvironment1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "RVB_ModelStereotype" ,"DataEnvironment"