進(jìn)銷(xiāo)存管理系統(tǒng)實(shí)戰(zhàn)(參考版)
2025-04-16 02:12本頁(yè)面
【正文】 欠付39。欠付39。 = amp。 = select count(商品名稱(chēng))as 交易次數(shù),sum(金額) as 銷(xiāo)售金額, min(金額)as 最小金額,max(金額)as 最大金額 from 銷(xiāo)售記錄 = amp。 如：在窗體上畫(huà)三個(gè)DATA控件、MSFLEXGRID控件并依次進(jìn)行綁定，用來(lái)顯示一些基本數(shù)據(jù)。 頁(yè): amp。 = FooterTopPosition = 8 Loop If Then Exit Do Next FieldNum End If PageCounter = PageCounter + 1 PageCounter : amp。 39。 Prnrecord( As Recordset) private sub cmdprint() End Sub makefind Private Sub txtdata_Change() End Sub Set = Nothing Private Sub Form_Unload(Cancel As Integer) End Sub = 進(jìn)貨記錄 amp。 amp。 txtdata amp。txtfind = txtfind amp。 日期 39。 amp。txtfind = txtfind amp。 文本txtfind = cmbfield amp。 添加此過(guò)程主要是為了解決SQL語(yǔ)句中的引號(hào)問(wèn)題 txtfind（文本框控件，用來(lái)保存SQL語(yǔ)句,visible屬性為false） 。 在進(jìn)銷(xiāo)存管理中，還應(yīng)設(shè)有查詢(xún)功能，包括進(jìn)貨、銷(xiāo)售記錄，現(xiàn)僅就查詢(xún)進(jìn)貨記錄為例,其它依此類(lèi)推，還可進(jìn)行更為復(fù)雜的查詢(xún)。 四：查詢(xún)記錄（圖二） End Sub MsgBox err: Exit Sub End If Next End If Text1(i).Text = (i).Value If TypeName((i).Value) Then For i = 0 To 1 Set rs = (mysql) amp。 39。 39。 amp。 mysqlone = select * from 商品 where 類(lèi)別 = amp。 Set newnode = (root, tvwChild, (1).Value, (1).Value) While Not Set mynode = (, , root, 商品分類(lèi)) Set rs = (mysql) mysql = select * from 類(lèi)別 ) 39。 Private Sub Form_Load() End Sub Unload Me = Text1(2).Text = Text1(1).Text = Text1(0).Text Private Sub Command1_Click()39。 Dim db As Database, rs As Recordset, rs1 As Recordset, mynode As Node, newnode As Node 代碼如下： selectedimage,被選中時(shí)，與image控件相關(guān)聯(lián)的圖像索引。 image,圖像索引（注：本例沒(méi)有圖像索引）； text，node顯示的字符串； key,用item方法提取node的唯一字符串； relationship,node的相應(yīng)位置關(guān)系； relative,可選，node的索引或鍵值； .(relative,relationship,key,text,image,selectedimage)參數(shù)解釋如下： .添加textbox控件數(shù)組，name屬性為：text1(0)text(6),用來(lái)分別顯示商品編號(hào)、商品名稱(chēng)、單價(jià)（元）、單位 、類(lèi)別、質(zhì)保期等必要的商品信息 .添加treeview控件，name屬性為：tv .在銷(xiāo)售管理中查找某商品的信息(frmfindsp)，不應(yīng)讓用戶(hù)手工輸入商品的信息 三：查找商品 End Sub Set db = Nothing Set rs = Nothing End If MsgBox 庫(kù)存中沒(méi)有此類(lèi)商品, vbInformation, 檢測(cè)結(jié)果 Else = (數(shù)量).Value If fieldspbh_value = txtspbh Then Wend End If Else fieldspbh_value = (商品編號(hào)).Value If fieldspbh_value = txtspbh Then fieldspbh_value = (商品編號(hào)).Value While txtspbh fieldspbh_value And Not Set rs = (即時(shí)庫(kù)存) ) 39。 Private Sub Cmdkc_Click() End Sub 1查找商品，代碼請(qǐng)參考“查找商品” Dim shui 39。 Private Sub txtshui_LostFocus() End Sub MsgBox 請(qǐng)確認(rèn)數(shù)據(jù)的正確性, vbCritical, 錯(cuò)誤 err: Exit Sub End IfMsgBox 字段不能為空, vbExclamation, Error Else = txtdanjia * txtliang If txtdanjia And txtliang Then On Error GoTo err
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1