module1.bas

用VB连接ORalce数据库的学生管理系统

Attribute VB_Name = "Module1"
Public ident As String
Public mqx As String
Public sql As String
Public str As String
Public msql As String
Public classfind As Boolean
Public classmodi As Boolean
Public find As Boolean
Public modi As Boolean
Public jibenfind As Boolean
Public jibenmodi As Boolean
Public tongjifind As Boolean
Public tongjimodi As Boolean
Public cjfind As Boolean
Public cjmodi As Boolean



Public Property Get ql() As String
ql = msql
End Property

Public Property Let ql(ByVal qx As String)
msql = ql()
End Property


Public Property Get qx() As String
qx = mqx
End Property

Public Property Let qx(ByVal qx As String)
mqx = qx()
End Property