[Intonew_table]From…where…Groupby…Having…Orderby…現數據庫的表Student_info中有1班和2班各兩名同學,我需要從中挑選出班號1和2,而不是得到1,1,2,2,所以就不能用"select*fromstu" />

亚洲免费在线-亚洲免费在线播放-亚洲免费在线观看-亚洲免费在线观看视频-亚洲免费在线看-亚洲免费在线视频

學生信息管理系統知識點大盤點 1

系統 1950 0

( 黃色字體為自定義函數,綠色字體為注釋 )

1. ComboClassno AddItem 不重復的條目

都知道 select 語句是這樣的 :

Select[all|distinct] [top n] <select_list>

[Into new_table]

From

where

Group by

Having

Order by

現數據庫的表 Student_info 中有 1 班和 2 班各兩名同學 , 我需要從中挑選出班號 1 2, 而不是得到 1,1,2,2, 所以就不能用" select * from student_info where grade=' " & comboGrade.Text &"'"

所以需要這樣查詢 :

txtSQL ="select distinct class_No from student_infowhere grade='" & ComboGrade.Text & "'"

Set mrc = ExecuteSQL (txtSQL,MsgText)

While mrc.EOF = False

ComboClassno.AddItemmrc.Fields("class_no").Value

mrc.MoveNext

Wend

mrc.Close

2. 查看上一條記錄或下一條記錄

先看這樣一段代碼

Private SubcmdPre_Click()

If mrc.BOF = True Then

mrc.MoveLast

Else

mrc.MovePrevious

End If

Call ViewData

End Sub

運行結果是這樣的

學生信息管理系統知識點大盤點 1


為什么會出錯呢 , 我們來分析一下 . 當指針指向第一條記錄的時候 ,if 條件不成立 , 所以會執行 mrc.MovePrevious , 此時指針指向第一條記錄之前 ,callviewdata 時出錯 .

學生信息管理系統知識點大盤點 1

所以正確的程序應該是這樣的 :

Private SubcmdPre_Click()

mrc.MovePrevious

If mrc.BOF = True Then

mrc.MoveLast

End If

Call ViewData

End Sub


3. 查找新添加記錄是否與已有記錄重復

從數據庫中查找已有記錄存放到記錄集中 , 記錄集非空時 , 從第一條記錄開始判斷是否重復 , 若重復則 exit sub; 若不重復則繼續判斷下一條 .

txtSQL = "select* from user_info"

Set mrc = ExecuteSQL (txtSQL,MsgText)

While (mrc.EOF = False)

If Trim$(mrc.Fields("user_name").value) = Trim$(TxtUserName.Text)Then

MsgBox "用戶已存在,請重新輸入用戶名!",vbOKOnly + vbExclamation, "警告"

TxtUserName .SetFocus

TxtUserName .Text = ""

TxtPassword1.Text = ""

TxtPassword2.Text = ""

Exit Sub

Else

mrc.MoveNext

EndIf

Wend

mrc.EOF = False 說明 mrc 記錄集不為空 , 經常用 mrc.BOF EOF 的值判斷記錄集是否為空 .

4. 課程設置時 , 要實現添加課程即從圖一到圖二 , 用如下代碼 .

學生信息管理系統知識點大盤點 1 學生信息管理系統知識點大盤點 1

(圖一) (圖二)


' 保證全部課程中選中時已選課程不同時選中

Private SubListAllcourse_Click()

If ListAllcourse.ListIndex <> -1 Then

ListSelectcourse.ListIndex = -1

End If

End Sub

' 保證已選課程中選中時全部課程不同時選中

Private SubListSelectcourse_Click()

If ListSelectcourse.ListIndex <> -1Then

ListAllcourse.ListIndex = -1

End If

End Sub

' 在全部課程中被選中的情況下 , 點擊添加按鈕 , 課程被添加到已選課程中

Private SubcmdAdd_Click()

If ListAllcourse .ListIndex <> -1 Then

ListSelectcourse .AddItemListAllcourse.List(ListAllcourse.ListIndex)

End If

End Sub

Listindex=-1 表示 listbox 未選中

5 單選按鈕與復選框的 value 屬性

If Check1.Value Then 表示如果復選框被選中那么 ... 看源碼的時候知道是什么意思 , 自己寫的時候寫成了 If Check1.Value =True Then

復選框 value 屬性有 0-unchecked( 未選中 ),1-checked( 選中 ),2-grayed( 禁止使用 , 灰色顯示 ), 默認值 1. 而單選按鈕 option value 屬性有 True False, 做系統時我把這兩個控件的屬性弄混了 , 還是基礎知識不扎實 , 看來以后還得細心再細心啊 .


學生信息管理系統知識點大盤點 1


更多文章、技術交流、商務合作、聯系博主

微信掃碼或搜索:z360901061

微信掃一掃加我為好友

QQ號聯系: 360901061

您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧,狠狠點擊下面給點支持吧,站長非常感激您!手機微信長按不能支付解決辦法:請將微信支付二維碼保存到相冊,切換到微信,然后點擊微信右上角掃一掃功能,選擇支付二維碼完成支付。

【本文對您有幫助就好】

您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描上面二維碼支持博主2元、5元、10元、自定義金額等您想捐的金額吧,站長會非常 感謝您的哦!!!

發表我的評論
最新評論 總共0條評論
主站蜘蛛池模板: 亚洲国产欧美在线不卡中文 | 爱爱免费网站 | 中文字幕日韩精品亚洲七区 | 久久精品成人免费看 | 玖玖成人 | 奇米777视频二区中文字幕 | 久久国产免费观看精品1 | 麻豆精品| 亚洲成人高清在线观看 | 波多野结衣一区二区三区高清在线 | 国产精品久久久视频 | 国产香蕉视频在线 | 精品国产乱码久久久久久浪潮 | 国产精品一久久香蕉产线看 | 水中色av综合 | jizz美女18| 久久精品无码一区二区日韩av | 综合色在线 | 久久久久久99精品 | 国产一国产一级毛片视频在线 | 中文字幕第66页永久乱码 | 国产一区二区三区免费看 | 91视频免费观看高清观看完整 | 天天干天天色天天 | 欧美高清在线视频一区二区 | 福利视频第一页 | 成年女人在线视频 | 国产偷国产偷亚洲高清在线 | 亚洲欧美日韩网站 | 日韩中文欧美 | www.香蕉视频 | 欧美毛片免费看 | 亚洲成a人片在线观看精品 亚洲成a人一区二区三区 | 国产高清对白国产露脸91 | 亚洲国产精品欧美综合 | 亚洲欧美日韩中文无线码 | 久热re这里只有精品视频 | 免费看色 | 日本一级大黄毛片一级 | 中文字幕视频在线观看 | 四虎跳转48小时 |