图书管理系统用VB编程的源代码 急求！！！

Question

可以添加信息，删除信息。
真的很急！请大家帮帮忙

Answer 1

(3) 在模块中定义整个项目的公共变量。　　Public conn As New ADODB.Connection ' 标记连接对象　　Public userID As String ' 标记当前用户ID　　Public userpow As String ' 标记用户权限　　Public find As Boolean ' 标记查询　　Public sqlfind As String ' 查询语句　　Public rs_data1 As New ADODB.Recordset　　Public findok As Boolean　　Public frmdata As Boolean　　Public Const keyenter = 13 ' enter键的ASCII码　　在主窗体添加完菜单之后，就要为各个子菜单创建事件处理程序。 主窗体代码　　在本项目中，子菜单事件都是Click事件，这里先给出主窗体部分的代码。　　下面是响应“增加用户”子菜单Click事件，调出增加用户窗体代码。　　Private Sub adduser_Click()　　frmadduser.Show　　End Sub　　下面是响应“查询输出”子菜单Click事件，调出查询输出窗体代码。　　Private Sub chaxunshUChu_Click()　　frmfind.Show　　End Sub　　下面是响应“退出”子菜单Click事件，调出退出窗体代码。　　Private Sub exit_Click()　　Unload Me　　End Sub　　下面是响应“图书登记”子菜单Click事件，调出图书登记窗体代码。　　Private Sub checkin_Click()　　frmdengji.Show　　End Sub　　下面是响应“修改密码”子菜单Click事件，调出修改密码窗体代码。　　Private Sub changepwd_Click()　　frmchangepwd.Show　　End Sub　　下面是响应“图书借阅”子菜单Click事件，调出图书借阅窗体代码。　　Private Sub borrow_Click()　　frmjieyue.Show　　End Sub　　下面是响应“图书赔偿”子菜单Click事件，调出图书赔偿窗体代码。　　Private Sub tushupeichang_Click()　　frmpeichang.Show 1　　End Sub　　下面是响应“值班管理”菜单Click事件，调出值班管理窗体代码。　　Private Sub zhibanguanli_Click()　　frmzhiban.Show 1　　End Sub　　下面是响应“投诉管理”子菜单Click事件，调出投诉管理窗体代码。
　　Private Sub tousuguanli_Click()　　frmtousu.Show 1　　End Sub　　2、各子窗体的代码　　在各个子窗体建立好后，就可以根据各个子窗体的功能给它们添加相应代码了。　　(1) 图书登记子窗体代码　　本窗体用来填写图书登记的信息，用ADO来连接数据库，是本窗体的重点。采用MDI的子程序，所以运行后，它出现在主程序的界面下，如图33所示。　　 
　　图33 图书登记子窗体　　按钮控件要求先填写基本信息，然后与数据库信息比较。　　Private Sub Command1_Click()　　On Error GoTo adderr　　Text1.SetFocus　　Adodc1.Recordset.AddNew　　Exit Sub　　adderr:　　MsgBox Err.Description　　End Sub　　Private Sub Command2_Click()　　On Error GoTo deleteerr　　With Adodc1.Recordset　　If Not .EOF And Not .BOF Then　　If MsgBox("删除当前记录吗?", vbYesNo + vbQuestion) = vbYes Then　　.Delete　　.MoveNext　　If .EOF Then .MoveLast　　End If　　End If　　End With　　Exit Sub　　deleteerr:　　MsgBox Err.Description　　End Sub　　Private Sub Command3_Click()　　Adodc1.Recordset.MoveNext　　If Adodc1.Recordset.EOF Then　　MsgBox "这是最后一条记录", vbOKCancel + vbQuestion　　Adodc1.Recordset.MoveLast　　End If　　End Sub　　Private Sub Command4_Click()　　Adodc1.Recordset.MovePrevious　　If Adodc1.Recordset.BOF Then　　MsgBox "这是第一条记录", vbOKCancel + vbQuestion　　Adodc1.Recordset.MoveFirst　　End If　　End Sub　　Private Sub Command5_Click()　　If Adodc1.Recordset.EOF Then　　MsgBox "记录空", vbOKCancel + vbQuestion　　End　　Else　　Adodc1.Recordset.MoveFirst　　Exit Sub　　End Sub　　Private Sub Command6_Click()　　If Adodc1.Recordset.RecordCount = 0 Then
　　MsgBox "空记录", vbOKCancel + vbQuestion　　End　　Else　　Adodc1.Recordset.MoveLast　　End If　　End Sub　　Private Sub Command7_Click()　　MDIForm1.Show　　frmdengji.Hide　　End Sub　　图书借阅和图书赔偿子窗体运行后如图34和图35所示，因为它们的代码和图书登记子窗体的代码雷同，在此不做重复。　　 
　　图34 图书借阅子窗体运行效果　　 
　　图35 图书赔偿子窗体运行效果　　(2) 增加用户子窗体代码　　增加用户子窗体是用来增加用户的用户名、密码和权限的。　　单击“确定”按钮后，还要返回一个信息框，提示成功信息，　　   
　　图36 增加用户子窗体运行效果
　　窗体部分代码的思路是，收集输入的表中的字符串，然后与数据库中的系统的用户数据比较，如果不存在，则允许添加。　　Private Sub Command1_Click()　　Dim sql As String　　Dim rs_add As New ADODB.Recordset　　If Trim(Text1.Text) = "" Then　　MsgBox "用户名不能为空", vbOKOnly + vbExclamation, ""　　Exit Sub　　Text1.SetFocus　　Else　　sql = "select * from 系统管理"　　rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic　　While (rs_add.EOF = False)　　If Trim(rs_add.Fields(0)) = Trim(Text1.Text) Then　　MsgBox "已有这个用户", vbOKOnly + vbExclamation, ""　　Text1.SetFocus　　Text1.Text = ""　　Text2.Text = ""　　Text3.Text = ""　　Combo1.Text = ""　　Exit Sub　　Else　　rs_add.MoveNext
　　End If　　Wend　　If Trim(Text2.Text) <> Trim(Text3.Text) Then　　MsgBox "两次密码不一致", vbOKOnly + vbExclamation, ""　　Text2.SetFocus　　Text2.Text = ""　　Text3.Text = ""　　Exit Sub　　ElseIf Trim(Combo1.Text) <> "system" And Trim(Combo1.Text) <> "guest" Then　　MsgBox "请选择正确的用户权限", vbOKOnly + vbExclamation, ""　　Combo1.SetFocus　　Combo1.Text = ""　　Exit Sub　　Else　　rs_add.AddNew　　rs_add.Fields(0) = Text1.Text　　rs_add.Fields(1) = Text2.Text　　rs_add.Fields(2) = Combo1.Text　　rs_add.Update　　rs_add.Close　　下面是返回成功信息对话框的代码:　　MsgBox "添加用户成功", vbOKOnly + vbExclamation, ""　　Unload Me　　End If　　End If　　End Sub　　(3) 修改密码子窗体代码　　修改密码子窗体是用来修改用户密码的。
　　 　　在“确定”按钮的Click事件中添加如下代码:　　Private Sub Command1_Click()　　Dim rs_chang As New ADODB.Recordset　　Dim sql As String　　If Trim(Text1.Text) <> Trim(Text2.Text) Then　　MsgBox "密码不一致!", vbOKOnly + vbExclamation, ""　　Text1.SetFocus　　Text1.Text = ""　　Text2.Text = ""　　Else　　sql = "select * from 系统管理 where 用户名='" & userID & "'"　　rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic　　rs_chang.Fields(1) = Text1.Text　　rs_chang.Update　　rs_chang.Close　　MsgBox "密码修改成功", vbOKOnly + vbExclamation, ""　　Unload Me　　End If　　End Sub

Answer 2

小程序，200元~500元，taobao拍一个就是了，也就是一件衬衣的价格。

Answer 3

我觉得不会很贵，因为这是毕业设计，而且属于大众的需求，一份源代码可以卖出多份，所以也就几百元钱。
Windows因为销售拷贝多，也就几百块钱。

Answer 4

我建议楼主买一个去，别怕花钱。
原因是：
（1）上学几万元都花了，重修一次又是上千，万一不过不是花费更大；
（2）网上找代码，费时费力，而且代码大多不全，无法运行，也没有人指导，本身没有基础，花时间研究代码一样费力，还不如现成的。
（3）写这么复杂的程序，耗费脑力不说，还浪费时间。熟悉语法、数据库，编写、改错总得3、4星期吧，如果用来打游戏，几百的装备就回来了，打游戏不比写程序快活？
（4）选择taobao大卖家，价格实惠信誉好，售后服务有保障，支付宝付款很轻松。