圖書管理系統(tǒng)2—計算機畢業(yè)設(shè)計-文庫吧在線文庫

　　

【正文】 If Set g_rs = Nothing End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() dbl End Sub Private Sub text1_keypress(keyascii As Integer) If keyascii = 13 Then End If End Sub Private Sub text2_keypress(keyascii As Integer) If keyascii = 13 Then End If End Sub 主窗體 Private Sub book_Click() End Sub Private Sub help_Click() Shell , vbNormalFocus End Sub Private Sub MDbackUp_Click() End Sub Private Sub mdiform_unload(cancel As Integer) If MsgBox(你確定要退出嗎？ , vbInformation + vbOKCancel, 提示 ) = vbOK Then End Else cancel = 1 End If End Sub Private Sub MDTsum_Click() End Sub Private Sub mfabout_Click() End Sub Private Sub mfaddbook_Click() Set g_rs = (booktype, dbOpenTable) If 0 Then Else MsgBox 請先設(shè)置書籍類別代碼！ , vbInformation + vbOKOnly, 警告 End If Set g_rs = Nothing End Sub Private Sub mfaddreader_Click() End Sub Private Sub mfbooktype_Click() End Sub Private Sub mdiform_load() = False = False = False = False = False = False End Sub Private Sub mfcheck_Click() End Sub Private Sub mfclose_Click() If MsgBox(你確定要退出嗎？ , vbInformation + vbOKCancel, 提示 ) = vbOK Then End End If End Sub Private Sub mffindbook_Click() End Sub Private Sub mffindreader_Click() End Sub Private Sub mflent_Click() End Sub Private Sub mflest_Click() If MsgBox(你確定要注銷嗎？ , vbInformation + vbOKCancel, 注銷 ) = vbOK Then = False = False = False = False = False (3).Text = End If End Sub Private Sub MFreaderL_Click() End Sub Private Sub mfrennew_Click() End Sub Private Sub mfreturn_Click() End Sub Private Sub mfsetadmin_Click() End Sub Private Sub mfsetinfo_Click() End Sub Private Sub print_Click() End Sub Private Sub reader_Click() End Sub Private Sub Timer1_Timer() (4) = Now End Sub 數(shù)據(jù)維護窗體 Private Sub Form_Load() On Error Resume Next MkDir amp。備份數(shù)據(jù)庫 If 0 Then Kill amp。恢復指定路徑下的數(shù)據(jù)庫 If 0 Then m = GetString(HKEY_CURRENT_USER, RegData\Date, ) FileCopy amp。 Set g_rs = (g_strsql) (是否借出 ).Value = True Set g_rs = Nothing MsgBox 操作成功，請返回！ , vbInformation + vbOKOnly, 信息 = = = = = = = StrDataGrid Else MsgBox 對不起，你的書已經(jīng)借滿了，不能再借！ , vbInformation + vbOKOnly, 信息 End If = False End Sub Private Sub Form_Load() dbl = Date End Sub Private Sub readeridtxt_keypress(keyascii As Integer) If keyascii = 13 And Then g_strsql = select * from readerinfo where 讀者編號 =39。 amp。 =39。 \。 amp。 amp。 amp。% amp。% amp。% amp。% amp。% amp。 %39。 amp。 amp。 amp。 amp。 amp。 amp。 _ amp。 and 借書日期 = amp。 amp。 and bookinfo.類別代碼 = and _ amp。 , , ,lentinfo.借書日期 , , _ amp。 Set g_rs = (g_strsql) If Not Then = g_rs!讀者姓名 = g_rs!所屬班級 StrDataGrid Else MsgBox 對不起，沒有該讀者信息！ , vbInformation + vbOKOnly, 提示 = End If Set g_rs = Nothing ElseIf keyascii = 13 And = Then MsgBox 對不起，請輸入讀者編號！ , vbInformation + vbOKOnly, 警告 End If End Sub Private Sub bookidtxt_keypress(keyascii As Integer) If keyascii = 13 And And Then g_strsql = select , ,社 , , , _ amp。 , = 0 MsgBox 數(shù)據(jù)已 恢復完畢！ Else MsgBox 請選擇要恢復的數(shù)據(jù)！ End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String) As String Dim strstring As String On Error Resume Next Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As Long RegQueryValueEx hKey, strValueName, 0, lValueType, ByVal 0, lDataBufSize strBuf = String(lDataBufSize, Chr$(0)) RegQueryValueEx hKey, strValueName, 0, 0, ByVal strBuf, lDataBufSize RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) 1) Exit Function End Function Function GetString(hKey As Long, strPath As String, strValue As String) Dim Ret RegOpenKey hKey, strPath, Ret GetString = RegQueryStringValue(Ret, strValue) RegCloseKey Ret End Function Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String) Dim Ret RegCreateKey hKey, strPath, Ret RegSetValue Ret, strValue, REG_SZ, strData, Len(strData) RegCloseKey Ret End Sub 借書窗體 Private Sub Command1_Click() If 0 Then Set g_rs = (lentinfo, dbOpenTable) With g_rs .AddNew .Fields(讀者編號 ) = .Fields(書籍編號 ) = .Fields(借書日期 ) = .Update End With Set g_rs = Nothing g_strsql = select * from bookinfo where 書籍編號 =39。 備份卡 amp。 End Sub Private Sub Drive1_Change() = End Sub Private Sub File1_Click() = amp。 登 陸身份：超級管理員 End If If g_rs!數(shù)據(jù)庫維護員 = True Then MsgBox 用戶： + + 你當前的身份是數(shù)據(jù)庫維護員，登陸時間： + (4).Text + , vbInformation + vbOKOnly, 登陸信息 = True = True = True = False = True = True (3).Text = 當前操作員： amp。 amp。 創(chuàng)建菜單編輯系統(tǒng)主菜單 實現(xiàn)數(shù)據(jù)庫之間的聯(lián)系 數(shù)據(jù)庫之間的關(guān)系指明兩個庫之間共享一個共同的關(guān)鍵字值。一般把同名實體類型作為公共實體類型的一類候選，把具有相同鍵的實體類型作 為公共實體類型的另一類候選。一種完整的方式是對局部結(jié)構(gòu)中任意兩個借閱圖書 續(xù)借圖書 還書 書 籍 查詢 借閱信息 讀者查詢 用戶設(shè)置 書籍設(shè)置 讀者設(shè)置 數(shù)據(jù)備份 打印報表 注銷 退出 實體類型，依據(jù)需求分析的結(jié)果，考察局部結(jié)構(gòu)中任意兩個實體類型之間是否存在聯(lián)系。數(shù)據(jù)字典是關(guān)于數(shù)據(jù)庫中數(shù)據(jù)的描述，它的作用是在軟件分析和設(shè)計過程中為有關(guān)人員提供關(guān)于數(shù)據(jù)描述信息的查詢，以保證數(shù)據(jù)的一致