【文章內容簡介】 End If 39。關閉數據對象 For i = 1 To Text1(i) = Text1(i).Locked = False Next i = False For i = 1 To Text1(i).Enabled = True Next i = True : Text1(1).SetFocus Case modify 39。修改 If 0 ThenblnAdd = False 39。設置變量，如果為False，則在【保存】按鈕中作修改操作 tlbState Toolbar1, True 39。調用模塊中的過程 For i = 1 To Text1(i).Locked = False Next i = False view_data 39。調用自定義的過程 mybookmark = For i = 1 To Text1(i).Enabled = True Next i = True Else MsgBox 系統(tǒng)沒有要修改的數據！, , 提示窗口 End If Case delete 39。刪除 If 0 Then 39。查詢其他表中是否有相關的信息正在使用，如果有這不能刪除該信息 Dim rs2 As New select * from tb_SCGL_wlxq where wlxq_wlbh=39。 + (wlxx_id) + 39。, n, adOpenKeyset If 0 Then MsgBox 該信息正在使用，不能刪除！, , 信息提示 Exit Sub Else For i = 0 To Text1(i).Text = Next i = Call view_data 39。調用數據顯示自定義過程 Call Dgr_Title 39。調用設置表頭的字定義過程 End If Else MsgBox 系統(tǒng)沒有要刪除的數據！, , 提示窗口 End If Case save 39。保存 On Error GoTo SaveErr 39。錯誤處理 If Text1(1).Text = Then MsgBox 系統(tǒng)不允許 amp。 Label2 amp。 為空！, , 提示窗口 Exit Sub End If If blnAdd = True Then 39。添加新記錄 (insert into tb_SCGL_wlxx(wlxx_id,wlxx_wlmc,wlxx_wlgg,wlxx_wldw,wlxx_cpbh,wlxx_cpmc,wlxx_cpgg,wlxx_bz,wlxx_wlsl) values(39。 + Text1(0) + 39。,39。 + Text1(1) + 39。,39。 + Text1(2) + 39。,39。 + Text1(3) + 39。,39。 + + 39。,39。 + Text1(4).Text + 39。,39。 + Text1(5).Text + 39。,39。 + Text1(6) + 39。,39。 + Text1(7) + 39。)) Unload Me 1 : tlbState Toolbar1, False For i = 1 To Text1(i).Locked = True Next i = True Else 39。修改原有記錄 (update tb_SCGL_wlxx set wlxx_wlmc =39。 + Text1(1) + 39。,wlxx_wlgg=39。 + Text1(2) + 39。,wlxx_wldw=39。 + Text1(3) + 39。,wlxx_cpbh=39。 + + 39。,wlxx_cpmc=39。 + Text1(4) + 39。,wlxx_cpgg=39。 + Text1(5) + 39。,wlxx_bz=39。 + Text1(6) + 39。,wlxx_wlsl=39。 + Text1(7) + 39。 where wlxx_id=39。 + Text1(0).Text + 39。) Unload Me 1 : = mybookmark tlbState Toolbar1, False 39。調用模塊中的自定義過程 For i = 1 To Text1(i).Locked = True Next i = True End If Exit SubSaveErr: 39。出錯處理程序 MsgBox , , 信息提示 Case cancel 39。 取消 tlbState Toolbar1, False For i = 1 To Text1(i).Locked = True Next i = True : Call view_data Case find 39。查詢 Mystr = InputBox(請輸入要查詢的物料信息編號, 物料信息查詢, WL001) select * from tb_SCGL_wlxx where wlxx_id =39。 + Mystr + 39。, n, adOpenKeyset If 0 Then For i = 0 To 3 If (i) Then Text1(i).Text = (i) Else Text1(i).Text = = Next iIf (4) Then = (4) Else = If (5) Then Text1(4).Text = (5) Else Text1(4).Text = If (6) Then Text1(5).Text = (6) Else Text1(5).Text = If (7) Then Text1(6).Text = (7) Else Text1(6).Text = If (8) Then Text1(7).Text = (8) Else Text1(7).Text = End If Case close 39。關閉 Unload Me End Select End Sub 生產計劃單管理生產計劃單管理窗體是生產管理系統(tǒng)中一個比較重要的部分。后面的物料計劃管理模塊、產品入庫模塊都與生產計劃單有著密切的聯系。在生產計劃單中可以完成對生產計劃單的增加、刪除、修改、查找操作。在生產計劃單管理中，當用戶單擊【增加】按鈕時，系統(tǒng)會自動生成生產計劃單編號，并將企業(yè)所生產的產品添加到產品編號組合框中，當用戶選擇要生產的產品編號后，系統(tǒng)會自動將產品名稱、產品規(guī)格、計量單位自動添加到相應的文本框中，用戶只需添入計劃數量、投產日期、計劃日期等即可。無須用戶查找相應的產品信息，使用戶操作更加簡便。生產計劃單窗體的運行結果如圖9所示。圖9 生產計劃單管理運行結果1．窗體設計（1）在“工程”中新建一個窗體，將窗體的“名稱”設置為Frm_Jhgl_Scjhd，Caption屬性設置為“生產計劃單”，MaxButton屬性設置為False，StartUpPosition屬性設置為2–屏幕中心。（2）向窗體上添加1個Toolbar控件，1個ImageList控件。向ImageList控件中添加圖片，并將這兩個控件連接起來。（3）向窗體上添加1個ADO控件，1個DataGrid控件。設置DataGrid控件的“名稱”為Dgr_Scjhd，DataSource屬性設置為Adodc1。設置Adodc1控件的CommandType屬性為1–adCmdText，RecordSource屬性設置為select * from tb_SCGL_scjhd。其中DataGrid控件用于顯示生產計劃單信息，ADO控件用于數據連接。（4）向窗體上添加2個DTPicker控件，“名稱”設置為Dtp_Tcrq和Dtp_Wgrq，分別用于顯示投產日期和完工日期。（5）向窗體上添加2個ComboBox控件，分別設置其“名稱”為Cbx_Cpbh和Cbx_wcf，Style屬性為0–Dropdown Combo。分別用來顯示產品編號和是否完工。（6）向窗體上添加Label控件和TextBox控件。設置TextBox控件為“名稱”是Text1的控件數組。2．代碼設計在生產計劃單管理窗體中的增加、刪除、修改操作都是利用基本的SQL語句執(zhí)行的，在這里就不做詳細的介紹，請參見源程序。在這里只介紹一下如何利用〈Enter〉鍵使光標從一個文本框移動到下一個文本框當中。并且當該文本框獲得焦點時，背景色設置為藍色，失去焦點時，背景色恢復為白色。下面首先介紹一下有關光標移動的代碼。對于控件數組的處理方法，可利用KeyPress事件和Index屬性來實現，其關鍵代碼如下： Private Sub text1_KeyPress(Index As Integer, KeyAscii As Integer)If KeyAscii = 13 Then 39。按下回車鍵 If Index = 4 Then 39。如果光標在Text1（4）上， 39。則將焦點設置在Dtp_Tcrq上 Exit Sub 39。結束本事件 End If If Index = 5 Then Exit Sub 39。若光標在Text1（5）上，則結束 Text1(Index + 1).SetFocus 39。光標移至下一個文本框End IfEnd Sub對于非數組控件的處理方法，可直接利用KeyDown事件，這里以Cbx_Cpbh控件（ComboBox控件）為例，其實現的關鍵代碼如下：Private Sub Cbx_Cpbh_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then Text1(4).SetFocusEnd Sub下面再介紹一下關于背景色的設置方法。對于控件數組的處理方法，可利用GotFocus事件和LostFocus事件以及Index屬性來實現，其關鍵代碼如下： Private Sub