進(jìn)銷存管理系統(tǒng)實(shí)戰(zhàn)-閱讀頁
2025-04-28 02:12本頁面
【正文】 qlone$ Set db = OpenDatabase( amp。 39。 amp。 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。 amp。 39。 添加控件： data(data1)、msflexgrid(綁定至data1控件)。 三個(gè)bobox控件：name屬性分別為:cmbfield、cmbpare、cmbdata作用為：欲查詢的字段（如商品名稱、進(jìn)貨時(shí)間等）、比較符號(hào)（ 、=、like等）； 四個(gè)按鈕控件，name屬性分別為:cmdjians（檢索字段）、cmdfindnow（執(zhí)行SQL語句）、cmdback（重畫）cmdprint（打印記錄集） 代碼如下： Public Sub makefind() 39。 cmbpare Select Case ().Type Case 10 39。 39。 txtdata amp。 Case 8 39。 amp。 Case Else txtfind = txtfind 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。 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。請見打印模塊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, 打印錯(cuò)誤，請核實(shí)后繼續(xù) Exit Sub End If Do Until FooterTopPosition For FieldNum = 0 To 1 (FieldNum).Name amp。 _ (FieldNum).Value If FooterTopPosition Then = 8 Page: amp。 PageCounter Exit Sub err: MsgBox End Sub 六：財(cái)務(wù)管理（如圖三） 我們根據(jù)統(tǒng)計(jì)出來的進(jìn)貨和銷售記錄可以進(jìn)行簡單的財(cái)務(wù)處理。讀者可以根據(jù)實(shí)際需要自行添加功能，當(dāng)然前提是你精通SQL語句了。 = select count(商品名稱)as 交易次數(shù),sum(金額)as 進(jìn)貨金額, min(金額)as 最小金額,max(金額)as 最大金額 from 進(jìn)貨記錄 = amp。 = select sum(金額)as 應(yīng)收 from 銷售記錄 where 支付方式=39。 = select sum(金額)as 應(yīng)收 from 進(jìn)貨記錄 where 支付方式=39。 = select sum(數(shù)量)as 總量 from 庫存記錄
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1