機房收費系統——學生基本資訊維護

阿新 • • 發佈：2018-11-23

這個窗體是一個簡單的組合查詢窗體，之所以它簡單是因為它沒有涉及到時間控制元件，所以可以節省不少程式碼量，但是它有一個難點就是把選中修改，把修改後的資訊返還到這個窗體中，所以這個窗體也涉及到另外一個窗體！

程式碼展示：

學生基本資訊維護

Public TmpCardno As String 'TmpCardno稱它為“臨時卡號”，是您選擇的那行資料的列的值
Public tmpload As String 'tmpLoad是在“修改資訊窗體”新增的子窗體

Public Function field(strfield As String) As String

    Select Case strfield
        Case "卡號"
            field = "cardno"
        Case "學號"
            field = "studentNo"
        Case "姓名"
            field = "studentName"
        Case "性別"
            field = "sex"
        Case "系別"
            field = "department"
        Case "年級"
            field = "grade"
        Case "班級"
            field = "class"
     
        End Select

End Function

Public Function RelationName(strRelationName As String) As String
    Select Case strRelationName
        Case "與"
            RelationName = "and"
        Case "或"
            RelationName = "or"
        End Select
        
End Function
Private Sub cmdCheck_Click()
    Dim txtsql As String
    Dim msgtext As String
    Dim mrc As ADODB.Recordset '定義資料集物件
    '在Student_info 這張表中獲得整行記錄
    txtsql = "select * from student_Info where "
    
    If Trim(comboField(0).Text) = "" Or Trim(ComboOpSign(0).Text) = "" Or Trim(txtInquriryContent(0).Text) = "" Then
        MsgBox "請將選項內容填寫完整！", vbOKOnly, "提示"
    Exit Sub
    
    Else

    txtsql = txtsql & " " & field(comboField(0).Text) & " " & ComboOpSign(0).Text & " '" & Trim(txtInquriryContent(0).Text) & "'"
    
    
    If ComboCombineRelation(0).Text <> "" Then
        If Trim(comboField(1).Text) = "" Or Trim(ComboOpSign(1).Text) = "" Or Trim(txtInquriryContent(1).Text) = "" Then
            MsgBox "請將第二行選項內容填寫完整！", vbOKOnly, "提示"
            Exit Sub
        Else
        
        txtsql = txtsql & " " & RelationName(ComboCombineRelation(0).Text) & " " & field(comboField(1).Text) & " " & ComboOpSign(1).Text & "'" & Trim(txtInquriryContent(1).Text) & "'"
        
            If ComboCombineRelation(1).Text <> "" Then
                If comboField(2).Text = "" Or ComboOpSign(2).Text = "" Or txtInquriryContent(2).Text = "" Then
                MsgBox "請將第三行內容填寫完整", vbOKOnly, "溫馨提示"
                Exit Sub
                Else
                
                txtsql = txtsql & " " & RelationName(ComboCombineRelation(1).Text) & " " & field(comboField(2).Text) & " " & ComboOpSign(2).Text & "'" & Trim(txtInquriryContent(2).Text) & "'"
                
                End If
            End If
        End If
    End If
