毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

学生信息管理系统毕业论文和原代码 第25页

更新时间:2007-9-25:  来源:毕业论文

Public UserName As String

 

 

Sub Main()

Dim fLogin As New frmLogin

fLogin.Show vbModal

If Not fLogin.OK Then

'Login Failed so exit app

End

End If

Unload fLogin

 

 

Set fMainForm = New frmMain

fMainForm.Show

End Sub

 

.........................................................................................................

Public Function ConnectString() _

As String

'returns a DB ConnectString

ConnectString = "FileDSN=studentinfo.dsn;UID=sa;PWD="

End Function

 

.......................................... SQL语句执行程序 ..............................................

Public Function ExecuteSQL(ByVal SQL _

As String, MsgString As String) _

As ADODB.Recordset

'executes SQL and returns Recordset

Dim cnn As ADODB.Connection

Dim rst As ADODB.Recordset

Dim sTokens() As String

 

On Error GoTo ExecuteSQL_Error

 

sTokens = Split(SQL)

Set cnn = New ADODB.Connection

cnn.Open ConnectString

If InStr("INSERT,DELETE,UPDATE", _

UCase$(sTokens(0))) Then

cnn.Execute SQL

MsgString = sTokens(0) & _

 << 上一页  [21] [22] [23] [24] [25] [26] [27] [28] [29] [30]  ... 下一页  >> 

学生信息管理系统毕业论文和原代码 第25页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。