【正文】 //添加到工具欄JButton readerAddButton=new JButton()。//設(shè)置按鈕圖標(biāo)(true)。//驗(yàn)收新書按鈕ImageIcon bookCheckicon=(“”)。//顯示提示文本(bookOrderButton)。//創(chuàng)建圖標(biāo)方法(bookOrdericon)。//添加到工具欄JButton bookOrderButton=new JButton()。//設(shè)置按鈕圖標(biāo)(true)。//圖書借閱按鈕ImageIcon bookBorrowicon=(“”)。//顯示提示文本(bookTypeAddButton)。//創(chuàng)建圖標(biāo)方法(bookTypeAddicon)。//添加到工具欄JButton bookTypeAddButton=new JButton()。//設(shè)置按鈕圖標(biāo)(true)。//圖書信息修改按鈕ImageIcon bookmodiicon=(“”)。//顯示提示文本(bookAddButton)。//添加菜單欄圖標(biāo)(icon)。//設(shè)置邊框//圖書信息添加按鈕JButton bookAddButton=new JButton()。//初始化工具欄(false)。getContentPane().add(DESKTOP_PANE)。//設(shè)置標(biāo)簽大小(“”)。//窗體背景(new ComponentAdapter()){public void ponentResized(final ComponentEvent e){Dimension size=().getSize()。//創(chuàng)建一個(gè)標(biāo)簽，用來顯示圖片(0,0,0,0)。//創(chuàng)建工具欄的方法getContentPane(),add(toolBar,)。//創(chuàng)建菜單欄setJMenuBar(menuBar)。//設(shè)置窗體大小setLocation((())/2,(())/2。//獲得屏幕大小Dimension screenSize=()。//設(shè)置“關(guān)閉”按鈕處理事件setDefaultCloseOperation()。} } public static void addIFame(JInternalFrame iframe)//添加子窗體的方法{(iframe)。//設(shè)置系統(tǒng)界面外觀new BookLogin()。將回車鍵轉(zhuǎn)換成Tab鍵End If End Sub第三篇：圖書管理系統(tǒng)數(shù)據(jù)庫源代碼圖書管理系統(tǒng)數(shù)據(jù)庫源代碼//創(chuàng)建工程及設(shè)計(jì)主界面public class Main extends JFrame { private static final JDesktopPane {DESKTOP_PANE=new JDesktopPane()。系統(tǒng)管理員39。123439。123439。PWD=。 Trim$(tn)Set conn = New = ”DSN=Library。PWD=。保存記錄集中記錄個(gè)數(shù)Sub main() vbModal End SubPublic Function exesql(ByVal sql As String)As sql = Trim$(sql)Set conn = New Set rst = New = ”DSN=Library。保存表名:用于調(diào)用edrec1窗體 Public cap As String39。保存用戶級別Public flag As Integer39。每次從頭開始查找(cond)If Not ()And n ThenMsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“39?！?+ Trim(Text1(0).Text)+ ”39。每次從頭開始查找(cond)If Not ()ThenMsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“Text1(0).SetFocusExit SubEnd IfEnd If(”用戶名“)= Trim(Text1(0).Text)(”口令“)= Val(Trim(Text1(1).Text))(”級別“)= Trim()recs = recs + 1Else39?！?+ Trim(Text1(0).Text)+ ”39。添加操作If 0 Then 39?！?39。處理圖書記錄Set bs = exesql(sqltxt)(”借否“)= ”否“sqltxt = ”select * from reader where 借書證號(hào)=39?！?+ bno + ”39。 str(Text2(4).Text)amp。 ”姓名:“ amp?！癝et brs = exesql(sqltxt)If = 0 ThenMsgBox ”該書不是從本圖書館所借的,不能歸還!“, vbOKOnly, ”信息提示“ElseIf Trim((”借書證號(hào)“)) rno ThenIf rno ”“ Then39。自定義子過程:判斷Adodc1中是否存在記錄If = 0 Then = FalseElse = TrueEnd If End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)Call endata(KeyAscii)End SubRetbook：Public rno As String Public bno As StringPrivate Sub Comm1_Click()bno = Trim()If bno ”“ ThenDim sqltxt As Stringsqltxt = ”select * from borrow where 圖書編號(hào)=39?！癊nd IfEnd IfIf str ”“ Then = ”select * from reader where “ + strElse = ”select * from reader“End IfIf = 0 ThenMsgBox ”沒有任何滿足條件的記錄“, vbOKOnly, ”信息提示“End IfCall enm End SubPrivate Sub selcmd2_Click()39?！癊lsestr = str + ” and 性別=39?！癊nd IfEnd IfIf Trim(Text1(4).Text) ”“ ThenIf str = ”“ Thenstr = ”性別=39。“Elsestr = str + ” and 級別=39?！癊nd IfEnd IfIf Trim(Text1(3).Text) ”“ ThenIf str = ”“ Thenstr = ”級別=39。“Elsestr = str + ” and 單位=39?！癊nd IfEnd IfIf Trim(Text1(2).Text) ”“ ThenIf str = ”“ Thenstr = ”單位=39?！癊lsestr = str + ” and 姓名=39?！癊nd IfEnd IfIf Trim(Text1(1).Text) ”“ ThenIf str = ”“ Thenstr = ”姓名=39?！癊lsestr = str + ” and 借書證號(hào)=39。條件表達(dá)式If Trim(Text1(0).Text) ”“ ThenIf str = ”“ Thenstr = ”借書證號(hào)=39。 ”)“ + Chr(10)+ Chr(13)LoopMsgBox strn, vbOKOnly, ”列所借圖書清單“End If End SubPrivate Sub Comm2_Click()Unload Me End SubPrivate Sub Form_Activate()Call enm End SubPrivate Sub selcmd1_Click()39。 ”(“ amp。“Set rs = exesql(sqltxt)If = 0 ThenMsgBox ”該讀者沒有借任何圖書“, vbOKOnly, ”信息提示“Elsestrn = ”書名(借書日期)“ + Chr(10)+ Chr(13)Do While Not ()strn = strn amp。自定義子過程:判斷Adodc1中是否存在記錄If = 0 Then = FalseElse = TrueEnd If End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)Call endata(KeyAscii)End SubQureader：Private Sub Comm1_Click()Dim strn As StringDim sqltxt As Stringno = Trim((”借書證號(hào)“))sqltxt = ”select * from borrow where 借書證號(hào)=39?！癊nd IfEnd IfIf Trim(Text1(5).Text) ”“ ThenIf str = ”“ Thenstr = ”定價(jià)=“ + Trim(Text1(5).Text)Elsestr = str + ” and 定價(jià)=“ + Trim(Text1(5).Text)End IfEnd IfIf str ”“ Then = ”select * from book where “ + strElse = ”select * from book“End IfIf = 0 ThenMsgBox ”沒有任何滿足條件的記錄“, vbOKOnly, ”信息提示“End IfCall enm End SubPrivate Sub selcmd2_Click()39?！癊lsestr = str + ” and 借否=39。“End IfEnd IfIf Trim(Text1(4).Text) ”“ ThenIf str = ”“ Thenstr = ”借否=39?！癊lsestr = str + ” and 出版社=39?！癊nd IfEnd IfIf Trim(Text1(3).Text) ”“ ThenIf str = ”“ Thenstr = ”出版社=39。“Elsestr = str + ” and 作者=39?！癊nd IfEnd IfIf Trim(Text1(2).Text) ”“ ThenIf str = ”“ Thenstr = ”作者=39。“Elsestr = str + ” and 書名=39?！癊nd IfEnd IfIf Trim(Text1(1).Text) ”“ ThenIf str = ”“ Thenstr = ”書名=39。“Elsestr = str + ” and 圖書編號(hào)=39。條件表達(dá)式If Trim(Text1(0).Text) ”“ ThenIf str = ”“ Thenstr = ”圖書編號(hào)=39?！癝et rs = exesql(sqltxt)If = 0 ThenMsgBox ”該圖書沒有借書記錄“, vbOKOnly, ”信息提示“ElseMsgBox ”圖書編號(hào):“ + no + Chr(10)+ Chr(13)+ _”書名:“ + Trim((”書名“))+ Chr(10)+ Chr(13)+ _”借 書 人:“ + Trim((”姓名“))+ Chr(10)+ Chr(13)+ _”單位:“ + Trim((”單位“))+ Chr(10)+ Chr(13)+ _”借書日期:“ + Format((”借書日期“), ”“), vbOKOnly, ”查找結(jié)果“End IfElseMsgBox ”該書沒有外借,不能顯示借書人“, vbOKOnly, ”信息提示“End If End SubPrivate Sub Comm2_Click()Unload Me End SubPrivate Sub Form_Activate()Call enm End SubPrivate Sub selcmd1_Click()39。n保存登錄的次數(shù) End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)Call endata(KeyAscii)End SubQubook：Private Sub Comm1_Click()Dim sqltxt As StringIf (”借否“)= ”借“ Thenno = Trim((”圖書編號(hào)“))sqltxt = ”select * from borrow where 圖書編號(hào)=39。找到合法用戶記錄userlevel = Trim((”級別“))Unload Me 39?！癝et mrc = exesql(txtsql)If = 0 Then 39?！?amp?！?amp。 _Trim$(Text1(0).Text)amp。這兩個(gè)語句恢復(fù)原記錄位置(n1)(”fn“)= Trim()End IfUnload Me End SubPriva