End If
    Set mrc = ExecuteSQL(txtsql, msgtext)
    If mrc.EOF Then
        MsgBox "無資料，請重新填寫", vbInformation
        comboField(0).SetFocus
        comboField(0).Text = ""
        MSHFlexGrid1.Clear
    Else
        With MSHFlexGrid1
        .Rows = 1
        .CellAlignment = 4
        .TextMatrix(0, 0) = "學號"
        .TextMatrix(0, 1) = "姓名"
        .TextMatrix(0, 2) = "卡號"
        .TextMatrix(0, 3) = "金額"
        .TextMatrix(0, 4) = "系別"
        .TextMatrix(0, 5) = "年級"
        .TextMatrix(0, 6) = "班級"
        .TextMatrix(0, 7) = "性別"
        .TextMatrix(0, 8) = "狀態"
        .TextMatrix(0, 9) = "備註"
        .TextMatrix(0, 10) = "型別"
        .TextMatrix(0, 11) = "日期"
        .TextMatrix(0, 12) = "時間"
          
        Do While Not mrc.EOF
        .Rows = .Rows + 1
        .CellAlignment = 4
        .TextMatrix(.Rows - 1, 0) = Trim(mrc.fields(1))
        .TextMatrix(.Rows - 1, 1) = Trim(mrc.fields(2))
        .TextMatrix(.Rows - 1, 2) = Trim(mrc.fields(0))
        .TextMatrix(.Rows - 1, 3) = Trim(mrc.fields(7))
        .TextMatrix(.Rows - 1, 4) = Trim(mrc.fields(4))
        .TextMatrix(.Rows - 1, 5) = Trim(mrc.fields(5))
        .TextMatrix(.Rows - 1, 6) = Trim(mrc.fields(6))
        .TextMatrix(.Rows - 1, 7) = Trim(mrc.fields(3))
        .TextMatrix(.Rows - 1, 8) = Trim(mrc.fields(10))
        .TextMatrix(.Rows - 1, 9) = Trim(mrc.fields(8))
        .TextMatrix(.Rows - 1, 10) = Trim(mrc.fields(14))
        .TextMatrix(.Rows - 1, 11) = Trim(mrc.fields(12))
        .TextMatrix(.Rows - 1, 12) = Trim(mrc.fields(13))
        
        mrc.MoveNext
       
        Loop
    End With
    End If
End Sub
    
Private Sub cmdDelete_Click()
MSHFlexGrid1.Clear


    If Not (mrc.EOF Or mrc.BOF) Then
        mrc.fields(0) = Trim(txtCardNo.Text)
        mrc.fields(1) = Trim(txtSID.Text)
        mrc.fields(2) = Trim(txtName.Text)
        mrc.fields(3) = Trim(comboSex.Text)
        mrc.fields(4) = Trim(txtDept.Text)
        mrc.fields(5) = Trim(txtGrade.Text)
        mrc.fields(6) = Trim(txtClass.Text)
        mrc.fields(7) = Trim(txtmoney.Text)
        mrc.fields(8) = Trim(txtexplain.Text)
        mrc.fields(10) = Trim(txtstate.Text)
        mrc.fields(14) = Trim(Combotype.Text)
        mrc.Update
        mrc.Close
    End If
    Me.Hide
    
    '修改資訊後，重新載入到基本資訊維護窗體的查詢結果中
    
End Sub

'End Function
Private Sub cmdModify_Click()
'TmpCardno = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 0) '選擇一行資料
    frmeditstuinfo.txtSID.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 0)
    frmeditstuinfo.txtClass.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 6)
    frmeditstuinfo.txtName.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 1)
    frmeditstuinfo.txtCardNo.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 2)
    frmeditstuinfo.comboSex.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 7)
    frmeditstuinfo.txtmoney.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 3)
    frmeditstuinfo.txtDept.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 4)
    frmeditstuinfo.txtexplain.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 9)
    frmeditstuinfo.txtGrade.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 5)
    frmeditstuinfo.Combotype.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 10)
    frmeditstuinfo.txtstate.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 8)
            
    frmeditstuinfo.Show '顯示修改資訊窗體
    MsgBox "請先選擇資料，再進行修改！", , "溫馨提示"
    
    Exit Sub
    
End Sub


Private Sub Form_Load()
     comboField(0).AddItem "卡號"
     comboField(0).AddItem "學號"
     comboField(0).AddItem "姓名"
     comboField(0).AddItem "性別"
     comboField(0).AddItem "系別"
     comboField(0).AddItem "年級"
     comboField(0).AddItem "班級"
     
     comboField(1).AddItem "卡號"
     comboField(1).AddItem "學號"
     comboField(1).AddItem "姓名"
     comboField(1).AddItem "性別"
     comboField(1).AddItem "系別"
     comboField(1).AddItem "年級"
     comboField(1).AddItem "班級"
     
     comboField(2).AddItem "卡號"
     comboField(2).AddItem "學號"
     comboField(2).AddItem "姓名"
     comboField(2).AddItem "性別"
     comboField(2).AddItem "系別"
     comboField(2).AddItem "年級"
     comboField(2).AddItem "班級"
     
     ComboOpSign(0).AddItem "="
    
    
     ComboOpSign(0).AddItem "<>"
     
     ComboOpSign(1).AddItem "="
     
     
     ComboOpSign(1).AddItem "<>"
     
     ComboOpSign(2).AddItem "="
    
    
     ComboOpSign(2).AddItem "<>"
     
     ComboCombineRelation(0).AddItem "與"
     ComboCombineRelation(0).AddItem "或"
     
     ComboCombineRelation(1).AddItem "與"
     ComboCombineRelation(1).AddItem "或"
    
     
