【正文】 功能，總結出數(shù)據(jù)字典，如下：系統(tǒng)管理（密碼，管理員，用戶名）班級設置信息（年級，班級，教學樓，年制，專業(yè)，輔導員，備注）學生檔案信息（學號，姓名，性別，班級，出生年月，家庭住址，郵政編碼，聯(lián)系電話，入學時間，備注）學費設置信息（年級，專業(yè)，年制，學期，學費）學生交費信息（學號，學期，交費，欠費，日期，操作員）班級課程設置信息（年級，專業(yè)，年制，學期，課程名稱）全面課程設置信息（課程名稱，教材）學生成績信息（學號，學期，類型，課程名稱，分數(shù)）考試類型信息（類型）為了記憶方便，數(shù)據(jù)庫的名字都用簡單的英文和拼音命名。通過數(shù)據(jù)字典進行分析，可以得到形成如下數(shù)據(jù)庫的表：系統(tǒng)管理表：用來存儲管理員添加的用戶數(shù)據(jù)。表 班級設置信息字段名稱 數(shù)據(jù)類型 可否為空 是否為主鍵年級 文本 否 否班級 文本 否 是教室 文本 否 否年制 文本 否 否專業(yè) 文本 否 否班主任 文本 否 否備注 備注 否 否學生檔案信息表：用來存儲在校學生的學籍檔案。表 學費設置信息字段名稱 數(shù)據(jù)類型 可否為空 是否為主鍵年級 文本 否 是專業(yè) 文本 否 是年制 文本 否 否學期 文本 否 否學費 貨幣 否 否學生交費信息表：用來存儲在校學生的詳細交費數(shù)據(jù)。表 班級課程設置表字段名稱 數(shù)據(jù)類型 可否為空 是否為主鍵年級 文本 否 是專業(yè) 文本 否 是年制 文本 否 否學期 文本 否 否課程名稱 文本 否 否全面課程設置信息表：存儲學校所設置的每門課程的名稱、教材信息。表 學生成績信息字段名稱 數(shù)據(jù)類型 可否為空 是否為主鍵學號 文本 否 是學期 文本 否 否類型 文本 否 否課程名稱 文本 否 否分數(shù) 數(shù)字 否 否考試類型信息表：存儲學校所設置的考試類型。表 考試類型信息字段名稱 數(shù)據(jù)類型 可否為空 是否為主鍵類型 文本 否 是4 系統(tǒng)詳細設計 系統(tǒng)業(yè)務流程圖詳細調查的重點是對管理業(yè)務的流程進行描述，通過采用系統(tǒng)流程圖中部分圖形工具來描述管理活動，進行規(guī)范化說明 [8]。 圖 學生檔案管理系統(tǒng)業(yè)務流程圖每 學 年 9 月份 各 班 學生 名 單各 班 學生 名 單空 白 ，供 填 寫學 生 成 績學 生 檔 案 報 表教 導 處 存 檔校 領 導各 班 主 任各 班 主 任各 班 學 生 名單機 房教 導 處轉 退 復 留學 生 名 單錄 入 有 關信 息打 印 各 班 名單學 生 檔 案 處理學 生 檔 案 報 表學 生 檔 案 報 表班 主 任 系統(tǒng)邏輯模型的提出系統(tǒng)分析的主要成果是系統(tǒng)的邏輯模型。即在對學生成績管理方式和業(yè)務流程進行認真分析和研究的基礎上，排除現(xiàn)有組織機構和業(yè)務分工所造成的信息障礙。本系統(tǒng)流程圖如下：圖 學生信息管理系統(tǒng)流程圖 系統(tǒng)模塊功能劃分本系統(tǒng)主要功能模塊如下圖所示：判斷密碼輸入用戶及密碼正確 普通用戶超級用戶學生檔案管理班級管理學生交費管理課程管理成績管理添加用戶不正確提示用戶名錯誤用戶只讀用戶圖 功能設計圖下面將分節(jié)介紹各模塊的主要內容：? 登錄界面：圖 登錄界面用戶包括：管理員和用戶。關鍵代碼：Private Sub Command1_Click()Dim mrc As 學生信息管理系統(tǒng)系統(tǒng)管理班級管理學生檔案管理學生交費管理課程管理成績管理txtsql = select username from use where username=39。 Trim() amp。Set mrc = ExecuteSQL(txtsql)If = True Then MsgBox 用戶名錯誤！, vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Subusername = (0)txtsql = select username from use where password=39。 Trim() amp。Set mrc = ExecuteSQL(txtsql)If = True Then MsgBox 密碼錯誤！, vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit SubEnd If = 系統(tǒng)管理系統(tǒng)管理主要是管理使用本軟件的人員賬號的。? 新增用戶圖 新增用戶功能實現(xiàn)：“新增用戶”可增加超級用戶、只讀用戶和普通用戶。關鍵代碼：Dim mrc As txtsql = select * from use where username=39。 Trim(Text1(0).Text) amp。Set mrc = ExecuteSQL(txtsql)If = False Then MsgBox 已存在該用戶！, vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text)Exit SubEnd If MsgBox 用戶添加成功！, vbExclamation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End Sub? 修改密碼圖 修改密碼功能實現(xiàn)：使用密碼模塊首先應輸入舊密碼，再輸入新的密碼，確認一遍，即可修改原來的密碼。關鍵代碼：Private Function check()If = ThenMsgBox 請輸入原密碼 check = FalseExit FunctionEnd IfIf = ThenMsgBox 請輸入新密碼 check = FalseExit FunctionEnd IfIf = ThenMsgBox 請確認新密碼 check = FalseExit FunctionEnd If? 重新登陸功能實現(xiàn)：點擊重新登錄模塊，即把所有變量清除，退出系統(tǒng)。分為：瀏覽班級了模塊、添加班級子模塊、班級查詢子模塊。隨之點擊想要查找的班級，雙擊該班級名稱，可以實現(xiàn)修改、刪除及打印功能：(1)修改班級功能：點擊“修改” ，出現(xiàn)“班級設置”對話框，修改想要修改的數(shù)據(jù)項，確定即可。刪除之前會出現(xiàn)一個警告對話框，提示：“確定要刪除該記錄嗎？繼續(xù)會導致該班級在成績和學費記錄的數(shù)據(jù)丟失，繼續(xù)嗎？”(3)班級功能：可打印當前班級的全部記錄。 Trim((, 2)) amp。 Chr(13) amp。 繼續(xù)會導致該班級在成績和學費記錄的數(shù)據(jù)丟失，繼續(xù)嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then txtsql = delete * from xj where 班級=39。 Trim((, 2)) amp。 Set mrc = ExecuteSQL(txtsql) txtsql = select * from jf where 學號 in (select from xj where 班級=39。 Trim((, 2)) amp。) Set mrc = ExecuteSQL(txtsql) 39。 amp。 39。刪除在成績表中的所有該班級的記錄 txtsql = delete * from class where 班級=39。 Trim((, 2)) amp。 Set mrc = ExecuteSQL(txtsql) 39。txtsql = select* from class classshowtitle classshowdata End Select? 添加班級設置圖 添加班級設置功能實現(xiàn)：點擊“瀏覽班級”對話框左上角的“修改” ，彈出一個“班級設置”對話框，其內容是修改班級的數(shù)據(jù)項。修改想要修改的數(shù)據(jù)項，確定即可。 amp。 39。三個查找范圍可以全部填寫，也可以只填寫其中的一個。 amp。 39。 and 年級=39。 Trim(Text1(0).Text) amp。 End Iftxtsql = select * from class where amp。分為：檔案添加子模塊、檔案瀏覽子模塊、檔案查詢子模塊。本系統(tǒng)的修改數(shù)據(jù)項有：學號、姓名、性別、班級、出生年月、家庭住址、郵政編碼、聯(lián)系電話、入學時間、備注。注意：出生年月和入學時間數(shù)據(jù)項的輸入格式為：mmddyy。? 瀏覽學生檔案圖 瀏覽學生檔案功能實現(xiàn)：點擊“瀏覽學生檔案”下拉菜單，在出現(xiàn)的對話框左側的“瀏覽數(shù)據(jù)”中，可樹形顯示各年級及其包含的班級詳細目錄，點擊想要查找的學生所在班級，雙擊該班級名稱，即可出現(xiàn)該班級所有學生的記錄。(2)刪除功能：點擊想要刪除的學生所在班級，隨之找到該生，刪除即可。關鍵代碼：Public Sub showdata()Dim j As IntegeDim i As IntegerDim mrc As Set mrc = New Set mrc = ExecuteSQL(txtsql) If = False Then With MSF1 .Rows = 50 .Row = 1 Do While Not .Rows = .Rows + 1 For i = 1 To .TextMatrix(.Row, i) = (i 1) Next i .Row = .Row + 1 Loop End With Else If find = True Then zzz = MsgBox(對不起，沒有此學生的檔案記錄！, vbOKOnly, 查詢) (0) (0).SetFocus End If End If Set mrc = Nothing? 學生檔案查詢：圖 學生檔案查詢功能實現(xiàn)：點擊對話框左上角的“查找” ，會彈出一個“學生檔案查詢”對話框。四個查找范圍可以全部填寫，也可以只填寫其中的一個。關鍵代碼：Dim str As Stringstr = select * from xj where amp。 txtsql amp。select , ,xj.出生年月,xj. 備注 from xj inner join class on = where =39。 or 年級=39。 order by desc, desc, desc = 學生檔案查詢結果Unload MeEnd Sub 學生交費管理學生交費管理是全校各年級學生的各種交費情況。? 基本學費設置（學費設置瀏覽）圖 學費設置瀏覽功能實現(xiàn)：點擊“學費設置瀏覽”下拉菜單，可以顯示全體學生的交費記錄，也可以選擇性的查看學生交費記錄。管理員可對學生的交費記錄進行修改、查找、打印、刪除。關鍵代碼：Private Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case find Case modi qxstr = Executeqx(3) If qxstr = readonly Thenss = MsgBox(對不起，你是只讀用戶不能添加記錄，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit Sub End If xuefeimodi = True If Trim((, 1)) = Then MsgBox 已無記錄!, vbOKOnly + vbExclamation, 警告 Exit Sub End If 39。關鍵代碼：同“學生檔案添加”模塊的代碼。四個關鍵字填寫一個即可。 amp。 39。 and 年級=39。 Trim(Combo1(0).Text) amp。 End IfEnd IfIf txtsql = Then ss = MsgBox(你至少要輸入一個條件以上才能查詢！, , 警告) Exit SubEnd Iftxtsql = select * from xuefei where amp。 (0)Unload MeEnd Sub? 學