進(jìn)銷存管理系統(tǒng)實(shí)戰(zhàn)-資料下載頁
2025-04-13 02:12本頁面
【正文】 60。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。請見打印模塊modprint end sub 五：打印模塊 .新建一標(biāo)準(zhǔn)模塊modprint，以便其它窗體可以共享其過程,此模塊只適用于DAO,特此說明： 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, 打印錯誤，請核實(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 頁: amp。 PageCounter Exit Sub err: MsgBox End Sub 六：財務(wù)管理（如圖三） 我們根據(jù)統(tǒng)計出來的進(jìn)貨和銷售記錄可以進(jìn)行簡單的財務(wù)處理。如：在窗體上畫三個DATA控件、MSFLEXGRID控件并依次進(jìn)行綁定，用來顯示一些基本數(shù)據(jù)。讀者可以根據(jù)實(shí)際需要自行添加功能，當(dāng)然前提是你精通SQL語句了。 = 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 庫存記錄
公司管理相關(guān)推薦
鄂ICP備17016276號-1