End Sub



Private Sub MSHFlexGrid1_Click()
MSHFlexGrid1.SelectionMode = flexSelectionByRow '單擊時選擇整行
MSHFlexGrid1.FocusRect = flexFocusNone '在當前但願的周圍畫一個焦點框
MSHFlexGrid1.HighLight = flexHighlightWithFocus  '該值決定了所選定的單元是否突出顯示

 
End Sub

Private Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim tmpselect As Boolean
tmpselect = True

End Sub

Private Sub txtInquriryContent_KeyPress(Index As Integer, KeyAscii As Integer)
Dim ctemp As String
    ctemp = "#$%^&*"   '禁止輸入的字元
    If InStr(1, ctemp, Chr(KeyAscii)) <> 0 Then
        KeyAscii = 0
    End If
End Sub

修改學生資訊

Private Sub cmdOk_Click()
    Dim txtsql As String
    Dim msgtext As String
    Dim mrc As ADODB.Recordset
    
    txtCardNo.Enabled = False
    
    txtsql = "select * from student_info where cardno= '" & Trim(txtCardNo.Text) & "'"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    
    If mrc.EOF And mrc.BOF = True Then
        mrc.fields(0) = Trim(txtCardNo.Text)
        mrc.fields(1) = Trim(txtSID.Text)
        mrc.fields(2) = Trim(txtName.Text)
        mrc.fields(3) = Trim(comboSex.Text)
        mrc.fields(4) = Trim(txtDept.Text)
        mrc.fields(5) = Trim(txtGrade.Text)
        mrc.fields(6) = Trim(txtClass.Text)
        mrc.fields(7) = Trim(txtmoney.Text)
        mrc.fields(8) = Trim(txtexplain.Text)
        mrc.fields(10) = Trim(txtstate.Text)
        mrc.fields(14) = Trim(Combotype.Text)
        mrc.Update

        Do While Not mrc.EOF
        With MSHFlexGrid1
        .Rows = .Rows + 1
        .CellAlignment = 4
        .TextMatrix(.Rows - 1, 0) = Trim(mrc.fields(1))
        .TextMatrix(.Rows - 1, 1) = Trim(mrc.fields(2))
        .TextMatrix(.Rows - 1, 2) = Trim(mrc.fields(0))
        .TextMatrix(.Rows - 1, 3) = Trim(mrc.fields(7))
        .TextMatrix(.Rows - 1, 4) = Trim(mrc.fields(4))
        .TextMatrix(.Rows - 1, 5) = Trim(mrc.fields(5))
        .TextMatrix(.Rows - 1, 6) = Trim(mrc.fields(6))
        .TextMatrix(.Rows - 1, 7) = Trim(mrc.fields(3))
        .TextMatrix(.Rows - 1, 8) = Trim(mrc.fields(10))
        .TextMatrix(.Rows - 1, 9) = Trim(mrc.fields(8))
        .TextMatrix(.Rows - 1, 10) = Trim(mrc.fields(14))
        .TextMatrix(.Rows - 1, 11) = Trim(mrc.fields(12))
        .TextMatrix(.Rows - 1, 12) = Trim(mrc.fields(13))

        mrc.MoveNext

     
    End With
       Loop
        MsgBox "無任何修改", 0 + 48, "警告"
    End If
    
    Me.Hide
    
End Sub

Public Sub tmpload()
    Dim txtsql As String
    Dim msgtext As String
    Dim mrc As ADODB.Recordset
    
     txtsql = "select * from student_info where cardno= '" & Trim(txtCardNo.Text) & "'"
     Set mrc = ExecuteSQL(txtsql, msgtext)
     
     If mrc.EOF Then
        MsgBox "載入資訊不存在，請確認後重新操作", 0 + 48, "警告"
    Else
        txtSID.Text = mrc!studentNo
        txtName.Text = mrc!studentname
        comboSex.Text = mrc!sex
        txtDept.Text = mrc!department
        txtGrade.Text = mrc!grade
        txtClass.Text = mrc!Class
        txtCardNo.Text = mrc!cardno
        txtmoney.Text = mrc!cash
        txtstate.Text = mrc!status
        txtexplain.Text = mrc!explain
        Combotype.Text = mrc!Type
        mrc.Close
        
    End If
    
        
