延慶縣圖書館圖書管理系統(tǒng)設(shè)計(jì)畢業(yè)論文(參考版)
2025-06-25 16:40本頁面
【正文】 = FalseEnd Sub管理員登陸密碼窗體代碼（）：Private Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click() = End SubPrivate Sub Command4_Click()pw$ = 12345Title$ = 密碼核對框info1$ = 你輸入了正確的密碼info2$ = 你輸入的密碼不正確If = pw$ Then answer = MsgBox(info1$, 65, Title$)Else answer = MsgBox(info2$, 277, Title$)End IfIf = pw$ Then = TrueIf answer = 2 Then EndEnd IfEnd SubPrivate Sub Command1_Click()EndEnd SubPrivate Sub Form_Load() = FalseEnd Sub管理員窗體代碼（）： Dim a(10) As StringPrivate Sub Command1_Click()EndEnd SubPrivate Sub Form_Load() = LoadPicture(d:\新建文件夾\)a(1) = 只允許管理員進(jìn)入修改資料a(2) = 管理員要慎重修改a(3) = 你可以添加、刪除讀者和圖書End SubPrivate Static Sub Timer1_Timer()i = i + 1display (i)If i = 3 Then i = 0End SubPrivate Sub display(i) = a(i)End Sub。 (findstring)End Sub讀者信息窗體部分代碼（）：Private Sub Command4_Click()End SubPrivate Sub Command5_Click()End SubEnd SubPrivate Sub Form_Load()39。 (findstring)End SubPrivate Sub 打開_Click()End SubPrivate Sub 打印_Click()End SubPrivate Sub 刪除_Click()End SubPrivate Sub 添加_Click()End SubPrivate Sub 退出_Click()End SubPrivate Sub 字體_Click() = cdlCFScreenFonts Or cdlCFEffects = 4Dim i As IntegerFor i = 0 To 7Label1(i).FontItalic = Label1(i).FontBold = Label1(i).FontSize = Label1(i).FontName = Next iEnd Sub圖書館雜志信息窗體部分代碼（）： Private Sub Command1_Click(Index As Integer)Select Case Case 北京電視 北京電視日期為19991 日期為19993 日期為199811 日期為199812 日期為20003 日期為20025 日期為20004 日期為199911 日期為19996Case 知音 知音日期為20004 日期為19993 日期為20005 日期為199810 日期為199812 日期為20023 日期為19982 日期為19992End SelectEnd SubPrivate Sub Form_Load() = LoadPicture(d:\新建文件夾\) 知音 北京電視 = 北京電視End Sub讀者信息登陸窗體部分代碼（）：Private Sub Command2_Click()Dim findstring As Stringfindstring = 編號=39。 (findstring)End Sub圖書借出、還書入庫：Private Sub Command2_Click() = 1 = + 1If ( + 1) + ( 1) Then = ( + 1) + ( 1)End IfIf 0 Then = 0End IfEnd Sub圖書館小說信息窗體部分代碼（ ）： 窗體內(nèi)增加菜單欄：Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu 編輯, vbPopupMenuRightButtonElseEnd IfEnd SubPrivate Sub 保存_Click()End SubPrivate Sub 查詢_Click()Dim temp, findstring As Stringtemp = InputBox(編號：, 書目查詢)findstring = 編號=39。參考文獻(xiàn)[1] 劉凡馨等. ，200711[2] 林卓然. ，200911[3] （美）哈爾弗森. Visual Basic 2008從入門到精通（微軟技術(shù)叢書）.，200861[4] 陳立元，范逸之， Basic ，200841[5] ，200761[6] ，200651[7] ，200841[8] （美）沃爾曼等. ，200381[9] 陳志泊，李冬梅，200231[10] ，200811 附錄附錄1 主要文件列表1． 圖書館系統(tǒng)工程2． 圖書館登陸窗體3． 讀者信息窗體4． 圖書館小說信息窗體5． 管理員登陸密碼窗體6． 圖書館目錄窗體7． 圖書館雜志信息窗體 8． 圖書館教科書信息窗體 9． 管理員窗體 10． 讀者信息登陸窗體附錄2 數(shù)據(jù)庫結(jié)構(gòu)列表表31 讀者表結(jié)構(gòu)編號姓名性別生日學(xué)位借書時間還書時間user2王芳女198068大學(xué)1999111119991212user3吳立男197719研究生19987141998815user4吳立男1979712研究生199954199965user5
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1