【正文】 。（8）向窗體上添加1個CommonDialog控件。添加方法如下：在“工程”/“部件”對話框中勾選“Microsoft Common Dialog （SP6）”列表項(xiàng)，單擊【確定】按鈕之后即可將CommonDialog控件添加到工具箱當(dāng)中。2．代碼設(shè)計在窗體加載時，調(diào)用自定義過程Tree_Change，設(shè)置TreeView控件中的數(shù)據(jù)信息。其實(shí)現(xiàn)的代碼如下：39。定義一個節(jié)點(diǎn)變量 select distinct menu_menu,menu_menuid from tb_SCGL_menu order by menu_menuid, n, adOpenKeyset If 0 Then 39。 移至第一條記錄集 Do While = False 39。給第1層節(jié)點(diǎn)賦與數(shù)值 select * from tb_SCGL_menu where menu_menu =39。, n, adOpenKeyset If 0 Then Do While = False 39。給第2層節(jié)點(diǎn)賦與數(shù)值Set Node2 = (, tvwChild, key, Text, 2) Loop End If Loop End If End Sub 系統(tǒng)登錄窗體系統(tǒng)登錄主要用于對登錄生產(chǎn)管理系統(tǒng)的用戶進(jìn)行安全性檢查，以防止非法用戶進(jìn)入該系統(tǒng)。驗(yàn)證操作員及其密碼，主要通過對數(shù)據(jù)表tb_user的查詢，結(jié)合If語句判斷用戶選定的操作員及其輸入的密碼是否符合數(shù)據(jù)庫中的操作員和密碼，如果符合則允許登錄，并給予相應(yīng)的權(quán)限，否則提示錯誤信息。生產(chǎn)管理系統(tǒng)登錄界面如圖5所示。（2）向窗體上添加1個PictureBox控件，設(shè)置其Picture屬性。用于顯示操作員頭像和姓名。本窗體應(yīng)用到的主要控件的相關(guān)屬性請參見表1。設(shè)置標(biāo)簽內(nèi)容 select * from tb_user, n, adOpenKeyset 39。移至第一條記錄 39。向ListView中添加圖片 Do While = False Mystr = (user_name) MyIcon = Val(Right((user_tx), Val(Len((user_tx)) 2))) Set itmX = (, , Mystr, MyIcon) Loop End If 39。其實(shí)現(xiàn)的代碼如下：Private Sub ListView1_Click() If 0 Then 39。 + + 39。如果記錄數(shù)大于零 39。將所選擇的操作員頭像添加到Image控件中Set = (MyIcon).Picture End If 39。如果用戶輸入的錯誤密碼超過3次，系統(tǒng)將強(qiáng)行退出。 + Trim() + 39。如果記錄數(shù)大于零 39。如果輸入密碼正確 Load Frm_Main 39。設(shè)置狀態(tài)欄信息 Unload Me 39。否則 If = Then 39。設(shè)置焦點(diǎn) Else If (user_mm) Then 39。計數(shù)文本框中的數(shù)量加一 39。密碼錯誤3次，退出系統(tǒng) MyMsg = MsgBox(密碼輸入錯誤,請向系統(tǒng)管理員查詢！, , 信息提示) If MyMsg = vbOK Then End End If End If End If End Sub 物料信息設(shè)置物料信息設(shè)置窗體可以用于對本企業(yè)所需要的物料信息進(jìn)行增加、刪除、修改、查找操作，并可以通過下面的列表瀏覽所有的物料信息。圖7 物料信息設(shè)置窗體運(yùn)行結(jié)果1．窗體設(shè)計（1）在“工程”中新建一個窗體，將窗體的“名稱”設(shè)置為Frm_Jcxx_Wlxx，Caption屬性設(shè)置為“物料信息設(shè)置”，MaxButton屬性設(shè)置為False。向ImageList1控件中添加圖片，并將其與Toolbar控件相連接。設(shè)置DataGrid控件的“名稱”為Dgr_Wlxx，DataSource屬性為Adodc1。其中DataGrid控件用于顯示物料信息，ADO控件用于數(shù)據(jù)連接。該控件用于顯示產(chǎn)品編號。設(shè)置TextBox控件為“名稱”為Text1的控件數(shù)組。其實(shí)現(xiàn)的關(guān)鍵代碼如下：Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case add 39。設(shè)置變量，如果為True，則在【保存】按鈕中作插入操作 tlbState Toolbar1, True 39。打開數(shù)據(jù)集連接 select * from tb_SCGL_wlxx order by wlxx_id, n, adOpenStatic If 0 Then 39。移至最后一條記錄 Text1(0) = WL + Format(Val(Right(Trim((wlxx_id)), 3)) + 1, 000) 39。如果沒有記錄 Text1(0) = WL001 End If 39。修改 If 0 ThenblnAdd = False 39。調(diào)用模塊中的過程 For i = 1 To Text1(i).Locked = False Next i = False view_data 39。刪除 If 0 Then 39。 + (wlxx_id) + 39。調(diào)用數(shù)據(jù)顯示自定義過程 Call Dgr_Title 39。保存 On Error GoTo SaveErr 39。 Label2 amp。添加新記錄 (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。,39。,39。,39。,39。,39。,39。,39。,39。)) Unload Me 1 : tlbState Toolbar1, False For i = 1 To Text1(i).Locked = True Next i = True Else 39。 + Text1(1) + 39。 + Text1(2) + 39。 + Text1(3) + 39。 + + 39。 + Text1(4) + 39。 + Text1(5) + 39。 + Text1(6) + 39。 + Text1(7) + 39。 + Text1(0).Text + 39。調(diào)用模塊中的自定義過程 For i = 1 To Text1(i).Locked = True Next i = True End If Exit SubSaveErr: 39。 取消 tlbState Toolbar1, False For i = 1 To Text1(i).Locked = True Next i = True : Call view_data Case find 39。 + Mystr + 39。關(guān)閉 Unload Me End Select End Sub 生產(chǎn)計劃單管理生產(chǎn)計劃單管理窗體是生產(chǎn)管理系統(tǒng)中一個比較重要的部分。在生產(chǎn)計劃單中可以完成對生產(chǎn)計劃單的增加、刪除、修改、查找操作。無須用戶查找相應(yīng)的產(chǎn)品信息，使用戶操作更加簡便。圖9 生產(chǎn)計劃單管理運(yùn)行結(jié)果1．窗體設(shè)計（1）在“工程”中新建一個窗體，將窗體的“名稱”設(shè)置為Frm_Jhgl_Scjhd，Caption屬性設(shè)置為“生產(chǎn)計劃單”，MaxButton屬性設(shè)置為False，StartUpPosition屬性設(shè)置為2–屏幕中心。向ImageList控件中添加圖片，并將這兩個控件連接起來。設(shè)置DataGrid控件的“名稱”為Dgr_Scjhd，DataSource屬性設(shè)置為Adodc1。其中DataGrid控件用于顯示生產(chǎn)計劃單信息，ADO控件用于數(shù)據(jù)連接。（5）向窗體上添加2個ComboBox控件，分別設(shè)置其“名稱”為Cbx_Cpbh和Cbx_wcf，Style屬性為0–Dropdown Combo。（6）向窗體上添加Label控件和TextBox控件。2．代碼設(shè)計在生產(chǎn)計劃單管理窗體中的增加、刪除、修改操作都是利用基本的SQL語句執(zhí)行的，在這里就不做詳細(xì)的介紹，請參見源程序。并且當(dāng)該文本框獲得焦點(diǎn)時，背景色設(shè)置為藍(lán)色，失去焦點(diǎn)時，背景色恢復(fù)為白色。對于控件數(shù)組的處理方法，可利用KeyPress事件和Index屬性來實(shí)現(xiàn)，其關(guān)鍵代碼如下： Private Sub text1_KeyPress(Index As Integer, KeyAscii As Integer)If KeyAscii = 13 Then 39。如果光標(biāo)在Text1（4）上， 39。結(jié)束本事件 End If If Index = 5 Then Exit Sub 39。光標(biāo)移至下一個文本框End IfEnd Sub對于非數(shù)組控件的處理方法，可直接利用KeyDown事件，這里以Cbx_Cpbh控件（ComboBox控件）為例，其實(shí)現(xiàn)的關(guān)鍵代碼如下：Private Sub Cbx_Cpbh_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then Text1(4).SetFocusEnd Sub下面再介紹一下關(guān)于背景色的設(shè)置方法。HFFFF80 39。HFFFFFF 39。其運(yùn)行的效果如圖10所示。（2）向窗體上添加1個Toolbar控件，1個ImageList控件。（4）向窗體上添加2個ADO控件和DataGrid控件。設(shè)置Adodc1控件的CommandType屬性設(shè)置為1–adCmdText，RecordSource屬性設(shè)置為select * from tb_SCGL_sbbf order by sbbf_id，設(shè)置Adodc2控件的CommandType屬性為1–adCmdText，RecordSource屬性為select * from tb_SCGL_scsb order by scsb_sbbh。（5）向窗體上添加2個DTPicker控件，“名稱”設(shè)置為Dtp_Qyrq和Dtp_Bfrq，分別用于顯示設(shè)備啟用日期和設(shè)備報廢日期。用來顯示產(chǎn)品編號信息。設(shè)置TextBox控件為“名稱”屬性是Text1的控件數(shù)組。值得一提的是在執(zhí)行添加操作時，系統(tǒng)不但將數(shù)據(jù)信息添加到報廢信息表（tb_S