手機(jī)銷(xiāo)售信息管理系統(tǒng)-資料下載頁(yè)
2025-04-15 12:19本頁(yè)面
【正文】 s String sqlsell = select * from sell sqlsell, conn, adOpenKeyset, adLockPessimistic 39。添加入銷(xiāo)售表 (1) = (2) = (3) = (4) = (5) = Val() (6) = Val() (7) = (8) = (9) = (10) = 39。從現(xiàn)存商品表中減去 Dim oldquantity As Long 39。用于存放goods表中原來(lái)的此商品數(shù)量 Dim oldmoney As Long 39。用于存放goods表中原來(lái)的此商品進(jìn)貨總額 oldquantity = (5) oldmoney = (6) (5) = oldquantity Val() (6) = oldmoney ((4)) * Val() MsgBox 銷(xiāo)售成功！, vbOKOnly + vbExclamation, 注意End SubPrivate Sub Form_Load() 39。讓窗體居中 Call MakeCenter(Me)End Sub業(yè)績(jī)查詢(xún)代碼：Dim rs_check As New Private Sub cmdallem_Click() allem = True 39。 Call ShowGradeEnd SubPrivate Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdquery_Click() allem = False 39。 Call ShowGradeEnd SubPrivate Sub Form_Load() 39。讓窗體居中 Call MakeCenter(Me) = connStr allem = True Call ShowGradeEnd SubPrivate Sub ShowGrade() If allem = False Then Dim strsql As String 39。下面的sql語(yǔ)句從sell表和employee表中顯示特定員工號(hào)的員工號(hào)，員工姓名 39。并以員工號(hào)和員工姓名分組合計(jì)銷(xiāo)售總額并顯示之。 strsql = select 業(yè)務(wù)員編號(hào),員工姓名,sum(總金額) as 銷(xiāo)售總金額 _ amp。 from sell,employee where = _ amp。 and = amp。 _ amp。 group by 業(yè)務(wù)員編號(hào),員工姓名 strsql, conn, adOpenKeyset, adLockPessimistic = adCmdText = strsql If = True Then MsgBox 此員工號(hào)不存在！, vbOKOnly + vbInformation, 注意 Unload Me Exit Sub End If Else strsql = select 業(yè)務(wù)員編號(hào),員工姓名,sum(總金額) _ amp。 as 銷(xiāo)售總金額 from sell,employee where _ amp。 = group by 業(yè)務(wù)員編號(hào),員工姓名 = adUseClient strsql, conn, adOpenKeyset, adLockPessimistic = adCmdText = strsql End If = False 39。不可增加 = False 39。不可刪除 = False End Sub17 / 17
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1