www.pudn.com > stu_rag.rar > DataEnv.Dsr, change:2003-04-04,size:18901b


VERSION 5.00 
Begin {C0E45035-5775-11D0-B388-00A0C9055D8E} DataEnv  
   ClientHeight    =   4455 
   ClientLeft      =   0 
   ClientTop       =   0 
   ClientWidth     =   5280 
   _ExtentX        =   9313 
   _ExtentY        =   7858 
   FolderFlags     =   5 
   TypeLibGuid     =   "{FE998388-A10B-46C0-9B7B-E09523356C4E}" 
   TypeInfoGuid    =   "{2DB5F4A0-A7EF-410F-AEB3-5CEBCA15A24C}" 
   TypeInfoCookie  =   0 
   Version         =   4 
   NumConnections  =   1 
   BeginProperty Connection1  
      ConnectionName  =   "DataConn" 
      ConnDispId      =   1001 
      SourceOfData    =   3 
      ConnectionSource=   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Test.mdb;Persist Security Info=False" 
      Expanded        =   -1  'True 
      QuoteChar       =   96 
      SeparatorChar   =   46 
   EndProperty 
   NumRecordsets   =   10 
   BeginProperty Recordset1  
      CommandName     =   "StuTable" 
      CommDispId      =   1002 
      RsDispId        =   1007 
      CommandText     =   "Student" 
      ActiveConnectionName=   "DataConn" 
      CommandType     =   2 
      dbObjectType    =   1 
      Locktype        =   3 
      Expanded        =   -1  'True 
      IsRSReturning   =   -1  'True 
      NumFields       =   3 
      BeginProperty Field1  
         Precision       =   10 
         Size            =   4 
         Scale           =   0 
         Type            =   3 
         Name            =   "StudentID" 
         Caption         =   "StudentID" 
      EndProperty 
      BeginProperty Field2  
         Precision       =   0 
         Size            =   50 
         Scale           =   0 
         Type            =   202 
         Name            =   "StudentName" 
         Caption         =   "StudentName" 
      EndProperty 
      BeginProperty Field3  
         Precision       =   0 
         Size            =   20 
         Scale           =   0 
         Type            =   202 
         Name            =   "StudentPassword" 
         Caption         =   "StudentPassword" 
      EndProperty 
      NumGroups       =   0 
      ParamCount      =   0 
      RelationCount   =   0 
      AggregateCount  =   0 
   EndProperty 
   BeginProperty Recordset2  
      CommandName     =   "AdmTable" 
      CommDispId      =   1008 
      RsDispId        =   1013 
      CommandText     =   "Admin" 
      ActiveConnectionName=   "DataConn" 
      CommandType     =   2 
      dbObjectType    =   1 
      Locktype        =   3 
      IsRSReturning   =   -1  'True 
      NumFields       =   3 
      BeginProperty Field1  
         Precision       =   10 
         Size            =   4 
         Scale           =   0 
         Type            =   3 
         Name            =   "AdministratorID" 
         Caption         =   "AdministratorID" 
      EndProperty 
      BeginProperty Field2  
         Precision       =   0 
         Size            =   50 
         Scale           =   0 
         Type            =   202 
         Name            =   "AdministratorName" 
         Caption         =   "AdministratorName" 
      EndProperty 
      BeginProperty Field3  
         Precision       =   0 
         Size            =   50 
         Scale           =   0 
         Type            =   202 
         Name            =   "AdministratorPassword" 
         Caption         =   "AdministratorPassword" 
      EndProperty 
      NumGroups       =   0 
      ParamCount      =   0 
      RelationCount   =   0 
      AggregateCount  =   0 
   EndProperty 
   BeginProperty Recordset3  
      CommandName     =   "EssayQ" 
      CommDispId      =   1014 
      RsDispId        =   1023 
      CommandText     =   "EssayQuestion" 
      ActiveConnectionName=   "DataConn" 
      CommandType     =   2 
      dbObjectType    =   1 
      Locktype        =   3 
      IsRSReturning   =   -1  'True 
      NumFields       =   5 
      BeginProperty Field1  
         Precision       =   10 
         Size            =   4 
         Scale           =   0 
         Type            =   3 
         Name            =   "QuestionID" 
         Caption         =   "QuestionID" 
      EndProperty 
      BeginProperty Field2  
         Precision       =   0 
         Size            =   250 
         Scale           =   0 
         Type            =   202 
         Name            =   "Question" 
         Caption         =   "Question" 
      EndProperty 
      BeginProperty Field3  
         Precision       =   0 
         Size            =   536870910 
         Scale           =   0 
         Type            =   203 
         Name            =   "Answer" 
         Caption         =   "Answer" 
      EndProperty 
      BeginProperty Field4  
         Precision       =   7 
         Size            =   4 
         Scale           =   0 
         Type            =   4 
         Name            =   "Score" 
         Caption         =   "Score" 
      EndProperty 
      BeginProperty Field5  
         Precision       =   10 
         Size            =   4 
         Scale           =   0 
         Type            =   3 
         Name            =   "TeacherID" 
         Caption         =   "TeacherID" 
      EndProperty 
      NumGroups       =   0 
      ParamCount      =   0 
      RelationCount   =   0 
      AggregateCount  =   0 
   EndProperty 
   BeginProperty Recordset4  
      CommandName     =   "FillingQ" 
      CommDispId      =   1015 
      RsDispId        =   1028 
      CommandText     =   "Filling" 
      ActiveConnectionName=   "DataConn" 
      CommandType     =   2 
      dbObjectType    =   1 
      Locktype        =   3 
      Expanded        =   -1  'True 
      IsRSReturning   =   -1  'True 
      NumFields       =   5 
      BeginProperty Field1  
         Precision       =   10 
         Size            =   4 
         Scale           =   0 
         Type            =   3 
         Name            =   "QuestionID" 
         Caption         =   "QuestionID" 
      EndProperty 
      BeginProperty Field2  
         Precision       =   0 
         Size            =   250 
         Scale           =   0 
         Type            =   202 
         Name            =   "Qestion" 
         Caption         =   "Qestion" 
      EndProperty 
      BeginProperty Field3  
         Precision       =   0 
         Size            =   50 
         Scale           =   0 
         Type            =   202 
         Name            =   "Answer" 
         Caption         =   "Answer" 
      EndProperty 
      BeginProperty Field4  
         Precision       =   7 
         Size            =   4 
         Scale           =   0 
         Type            =   4 
         Name            =   "Score" 
         Caption         =   "Score" 
      EndProperty 
      BeginProperty Field5  
         Precision       =   10 
         Size            =   4 
         Scale           =   0 
         Type            =   3 
         Name            =   "TeacherID" 
         Caption         =   "TeacherID" 
      EndProperty 
      NumGroups       =   0 
      ParamCount      =   0 
      RelationCount   =   0 
      AggregateCount  =   0 
   EndProperty 
   BeginProperty Recordset5  
      CommandName     =   "MultiSelQ" 
      CommDispId      =   1016 
      RsDispId        =   1033 
      CommandText     =   "MultiSel" 
      ActiveConnectionName=   "DataConn" 
      CommandType     =   2 
      dbObjectType    =   1 
      Locktype        =   3 
      IsRSReturning   =   -1  'True 
      NumFields       =   9 
      BeginProperty Field1  
         Precision       =   10 
         Size            =   4 
         Scale           =   0 
         Type            =   3 
         Name            =   "QuestionID" 
         Caption         =   "QuestionID" 
      EndProperty 
      BeginProperty Field2  
         Precision       =   0 
         Size            =   250 
         Scale           =   0 
         Type            =   202 
         Name            =   "Question" 
         Caption         =   "Question" 
      EndProperty 
      BeginProperty Field3  
         Precision       =   0 
         Size            =   50 
         Scale           =   0 
         Type            =   202 
         Name            =   "Choice1" 
         Caption         =   "Choice1" 
      EndProperty 
      BeginProperty Field4  
         Precision       =   0 
         Size            =   50 
         Scale           =   0 
         Type            =   202 
         Name            =   "Choice2" 
         Caption         =   "Choice2" 
      EndProperty 
      BeginProperty Field5  
         Precision       =   0 
         Size            =   50 
         Scale           =   0 
         Type            =   202 
         Name            =   "Choice3" 
         Caption         =   "Choice3" 
      EndProperty 
      BeginProperty Field6  
         Precision       =   0 
         Size            =   50 
         Scale           =   0 
         Type            =   202 
         Name            =   "Choice4" 
         Caption         =   "Choice4" 
      EndProperty 
      BeginProperty Field7  
         Precision       =   0 
         Size            =   10 
         Scale           =   0 
         Type            =   202 
         Name            =   "Answer" 
         Caption         =   "Answer" 
      EndProperty 
      BeginProperty Field8  
         Precision       =   7 
         Size            =   4 
         Scale           =   0 
         Type            =   4 
         Name            =   "Score" 
         Caption         =   "Score" 
      EndProperty 
      BeginProperty Field9  
         Precision       =   10 
         Size            =   4 
         Scale           =   0 
         Type            =   3 
         Name            =   "TeacherID" 
         Caption         =   "TeacherID" 
      EndProperty 
      NumGroups       =   0 
      ParamCount      =   0 
      RelationCount   =   0 
      AggregateCount  =   0 
   EndProperty 
   BeginProperty Recordset6  
      CommandName     =   "QstPaper" 
      CommDispId      =   1017 
      RsDispId        =   1038 
      CommandText     =   "QuestionPaper" 
      ActiveConnectionName=   "DataConn" 
      CommandType     =   2 
      dbObjectType    =   1 
      Locktype        =   3 
      IsRSReturning   =   -1  'True 
      NumFields       =   6 
      BeginProperty Field1  
         Precision       =   10 
         Size            =   4 
         Scale           =   0 
         Type            =   3 
         Name            =   "PaperSerial" 
         Caption         =   "PaperSerial" 
      EndProperty 
      BeginProperty Field2  
         Precision       =   10 
         Size            =   4 
         Scale           =   0 
         Type            =   3 
         Name            =   "QuestionID" 
         Caption         =   "QuestionID" 
      EndProperty 
      BeginProperty Field3  
         Precision       =   10 
         Size            =   4 
         Scale           =   0 
         Type            =   3 
         Name            =   "QuestionType" 
         Caption         =   "QuestionType" 
      EndProperty 
      BeginProperty Field4  
         Precision       =   0 
         Size            =   536870910 
         Scale           =   0 
         Type            =   203 
         Name            =   "UserAnswer" 
         Caption         =   "UserAnswer" 
      EndProperty 
      BeginProperty Field5  
         Precision       =   7 
         Size            =   4 
         Scale           =   0 
         Type            =   4 
         Name            =   "Score" 
         Caption         =   "Score" 
      EndProperty 
      BeginProperty Field6  
         Precision       =   7 
         Size            =   4 
         Scale           =   0 
         Type            =   4 
         Name            =   "Commence" 
         Caption         =   "Commence" 
      EndProperty 
      NumGroups       =   0 
      ParamCount      =   0 
      RelationCount   =   0 
      AggregateCount  =   0 
   EndProperty 
   BeginProperty Recordset7  
      CommandName     =   "RorWQ" 
      CommDispId      =   1018 
      RsDispId        =   1043 
      CommandText     =   "RightOrWrong" 
      ActiveConnectionName=   "DataConn" 
      CommandType     =   2 
      dbObjectType    =   1 
      Locktype        =   3 
      IsRSReturning   =   -1  'True 
      NumFields       =   5 
      BeginProperty Field1  
         Precision       =   10 
         Size            =   4 
         Scale           =   0 
         Type            =   3 
         Name            =   "QustionID" 
         Caption         =   "QustionID" 
      EndProperty 
      BeginProperty Field2  
         Precision       =   0 
         Size            =   250 
         Scale           =   0 
         Type            =   202 
         Name            =   "Qustion" 
         Caption         =   "Qustion" 
      EndProperty 
      BeginProperty Field3  
         Precision       =   0 
         Size            =   2 
         Scale           =   0 
         Type            =   11 
         Name            =   "Answer" 
         Caption         =   "Answer" 
      EndProperty 
      BeginProperty Field4  
         Precision       =   7 
         Size            =   4 
         Scale           =   0 
         Type            =   4 
         Name            =   "Score" 
         Caption         =   "Score" 
      EndProperty 
      BeginProperty Field5  
         Precision       =   10 
         Size            =   4 
         Scale           =   0 
         Type            =   3 
         Name            =   "TeacherID" 
         Caption         =   "TeacherID" 
      EndProperty 
      NumGroups       =   0 
      ParamCount      =   0 
      RelationCount   =   0 
      AggregateCount  =   0 
   EndProperty 
   BeginProperty Recordset8  
      CommandName     =   "SingleSelQ" 
      CommDispId      =   1044 
      RsDispId        =   1049 
      CommandText     =   "SingleSel" 
      ActiveConnectionName=   "DataConn" 
      CommandType     =   2 
      dbObjectType    =   1 
      Locktype        =   3 
      IsRSReturning   =   -1  'True 
      NumFields       =   9 
      BeginProperty Field1  
         Precision       =   10 
         Size            =   4 
         Scale           =   0 
         Type            =   3 
         Name            =   "QuestionID" 
         Caption         =   "QuestionID" 
      EndProperty 
      BeginProperty Field2  
         Precision       =   0 
         Size            =   250 
         Scale           =   0 
         Type            =   202 
         Name            =   "Question" 
         Caption         =   "Question" 
      EndProperty 
      BeginProperty Field3  
         Precision       =   0 
         Size            =   20 
         Scale           =   0 
         Type            =   202 
         Name            =   "Choice1" 
         Caption         =   "Choice1" 
      EndProperty 
      BeginProperty Field4  
         Precision       =   0 
         Size            =   20 
         Scale           =   0 
         Type            =   202 
         Name            =   "Choice2" 
         Caption         =   "Choice2" 
      EndProperty 
      BeginProperty Field5  
         Precision       =   0 
         Size            =   20 
         Scale           =   0 
         Type            =   202 
         Name            =   "Choice3" 
         Caption         =   "Choice3" 
      EndProperty 
      BeginProperty Field6  
         Precision       =   0 
         Size            =   20 
         Scale           =   0 
         Type            =   202 
         Name            =   "Choice4" 
         Caption         =   "Choice4" 
      EndProperty 
      BeginProperty Field7  
         Precision       =   3 
         Size            =   1 
         Scale           =   0 
         Type            =   17 
         Name            =   "Anwser" 
         Caption         =   "Anwser" 
      EndProperty 
      BeginProperty Field8  
         Precision       =   7 
         Size            =   4 
         Scale           =   0 
         Type            =   4 
         Name            =   "Score" 
         Caption         =   "Score" 
      EndProperty 
      BeginProperty Field9  
         Precision       =   10 
         Size            =   4 
         Scale           =   0 
         Type            =   3 
         Name            =   "TeacherID" 
         Caption         =   "TeacherID" 
      EndProperty 
      NumGroups       =   0 
      ParamCount      =   0 
      RelationCount   =   0 
      AggregateCount  =   0 
   EndProperty 
   BeginProperty Recordset9  
      CommandName     =   "TchTable" 
      CommDispId      =   1050 
      RsDispId        =   1055 
      CommandText     =   "Teachers" 
      ActiveConnectionName=   "DataConn" 
      CommandType     =   2 
      dbObjectType    =   1 
      Locktype        =   3 
      IsRSReturning   =   -1  'True 
      NumFields       =   3 
      BeginProperty Field1  
         Precision       =   10 
         Size            =   4 
         Scale           =   0 
         Type            =   3 
         Name            =   "TeacherID" 
         Caption         =   "TeacherID" 
      EndProperty 
      BeginProperty Field2  
         Precision       =   0 
         Size            =   50 
         Scale           =   0 
         Type            =   202 
         Name            =   "TeacherName" 
         Caption         =   "TeacherName" 
      EndProperty 
      BeginProperty Field3  
         Precision       =   0 
         Size            =   50 
         Scale           =   0 
         Type            =   202 
         Name            =   "TeacherPassword" 
         Caption         =   "TeacherPassword" 
      EndProperty 
      NumGroups       =   0 
      ParamCount      =   0 
      RelationCount   =   0 
      AggregateCount  =   0 
   EndProperty 
   BeginProperty Recordset10  
      CommandName     =   "DelQuestion" 
      CommDispId      =   1057 
      RsDispId        =   -1 
      CommandText     =   "Delete * From QuestionPaper" 
      ActiveConnectionName=   "DataConn" 
      CommandType     =   1 
      NumFields       =   0 
      NumGroups       =   0 
      ParamCount      =   0 
      RelationCount   =   0 
      AggregateCount  =   0 
   EndProperty 
End 
Attribute VB_Name = "DataEnv" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = True 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub DataEnvironment_Initialize() 
    Dim strConn As String 
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=" 
    Rem App对象表示应用程序,App.Path则表示应用程序运行路径名 
    strConn = strConn & App.Path & "\Test.mdb" & ";Persist Security Info=True" 
    DataConn.ConnectionString = strConn 
End Sub