【導讀】決的問題，也就是確定問題的性質(zhì)，工程的目標和規(guī)模。該系統(tǒng)規(guī)約說明書的目。負責人審查，以檢驗分析員對問題的理解是否正確。以這份報告是非常重要的，這對確保今后開發(fā)工作的成功是至關(guān)重要的。面對龐大的信息量，就需要有學生信息管理系統(tǒng)來提高學生管理工作的效率。管理方面的工作量?？尚行匝芯堪ǎ航?jīng)濟可行性、技術(shù)可行性、法律可行性、不同的方案等等。系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)信息關(guān)系的系統(tǒng)化、規(guī)范化和自動化。要功能設(shè)計合理,且易操作,系統(tǒng)的主要目標已達到.系統(tǒng)模型模擬成功.該項目開發(fā)的軟件為學校學生信息管理系統(tǒng)軟件,是鑒于目前學校學生人數(shù)劇增,齊全且易于操作.衡量比較支出的費用和收到的利益.法律可行性--明確系統(tǒng)開發(fā)可能導致的責任,有無違法問題.不同的方案--對系統(tǒng)開發(fā)的各種方案進行評價.

　　

【正文】 間回復您 ! 25 Public UserName As String Sub Main() Dim fLogin As New frmLogin vbModal If Not Then 39。Login Failed so exit app End End If Unload fLogin Set fMainForm = New frmMain End Sub ......................................................................................................... Public Function ConnectString() _ As String 39。returns a DB ConnectString ConnectString = FileDSN=。UID=sa。PWD= End Function .......................................... SQL 語 句 執(zhí) 行 程序 .............................................. Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。executes SQL and returns Recordset Dim n As Dim rst As Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set n = New ConnectString If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0))) Then SQL MsgString = sTokens(0) amp。 _ 文檔下載站 更多資源下載 本站所有資源均來自互聯(lián) 網(wǎng)，如有侵犯您的版權(quán)或其他問題，請通知管理員，我們會在最短的時間回復您 ! 26 query successful Else Set rst = New Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic 39。 39。get RecordCount Set ExecuteSQL = rst MsgString = 查詢到 amp。 amp。 _ 條記錄 End If ExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgString = 查詢錯誤 : amp。 _ Resume ExecuteSQL_Exit End Function ......................................................................................................... Public Function Testtxt(txt As String) As Boolean If Trim(txt) = Then Testtxt = False Else Testtxt = True End If End Function .................................. frmlogin 窗口 ........................................... Option Explicit Private Declare Function GetUserName Lib Alias GetUserNameA (ByVal lpbuffer As String, nSize As Long) As Long Public OK As Boolean 39。記錄確定次數(shù) 文檔下載站 更多資源下載 本站所有資源均來自互聯(lián) 網(wǎng)，如有侵犯您的版權(quán)或其他問題，請通知管理員，我們會在最短的時間回復您 ! 27 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 = Else = vbNullString End If OK = False miCount = 0 End Sub Private Sub cmdCancel_Click() OK = False End Sub Private Sub cmdOK_Click() Dim txtSQL As String Dim mrc As Dim MsgText As String 39。ToDo: create test for correct password 39。check for correct password UserName = If Trim( = ) Then MsgBox 沒有這個用戶，請重新輸入用戶名！ , vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from user_Info where user_ID = 39。 amp。 amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) 文檔下載站 更多資源下載 本站所有資源均來自互聯(lián) 網(wǎng)，如有侵犯您的版權(quán)或其他問題，請通知管理員，我們會在最短的時間回復您 ! 28 If = True Then MsgBox 沒有這個用戶，請重新輸入用戶名 !, vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then OK = True UserName = Trim() Else MsgBox 輸入密碼不正確，請重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If End If miCount = miCount + 1 If miCount = 3 Then End If Exit Sub End Sub ............................................................................................ ............................... frmMain 系 統(tǒng) 主 窗 口 代碼 ......................................... Private Sub addcinfoMenu_Click() End Sub Private Sub addcourseMenu_Click() End Sub Private Sub addresultMenu_Click() End Sub Private Sub addsinfoMenu_Click() 文檔下載站 更多資源下載 本站所有資源均來自互聯(lián) 網(wǎng)，如有侵犯您的版權(quán)或其他問題，請通知管理員，我們會在最短的時間回復您 ! 29 End Sub Private Sub adduserMenu_Click() (1).Text = 添加用戶 End Sub Private Sub exitMenu_Click() End End Sub Private Sub exitsinfoMenu_Click() Unload frminquireinfo End Sub Private Sub gradecourseMenu_Click() End Sub Private Sub inquireresultMenu_Click() End Sub Private Sub inquiresinfoMenu_Click() End Sub Private Sub MDIForm_Load() = GetSetting(, Settings, MainLeft, 1000) = GetSetting(, Settings, MainTop, 1000) = GetSetting(, Settings, MainWidth, 6500) = GetSetting(, Settings, MainHeight, 6500) End Sub Private Sub MDIForm_Unload(Cancel As Integer) If vbMinimized Then SaveSetting , Settings, MainLeft, SaveSetting , Settings, MainTop, SaveSetting , Settings, MainWidth, SaveSetting , Settings, MainHeight, 文檔下載站 更多資源下載 本站所有資源均來自互聯(lián) 網(wǎng)，如有侵犯您的版權(quán)或其他問題，請通知管理員，我們會在最短的時間回復您 ! 30 End If End Sub Private Sub modifycinfoMenu_Click() End Sub Private Sub modifycourseMenu_Click() End Sub Private Sub modifypwdMenu_Click() End Sub Private Sub modifyresultMenu_Click() End Sub Private Sub modifysinfo_Menu_Click() End Sub .......................................................................................................... ............................... frmAdduser 添 加 用 戶 窗 口 代碼 ..................................... Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdOK_Click() Dim txtSQL As String Dim mrc As Dim MsgText As String If Trim(Text1(0).Text) = Then MsgBox 請輸入用戶名稱！ , vbOKOnly + vbExclamation, 警告 Exit Sub Text1(0).SetFocus Else txtSQL = select * from user_Info 文檔下載站 更多資源下載 本站所有資源均來自互聯(lián) 網(wǎng)，如有侵犯您的版權(quán)或其他問題，請通知管理員，我們會在最短的時間回復您 ! 31 Set mrc = ExecuteSQL(txtSQL, MsgText) While ( = False) If Trim((0)) = Trim(Text1(0)) Then MsgBox 用戶已經(jīng)存在，請重新輸入用戶名！ , vbOKOnly + vbExclamation, 警告 Text1(0).SetFocus Text1(0).Text = Text1(1).Text = Text1(2).Text = Exit Sub Else End If Wend End If If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 兩次輸入密碼不一樣，請確認！ , vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Text1(2).Text = Exit Sub Else If Text1(1).Text = Then MsgBox 密碼不能為空！ , vbOKOnly + v