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

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

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

Dim miCount As Integer

Private Sub Form_Load()

Dim sBuffer As String

Dim lSize As Long

 

 

sBuffer = Space$(255)

lSize = Len(sBuffer)

Call GetUserName(sBuffer, lSize)

If lSize > 0 Then

txtUserName.Text = ""

 

Else

txtUserName.Text = vbNullString

End If

 

 

OK = False

miCount = 0

End Sub

 

 

Private Sub cmdCancel_Click()

OK = False

Me.Hide

End Sub

 

 

Private Sub cmdOK_Click()

Dim txtSQL As String

Dim mrc As ADODB.Recordset

Dim MsgText As String

'ToDo: create test for correct password

'check for correct password

 

UserName = ""

If Trim(txtUserName.Text = "") Then

MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"

txtUserName.SetFocus

Else

txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"

Set mrc = ExecuteSQL(txtSQL, MsgText)

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

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

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