某大學(xué)二級(jí)學(xué)院圖書管理系統(tǒng)的設(shè)計(jì)與開發(fā)(1)(編輯修改稿)
2024-12-22 16:17 本頁面
【文章內(nèi)容簡(jiǎn)介】 m_Click() End Sub Private Sub n_Click() 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 End Sub Private Sub Form_Load() End Sub （ 2）進(jìn)入圖書館管理系統(tǒng) 代碼： Private Sub Picture1_Click() End Sub （ 3）圖書館管理信息系統(tǒng)主頁面 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 其代碼為： Private Sub Command2_Click() End Sub Private Sub Form_Load() End Sub Private Sub mun_查詢讀者 _Click() End Sub Private Sub mun_刪除讀者 _Click() 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 End Sub Private Sub mun_添加讀者 _Click() End Sub (4)添加讀者 代碼： Private Sub Command1_Click() (讀者 ID) = (讀者類型 ) = (讀者姓名 ) = 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 If = True Then End If MsgBox 添加讀者成功！ , vbOKOnly, 添加 Exit Sub End Sub Private Sub Command2_Click() End Sub Private Sub Text3_Change() End Sub (5)刪除讀者 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 代碼： Private Sub Command1_Click() MsgBox 刪除成功 , vbOKOnly, 提示 End Sub Private Sub Command2_Click() 39。取消 End Sub Private Sub Form_Load() End Sub (6)讀者查詢 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 代碼： Private Sub Command1_Click() Strselect = select * from 讀者數(shù)據(jù)資料表 where 讀者 ID = 39。 amp。 amp。 39。 = adCmdText = Strselect Set = Adodc1 If = 0 Then MsgBox 沒有找到你要的相關(guān)數(shù)據(jù) , vbOKOnly + vbI
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1