珠寶購物網站軟體工程課設

❶ 軟體工程課程設計 小型進銷存管理系統（跪求，謝謝你們）

個人認為[ 東方進銷存管理系統 6.29 專業版]比較適合您的需求。 提供采購，銷售，庫存一體化的全方位解決方案。提供直觀的圖形分析系統。提供多種存貨計價方式(先進先出、後進先出、移動加權、全月加權平均、計劃價)。提供多種挑庫方式。提供BOM物料清單功能、生產組裝出庫功能，支持多庫房，每個庫房支持多個貨位，細致到貨架。提供貨物的分類管理，提供往來單位的分地區管理，提供功能強的盤點管理，各類數據流的明細匯總列印以及庫存自動報警等。針對不同的銷售對象(客戶)同一種物品可以提供不同的價。系統所有明細及匯總結果都可以存為Excel文件。同時提供後台數據管理功專用系統大大增加了數據的安全性。用戶可以自定義小數點位數。另外系統提供非常詳細的幫助，使用起來更加得心應手。

❷ 求一份軟體工程課程設計，用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

❻ 求軟體工程的課程設計

件工程的課程設計，肯幫忙的朋友請將文件發到俺的郵