進(jìn)銷存管理系統(tǒng)的實(shí)戰(zhàn)(已改無錯(cuò)字)
2023-05-14 02:12:28 本頁(yè)面
【正文】 End Sub Private Sub Cmdkc_Click() 39。檢測(cè)庫(kù)存量 Dim db As Database Dim rs As Recordset Dim fieldspbh_value Set db = OpenDatabase( amp。 ) Set rs = (即時(shí)庫(kù)存) While txtspbh fieldspbh_value And Not fieldspbh_value = (商品編號(hào)).Value If fieldspbh_value = txtspbh Then fieldspbh_value = (商品編號(hào)).Value Else End If Wend If fieldspbh_value = txtspbh Then = (數(shù)量).Value Else MsgBox 庫(kù)存中沒有此類商品, vbInformation, 檢測(cè)結(jié)果 End If Set rs = Nothing Set db = Nothing End Sub 三：查找商品 .在銷售管理中查找某商品的信息(frmfindsp)，不應(yīng)讓用戶手工輸入商品的信息 .添加treeview控件，name屬性為：tv .添加textbox控件數(shù)組，name屬性為：text1(0)text(6),用來分別顯示商品編號(hào)、商品名稱、單價(jià)（元）、單位 、類別、質(zhì)保期等必要的商品信息 .(relative,relationship,key,text,image,selectedimage)參數(shù)解釋如下： relative,可選，node的索引或鍵值； relationship,node的相應(yīng)位置關(guān)系； key,用item方法提取node的唯一字符串； text，node顯示的字符串； image,圖像索引（注：本例沒有圖像索引）； selectedimage,被選中時(shí)，與image控件相關(guān)聯(lián)的圖像索引。 relationship的值： tvwfirst,0,第一個(gè)對(duì)象，該節(jié)點(diǎn)放在所有同級(jí)節(jié)點(diǎn)的前面； tvwlast,1,最后一個(gè)； tvwnext,2,（缺?。┫乱粋€(gè)，該節(jié)點(diǎn)放在relative命名的節(jié)點(diǎn)之后； tvwprevious,3,前一個(gè)，該節(jié)點(diǎn)放在relative命名的節(jié)點(diǎn)之前； tvwchild,4,子節(jié)點(diǎn)，為relative命名節(jié)點(diǎn)的子節(jié)點(diǎn)。 代碼如下： Dim db As Database, rs As Recordset, rs1 As Recordset, mynode As Node, newnode As Node Private Sub Command1_Click()39。此過程與銷售管理呼應(yīng)，將編號(hào)、名稱及單價(jià)傳遞給frmxsgl窗體中。 = Text1(0).Text = Text1(1).Text = Text1(2).Text Unload Me End Sub Private Sub Form_Load() 39。加載窗體后，根據(jù)商品表中的“類別”標(biāo)記，將商品名稱顯示在treeview中，其它字段顯示在textbox數(shù)組中，使用戶能夠清楚地查看需要出售的商品相關(guān)信息 Dim mysql$, mysqlone$ Set db = OpenDatabase( amp。 ) mysql = select * from 類別 Set rs = (mysql) Set mynode = (, , root, 商品分類) While Not Set newnode = (root, tvwChild, (1).Value, (1).Value) mysqlone = select * from 商品 where 類別 = amp。 39。 amp。 amp。 39。 Set rs1 = (mysqlone) While Not Set newnode = ((1).Value, tvwChild, rs1!商品名稱, rs1!商品名稱) Wend Wend (root).Expanded = True End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Set rs1 = Nothing Set rs = Nothing Set db = Nothing End Sub Private Sub tv_NodeClick(ByVal Node As ) On Error GoTo err If = 0 Then mysql = select * from 商品 where 商品名稱 = amp。 39。 amp。 amp。 39。 Set rs = (mysql) For i = 0 To 1 If TypeName((i).Value) Then Text1(i).Text = (i).Value End If Next End If Exit Sub err: MsgBox End Sub 四：查詢記錄（圖二） 在進(jìn)銷存管理中，還應(yīng)設(shè)有查詢功能，包括進(jìn)貨、銷售記錄，現(xiàn)僅就查詢進(jìn)貨記錄為例,其它依此類推，還可進(jìn)行更為復(fù)雜的查詢。 添加控件： data(data1)、msflexgrid(綁定至data1控件)。 txtfind（文本框控件，用來保存SQL語(yǔ)句,visible屬性為false） 。 三個(gè)bobox控件：name屬性分別為:cmbfield、cmbpare、cmbdata作用為：欲查詢的字段（如商品名稱、進(jìn)貨時(shí)間等）、比較符號(hào)（ 、=、like等）； 四個(gè)按鈕控件，name屬性分別為:cmdjians（檢索字段）、cmdfindnow（執(zhí)行SQL語(yǔ)句）、cmdback（重畫）cmdprint（打印記錄集） 代碼如下： Public Sub makefind() 39。添加此過程主要是為了解決SQL語(yǔ)句中的引號(hào)問題 txtfind = cmbfield amp。 cmbpare Select Case ().Type
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1