End Sub

Private Sub txtSID_KeyPress(KeyAscii As Integer)
Dim ctemp As String
    ctemp = "#$%^&*"   '禁止輸入的字元
    If InStr(1, ctemp, Chr(KeyAscii)) <> 0 Then
        KeyAscii = 0
    End If
Select Case KeyAscii
    Case 48 To 57 '只能輸入數字
    Case 65 To 90 '只能輸入大小寫字母
    Case 97 To 122 ' 只能輸入退格
    Case 8
    Case Else
    KeyAscii = 0
End Select
End Sub

看完程式碼之後，你學會了嗎？有什麼創新的地方嗎？

機房收費系統——學生基本資訊維護

這個窗體是一個簡單的組合查詢窗體，之所以它簡單是因為它沒有涉及到時間控制元件，所以可以節省不少程式碼量，但是它有一個難點就是把選中修改，把修改後的資訊返還到這個窗體中，所以這個窗體也涉及到另外一個窗體！程式碼展示：學生基本資訊維護 Public TmpCardno As St

機房收費系統--學生基本資訊維護（組合查詢）

對於這個窗體來說，主要的功能就是實現“組合查詢”，什麼是組合查詢？組合查詢：多數SQL查詢都只包含從一個或多個表中返回資料的單條 SELECT 語句。MySQL也允許執行多個查詢（多條 SELECT 語句），並將結果作為單個查詢結果集返回。這些組合查詢通常稱為並（

機房收費系統之學生基本資訊維護

前言該窗體功能是實現查詢學生的資訊，並可給予修改的許可權。其中包含兩個重大部分，一是組合查詢，二是修改；其中修改又涉及到了修改學生資訊窗體，此窗體中取消修改嘗試了很多方法，最後選取比較簡單的方法，這個窗體不難。最重要的莫過於組合查詢：組合查詢我使用的方法是一行一行的查，因為對於我目前的

【機房收費系統】之學生基本資訊維護

學生基本資訊維護主要包括兩大功能查詢和修改。這裡的查詢比之前做的簡單查詢稍稍複雜了點，此處要用到組合查詢。要成功實現查詢這一功能，首先要找到突破點，關鍵點就是組合關係。如果沒有選擇組合關係，便是一般的簡單查詢，反之，則是組合查詢。在組合查詢中，很重要的一點是將combobox中的中文字轉換成英文。這

機房收費系統（七）——學生基本資訊維護

概述學生基本資訊維護裡面所用到的知識點有查詢類，更準確的說是組合查詢。該知識點堪稱機房收費系統三大難點之一。那麼它的難到底難在哪裡？下面我們來逐一進行分析。流程圖通過上面兩張圖可以清晰的看到，查詢難在哪裡：首先、我們需要進行判斷查詢是

機房收費系統之學生基本資訊維護修改資訊

1.介紹修改資訊功能為什麼有修改功能？這個功能如何操作的？如何才能修改？修改功能不難發現在組合查詢中只有學生基本資訊維護上有這個功能，為了更好的維護學生的資訊查出來後可以方便的進行更改提高效率！所以才有了這個功能！ 2.接下來給大家介紹是如何操作的一、查詢到需要

機房--學生基本資訊維護(組合查詢)

第一步：我定義了資料庫查詢程式碼中的三個變數（where 後面的全部定義成了變數，就避免一直寫不同的條件了） ①欄位名 ②操作符 ③要查詢的內容第二步：定義好了之後，把他們定義成函式，封裝，在程式碼中直接呼叫第三步：程式碼部分：（call add 這個程式碼是資料的顯示）

機房--學生基本資訊維護思路篇(組合查詢)

問題： 1.操作符比較資料庫和文字框中數字的大小 2.組合查詢解決方案：一、把資料庫中的需要比較大小的欄位的資料型別改為int 例子：就卡號舉例子在資料庫中新建查詢： alter table student_Info alter column cardno int not nu

機房——操作員——學生基本資訊維護

