學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)論文-在線瀏覽
2024-09-06 08:31本頁面
【正文】 字段名數(shù)據(jù)類型說明角色Char(3)用戶名Char（6）主鍵 密碼Char（6）Not null（5）user2(學(xué)生登錄)見表5 表55字段名數(shù)據(jù)類型說明角色Char(3)用戶名Char（6）主鍵密碼Char（6）圖61“系統(tǒng)初始界面代碼”Dim starttime As StringDim endtime As StringDim i As IntegerPrivate Sub Form_Load()starttime = Format(Now, hh:mm:ss)End SubPrivate Sub Timer1_Timer()Dim ret As Integerendtime = Format(Now, hh:mm:ss)If DateDiff(s, starttime, endtime) = 10 Then Dim As Set = New Dim sqlres As Provider=。Persist Security Info=False。Initial Catalog=master Set sqlres = New SELECT * FROM master..sysdatabases WHERE name = 39。, , adOpenDynamic, adLockPessimistic If = False Then 39。 Mid(str, i, 1)End IfEnd Sub圖62“附加Server數(shù)據(jù)庫”按鈕的click事件添加如下的代碼Private Sub Command2_Click()If = Then MsgBox 請選擇數(shù)據(jù)庫文件！, , XSCJ Exit SubEnd IfOn Error GoTo dataerr Provider=。Persist Security Info=False。Initial Catalog=master (sp_attach_db dbname=39。 strdata amp。,filename1=39。 m amp。)MsgBox 附加成功！, , XSCJUnload MeExit Subdataerr:MsgBox , , XSCJEnd Sub圖63“登錄”按鈕的click事件添加如下的代碼:Private Sub Command1_Click()If = Or = Then MsgBox 請輸入完整的登錄信息! Exit SubEnd IfIf = Then MsgBox 請輸入驗(yàn)證碼 Exit SubEnd IfDim i As Integeri = Len()If i 6 Then MsgBox 用戶名應(yīng)為六位數(shù)字, , 提示 = Exit SubEnd Ifi = Len()If i 6 Then MsgBox 密碼應(yīng)為六位, , 提示 = Exit SubEnd IfIf UCase(Trim()) Trim() Then MsgBox 驗(yàn)證碼輸入錯誤 = Exit SubEnd IfDim sqlcon As New Dim sqlres As New Set sqlcon = New connectstringIf Then Set sqlres = New select * from dlgl where 用戶名=39。 and 密碼=39。, connectstring, adOpenDynamic, adLockPessimistic If Not Then juese = yonghuming = Trim() mima = Trim() MsgBox 登錄成功 Unload Me Exit Sub Else MsgBox 用戶名或密碼錯誤！ = = = Randomize i = Int(Rnd * 25 + 65) j = Int(Rnd * 25 + 65) k = Int(Rnd * 25 + 65) l = Int(Rnd * 25 + 65) = Chr(i) amp。 Chr(k) amp。 + Trim() + 39。 + Trim() + 39。 Chr(j) amp。 Chr(l) End IfEnd IfEnd Sub圖64“更新”按鈕的click事件添加如下的代碼:Private Sub Command1_Click()39。 = select * from xs where 學(xué)號=39。 Trim() amp。 39。Dim s As StringDim bytedata() As ByteDim adofld As s = select * from xs where 學(xué)號=39。 Trim() amp。 s, connectstring, adOpenDynamic, adLockPessimisticIf Not Then (1) = Trim() (2) = If = True Then (3) = 1 Else (3) = 0 End If If Trim() Then (5) = CInt() End If (7) = Trim() (4) = Set adofld = (照片) If Then Call picsavetodb(adofld, filename) End If MsgBox 修改學(xué)生信息成功!, vbOKOnly + vbExclamation, 修改學(xué)生信息Else (0) = Trim() (1) = Trim() (2) = If = True The
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號-1