【正文】 rderDate] [datetime] NULL , [Ordermemo] [text] COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] 數(shù)據(jù)庫連接 Visual 連接數(shù)據(jù)庫的主要方式以下幾種方式：一是： 用 data 控件進(jìn)行數(shù)據(jù)庫鏈接 ，二是 利用 adodc（ ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接 。 第二步：用 Access 建立一個名為 Pad 的數(shù)據(jù)庫，在庫中建立一個表 Myset，給表添加四個字段： backcolor（數(shù)據(jù)）， forecolor(文本）， fontname(文本） ,fontsize（文本）。 如果你的機(jī)器沒安裝有 Access，可通過 VB 建庫。登錄 If Trim() Then Sql = select 密碼 from 密碼表 where 用戶名 =39。 Trim() Sql = Sql amp。 and 類型 =39。 Trim() amp。 Set RS = dbSelect(Sql) If Then MsgBox 無此用戶！ Else If = (0) Then If = 管理員 Then = False 17 = False ElseIf = 銷售員 Then = False = False = False = False = False = False = False = False Else = True End If = 銷售系統(tǒng) amp。 Format(Trim(), ) amp。 Trim() amp。添加 Dim i As Integer If Trim() And Trim() And Trim() Then Sql = select * from 商品表 where 商品編號 = amp。 Trim() Sql = Sql amp。 amp。 39。 Trim() Set RS = dbSelect(Sql) If Then Sql = insert into 入庫表 values( amp。 ,39。 Trim() Sql = Sql amp。, amp。 , amp。 ) dbOperate Sql Else MsgBox 庫中已有！ End If 19 Else i = MsgBox(信息庫中無此商品！是否添加？ , vbOKCancel + vbExclamation, 提示 ) If i = 1 Then End If End If Set RS = Nothing Else MsgBox 主鍵不能為空！ End If End Sub Private Sub cmdDel_Click() 39。 Trim() Sql = Sql amp。 amp。 39。 Trim() Set RS = dbSelect(Sql) If Not Then Sql = delete * from 入庫表 where 商品編號 = amp。 and 入庫時間 =39。 Trim() Sql = Sql amp。 and 入庫批次 = amp。修改 If Trim() And Trim() And Trim() Then Sql = select * from 入庫表 where 商品編號 = amp。 and 入庫時間 =39。 Trim() 20 Sql = Sql amp。 and 入庫批次 = amp。 Trim() Sql = Sql amp。 Trim() Sql = Sql amp。 amp。 39。 Trim() dbOperate Sql Else MsgBox 信息庫中無此商品！ End If Else MsgBox 主鍵不能為空！ End If End Sub Private Sub txtJob_KeyPress(KeyAscii As Integer) 39。數(shù)量 If Not IsNumeric(Trim()) And Trim() Then MsgBox 請輸入數(shù)字 ! End If End Sub Private Sub txtNo_KeyPress(KeyAscii As Integer) 39。查找 Dim i As Integer If Trim() Then Sql = select * from 入庫查詢表 where Sql = Sql amp。 = amp。 =39。 Trim() amp。 End If writeMS Sql, Else MsgBox 主鍵不能為空！ End If End Sub Private Sub cmdPrint_Click() writeMSFlexGrid , 入庫盤點(diǎn) End Sub 22 4： 銷售表 圖 銷售窗口圖 代碼分析 : Dim ltmW As ListItem Dim Sql As String Dim RS As Private Sub cmdAdd_Click() 39。 Trim() Set RS = dbSelect(Sql) If Then MsgBox 庫中無此商品 ! Else For i = 1 To If (i).Text = Trim() Then MsgBox 列表中已有 ! Exit Sub End If 23 Next i Set ltmW = = Trim() , , (0) , , (1) , , Trim() , , (2) = Val() + Val(Trim()) * (1) = Format(, .) End If Else MsgBox 主鍵不能為空 ! End If End Sub Private Sub cmdAll_Click() 39。 (i).Text Sql = Sql amp。 amp。 39。 (i).ListSubItems(3).Text Sql = Sql amp。 amp。 39。 Trim() amp。 amp。刪除 Dim i As Integer, bln As Boolean If Trim() Then For i = 1 To If (i).Text = Trim() Then 24 bln = True Exit For End If Next i If bln = True Then = Val() Val((i).ListSubItems(2)) * _ Val((i).ListSubItems(3)) = Format(, .) (i) = = = Else MsgBox 列表中沒有！ End If Else MsgBox 主鍵不能為空 ! End If End Sub Private Sub cmdModify_Click() 39?？丶笮〉膭討B(tài)調(diào)整 Dim i As Integer = For i = 1 To 5 (i).Width = / 5 Next i = 0 = = = End Sub Private Sub ListView1_ItemClick(ByVal Item As ) = = (2).Text = (3).Text End Sub Private Sub txtGive_KeyPress(KeyAscii As Integer) 39。商品編號 If Not IsNumeric(Trim()) And Trim() Then MsgBox 請輸入數(shù)字 ! End If End Sub Private Sub txtR_KeyPress(KeyAscii As Integer) 39。數(shù)量 If Not IsNumeric(Trim()) And Trim() Then MsgBox 請輸入數(shù)字 ! End If End Sub Private Sub txtValue_KeyPress(KeyAscii As Integer) 39。因此，測試的目的就是在軟件投入生產(chǎn)性運(yùn)行之前，盡可能多的發(fā)現(xiàn)并改正軟件中的錯誤，最終把一個高質(zhì)量軟件系統(tǒng)交給用戶使用。還使用了蠻力法，回溯法，原因排除法等調(diào)試的途徑進(jìn) 行調(diào)試，到目前已排除了所發(fā)現(xiàn)的錯誤。測試時我們注意以下幾點(diǎn)： （ 1）測試時分清主次，即先測試主要功能，后測試次要功能。只要功能主干有問題，這個系統(tǒng)就是失敗的。 （ 3）功能主干測試正確后，再進(jìn)行分支功能的測試。 （ 5）檢查系統(tǒng)需求和設(shè)計說明書中要求的功能是否在系統(tǒng)中都被實(shí)現(xiàn)、性能是否達(dá)到指標(biāo)。 性能測試 性能測試主要是對響應(yīng)時間、事務(wù)處理速率、數(shù)據(jù)顯示速度、計算速度、網(wǎng)絡(luò)傳輸速度、數(shù)據(jù)庫查詢響應(yīng)時間、掃描時間、掃描識別率等和其他與時間相關(guān)的需求進(jìn)行評測和評估。實(shí)施和執(zhí)行性能評測的目的是將測試對象的性能行為當(dāng)作條件（例如工作量或硬件配置）的一種函數(shù)來進(jìn)行評測和微調(diào)。 其它測試如環(huán)境測試、兼容性測試、壓力測試及安全測試等在此就不再一一闡述。 本論文 詳細(xì)地講述了該貿(mào)易 公司管理信息系統(tǒng)的系統(tǒng)設(shè)計部分，包括功能模塊設(shè)計、數(shù)據(jù)庫結(jié)構(gòu)設(shè)計等 。經(jīng)過測試和試用，我 深信本軟件達(dá)到了方便 和實(shí)用的設(shè)計目的，并在軟件界面和易用實(shí)用等方面有著獨(dú)到之處。真誠的希望你的參與。我 開發(fā)的 這個 軟件系統(tǒng)基本符合了航空管理系統(tǒng)的需求。時代是引導(dǎo)我們進(jìn)步的先驅(qū)，在今后的學(xué)習(xí)工作生涯中， 我會不斷努力學(xué)習(xí)，提高自身素質(zhì)，不負(fù)老師厚望，成為一個對社會有用的人。朱老師嚴(yán)謹(jǐn)?shù)墓ぷ鲬B(tài)度，一絲不茍的治學(xué)精神，和深厚的理論基礎(chǔ)讓我受益匪淺。在論文開始撰寫之前，朱老師對論文的題目所涉及的內(nèi)容給我做了細(xì)心的講解。在此對朱老師的幫助致以深深的謝意！同時也向幫助過我的同學(xué) 表示感謝！ 30 參 考 文 獻(xiàn) [1] 《 數(shù)據(jù)庫系統(tǒng)概論 》 薩師煊，王珊 . . 第三版 . 高等教育出版社， 2020 [2] 《 visual basic 數(shù)據(jù)庫應(yīng)用開發(fā) 》 飛思科技產(chǎn)品研發(fā)中心 . .電子工業(yè)出版社， 2020 [3] 《 實(shí)用軟件工程教程 》 王珍 玲