學生基本資訊維護這個窗體，主要實現兩項功能，其一是組合查詢功能的實現，其二便是對查詢出的資訊可以選擇並進行修改，組合查詢窗體在上篇部落格已經分享過了，小夥伴可以檢視上篇部落格，今天主要分享的是，如何實現將查詢到的資訊，能夠進行修改這個功能。我們可以將這個功能在分解下，分解成先能選中一行資料

機房收費系統學生下機結賬小結

新的手工解決模式收費 line 崩潰執行 eas 這幾天一直在考慮機房收費系統學生下機操作。學生下機。一則須要加入學生下機記錄信息。還須要計算學生在整個上機過程中所花費的金額，而且更新學生剩余金額。那麽如何做在性能上或者擴展上更好一些

機房收費系統——學生上機狀態檢視

這個窗體都可以算成是一個小系統了，因為它包含了四個子選單，最難的就是上機管理，下面我們就來分析一下這個選單吧！這個選單包含所有學生下線和選中學生下線，選中下機我們要達到以下效果：程式碼片段：選中下機： Private Sub selstudentoutline

機房收費系統——資料庫基本操作

上一個階段學習了《耿建玲視訊》，就是關於資料庫的各方面的知識，只是當初看視訊似懂非懂的，對知識的理解不深奧，不明白，也沒有過多的思考知識，導致《機房》的開始，自己很迷茫，深感欠下的債早晚都要還的。敲機房的過程中對資料庫的操作一開始不知道怎麼下手，後來敲系統順手之

有關機房收費系統學生下機的思考

所謂的專家，就是在一個很小的領域把所有的錯誤都犯過的人 ---------題記做機房收費系統也有一段時間了，目前已經進行

機房收費系統之學生上機資訊

前言組合查詢是機房三大難點之一，不過等做完之後會豁然開朗，原來就是一句話的事。雖然這樣還是自己還是研究了好幾天才弄明白。下面先來說一下我的思路。思路重點程式碼： Private Sub ComboField2_Click() If ComboFi

機房收費系統----使用者登陸軟體關閉軟體資訊在worklog表中的新增

當機房快要接近尾聲的時候，我發現有一個很重要的程式沒有做，那就是使用軟體的使用者登陸和關閉軟體的資訊獲取，也就是在worklog_info表中加資訊。編寫過程 1.我們這個時候需要用到標籤（標籤的使用和作用我之前的部落格有提到，不明白的可以看我之前的部落格），之前

機房收費系統之學生檢視上機記錄（MSHFlexGrid控制元件資料匯出Excel）

這個窗體之所以可以順利的進行下去，全靠藉助於巨人的力量，站在了巨人的肩膀上前行，Excel的匯出還是很神奇的，讓我們一起來看一下吧^_^ 一、學生檢視上下機記錄窗體的流程圖二、查詢集 ①、機房收費系統中Excel表如何匯出 ②、vb中DoEve

機房收費系統之學生檢視餘額

流程判斷卡號是否為空----為空，輸入卡好—不為空，連線資料庫----判斷是否有此使用者----沒有，提示-----有，連線並顯示資訊知識點 If mrc.BOf Then :當前指標的位置是在第一行記錄之前 If mrc.EOF Then :當前指標的位置是在最後一行記

【第一次機房收費系統】—學生檢視上機記錄

一、思維導圖二、程式碼 Private Sub cmdInquiry_Click() Dim txtSQL As String Dim msgtext As String Dim mrc As ADODB.Recordset

機房收費系統之學生狀態檢視——全部下線

對於這一部分，我感覺是機房挺不容易的一個部分，因為一開始思路沒有找對，總是想通過控制元件的顏色來判斷是否選中（因為選中之後可以控制顏色），哈哈哈，現在感覺鑽牛角尖了，後來實在不行了，快崩潰了，於是看了師哥的部落格，奧，，恍然大悟。全部下機： 1、前提是先得顯示

個人重構機房收費系統DataGridView顯示使用者資訊

在做機房收費系統的過程中，刪除使用者需要將資料庫的表顯示到程式的窗體中，我使用的控制元件是DataGridView 先說說我編寫程式的思路把。 ①、將資料庫T_UserInfo

機房收費系統——學生基本資訊維護

程式碼展示：

相關推薦