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

正文內(nèi)容

圖書信息管理系統(tǒng)實訓指導書-閱讀頁

2025-05-02 08:27本頁面
  

【正文】 e) = 是 Then MsgBox 此書尚未歸還,故不能刪除!, , 提示 Exit Sub End If 39。將標志變量置為真 ActFlag = True Unload MeEnd Sub11.顯示所有借閱情況(45) 選擇菜單“借閱管理→顯示所有借閱記錄”,進入代碼編輯窗口中添加代碼如下:Private Sub DispAllBor_Click() Dim RecCount As Integer 39。 讀者編號 amp。 讀者姓名 _ amp。 所借圖書編號 amp。 所借圖書名稱 amp。 where = and _ amp。如果查到的記錄數(shù) 0,則在數(shù)據(jù)表格中顯示所有的借閱記錄 DisplayGrid (顯示所有借閱情況) Else 39。將標志變量置為假 ActFlag = False 39。判斷是否需要刷新數(shù)據(jù)表格,如果需要則顯示剛才借書讀者的借閱記錄 If ActFlag Then RecCount = If RecCount 0 Then DisplayGrid (此人借閱記錄) End If End If ActFlag = FalseEnd Sub(47) 為工程添加一個新的窗體,將新窗體”(名稱)”屬性改為”Frmborrow”,”Caption”屬性改為“借書”。(49) 修改frmborrow窗體控件的屬性,如下表:控件名稱屬性名稱屬性設置值Frame1Caption輸入數(shù)據(jù)Label1Caption圖書編號Label2Caption讀者編號Text1名稱TxtbookidTextText2名稱TxtReaderidTextCommand1名稱CmdborrowCaption借書Adodc1名稱AdodcVisibleFalse(50) 根據(jù)“frmMain”主界面中設置“Adodc”的方法來設置來本窗體的“Adodc”的“Connectionstring”屬性。判斷是否輸入了圖書編號和讀者編號,如果沒有輸入,則發(fā)出提示并退出子程序 If Trim() = Or Trim() = Then MsgBox 各項數(shù)據(jù)請?zhí)顚懲暾? , 提示 Exit Sub End If 39。 39。 Trim() amp。 RecCount1 = If RecCount1 0 Then BookStateStr = (bookstate) If BookStateStr = 是 Then 39。 39。 Trim() amp。 RecCount2 = If RecCount2 1 Then 39。如果該圖書存在并且已經(jīng)借出,而存在此讀者,則提示該書已經(jīng)借出,您不能借閱此書! MsgBox 該書已經(jīng)借出,您不能借閱此書!, , 提示 Exit Sub End If End If 39。 39。 Trim() amp。 RecCount2 = If RecCount2 1 Then 39。根據(jù)圖書編號查找該圖書的記錄 = select * from book where bookid= _ amp。 amp。 39。根據(jù)讀者編號查找此讀者記錄 = select * from reader where readerid= _ amp。 amp。 39。如果既沒有此圖書也沒有此讀者,則提示查無此書,也無此人!信息 MsgBox 查無此書,也無此人!, , 提示 Exit Sub Else 39。根據(jù)圖書編號查到在數(shù)據(jù)庫表book中該圖書的記錄 = select * from book where bookid= _ amp。 amp。 39。將該圖書的記錄是否借出狀態(tài)修改為是 (bookstate) = 是 39。在數(shù)據(jù)庫表reader中查找到該讀者的記錄 = select * from reader where readerid= _ amp。 amp。 39。將該讀者得借閱冊數(shù)加1 (booknum) = (booknum) + 1 39。 讀者編號 amp。 讀者姓名 _ amp。 所借圖書編號 amp。 所借圖書名稱 amp。 = and = _ amp。 39。 Trim() amp。 39。將標志變量置為假 ActFlag = False 39。判斷是否需要刷新數(shù)據(jù)表格,如果需要的話,則在數(shù)據(jù)表格中顯示該書原讀者未還書記錄 If ActFlag Then RecCount = DisplayGrid (該書原讀者未還書記錄) End If ActFlag = FalseEnd Sub(53) 為工程添加一個新的窗體,將新窗體“(名稱)”屬性改為“frmReturn”,“Caption”屬性改為“還書”。(57) 雙擊“還書”按鈕,在代碼編輯窗口中添加以下Private Sub CmdReturn_Click() Dim RecCount As Integer Dim DelReaderidStr As String 39。根據(jù)圖書編號查找圖書記錄 = select * from book where bookid= amp。 amp。 39。如果圖書記錄數(shù)為0,則提示查無此書!信息,退出子程序 If RecCount 1 Then MsgBox 查無此書!, , 提示 Exit Sub End If 39。 39。 Trim() amp。 RecCount = 39。用變量DelReaderidStr記錄借閱該圖書的讀者編號 DelReaderidStr = (readerid) 39。根據(jù)圖書編號從數(shù)據(jù)庫表book中查找該圖書的記錄 = select * from book where bookid= amp。 amp。 39。將該圖書的是否借出字段值修改為否 If RecCount 0 Then (bookstate) = 否 End If 39。 39。 DelReaderidStr amp。 RecCount = If RecCount 0 Then 39。用將多表連接查詢語句來查詢該圖書原借閱讀者的所有現(xiàn)有借閱記錄 = select as _ amp。 , as amp。 , as amp。 , as _ amp。 from borrow,reader,book where _ amp。 and = amp。 amp。 39。將標志變量置為真 ActFlag = True Unload MeEnd Sub14.根據(jù)人來查書(58) 選擇菜單“借閱管理→根據(jù)人來查書”,在代碼編輯窗口中添加以下代碼:Private Sub ReaderToBook_Click() Dim RecCount As Integer 39。將標志變量置為假 ActFlag = False 39。判斷是否需要在數(shù)據(jù)表格中顯示根據(jù)人來查書 If ActFlag Then RecCount = If RecCount 0 Then DisplayGrid (根據(jù)人來查書) End If End If ActFlag = FalseEnd Sub(59) 為工程添加一個新的窗體,將新窗體“(名稱)”屬性改為“frmReaderToBook”,“Caption”屬性改為“根據(jù)人來查書”。(63) 雙擊“查詢”按鈕,在代碼編輯窗口中添加以下代碼:Private Sub CmdFind_Click() Dim RecCount As Integer 39。根據(jù)讀者編號查找該讀者記錄 = select * from reader where readerid= _ amp。 amp。 39。如果查到的記錄條數(shù)為0,則提示查無此人!信息,退出子程序 If RecCount 1 Then MsgBox 查無此人!, , 提示 Exit Sub End If 39。 39。 Trim() amp。 RecCount = If RecCount 1 Then 39。否則用將多表連接查詢語句來查詢該讀者的所有現(xiàn)有借閱記錄 = select as _ amp。 , as amp。 , as amp。 , as _ amp。 from borrow,reader,book where _ amp。 and = amp。 amp。 39。將標志變量置為真 ActFlag = True Unload Me End IfEnd Sub15.根據(jù)書來查人(64) 選擇菜單“借閱管理→根據(jù)書來查人”,在代碼編輯窗口中添加以下代碼:Private Sub BookToReader_Click() Dim RecCount As Integer 39。將標志變量置為假 ActFlag = False 39。判斷是否要在數(shù)據(jù)表格中顯示根據(jù)書來查人信息 If ActFlag Then RecCount = If RecCount 0 Then DisplayGrid (根據(jù)書來查人) End If End If ActFlag = FalseEnd Sub(65) 為工程添加一個新的窗體,將新窗體“(名稱)”屬性改為“frmBookToReader”,“Caption”屬性改為“根據(jù)書來查人”。(69) 雙擊“查詢”按鈕,在代碼編輯窗口中添加以下代碼:Private Sub CmdFind_Click() Dim RecCount As Integer 39。根據(jù)圖書編號查找圖書記錄 = select * from book where bookid= _ amp。 amp。 39。如果查到的條數(shù)為0,則提示查無此書信息,退出子程序 If RecCount 1 Then MsgBox 查無此書, , 提示 Exit Sub End If 39。 39。 Trim() amp。 RecCount = 39。否則用將多表連接查詢語句來查詢該圖書的借閱記錄 = select as _ amp。 , as amp。 , as amp。 , as _ amp。 from borrow,reader,book where _ amp。 and = amp。 amp。 39。將標志變量置為真 ActFlag = True Unload Me End IfEnd Sub40 / 4
點擊復制文檔內(nèi)容
公司管理相關推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號-1