vb學(xué)生信息的管理系統(tǒng)畢業(yè)論文(編輯修改稿)
2025-07-25 08:43 本頁面
【文章內(nèi)容簡介】 否否學(xué)科編號subIDtext10否否平時(shí)成績usualtext10否否期末finaltext10否否總評efftext10是否教師工號teacherIDtext20否否院系表（faculty）：列字段名類型長度是否為空主鍵院系編號fIDtext2否是院系名稱fNametext10否否專業(yè)表（special）：列字段名類型長度是否為空主鍵專業(yè)編號speIDtext2否是專業(yè)名稱sNametext50否否所屬院系sfIDtext2否否學(xué)科表（subject）：列字段名類型長度是否為空主鍵編號subIDtext5否是名稱subNametext50否否班級表（class）：列字段名類型長度是否為空主鍵班級編號cIDtext2是否班級名稱cNametext50是否所屬院系fIDtext2是否所屬專業(yè)sIDtext2是否程序代碼設(shè)計(jì)要求：根據(jù)系統(tǒng)的主要功能及上一章的總體設(shè)計(jì)，系統(tǒng)開發(fā)進(jìn)入第二個(gè)階段：詳細(xì)設(shè)計(jì)。在這一階段的工作中，主要任務(wù)有以下幾項(xiàng)：根據(jù)原型化的開發(fā)原則，為系統(tǒng)的每個(gè)模塊功能進(jìn)行界面設(shè)計(jì)，作為進(jìn)一步優(yōu)化的基礎(chǔ)。進(jìn)行系統(tǒng)的流程分析，為模塊的細(xì)化做好準(zhǔn)備。對每個(gè)模塊進(jìn)行詳細(xì)的算法設(shè)計(jì)。詳細(xì)代碼設(shè)計(jì)公共模塊：解決登陸用戶信息以及數(shù)據(jù)庫標(biāo)志等公共信息，所以定義通用變量Public gUserName As String 39。保存用戶名稱Public gTid As String 39。保存教師信息Public gStuID As String 39。保存學(xué)生登錄信息Public flag As Integer 39。添加和修改的標(biāo)志Public gSQL As String 39。保存SQL語句Public kqsql2 As String 39。保存查詢其他考勤結(jié)果SQL語句Public ArecordID As IntegerPublic LrecordID As IntegerPublic orecordID As IntegerPublic ErecordID As IntegerPublic iflag As Integer 39。數(shù)據(jù)庫是否打開標(biāo)志數(shù)據(jù)庫連接選用ADODB連接方式，首先先編寫一公共模塊，用于存放數(shù)據(jù)庫訪問類。Public Function TransactSQL(ByVal sql As String) As Dim con As Dim rs As Dim strConnection As StringDim strArray() As StringSet con = New Set rs = New On Error GoTo TransactSQL_Error strConnection = Provider=。Data Source= amp。 amp。 \DB strArray = Split(sql) strConnection If StrComp(UCase$(strArray(0)), select, vbTextCompare) = 0 Then Trim$(sql), con, adOpenKeyset, adLockOptimistic Set TransactSQL = rs iflag = 1 Else sql iflag = 1 End IfTransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit FunctionTransactSQL_Error: MsgBox 查詢錯(cuò)誤： amp。 iflag = 2 Resume TransactSQL_ExitEnd Function解決關(guān)閉窗口后程序任在后臺運(yùn)行類：Public Sub Shutdown(Optional ByVal Force As Boolean = False)Dim I As LongOn Error Resume Next For I = 1 To 0 Step 1 If Not Force Then If I Then Exit Sub End If End If Next IIf Force Or ( = 0) Then CloseIf Force Or ( 0) Then EndEnd Sub識別tab鍵Public Sub TabToEnter(Key As Integer) If Key = 13 Then SendKeys {TAB} End If End Sub登陸界面設(shè)計(jì)由于有三類用戶同時(shí)登陸其中，學(xué)生輸入學(xué)號登陸，教師登陸由教工號于密碼登陸，管理員由賬號密碼登陸。代碼如下：Private Sub cmdOK_Click() Dim sql As String Dim rs As If Trim( = ) Then MsgBox 沒有輸入用戶名，請重新輸入！, vbOKOnly + vbExclamation, 警告 Else sql = select * from Administrator where adName=39。 amp。 amp。 39。 Set rs = TransactSQL(sql) If iflag = 1 Then If = True Then MsgBox 沒有這個(gè)用戶，請重新輸入！, vbOKOnly + vbExclamation, 警告 Else If Trim((2)) = Trim() Then gUserName = Trim() 39。記錄用戶 Unload Me Else MsgBox 密碼不正確，請重新輸入！, vbOKOnly + vbExclamation, 警告 = End If End If Else Unload Me End If End IfEnd Sub主窗體設(shè)計(jì)系統(tǒng)選項(xiàng)中提供管理員注冊，修改，刪除功能其中，注冊界面代碼如下：代碼：Private Sub cmdOK_Click() Dim sql As String Dim rs As If Trim() = Then MsgBox 請輸入用戶名稱, vbOK
物理相關(guān)推薦
鄂ICP備17016276號-1