freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

畢業(yè)設(shè)計(jì)-vbsql圖書管理系統(tǒng)-資料下載頁(yè)

2024-09-11 15:24本頁(yè)面

【導(dǎo)讀】作靠個(gè)人開發(fā)效率低,不符合商業(yè)的要求,團(tuán)體合作。[2]趙松濤,VisualBasic+SQLServer2020系統(tǒng)開發(fā)實(shí)錄,加、修改、刪除和查詢。查詢可從圖書ID、圖書名稱、圖書類。型以及所有圖書信息。輸入借書證號(hào)或讀者姓名。息更新、膝蓋、刪除。國(guó)企罰款的設(shè)置等。借閱續(xù)借還書等操作。求也相應(yīng)增強(qiáng),有關(guān)圖書、讀者的各種信息量也成倍增長(zhǎng)。圖書管理工作的效率,實(shí)現(xiàn)信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速查詢,慮用戶權(quán)限問(wèn)題;具有對(duì)圖書的基本信息和借閱信息進(jìn)行統(tǒng)計(jì)的功能;具有數(shù)據(jù)備份與恢復(fù)等功能;序設(shè)計(jì)的要求,得到如下圖所示的系統(tǒng)功能模塊圖。民族、政治面貌、出生年月、讀者類別、家庭住址、相片等;書類型、借出量、現(xiàn)存量、操作員、內(nèi)容簡(jiǎn)介等;⑦圖書類型信息:類型編號(hào)、圖書類型、可借天數(shù)等;根據(jù)數(shù)據(jù)庫(kù)需求分析,本系統(tǒng)的數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)如下。書借閱信息查詢界面設(shè)計(jì)相同,故在此略。

  

【正文】 (1).Text = 總共有 0 條記錄 Exit Sub Else 1 End If End If End If If = 續(xù)借此書 Then If = Then MsgBox 請(qǐng)輸入身份用戶名! Exit Sub End If If InStr(1, Trim(), ,) 0 Then MsgBox 請(qǐng)不要輸入單引號(hào)等非法字符! = Exit Sub End If sql = select * from 用戶 where 用戶名 =39。 + _ + 39。 and 用戶密碼 =39。 + Trim() + 39。 strn sql, n, 3, adLockOptimistic If 0 Then MsgBox 密 碼 輸 入 正 確 ! 歡 迎 登 錄 !, vbOKOnly + vbInformation, 信息 = rst!用戶權(quán)限 = rst!用戶名 Unload Me 1 Else MsgBox 密 碼 錯(cuò) 誤 ! 請(qǐng) 重 新 輸 入 ! , vbOKOnly + vbExclamation, 信息 = End If End Sub Private Sub Command2_Click() If MsgBox(你確定要退出嗎? , vbQuestion + vbOKCancel, 提示 ) = vbOK Then End End If End Sub Private Sub Form_Load() 管理員 操作員 End Sub 論文網(wǎng) Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = vbBlack = False End Sub Private Sub lblfj_Click() Dim n As New Dim cmd As New Dim sql As String sql = exec sp_attach_db 39。tushu39。, _ + 39。 + + \DataBase\39。, _ + 39。 + + \DataBase\39。 On Error GoTo lab Provider=。Integrated Security=SSPI = n = adCmdText = sql MsgBox 數(shù)據(jù)庫(kù)附加成功! , vbInformation, 提示 Exit Sub lab: If = 1 Then End If MsgBox 數(shù)據(jù)庫(kù)已附加 !, vbExclamation, 提示 End Sub Private Sub lblfj_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = vbBlue = True End Sub 系統(tǒng)數(shù)據(jù)備份與恢復(fù)代碼設(shè)計(jì)①數(shù)據(jù)備份代碼如下:
點(diǎn)擊復(fù)制文檔內(nèi)容
環(huán)評(píng)公示相關(guān)推薦
文庫(kù)吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1