📄 de.dsr
字号:
Caption = "REFERENCE"
EndProperty
BeginProperty Field9
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "COURSE"
Caption = "COURSE"
EndProperty
BeginProperty Field10
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "PHONE"
Caption = "PHONE"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset10
CommandName = "rptallemployee"
CommDispId = 1062
RsDispId = 1065
CommandText = "select * from employee"
ActiveConnectionName= "Con1"
CommandType = 1
IsRSReturning = -1 'True
NumFields = 9
BeginProperty Field1
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "EmployeeID"
Caption = "EmployeeID"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "LastName"
Caption = "LastName"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "FirstName"
Caption = "FirstName"
EndProperty
BeginProperty Field4
Precision = 0
Size = 30
Scale = 0
Type = 202
Name = "Typeid"
Caption = "Typeid"
EndProperty
BeginProperty Field5
Precision = 16
Size = 16
Scale = 0
Type = 135
Name = "Birth_date"
Caption = "Birth_date"
EndProperty
BeginProperty Field6
Precision = 16
Size = 16
Scale = 0
Type = 135
Name = "HireDate"
Caption = "HireDate"
EndProperty
BeginProperty Field7
Precision = 0
Size = 60
Scale = 0
Type = 202
Name = "Address"
Caption = "Address"
EndProperty
BeginProperty Field8
Precision = 0
Size = 15
Scale = 0
Type = 202
Name = "Qualification"
Caption = "Qualification"
EndProperty
BeginProperty Field9
Precision = 0
Size = 24
Scale = 0
Type = 202
Name = "Phone"
Caption = "Phone"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset11
CommandName = "rptallsubjects"
CommDispId = 1066
RsDispId = 1072
CommandText = "select * from subjects"
ActiveConnectionName= "Con1"
CommandType = 1
IsRSReturning = -1 'True
NumFields = 5
BeginProperty Field1
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "SUB_ID"
Caption = "SUB_ID"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "SUB_NAME"
Caption = "SUB_NAME"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Author"
Caption = "Author"
EndProperty
BeginProperty Field4
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "DESCRIPTION"
Caption = "DESCRIPTION"
EndProperty
BeginProperty Field5
Precision = 16
Size = 16
Scale = 0
Type = 135
Name = "StartDate"
Caption = "StartDate"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset12
CommandName = "rptemployee"
CommDispId = 1073
RsDispId = 1076
CommandText = "dbo.rptemployee"
ActiveConnectionName= "Con1"
CallSyntax = "{? = CALL dbo.rptemployee( ?) }"
IsRSReturning = -1 'True
NumFields = 7
BeginProperty Field1
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "employeeid"
Caption = "employeeid"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "firstname"
Caption = "firstname"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "lastname"
Caption = "lastname"
EndProperty
BeginProperty Field4
Precision = 16
Size = 16
Scale = 0
Type = 135
Name = "hiredate"
Caption = "hiredate"
EndProperty
BeginProperty Field5
Precision = 0
Size = 60
Scale = 0
Type = 202
Name = "address"
Caption = "address"
EndProperty
BeginProperty Field6
Precision = 0
Size = 20
Scale = 0
Type = 200
Name = "city"
Caption = "city"
EndProperty
BeginProperty Field7
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "typename"
Caption = "typename"
EndProperty
NumGroups = 0
ParamCount = 2
BeginProperty P1
RealName = "@RETURN_VALUE"
Direction = 4
Precision = 10
Scale = 0
Size = 0
DataType = 3
HostType = 3
Required = 0 'False
EndProperty
BeginProperty P2
RealName = "@C"
Direction = 1
Precision = 10
Scale = 0
Size = 0
DataType = 3
HostType = 3
Required = -1 'True
EndProperty
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset13
CommandName = "Command1"
CommDispId = 1081
RsDispId = 1085
CommandText = "dbo.qry_StudentFees"
ActiveConnectionName= "Con1"
CommandType = 2
dbObjectType = 2
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 12
BeginProperty Field1
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "STUD_ID"
Caption = "STUD_ID"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "NAME"
Caption = "NAME"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "PHONE"
Caption = "PHONE"
EndProperty
BeginProperty Field4
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "COURSE_NAME"
Caption = "COURSE_NAME"
EndProperty
BeginProperty Field5
Precision = 23
Size = 16
Scale = 3
Type = 135
Name = "FeeDate"
Caption = "FeeDate"
EndProperty
BeginProperty Field6
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "FeeAmount"
Caption = "FeeAmount"
EndProperty
BeginProperty Field7
Precision = 0
Size = 10
Scale = 0
Type = 129
Name = "Sections"
Caption = "Sections"
EndProperty
BeginProperty Field8
Precision = 0
Size = 20
Scale = 0
Type = 200
Name = "VoucherNo"
Caption = "VoucherNo"
EndProperty
BeginProperty Field9
Precision = 18
Size = 19
Scale = 0
Type = 131
Name = "MisExpense"
Caption = "MisExpense"
EndProperty
BeginProperty Field10
Precision = 18
Size = 19
Scale = 0
Type = 131
Name = "TotalFees"
Caption = "TotalFees"
EndProperty
BeginProperty Field11
Precision = 18
Size = 19
Scale = 0
Type = 131
Name = "Concession"
Caption = "Concession"
EndProperty
BeginProperty Field12
Precision = 5
Size = 2
Scale = 0
Type = 2
Name = "Status"
Caption = "Status"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
End
Attribute VB_Name = "DE"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub rsrptGusset_WillChangeField(ByVal cFields As Long, ByVal Fields As Variant, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -