【導(dǎo)讀】作為生物技術(shù)專業(yè)的同學(xué)，我們對(duì)植物非常感興趣，同時(shí)也比較了解它們。同用戶的查詢；同時(shí)在植物分類查詢中，我們把植物的名稱、特征、生物價(jià)值分開，物和雙子葉植物）。植物的相關(guān)信息，同時(shí)在這里用戶還可以瀏覽對(duì)應(yīng)植物的圖片。在綜合查詢中，用戶。同時(shí)本項(xiàng)目和其它的一些植物查詢系統(tǒng)不同的是，上節(jié)約了用戶的時(shí)間。解了很多的植物，對(duì)這些植物的特點(diǎn)有了大致的了解。于是我們寫實(shí)習(xí)報(bào)告的時(shí)候，我們的資料大部分是來自一些網(wǎng)站，可是我們?；ㄙM(fèi)了大量的時(shí)間。了數(shù)據(jù)庫后，我們小組決定做一個(gè)類似中國(guó)植物志的查詢系統(tǒng)。同學(xué)，對(duì)信息的檢索要求不是太高，但是這個(gè)項(xiàng)目卻給了我們一個(gè)很大的想象空間。為了管理員的系統(tǒng)維。記住注冊(cè)時(shí)的密碼提示問題，用戶便能夠找回自己的密碼。別看夾竹桃色彩鮮艷，其分泌。本項(xiàng)目就是致力于為更多人提供更簡(jiǎn)潔方便的渠道去了解我們身邊的植。觀兩方面進(jìn)行了研究。的檢索，力求操作簡(jiǎn)潔方便，內(nèi)容實(shí)用性強(qiáng)。還有他們的具體介紹。

　　

【正文】 m reader8 As reader8 = () () = Trim((0)) () Dim sql9 As String = select 習(xí)性 from 植物特征表 where 編號(hào) =39。 amp。 Trim() amp。 39。 Dim SqlConnection9 As New (myconnstr) Dim m9 As = New (sql9, SqlConnection9) () Dim reader9 As reader9 = () () = Trim((0)) () Dim sql10 As String = select 關(guān)鍵字 1 from 植物生物價(jià)值表 where 編號(hào) =39。 amp。 33 Trim() amp。 39。 Dim SqlConnection10 As New (myconnstr) Dim m10 As = New (sql10, SqlConnection10) () Dim reader10 As reader10 = () () = Trim((0)) () Dim sql11 As String = select 生物價(jià)值 from 植物生物價(jià)值表 where 編號(hào) =39。 amp。 Trim() amp。 39。 Dim SqlConnection11 As New (myconnstr) Dim m11 As = New (sql11, SqlConnection11) () Dim reader11 As reader11 = () () = Trim((0)) () = True End Select ElseIf Trim() Nothing And Trim() = Nothing And Trim() = Nothing Then Dim sql12 As String = select 植物名 from 植物分類表 where 別名 like39。% amp。 Trim() amp。 %39。 Dim SqlConnection12 As New (myconnstr) Dim m12 As = New (sql12, SqlConnection12) () Dim reader12 As reader12 = () While () zhiwuming = Trim((0)) End While () () Select Case zhiwuming Case Nothing 34 MsgBox(對(duì)不起！目前的數(shù)據(jù)庫里不存在您輸入的植物，請(qǐng)您檢查您輸入的植物別名 , + 48, 提示 ) = () Case Else = zhiwuming Dim sql13 As String = select 拉丁名 from 植物分類表 where 別名 like39。% amp。 Trim() amp。 %39。 Dim SqlConnection13 As New (myconnstr) Dim m13 As = New (sql13, SqlConnection13) () Dim reader13 As reader13 = () () = Trim((0)) () Dim sql14 As String = select 圖片編號(hào) from 植物分類表 where 別名 like39。% amp。 Trim() amp。 %39。 Dim SqlConnection14 As New (myconnstr) Dim m14 As = New (sql14, SqlConnection14) () Dim reader14 As reader14 = () () = Trim((0)) () Dim sql15 As String = select 科名 from 植物分類表 where 別名 like39。% amp。 Trim() amp。 %39。 Dim SqlConnection15 As New (myconnstr) Dim m15 As = New (sql15, SqlConnection15) () Dim reader15 As reader15 = () () = Trim((0)) () 35 Dim sql16 As String = select 屬名 from 植物分類表 where 別名 like39。% amp。 Trim() amp。 %39。 Dim SqlConnection16 As New (myconnstr) Dim m16 As = New (sql16, SqlConnection16) () Dim reader16 As reader16 = () () = Trim((0)) () Dim sql17 As String = select 主要產(chǎn)地 from 植物分類表 where 別名 like39。% amp。 Trim() amp。 %39。 Dim SqlConnection17 As New (myconnstr) Dim m17 As = New (sql17, SqlConnection17) () Dim reader17 As reader17 = () () = Trim((0)) () Dim sql3b As String = select 編號(hào) from 植物分類表 where 別名 like 39。% amp。 Trim() amp。 %39。 Dim SqlConnection3b As New (myconnstr) Dim m3b As = New (sql3b, SqlConnection3b) () Dim reader3b As reader3b = () () = Trim((0)) () Dim sql18 As String = select 形態(tài)特征 from 植物特征表 where 編號(hào) =39。 amp。 Trim() amp。 39。 Dim SqlConnection18 As New (myconnstr) Dim m18 As = New (sql18, SqlConnection18) () Dim reader18 As reader18 = () 36 () = Trim((0)) () Dim sql19 As String = select 繁殖方式 from 植物特征表 where 編號(hào) =39。 amp。 Trim() amp。 39。 Dim SqlConnection19 As New (myconnstr) Dim m19 As = New (sql19, SqlConnection19) () Dim reader19 As reader19 = () () = Trim((0)) () Dim sql20 As String = select 習(xí)性 from 植物特征表 where 編號(hào) =39。 amp。 Trim() amp。 39。 Dim SqlConnection20 As New (myconnstr) Dim m20 As = New (sql20, SqlConnection20) () Dim reader20 As reader20 = ()