工程測試課程設計
㈠ 工程測量技術的課程設置
主要課程
地形測量、測量平差與計算機程序設計、數字化測圖技術、控制測量與GPS測量技術、攝影測量基礎、施工測量、工程變形觀測、工程概論、地理信息系統原理及應用、地形測量實習、控制測量與GPS測量實習、攝影測量實習、施工測量實習、畢業綜合實訓與畢業設計等，以及主要特色課程和實踐環節。
工程測量
講授工程建設中的地形圖的應用、施工放樣的基本方法及精度分析、建築工程測量、管線測量、貫通測量、建築物變形觀測和高精度工程測量等內容。使學生掌握施工放樣、變形觀測和工程施工中的常規測量方法；
遙感基礎與應用
講授各種遙感平台獲取信息的方法和手段、信息的傳輸和接受、各種數據的分析和處理等內容。使學生了解遙感數據信息的獲取、傳輸、處理的過程，初步掌握多時域、多光譜的遙感數據的分析和處理；
控制測量講授控制測量緒論、電磁波測距、水準測量、三角高程測量、導線測量、參考橢球和高斯投影計算。使學生掌握三、四等平面控制測量和高程式控制制測量方法；
地理信息系統講授地理信息系統(GIS)的基本概念，GIS數據源、數據模型、編碼及特徵表達，GIS空間數據的輸入、編輯和組織，GIS資料庫及屬性庫的操作，GIS空間數據處理，GIS的基本空間分析操作，三維空間數據模型及其應用，GIS數據及其產品的輸出等內容。結合軟體操作，使學生對地理信息系統有一個完整的認識；
誤差理論與測量平差
講授測量平差基本理論、條件平差、兩組平差和間接平差、導線網、測邊網、邊角網平差，高程式控制制網平差等概念。使學生掌握平面控制網和高程式控制制網的平差方法。重點使學生掌握現有平差軟體的使用；
地形測量學
講授測量基本知識，常規儀器的基本結構和使用方法，圖根測量，地形測圖，地圖繪圖、誤差理論及地形圖應用等內容。使學生能掌握常規儀器的使用方法，地形圖測繪的方法，建立測量誤差概念；
數字測圖
講授數字化測圖的基本原理、作業過程、野外數據採集、數據編碼、數據傳輸、圖形編輯和圖形輸出等內容。使學生初步掌握數字化測圖方法；
地籍測量與房產測繪
講授地籍控制測量，地籍細部測量，面積量算，計算機地籍數據處理等內容。使學生了解土地管理的基本知識，初步掌握權屬調查和計算機地籍數據處理的方法，掌握地籍控制測量、地籍細部測量方法和面積量算的方法。
㈡ 求一份工程估價課程設計，要有詳細計算過程，，簡單的。 1500平方米左
可以參考
㈢ 工程測量學習題、課程設計和實習指導書 答案
15.什麼是工程式控制制網的基準？基準的作用是什麼？
17.試述工程式控制制網精度、可靠性、建網費用之間的關系。
18.測圖控制網和施工控制網有何不同？地形圖在道路勘測設計中各階段中有何作用？
㈣ 求軟體工程課程設計一份
圖書館管理系統 軟體工程課程設計說明書一份
《圖書管理系統》系統設計報告
一、 引言
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
㈤ 軟體測試課程設計——針對windows自帶的畫圖工具的測試（高分求救）
我給你個建議，其實軟體測試的目的是實現最終用戶的需求，所以你不必採用專QTP和LOADrunner測試。
你完屬全可以模擬最終用戶進行黑盒測試；即所謂的站在用戶立場測試該軟體。
我建議你，為了有個明確的思路最好寫個需求性規格說明書以講明軟體的功能性需求，可以用類似WORD2003或2007等軟體寫一個。
然後運行這個軟體（windows自帶的畫圖工具）和用WORD寫好的需求性規格說明書中的預期結果比較，這樣即可。
以上就是黑盒測試的方法，這是本人的建議可以試下。
㈥ 工程測量課程設計書中的體會怎麼寫
這個方面的問題的研究幫助，或者方法研究是可以的