學(xué)生信息管理系統(tǒng)vb課程設(shè)計(jì)-在線(xiàn)瀏覽
2024-10-30 14:00本頁(yè)面
【正文】 :21:19 0 1 125 pang 2 pang 21 管 1 2020/1/8 10:50:53 0 1 表 33用戶(hù)登 錄表 VB 課程設(shè)計(jì)論文 8 第 4 章 詳細(xì)設(shè)計(jì) 登錄界面 設(shè)計(jì) 如圖 41。 圖 42 系統(tǒng)員管理界面 關(guān)鍵編碼： Private Sub cmdFStudent_Click() 39。判斷有無(wú) Where 語(yǔ)句 Dim bwhere As Boolean sqlstr = select * from studenttable wherestr = bwhere = False If Then wherestr = wherestr + Studentname=39。 txtStudentName amp。 bwhere = True End If If = 1 And Then If bwhere Then wherestr = wherestr + and wherestr = wherestr + Studentid like 39。 txtFStudentID amp。 VB 課程設(shè)計(jì)論文 10 bwhere = True End If If = 1 And Then If bwhere Then wherestr = wherestr + and wherestr = wherestr + studentname like 39。 txtFStudentName amp。 bwhere = True End If If = 1 And Then If bwhere Then wherestr = wherestr + and wherestr = wherestr + class like 39。 txtFStudentClass amp。 bwhere = True End If If = 1 Then If bwhere Then wherestr = wherestr + and If = 0 Then wherestr = wherestr + gender like 39。 男 amp。 ElseIf = 1 Then wherestr = wherestr + gender like 39。 女 amp。 End If bwhere = True End If If = 1 And Then If = Then = 00 If bwhere Then wherestr = wherestr + and If Then wherestr = wherestr + acceptancetime39。 txtFYear + + txtFMon amp。 Else wherestr = wherestr + acceptancetime39。 txtFYear + + txtFMon amp。 End If bwhere = True End If If = 1 And Then If bwhere Then wherestr = wherestr + and wherestr = wherestr + hometown like 39。 txtFHometown amp。 bwhere = True End If If bwhere Then sqlstr = sqlstr + where + wherestr sqlstr = sqlstr + order by Studentid asc (cmdFindStudent).CommandText = sqlstr 39。 圖 43 用戶(hù)查詢(xún)界面 查詢(xún)控件編碼： Private Sub cmdSearch_Click() Dim sqlstr As String Dim wherestr As String Dim i As Integer sqlstr = select StudentID,StudentName,Class,Gender from StudentTable wherestr = If 0 And Then Select Case VB 課程設(shè)計(jì)論文 12 Case 1 39。 amp。 39。姓名 wherestr = wherestr + StudentName=39。 txtKey amp。 Case 3 39。 amp。 39。備注 wherestr = wherestr + Gender=39。 txtKey amp。 Case 5 39。% amp。 %39。% amp。 %39。% amp。 %39。學(xué)號(hào)關(guān)鍵字 If And = 1 And Then If wherestr Then If Then wherestr = wherestr + and Else wherestr = wherestr + or End If End If wherestr = wherestr + StudentID like 39。 txtIDKey amp。 End If 39。% amp。 %39。班級(jí)關(guān)鍵字 If And = 1 And Then If wherestr Then If Then VB 課程設(shè)計(jì)論文 13 wherestr = wherestr + and Else wherestr = wherestr + or
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1