软件工程课程设计课题
『壹』 《软件工程》课程设计作业
没猜错的化你是想找一份完整的《软件设计开发文档》，最主要的是得做过项目，有实践经验的才能写出合格的文档，如果有难题可以私我
『贰』 软件工程课程设计
去网上搜软件工程的毕业设计，一应俱全
『叁』 软件工程课程设计具体步骤
1.首先接受老师下发的任务
2.根据任务查找资料，上网啦，找学哥学姐要啊，各种途径
3.资料找好后上机调试
4.答辩
5.课程设计报告
『肆』 软件工程专业毕业设计可以选择哪些课题
1。局域网通信工具
要求:分server，client，可以发送文本信息，传送文件、能支持多个版client的连接权(tcp)
最好有后台数据库的支持，要求用户注册并登录。
2。难度：一般
3。实现MFC或socket api 我作毕业设计时只懂C++，只是上过课，没有项目经验。
后来我到单位去作毕业设计，一边作一边学。最后开发出了一个包含数据库、网络和多线程的程序。
关键是兴趣、动力和压力。有了这三个，进步很快。
可以作的项目多了，局域网聊天的服务器端和客户端，类OICQ软件，类Foxmail软件等等。
都基本符合毕业设计要求的难度和工作量。
『伍』 软件工程课程设计的一个题目,不明白
应该是用asp或者vb做前台，sql做后台的东西。
『陆』 软件工程专业毕业设计课题的选择
我也是学计算机的， 我的课题是基于WEB的图书管理系统。。。
我觉得蛮简单的， 不知道楼主专学过java没有。。
还有，毕业课题老师都会带你做的， 不必太担心的。。
如果是JAVA方面的，我属们可以讨论讨论~~
『柒』 求软件工程课程设计一份
图书馆管理系统 软件工程课程设计说明书一份
《图书管理系统》系统设计报告
一、 引言
1． 摘要：中学图书馆管理系统
目的：方便图书馆对书籍借阅的管理
主要功能： —学生基本信息查询
—书籍借阅管理
—书籍管理
2． 背景：第十小组承担开发任务
3． 工作条件与限制：windows操作平台，Visual Basic6.0和SQL Sserver2000等软件为开发工具，利用上课时间和课外时间做成。由于现在图书管理系统已经比叫完善，所以我们暂时没有能做出比以前有先进技术的管理系统。
4． 参考和引用资料：《数据库系统概论》，VB应用
5． 专门术语定义：
二、系统总体技术方案
1． 计算机系统配置：windows平台，VB/SqlServer2000，WINNT SERVER操作系统, SQL server2000关系数据库管理系统 ，VB操作软件，局域网。
2． 模块设计：主要分为三个模块：即学生基本信息模块，书籍借阅模块，书籍管理模块
代码设计：读者信息查询
Public connStr As ADODB.Connection
Private Sub Command1_Click()
End Sub
Private Sub cmdAdd_Click()
If Trim(List1.Text) <> "" Then
List2.AddItem (List1.Text)
End If
End Sub
Private Sub cmdMove_Click()
If Trim(List2.Text) <> "" Then
List2.RemoveItem (List2.ListIndex)
End If
End Sub
Private Sub cmdSearch_Click()
Dim cmdstr As String
If List2.ListCount = 0 Then
MsgBox "请选择输出列！", vbOKOnly, "提示"
Exit Sub
End If
cmdstr = "select "
For i = 0 To List2.ListCount - 1
If Trim(List2.List(i)) = "图书证号" Then
cmdstr = cmdstr + "READER_DATA." + Trim(List2.List(i)) + ","
Else
If Trim(List2.List(i)) = "书号" Then
cmdstr = cmdstr + "MARC_DATA." + Trim(List2.List(i)) + ","
Else
cmdstr = cmdstr + Trim(List2.List(i)) + ","
End If
End If
Next
cmdstr = Left(cmdstr, Len(cmdstr) - 1)
If Opbook.Value = True Then
cmdstr = cmdstr + " from MARC_DATA where "
End If
If Opreader.Value = True Then
cmdstr = cmdstr + " from READER_DATA where "
End If
If Oplend.Value = True Then
cmdstr = cmdstr + " from MARC_DATA,READER_DATA,LEND_DATA " & " where MARC_DATA.书号=LEND_DATA. 书号 and " & " READER_DATA.图书证号=LEND_DATA.图书证号 and "
End If
If Trim(comKey.Text) = "" Then
MsgBox "请选择查询关键字！", vbOKOnly, "提示"
Exit Sub
End If
If Trim(txtKey.Text) = "" Then
MsgBox "请设置查询关键字的值！", vbOKOnly, "提示"
Exit Sub
End If
If ComType.Text = "精确匹配" Then
cmdstr = cmdstr + Trim(comKey.Text) + "='" + Trim(txtKey.Text) + "'"
Else
cmdstr = cmdstr + Trim(comKey.Text) + " like '" + Trim(txtKey.Text) + "%'"
End If
Adodc1.RecordSource = cmdstr
Adodc1.Refresh
DataGrid1.Refresh
End Sub
Private Sub Form_Load()
Set connStr = New ADODB.Connection
connStr.Open "driver={SQL Server}; Server=SYSLAB000;UID=jj138;PWD=;database=计教(1)班38号"
Adodc1.ConnectionString = connStr
ComType.AddItem ("精确匹配")
ComType.AddItem ("前方一致匹配")
End Sub
Private Sub Label3_Click()
End Sub
Private Sub List2_Click()
End Sub
Private Sub Opbook_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "MARC_DATA", connStr, adOpenKeyset, adLockReadOnly, adCmdTable
comKey.Clear
List1.Clear
For i = 0 To rs.Fields.Count - 1
comKey.AddItem (rs.Fields(i).Name)
List1.AddItem (rs.Fields(i).Name)
Next
rs.Close
List2.Clear
txtKey.Text = ""
End Sub
Private Sub Oplend_Click()
comKey.Clear
List1.Clear
comKey.AddItem ("图书证号")
comKey.AddItem ("姓名")
comKey.AddItem ("书号")
comKey.AddItem ("书名")
comKey.AddItem ("出版社")
comKey.AddItem ("借出日期")
comKey.AddItem ("还书日期")
List1.AddItem ("图书证号")
List1.AddItem ("姓名")
List1.AddItem ("书号")
List1.AddItem ("书名")
List1.AddItem ("出版社")
List1.AddItem ("借出日期")
List1.AddItem ("还书日期")
List2.Clear
txtKey.Text = ""
End Sub
Private Sub Opreader_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "READER_DATA", connStr, adOpenKeyset, adLockReadOnly, adCmdTable
comKey.Clear
List1.Clear
For i = 0 To rs.Fields.Count - 1
comKey.AddItem (rs.Fields(i).Name)
List1.AddItem (rs.Fields(i).Name)
Next
rs.Close
List2.Clear
txtKey.Text = ""
End Sub
借还书处理
Private Sub cmdLend_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
If Trim(txtBid.Text) = "" Or Trim(txtRid_1.Text) = "" Then
MsgBox "请输入图书证号和书号！", vbOKOnly, "提示信息"
Else
rs.Open "LEND_DATA", connStr, adOpenKeyset, adLockOptimistic, adCmdTable
rs.AddNew
rs("书号") = txtBid.Text
rs("借出日期") = Date
rs("图书证号") = txtRid.Text
rs.Update
Adodc1.Refresh
End If
End Sub
Private Sub cmdReturn_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
If Trim(txtBid.Text) = "" Or Trim(txtRid_1.Text) = "" Then
MsgBox "请输入图书证号和书号！", vbOKOnly, "提示信息"
Else
cmdstr = "update LEND_DATA set 还书日期='" _
& Date & "' where 书号='" & Trim(txtBid.Text) & "'"
rs.Open cmdstr, connStr, adOpenKeyset, adLockOptimistic, adCmdText
Adodc1.Refresh
End If
End Sub
Private Sub cmds_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
cmdstr = "select * from READER_DATA WHERE 图书证号 ='" & Trim(txtRid_1.Text) & "'"
rs.Open cmdstr, connStr, adOpenForwardOnly, adLockReadOnly, adCmdText
If Not rs.EOF Then
txtRid.Text = rs("图书证号")
txtName.Text = rs("姓名")
If Not IsNull(rs("性别")) Then
txtXb.Text = rs("性别")
End If
If Not IsNull(rs("系名")) Then
txtXm.Text = rs("系名")
End If
Else
MsgBox "未找到该读者信息！", vbOKOnly, "提示信息"
End If
cmdstr = "select 借出日期,还书日期,LEND_DATA.书号,书名,作者,出版社" & " from LEND_DATA,MARC_DATA " & "where LEND_DATA.书号=MARC_DATA.书号 and " & " 还书日期 is null and 图书证号='" & Trim(txtRid_1.Text) & "'"
Adodc1.RecordSource = cmdstr
Adodc1.Refresh
End Sub
Private Sub cmdSearch_Click()
cmdstr = "select 借出日期,还书日期,LEND_DATA.书号,书名,作者,出版社" & "from LEND_DATA,MARC_DATA " & "where LEND_DATA.书号=MARC_DATA.书号 and 图书证号='" & Trim(txtRid_1.Text) & "'"
Adodc1.RecordSource = cmdstr
Adodc1.Refresh
End Sub
Private Sub DataGrid1_Click()
If Not Adodc1.Recordset.BOF And Not Adodc1.Recordset.BOF Then
txtBid.Text = Adodc1.Recordset("书号")
End If
End Sub
Private Sub Form_Load()
Set connStr = New ADODB.Connection
connStr.Open "driver={SQL Server}; Server=SYSLAB000;UID=jj138;PWD=;database=计教(1)班38号"
Adodc1.ConnectionString = connStr
End Sub
图书馆详细信息
Private Sub txt_refresh()
If Not Adodc1.Recordset.EOF And Not Adodc1.Recordset.BOF Then
txtBid.Text = Adodc1.Recordset("书号")
txtBname.Text = Adodc1.Recordset("书名")
txtWrite.Text = Adodc1.Recordset("作者")
txtPublisher.Text = Adodc1.Recordset("出版社")
txtYear.Text = Adodc1.Recordset("出版时间")
txtGb.Text = Adodc1.Recordset("国别代码")
txtDate.Text = Adodc1.Recordset("进馆时间")
txtCallno.Text = Adodc1.Recordset("分类号")
End If
End Sub
Private Sub cmdDele_Click()
Dim deletxt As String
deletxt = "是否删除图书《" & Adodc1.Recordset("书名") & "》的记录？"
If Not Adodc1.Recordset.EOF And Not Adodc1.Recordset.BOF Then
If MsgBox(deletxt, vbOKCancel, "提示信息") = vbOK Then
Adodc1.Recordset.Delete
Adodc1.Refresh
End If
End If
End Sub
Private Sub cmdNew_Click()
If cmdNew.Caption = "新增" Then
txt_enable (2)
cmdNew.Caption = "保存"
txtBid.Text = ""
txtBname.Text = ""
txtWrite.Text = ""
txtPublisher.Text = ""
txtYear.Text = ""
txtGb.Text = ""
txtDate.Text = ""
txtCallno.Text = ""
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset("书号") = Trim(txtBid.Text)
Adodc1.Recordset("书名") = Trim(txtBname.Text)
Adodc1.Recordset("作者") = Trim(txtWrite.Text)
Adodc1.Recordset("出版社") = Trim(txtPublisher.Text)
Adodc1.Recordset("出版时间") = Trim(txtYear.Text)
Adodc1.Recordset("国别代码") = Trim(txtGb.Text)
4
Adodc1.Recordset("进馆时间") = Trim(txtDate.Text)
Adodc1.Recordset("分类号") = Trim(txtCallno.Text)
Adodc1.Recordset.UpdateBatch
Adodc1.Refresh
txt_enable (1)
cmdNew.Caption = "新增"
Adodc1.Recordset.MoveFirst
txt_refresh
End If
Private Sub cmdNext_Click()
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveNext
txt_refresh
End If
End Sub
Private Sub cmdPre_Click()
If Not Adodc1.Recordset.BOF Then
Adodc1.Recordset.MovePrevious
txt_refresh 2
End If
End Sub
Private Sub cmdUpdate_Click()
If cmdUpdate.Caption = "修改" Then
txt_enable (2)
cmdUpdate.Caption = "保存"
Else
Adodc1.Recordset("书号") = Trim(txtBid.Text)
Adodc1.Recordset("书名") = Trim(txtBname.Text)
Adodc1.Recordset("作者") = Trim(txtWrite.Text)
Adodc1.Recordset("出版社") = Trim(txtPublisher.Text)
Adodc1.Recordset("出版时间") = Trim(txtYear.Text)
Adodc1.Recordset("国别代码") = Trim(txtGb.Text)
Adodc1.Recordset("进馆时间") = Trim(txtDate.Text)
Adodc1.Recordset("分类号") = Trim(txtCallno.Text)
Adodc1.Recordset.UpdateBatch
Adodc1.Refresh
txt_enable (1)
cmdUpdate.Caption = "修改"
End If
End Sub
Private Sub Form_Load()
txt_refresh
End Sub
Private Sub Text1_Change()
End Sub
Private Sub Text8_Change()
End Sub
Private Sub txtBname_Change()
End Sub
『捌』 求软件工程的课程设计
件工程的课程设计，肯帮忙的朋友请将文件发到俺的邮