| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 34806 人关注过本帖, 2 人收藏
标题:[分享] vb.net做的一套简单的图书管理系统原代码!适合菜鸟学习用
取消只看楼主 加入收藏
Viviwei
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:344
专家分:0
注 册:2006-4-11
收藏(2)
 问题点数:0 回复次数:19 
[分享] vb.net做的一套简单的图书管理系统原代码!适合菜鸟学习用


使用需知


因为时间仓促,所以没全面的去完成其中间所有功能。
数据库也不是很完善,因为鉴于菜鸟的学习,没用用类去处理相关的数据库连接。请见谅!
此系统仅用于菜鸟的学习。使用时请先附加数据库。
用于参考者请用vb.net将源程序打开后观看,实现了基本的添加,修改,删除.首记录,上记录.下记录,尾记录,以及图书的借阅,图书的查询.
如果是从网络上下载后得到的请在论坛给我留言或者QQ:85474440联系我给我好的建议。
如有需求要完整的系统者(经规范的编写),请联系本人。
谢谢您的使用

更改后的系统给大家下载参考.请需要者QQ联系我,加好友时注明是编程论坛的成员!~

EnbXzrWT.rar (620.6 KB) [分享] 一套简单的图书管理系统!含原代码!适合菜鸟学习用


[此贴子已经被作者于2006-5-16 8:30:42编辑过]



6o2sUV4F.rar (340.71 KB) [分享]刚刚做的图书管理系统!



ohouablt.rar (411.03 KB) [分享] 一套简单的图书管理系统!含原代码!适合菜鸟学习用

搜索更多相关主题的帖子: 图书管理系统 代码 分享 学习 
2006-04-25 13:49
Viviwei
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:344
专家分:0
注 册:2006-4-11
收藏
得分:0 

就是在进入系统前的一个临时窗体!~
关键在于给用户一个提示信息!~表示正在进入 系统
我靠,这么多人下了怎么都不回贴啊!~


爱上思考,爱上编程,爱上.net!
2006-04-27 18:08
Viviwei
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:344
专家分:0
注 册:2006-4-11
收藏
得分:0 
闪窗的问题已经解决,大家想看的请去看

爱上思考,爱上编程,爱上.net!
2006-04-27 19:37
Viviwei
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:344
专家分:0
注 册:2006-4-11
收藏
得分:0 
谢谢回答,我去试试这个方法看

爱上思考,爱上编程,爱上.net!
2006-04-28 09:06
Viviwei
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:344
专家分:0
注 册:2006-4-11
收藏
得分:0 
好象不可以也,能无限的循环了

爱上思考,爱上编程,爱上.net!
2006-04-28 09:12
Viviwei
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:344
专家分:0
注 册:2006-4-11
收藏
得分:0 
Dim int As Integer = 0
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
dim frm as new from2
If int = 0 Then
Me.Visible = True
frm.Visible = False
int = 1
ElseIf int = 1 Then
Me.Visible = False
frm.Visible = Ture
int = 2
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
Me.Timer1.Enabled = True
Me.Timer1.Interval = 1000 '时间间隔自定义
End Sub
这个可以,成功使用了


爱上思考,爱上编程,爱上.net!
2006-04-28 09:13
Viviwei
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:344
专家分:0
注 册:2006-4-11
收藏
得分:0 

当然,全都有的话我还叫给你们借鉴,不就是抄袭了?


爱上思考,爱上编程,爱上.net!
2006-05-09 13:54
Viviwei
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:344
专家分:0
注 册:2006-4-11
收藏
得分:0 
经过本人一个星期的努力,经过一系列的更改后,一套适合菜鸟学习的图书管理系统终于完成了,里面不包含类的调用,每个页面都包含数据库的连接,我认为很利于新手的刚刚认识时的学习..

爱上思考,爱上编程,爱上.net!
2006-05-13 12:34
Viviwei
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:344
专家分:0
注 册:2006-4-11
收藏
得分:0 
以下是引用wjh_36在2006-5-16 9:46:00的发言:
还有一个问题就是如下:
[求助]未将对象引用设置到对象的实例

Dim conn As New SqlConnection
conn.ConnectionString = ConfigurationSettings.AppSettings("aa")
Dim cmd As New SqlCommand

cmd.CommandText = "select u_id as 编号,u_name as 姓名,u_sex as 性别,u_indate as 入学时间,u_zhy as 所学专业,u_dw as 所在单位 from info where u_id='" & TextBox1.Text & "'"
cmd.Connection = conn
conn.Open()
Dim dr As New SqlDataAdapter
Dim ds As New DataSet
dr.Fill(ds, "info")
DataGrid1.DataSource = ds.Tables("info")
DataGrid1.DataBind()
conn.Close()




出现错误如下:

“/dn”应用程序中的服务器错误。

未将对象引用设置到对象的实例。

说明: 执行当前 Web 请求期间,出现未处理的异常。请检查堆栈跟踪信息,以了解有关该错误以及代码中导致错误的出处的详细信息。

异常详细信息: System.NullReferenceException: 未将对象引用设置到对象的实例。

源错误:

行 42: 
行 43: cmd.CommandText = "select u_id as 编号,u_name as 姓名,u_sex as 性别,u_indate as 入学时间,u_zhy as 所学专业,u_dw as 所在单位 from info where u_id='" & TextBox1.Text & "'"
行 44: cmd.Connection = conn
行 45: conn.Open()
行 46: Dim dr As New SqlDataAdapter

源文件: c:\inetpub\wwwroot\dn\cbh.aspx.vb 行: 44

堆栈跟踪:

[NullReferenceException: 未将对象引用设置到对象的实例。]
dn.chaxun.Button1_Click(Object sender, EventArgs e) in c:\inetpub\wwwroot\dn\cbh.aspx.vb:44
System.Web.UI.WebControls.Button.OnClick(EventArgs e)
System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument)
System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument)
System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData)
System.Web.UI.Page.ProcessRequestMain()

试试将程序代码改为下面的:
Dim dr As New SqlDataAdapter
Dim ds As New DataSet
conn.Open()
cmd.CommandText = "select u_id as 编号,u_name as 姓名,u_sex as 性别,u_indate as 入学时间,u_zhy as 所学专业,u_dw as 所在单位 from info where u_id='" & TextBox1.Text & "'"
cmd.Connection = conn
cmd.CommandType = CommandType.Text
dr.SelectCommand = comm
dr.Fill(ds, "info")
DataGrid1.DataSource = ds.Tables("info")
DataGrid1.DataBind()
conn.Close()


爱上思考,爱上编程,爱上.net!
2006-05-16 13:00
Viviwei
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:344
专家分:0
注 册:2006-4-11
收藏
得分:0 

另外你的修改记录的代码建议你仔细的检查sql语句
可以先在sql查询分析器里检查是否能修改.


爱上思考,爱上编程,爱上.net!
2006-05-16 13:02
快速回复:[分享] vb.net做的一套简单的图书管理系统原代码!适合菜鸟学习用
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.014004 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved