[分享] vb.net做的一套简单的图书管理系统原代码!适合菜鸟学习用(页 1) - VB.NET论坛

Viviwei 发表于 2006-4-25 13:49

[分享] vb.net做的一套简单的图书管理系统原代码!适合菜鸟学习用

使用需知
 因为时间仓促，所以没全面的去完成其中间所有功能。 数据库也不是很完善，因为鉴于菜鸟的学习，没用用类去处理相关的数据库连接。请见谅！ 此系统仅用于菜鸟的学习。使用时请先附加数据库。 用于参考者请用vb.net将源程序打开后观看,实现了基本的添加,修改,删除.首记录,上记录.下记录,尾记录,以及图书的借阅,图书的查询. 如果是从网络上下载后得到的请在论坛给我留言或者QQ:85474440联系我给我好的建议。 如有需求要完整的系统者（经规范的编写），请联系本人。 谢谢您的使用 更改后的系统给大家下载参考.请需要者QQ联系我,加好友时注明是编程论坛的成员!~ [attach]7016[/attach] 
[align=right][color=#000066][此贴子已经被作者于2006-5-16 8:30:42编辑过][/color][/align]

wugong 发表于 2006-4-26 14:18

什么是闪窗？

Viviwei 发表于 2006-4-27 18:08

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

Viviwei 发表于 2006-4-27 19:37

闪窗的问题已经解决,大家想看的请去看

regedit 发表于 2006-4-28 00:03

dim flashform as new flashform '显示加载信息的窗体 application.run(flashform) dim Mainform as new Mainform 　＇主窗体 application.run(Mainform)

Viviwei 发表于 2006-4-28 09:06

谢谢回答,我去试试这个方法看

Viviwei 发表于 2006-4-28 09:12

好象不可以也,能无限的循环了

Viviwei 发表于 2006-4-28 09:13

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 这个可以,成功使用了

regedit 发表于 2006-4-28 22:50

呵呵~2秒后加载...

sanitspare 发表于 2006-4-30 23:19

其实这个加载信息窗口只不过是因为主程序启动缓慢，为了让用户感觉不到这一点而故意设置的，这个窗体做的小一点，先show(),然后主窗体show(),信息窗体close()就可以了，好像是哪本书上看到过的，忘了

蓝冰小猫 发表于 2006-5-9 09:22

呵呵，谢谢你哦，找的好辛苦哦。 做的真好，非常感谢！

dachouyu 发表于 2006-5-9 11:02

里面没东西的嘛.[em06]

Viviwei 发表于 2006-5-9 13:54

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

Viviwei 发表于 2006-5-13 12:34

经过本人一个星期的努力,经过一系列的更改后,一套适合菜鸟学习的图书管理系统终于完成了,里面不包含类的调用,每个页面都包含数据库的连接,我认为很利于新手的刚刚认识vb.net时的学习..

pennyong 发表于 2006-5-13 13:38

谢谢给我的数据库

wjh_36 发表于 2006-5-16 09:33

我作了一个和你的功能查不多的程序，但出了很多错误，修改记录时，无出现错误，但数据库里的记录不变，代码如下： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim conn As New SqlConnection conn.ConnectionString = ConfigurationSettings.AppSettings("aa") conn.Open() Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = "update info set u_name='" & TextBox1.Text & "',u_sex='" & TextBox2.Text & "',u_birt='" & TextBox3.Text & "',u_indate='" & TextBox4.Text & "',u_code='" & TextBox5.Text & "',u_tel='" & TextBox6.Text & "',u_zhy='" & TextBox7.Text & "',u_dw='" & TextBox8.Text & "',u_time1='" & TextBox9.Text & "',u_sch1='" & TextBox10.Text & "',u_zhy1='" & TextBox11.Text & "',u_time2='" & TextBox12.Text & "',u_sch2='" & TextBox13.Text & "',u_zhy2='" & TextBox14.Text & "',u_time3='" & TextBox15.Text & "',u_sch3='" & TextBox16.Text & "',u_zhy3='" & TextBox17.Text & "',u_chg='" & TextBox18.Text & "',u_ky='" & TextBox19.Text & "',u_xsh='" & TextBox20.Text & "',u_xzhw1='" & TextBox21.Text & "',u_xdate1='" & TextBox22.Text & "',u_xmch1='" & TextBox23.Text & "',u_xzhw2='" & TextBox24.Text & "',u_xdate2='" & TextBox25.Text & "',u_xmch2='" & TextBox26.Text & "',u_xzhw3='" & TextBox27.Text & "',u_xdate3='" & TextBox28.Text & "',u_xmch3='" & TextBox29.Text & "',u_shzhw1='" & TextBox30.Text & "',u_shdate1='" & TextBox31.Text & "',u_shmch1='" & TextBox32.Text & "',u_shzhw2='" & TextBox33.Text & "',u_shdate2='" & TextBox34.Text & "',u_shmch2='" & TextBox35.Text & "',u_shzhw3='" & TextBox36.Text & "',u_shdate3='" & TextBox37.Text & "',u_shmch3='" & TextBox38.Text & "',u_men='" & TextBox39.Text & "' where u_id='" & TextBox40.Text & "'"
 cmd.ExecuteNonQuery() conn.Close() End Sub

wjh_36 发表于 2006-5-16 09:42

我做了一个和你功能查不多的程序，但修改记录时，运行时页面没有什么错误，但数据库里的记录就不变这是怎么回事啊，代码如下： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim conn As New SqlConnection conn.ConnectionString = ConfigurationSettings.AppSettings("aa") conn.Open() Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = "update info set u_name='" & TextBox1.Text & "',u_sex='" & TextBox2.Text & "',u_birt='" & TextBox3.Text & "',u_indate='" & TextBox4.Text & "',u_code='" & TextBox5.Text & "',u_tel='" & TextBox6.Text & "',u_zhy='" & TextBox7.Text & "',u_dw='" & TextBox8.Text & "',u_time1='" & TextBox9.Text & "',u_sch1='" & TextBox10.Text & "',u_zhy1='" & TextBox11.Text & "',u_time2='" & TextBox12.Text & "',u_sch2='" & TextBox13.Text & "',u_zhy2='" & TextBox14.Text & "',u_time3='" & TextBox15.Text & "',u_sch3='" & TextBox16.Text & "',u_zhy3='" & TextBox17.Text & "',u_chg='" & TextBox18.Text & "',u_ky='" & TextBox19.Text & "',u_xsh='" & TextBox20.Text & "',u_xzhw1='" & TextBox21.Text & "',u_xdate1='" & TextBox22.Text & "',u_xmch1='" & TextBox23.Text & "',u_xzhw2='" & TextBox24.Text & "',u_xdate2='" & TextBox25.Text & "',u_xmch2='" & TextBox26.Text & "',u_xzhw3='" & TextBox27.Text & "',u_xdate3='" & TextBox28.Text & "',u_xmch3='" & TextBox29.Text & "',u_shzhw1='" & TextBox30.Text & "',u_shdate1='" & TextBox31.Text & "',u_shmch1='" & TextBox32.Text & "',u_shzhw2='" & TextBox33.Text & "',u_shdate2='" & TextBox34.Text & "',u_shmch2='" & TextBox35.Text & "',u_shzhw3='" & TextBox36.Text & "',u_shdate3='" & TextBox37.Text & "',u_shmch3='" & TextBox38.Text & "',u_men='" & TextBox39.Text & "' where u_id='" & TextBox40.Text & "'"
 cmd.ExecuteNonQuery() conn.Close() End Sub

wjh_36 发表于 2006-5-16 09:46

还有一个问题就是如下： 
<DIV 0px; LINE-HEIGHT: 22px; PADDING-TOP: 5px; HEIGHT: 22px">[求助]未将对象引用设置到对象的实例</DIV>
<DIV>
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() 出现错误如下： 
<H1>“/dn”应用程序中的服务器错误。
<HR width="100%" color=silver SIZE=1>
</H1>
<H2>未将对象引用设置到对象的实例。 </H2>
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。 异常详细信息: System.NullReferenceException: 未将对象引用设置到对象的实例。 源错误: 
<TABLE width="100%" bgColor=#ffffcc>

<TR>
<TD><CODE><PRE>行 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</PRE></CODE></TD></TR></TABLE> 源文件: c:\inetpub\wwwroot\dn\cbh.aspx.vb 行: 44 堆栈跟踪: 
<TABLE width="100%" bgColor=#ffffcc>

<TR>
<TD><CODE><PRE>[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()
</PRE></CODE></TD></TR></TABLE></DIV>

wjh_36 发表于 2006-5-16 10:15

如果在里面添加打印代码，该怎么写啊

Viviwei 发表于 2006-5-16 13:00

<DIV class=quote>以下是引用wjh_36在2006-5-16 9:46:00的发言： 还有一个问题就是如下： 
<DIV 22px? HEIGHT: 5px; PADDING-TOP: 22px; LINE-HEIGHT: 0px;>[求助]未将对象引用设置到对象的实例</DIV>
<DIV>
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() 出现错误如下： 
<H1>“/dn”应用程序中的服务器错误。 
<HR width="100%" color=silver SIZE=1>
</H1>
<H2>未将对象引用设置到对象的实例。 </H2>
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。 异常详细信息: System.NullReferenceException: 未将对象引用设置到对象的实例。 源错误: 
<TABLE width="100%" bgColor=#ffffcc>

<TR>
<TD><CODE><PRE>行 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</PRE></CODE></TD></TR></TABLE> 源文件: c:\inetpub\wwwroot\dn\cbh.aspx.vb 行: 44 堆栈跟踪: 
<TABLE width="100%" bgColor=#ffffcc>

<TR>
<TD><CODE><PRE>[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() </PRE></CODE></TD></TR></TABLE></DIV></DIV>
试试将程序代码改为下面的: 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()

页: [1] 2 3 4 5 6