進(jìn)銷存管理系統(tǒng)的實(shí)戰(zhàn)-資料下載頁(yè)
2025-04-13 02:12本頁(yè)面
【正文】 Case 10 39。 文本 txtfind = txtfind amp。 39。 amp。 txtdata amp。 39。 Case 8 39。 日期 txtfind = txtfind amp。 amp。 txtdata amp。 Case Else txtfind = txtfind amp。 amp。 txtdata End Select End Sub Private Sub cmbpare_Click() makefind End Sub Private Sub cmbfield_Click() makefind End Sub Private Sub cmdfindnow_Click() If And cmbpare And txtdata Then = select * from 進(jìn)貨記錄 where amp。 amp。 End If End Sub Private Sub cmdjinas_Click() For i = 0 To 1 (i).Name Next = 0 = True End Sub Private Sub Cmdback_Click() = 進(jìn)貨記錄 End Sub Private Sub Form_Load() = amp。 = 進(jìn)貨記錄 End Sub Private Sub Form_Unload(Cancel As Integer) Set = Nothing End Sub Private Sub txtdata_Change() makefind End Sub private sub cmdprint() Prnrecord( As Recordset) 39。請(qǐng)見(jiàn)打印模塊modprint end sub 五：打印模塊 .新建一標(biāo)準(zhǔn)模塊modprint，以便其它窗體可以共享其過(guò)程,此模塊只適用于DAO,特此說(shuō)明： Public Sub Prnrecord(recRecordset As Recordset) On Error GoTo err Dim LeftMargin As Integer Dim HeadTopPosition As Integer Dim FieldNum As Integer Dim PageCounter As Integer Dim MyRecordset As Recordset Const FooterTopPosition = 24 Set MyRecordset = recRecordset PageCounter = 1 = vbCentimeters LeftMargin = HeadTopPosition = 2 = LeftMargin = HeadTopPosition = Times New Roman = 12 打印記錄 If And Then MsgBox 記錄為空!, vbCritical + vbOKOnly, 打印錯(cuò)誤，請(qǐng)核實(shí)后繼續(xù) Exit Sub End If Do Until FooterTopPosition For FieldNum = 0 To 1 (FieldNum).Name amp。 : amp。 _ (FieldNum).Value If FooterTopPosition Then = 8 Page: amp。 PageCounter PageCounter = PageCounter + 1 End If Next FieldNum If Then Exit Do Loop = 8 = FooterTopPosition 頁(yè): amp。 PageCounter Exit Sub err: MsgBox End Sub 六：財(cái)務(wù)管理（如圖三） 我們根據(jù)統(tǒng)計(jì)出來(lái)的進(jìn)貨和銷售記錄可以進(jìn)行簡(jiǎn)單的財(cái)務(wù)處理。如：在窗體上畫(huà)三個(gè)DATA控件、MSFLEXGRID控件并依次進(jìn)行綁定，用來(lái)顯示一些基本數(shù)據(jù)。讀者可以根據(jù)實(shí)際需要自行添加功能，當(dāng)然前提是你精通SQL語(yǔ)句了。 = amp。 = select count(商品名稱)as 交易次數(shù),sum(金額)as 進(jìn)貨金額, min(金額)as 最小金額,max(金額)as 最大金額 from 進(jìn)貨記錄 = amp。 = select count(商品名稱)as 交易次數(shù),sum(金額) as 銷售金額, min(金額)as 最小金額,max(金額)as 最大金額 from 銷售記錄 = amp。 = select sum(金額)as 應(yīng)收 from 銷售記錄 where 支付方式=39。欠付39。 = select sum(金額)as 應(yīng)收 from 進(jìn)貨記錄 where 支付方式=39。欠付39。 = select sum(數(shù)量)as 總量 from 庫(kù)存記錄
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1