【文章內(nèi)容簡介】 ”姓名=39。“ + Trim(Text1(1).Text)+ ”39?！癊lsestr = str + ” and 姓名=39?！?+ Trim(Text1(1).Text)+ ”39?！癊nd IfEnd IfIf Trim(Text1(2).Text) ”“ ThenIf str = ”“ Thenstr = ”單位=39?！?+ Trim(Text1(2).Text)+ ”39?！癊lsestr = str + ” and 單位=39?！?+ Trim(Text1(2).Text)+ ”39?！癊nd IfEnd IfIf Trim(Text1(3).Text) ”“ ThenIf str = ”“ Thenstr = ”級別=39?！?+ Trim(Text1(3).Text)+ ”39?！癊lsestr = str + ” and 級別=39?！?+ Trim(Text1(3).Text)+ ”39。“End IfEnd IfIf Trim(Text1(4).Text) ”“ ThenIf str = ”“ Thenstr = ”性別=39。“ + Trim(Text1(4).Text)+ ”39。“Elsestr = str + ” and 性別=39?！?+ Trim(Text1(4).Text)+ ”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。設(shè)置條件重置Text1(0).Text = ”“Text1(1).Text = ”“Text1(2).Text = ”“Text1(3).Text = ”“Text1(4).Text = ”“ End SubPrivate Sub enm()39。自定義子過程:判斷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 圖書編號=39?！?+ bno + ”39?！癝et brs = exesql(sqltxt)If = 0 ThenMsgBox ”該書不是從本圖書館所借的,不能歸還!“, vbOKOnly, ”信息提示“ElseIf Trim((”借書證號“)) rno ThenIf rno ”“ Then39。另一讀者還書,自動列出上一個還書人的罰款單dstr = ”罰款單“ + Chr(10)+ Chr(13)dstr = dstr amp。 ”姓名:“ amp。 Trim(Text2(1).Text)+ ”(“ + rno + ”)罰款總額:“ amp。 str(Text2(4).Text)amp。 ”元“MsgBox dstr, vbOKOnly, ”列罰款單“End Ifrno = Trim((”借書證號“))sqltxt = ”select * from book where 圖書編號=39?！?+ bno + ”39?！?39。處理圖書記錄Set bs = exesql(sqltxt)(”借否“)= ”否“sqltxt = ”select * from reader where 借書證號=39。“ + rno + ”39?！?39。處理讀者記錄Set rs = exesql(sqltxt)(”已借書數(shù)“)= (”已借書數(shù)“)(”已借書數(shù)“)If((”借書日期“)1If((”借書日期“)1Call enmEnd If End SubPrivate Sub Comm4_Click()Unload Me End SubPrivate Sub enm()If recs = 0 Then = False = FalseElse = True = TrueEnd If End SubSetuser1：Dim cond As StringPrivate Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenSendKeys ”{TAB}“End If End SubPrivate Sub Form_Load()If flag = 2 ThenText1(0).Text = (”用戶名“)Text1(1).Text = (”口令“) = (”級別“)End If End SubPrivate Sub Comm1_Click()If Trim(Text1(0).Text)= ”“ Or Trim(Text1(1).Text)= ”“ Or Trim()= ”“ ThenMsgBox ”數(shù)據(jù)項不全,請重新設(shè)置“, vbOKOnly, ”信息提示“Text1(0).SetFocusExit SubEnd IfIf flag = 1 Then 39。添加操作If 0 Then 39。原記錄個數(shù)大于0cond = ”級別=39?！?+ Trim(Text1(0).Text)+ ”39。“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。修改操作n = cond = ”級別=39。“ + Trim(Text1(0).Text)+ ”39。“ 39。每次從頭開始查找(cond)If Not ()And n ThenMsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“39。這兩個語句恢復原記錄位置(n1)(”用戶名“)= Trim(Text1(0).Text)(”口令“)= Val(Trim(Text1(1).Text))(”級別“)= Trim()End IfUnload Me End SubPrivate Sub Comm2_Click()Unload Me End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)Call endata(KeyAscii)End Sub模塊：Public userlevel As String 39。保存用戶級別Public flag As Integer39。用作記錄操作標記Public tna As String39。保存表名:用于調(diào)用edrec1窗體 Public cap As String39。保存標題名:用于調(diào)用edrec1窗體 Public recs As Integer39。保存記錄集中記錄個數(shù)Sub main() vbModal End SubPublic Function exesql(ByVal sql As String)As sql = Trim$(sql)Set conn = New Set rst = New = ”DSN=Library。UID=sa。PWD=?！癝et = conn = adLockOptimistic = adOpenKeyset sqlSet exesql = rstSet rst = NothingSet conn = Nothing End FunctionPublic Sub deldata(ByVal tn As String)刪除指定表中所有記錄,對于oper表添加一個系統(tǒng)用戶Dim sql As Stringsql = ”delete “ amp。 Trim$(tn)Set conn = New = ”DSN=Library。UID=sa。PWD=。“ sqlIf Trim(tn)= ”oper“ Thensql = ”insert oper values(39。123439。,39。123439。,39。系統(tǒng)管理員39。)“ sqlEnd If End Sub Public Sub endata(Keyasc As Integer)If Keyasc = 13 ThenSendKeys ”{TAB} 39。將回車鍵轉(zhuǎn)換成Tab鍵End If End Sub第三篇：圖書管理系統(tǒng)數(shù)據(jù)庫源代碼圖書管理系統(tǒng)數(shù)據(jù)庫源代碼//創(chuàng)建工程及設(shè)計主界面public class Main extends JFrame { private static final JDesktopPane {DESKTOP_PANE=new JDesktopPane()。//桌面窗體} public static void main(String[] args)//入口方法{try{(())。//設(shè)置系統(tǒng)界面外觀new BookLogin()。//登錄窗口}catch(Exception ex){()。} } public static void addIFame(JInternalFrame iframe)//添加子窗體的方法{(iframe)。//新增子窗體} public Main(){super()。//設(shè)置“關(guān)閉”按鈕處理事件setDefaultCloseOperation()。//創(chuàng)建工具欄Toolkit tool=Toolkit,getDefaultToolkit()。//獲得屏幕大小Dimension screenSize=()。setSize(800,600)。//設(shè)置窗體大小setLocation((())/2,(())/2。//設(shè)置窗體位置setTitle(“圖書管理系統(tǒng)”)；//設(shè)置窗體標題JMenuBar menuBar=createMenu()。//創(chuàng)建菜單欄setJMenuBar(menuBar)。//設(shè)置菜單欄JToolBar toolBar=createToolBar()。//創(chuàng)建工具欄的方法getContentPane(),add(toolBar,)。//設(shè)置工具欄final JLable lable=new JLable()。//創(chuàng)建一個標簽，用來顯示圖片(0,0,0,0)。//設(shè)置窗體的大小和位置(null)。//窗體背景(new ComponentAdapter()){public void ponentResized(final ComponentEvent e){Dimension size=().getSize()。//獲得組建大小(().getSize())。//設(shè)置標簽大小(“”)。//設(shè)置標簽文本，設(shè)置窗口背景}}//將標簽添加到桌面窗體(lable,new Integer())。getContentPane().add(DESKTOP_PANE)。//將桌面窗體添加到主窗體中} } private JToolBar createToolBar()//創(chuàng)建工具欄的方法 { JToolBar toolBar=new JToolBar()。//初始化工具欄(false)。//設(shè)置是否可以移動工具欄(new BevelBorder())。//設(shè)置邊框//圖書信息添加按鈕JButton bookAddButton=new JButton()。ImageIcon icon=new ImageIcon((“/”))。//添加菜單欄圖標(icon)。//設(shè)置按鈕圖標(true)。//顯示提示文本(bookAddButton)。//添加到工具欄中JButton bookModiAndDelButton=new JButton()。//圖書信息修改按鈕ImageIcon bookmodiicon=(“”)。//創(chuàng)建圖表方法(bookmodiicon)。//設(shè)置按鈕圖標(true)。//顯示提示文本(bookModiAndDelButton)。//添加到工具欄JButton bookTypeAddButton=new JButton()。//圖書類別添加按鈕ImageIcon bookTypeAddicon=(“”)。//創(chuàng)建圖標方法(bookTypeAddicon)。//設(shè)置按鈕圖標(true)。//顯示提示文本(bookTypeAddButton)。//添加到工具欄JBu