【正文】 last names. Data is retrieved from a table by filtering on both the row and the column.Primary Keys, Data types, and Foreign KeysThe examples throughout this article will focus on the hypothetical work of Scott Smi。t confuse a relation with relationships. A relation is essentially a table, and a relationship is a way to correlate, join, or associate two tables.A row in a table is a collection or instance of one thing, such as one employee or one line item on an invoice. A column contains all the information of a single type, and the piece of data at the intersection of a row and a column, a field, is the smallest piece of information that can be retrieved with the database39。s go over the basic ponents of a traditional relational database system and look at how a relational database is designed. Once you have a solid understanding of what rows, columns, tables, and relationships are, you39。 txtValue(0).Text amp。 txtValue(4).Text amp。 txtValue(3).Text amp。 txtValue(2).Text amp。 txtValue(1).Text amp。 txtValue(0).Text amp。 txtValue(4).Text amp。 txtValue(3).Text amp。 txtValue(2).Text amp。 amp。mode=readwrite。 gfile amp。 End If closeDBfile Exit Suberrgoto:interrfileno = FreeFile()Open For Append As interrfilenoPrint interrfileno, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + cmdDeleteEmployee_click(HRForm) + Chr(34), Chr(34) + + Chr(34)Close interrfilenoEnd SubPrivate Sub cmdUpdate_click() End Sub Private Sub Command1_Click()End SubPrivate Sub DataGrid1_rowcolchange(lastrow As Variant, ByVal lastcol As Integer)CurPos = End SubPrivate Sub Form_Load() Dim interrfileno As Integer On Error GoTo errgoto SQL = SELETE * FROM 特殊項(xiàng) = provider=。 ?, vbYesNo) Then = curspecial = 0 DELETE FROM 特殊項(xiàng) WHERE 特殊項(xiàng)ID＝ amp。 openDBFile SQL closeDBfile MsgBox 修改成功！ Exit Suberrgoto: interrfileno = FreeFile() Open For Append As interrfileno Print interrfileno, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + Command1_click(AddEForm) + Chr(34), Chr(34) + + Chr(34) Print interrfileno, Close interrfilenoEnd SubPrivate Sub Form_Activate() Label1(0).Caption = 職位 Label1(1).Caption = 基本工資 Label1(2).Caption = 津貼 For i = 0 To 2 = = i Text1(i) = Next Text1(0).Locked = True End Sub（8）創(chuàng)建特殊項(xiàng)管理窗體代碼Public curspecial As IntegerPrivate Sub cmdCancel_Click() Dim interrfileno As Integer On Error GoTo errgoto openDBFile = 0 = CurEm If vbYes = MsgBox(是否刪除 amp。 _ WHERE 職位= amp。 Text1(2).Text amp。 , amp。 基本工資= amp。 Text1(0).Text amp。Private Sub cmdCancel_Click() End Sub響應(yīng)“修改Private Sub cmdModify_Click() Dim interrfileno As Integer On Error GoTo errgoto SQL = UPDATE 職位 SET amp。Private Sub cmdCancel_Click() End Sub響應(yīng)Form的Activate事件，在顯示窗體時初始化字段信息。 Text1(2).Text amp。 Text1(1).Text amp。 Text1(0).Text amp。mode=readwrite。 gfile amp。Private Sub Form_Load() Dim interrfileno As Integer On Error GoTo errgoto SQL = select*from 職位 = provider=。Private Sub cmdUpdate_click() End Sub響應(yīng)DataGrid1的RowColChange事件，記錄用戶選定的行。 amp。 amp。Public CurPos As Integer相應(yīng)“取消“按鈕的單擊事件，隱藏當(dāng)前窗體Private Sub cmdAdd_Click()End Sub響應(yīng)“刪除職位“按鈕的單擊事件，實(shí)現(xiàn)刪除職位的功能。 Text1(0).Text amp。 Text1(5).Text amp。 Text1(4).Text amp。 Text1(3).Text amp。 Text1(2).Text amp。 Text1(1).Text amp。 Text1(0).Text amp。 Text1(5).Text amp。 Text1(4).Text amp。 Text1(3).Text amp。 Text1(2).Text amp。 Text1(1).Text amp。 Text1(0).Text amp。Private Sub cmddUpdateEmployee_Click() End Sub響應(yīng)DataGrid1的RowColChanged事件，并記錄用戶選定的行Private Sub DataGrid1_rowcolchange(lastrow As Variant, ByVal lastcol As Integer) CurEm = End Sub響應(yīng)Form的Load的事件，并實(shí)現(xiàn)DaaGrid控件的數(shù)據(jù)顯示。 amp。 amp。參考文獻(xiàn)[1] . [2] . . 2004[3] 孫涌. . 2006[4] . .[5] 東方人華. Office . 2002[6] 潭浩強(qiáng). Visual Basic . 2002[7] 王金利. Visual Basic . 2004[8] 王曉敏. . 1999[9] 曾華. . 1997[10] 胡昌平. [11] 相關(guān)網(wǎng)站 ：// vb學(xué)習(xí)網(wǎng)[12] 李玉東. Visual Basic [13] 盧毅. Visual Basic [14] 王志敏. Visual [15] 匡松. Visual Basic ： 附　錄 （1）主窗體代碼：Private Sub Analysis_Click() End SubPrivate Sub HRManage_Click() End Sub相應(yīng)MDIForm對象的Load事件，對整體進(jìn)行初始化Private Sub MDIForm_Load() gfile = amp。同時，他們在整個開發(fā)過程中提出了許多建設(shè)性意見，并給我解決了一些專業(yè)性問題。周老師在工作上非常的嚴(yán)謹(jǐn)，在他的細(xì)心幫助和指導(dǎo)下功夫的論文才得以順利地完成，還要感謝我身邊的一些同學(xué)，是他們和我一起研究探討，不怕困難，周老師嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度和忘我的工作精神和同學(xué)們不怕困難的恒心都值得我去學(xué)習(xí)?；仡櫲陮W(xué)習(xí)期間的一千余個日日夜夜，自己為有機(jī)會擺脫工作的煩惱與浮躁，靜心鉆研，潛心研究，并取得初步研究成果而感到欣慰。這里有治學(xué)嚴(yán)謹(jǐn)而不失親切的老師，有互相幫助的同學(xué)，更有向上、融洽的學(xué)習(xí)生活氛圍。“Microsoft Visual Basic ”的可視化的用戶界面，面向?qū)ο缶幊痰忍攸c(diǎn)也增加了許多功能強(qiáng)大的開發(fā)工具，同時也增強(qiáng)了數(shù)據(jù)庫訪問的快捷性和新的增強(qiáng)功能的向?qū)?，用戶可以使用Visual Basic ，隨著網(wǎng)絡(luò)功能的增強(qiáng)，Visual Basic的應(yīng)用前景將會更加廣泛。另外由于我水平有限，經(jīng)驗(yàn)不夠豐富，肯請老師給予指導(dǎo)和指正。數(shù)據(jù)的一致性的問題也通過程序進(jìn)行有效地解決。結(jié) 論經(jīng)過一個多月的設(shè)計(jì)和開發(fā)，職工信息管理與分析系統(tǒng)基本開發(fā)完畢。因此系統(tǒng)安全設(shè)計(jì)的準(zhǔn)則是，使非法侵入的代價超過被保護(hù)信息的價值。進(jìn)行安全測試時，可以想方設(shè)法截取或破譯口令；專門定做軟件破壞系統(tǒng)的保護(hù)機(jī)制；故意導(dǎo)致系統(tǒng)失敗，企圖趁恢復(fù)之機(jī)非法進(jìn)入等等。性能測試有時與強(qiáng)度測試相結(jié)合，經(jīng)常需要其他硬件的配套支持。3. 強(qiáng)度測試檢查程序?qū)Ξ惓Ｇ闆r的抵抗能力，測試總是迫使系統(tǒng)在異常的資源配置下進(jìn)行。當(dāng)系統(tǒng)出錯時，能否在指定時間間隔內(nèi)修正錯誤并重新啟動系統(tǒng)。通常要包括以下幾種測試。綜合測試是組裝軟件的系統(tǒng)測試技術(shù)，按設(shè)計(jì)要求把通過單元測試的各個模塊組裝在一起之后，進(jìn)行測試，以便發(fā)現(xiàn)與接口有關(guān)的各種錯誤。3. 幾個子功能組合起來不能并實(shí)現(xiàn)主功能。例如：數(shù)據(jù)經(jīng)過接口可能丟失。如輸入“001”將其工資調(diào)整為1350元， 綜合測試 時常有這樣的情況發(fā)生，每個模塊都能單獨(dú)工作，但這些模塊集成在一起之后卻不能正常工作，主要原因如下。用戶測試所用表單如表61所示。3. 綜合測試：在以上測試的基礎(chǔ)上對系統(tǒng)功能進(jìn)行了整體的測試，依次來檢驗(yàn)系統(tǒng)功能是否符合系統(tǒng)設(shè)計(jì)的要求。2. 數(shù)據(jù)跟蹤：完成菜單項(xiàng)測試后，我又對系統(tǒng)內(nèi)的每一個數(shù)據(jù)進(jìn)行了跟蹤。 系統(tǒng)測試的目標(biāo)從用戶的角度出發(fā)，希望通過軟件測試能充分暴露軟件中存在的問題和缺陷，從而考慮是否可以接受該產(chǎn)品；從開發(fā)者的角度出發(fā)，希望測試表明軟件產(chǎn)品不存在錯誤，已經(jīng)正確地實(shí)現(xiàn)了用戶的需求，確立人們對軟件質(zhì)量的信心。雖然系統(tǒng)在測試之前經(jīng)過了系統(tǒng)分析、需求分析、數(shù)據(jù)庫分析、詳細(xì)分析等階段嚴(yán)格的技術(shù)審查，但是錯誤和疏漏的存在還是無法避免的。圖512 添加特殊項(xiàng)窗體修改窗體如圖513所示。特殊項(xiàng)管理窗體如圖511所示。 圖58 職位管理窗體添加職位窗體如圖59所示。單擊“取消“按鈕可以退出該窗體。單擊“刪除職位”按鈕會彈出對話框，要求確認(rèn)刪除該職位，單擊“是”按鈕，既刪除該職位。圖57 修改員工窗體 創(chuàng)建職位管理窗體該窗體實(shí)現(xiàn)對職工的增刪改功能。圖56 添加員工窗體修改員工窗體新建一個窗體，并命名為UpdateEForm，Caption設(shè)置為“修改員工”。圖55 添加員工窗體新建一個窗體，并命名為AddEForm，Caption設(shè)置為“添加員工”。操作