【正文】 rtotal = select sum(總金額) as 進(jìn)貨總金額 from buy where 進(jìn)貨年= amp。 inty amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (進(jìn)貨總金額)End SubPrivate Sub mnChangeEmployee_Click()Unload MeEnd SubPrivate Sub mnChangePwd_Click()End SubPrivate Sub mnEmployeeTable_Click()End SubPrivate Sub mnExit_Click()Unload MeEnd SubPrivate Sub mnGoodsTable_Click()End SubPrivate Sub mnlogin_Click()End SubPrivate Sub mnManufacturerTable_Click()End SubPrivate Sub mnRetreat_Click()End SubPrivate Sub mnRetreatTable_Click()End SubPrivate Sub mnSell_Click()End SubPrivate Sub mnSellMonth_Click() = 1 = False(0) = False(1) = True(2) = False(3) = Falsestrsell = select * from sell where 銷售年= amp。 inty amp。 and 銷售月= amp。 intm amp。 strsell, n, adOpenKeyset, adLockPessimistic = strsellIf = True Then = strsell MsgBox 您本月沒(méi)有銷售記錄！, vbOKOnly + vbInformation, 注意 = False = False = False = False = False = False = False = False Exit SubEnd Ifstrfctotal = select 生產(chǎn)廠商,sum(總金額) as 各廠商銷售總金額 from sell where 銷售年= amp。 inty amp。 and 銷售月= amp。 intm amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotalstrtotal = select sum(總金額) as 銷售總金額 from sell where 銷售年= amp。 inty amp。 and 銷售月= amp。 intm amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (銷售總金額)End SubPrivate Sub mnSellQuarterly_Click() = 2 = False(0) = False(1) = False(2) = True(3) = FalseSelect Case intm Case Is 4 intm = 3 Case Is 7 intm = 6 Case Is 10 intm = 9 Case Is 10 intm = 12End Selectstrsell = select * from sell where 銷售年= amp。 inty amp。 and 銷售月 between amp。 (intm 2) amp。 and amp。 intm amp。 strsell, n, adOpenKeyset, adLockPessimistic = strsellIf = True Then = strsell MsgBox 您本季度沒(méi)有銷售記錄！, vbOKOnly + vbInformation, 注意 = False = False = False = False = False = False = False = False Exit SubEnd Ifstrfctotal = select 生產(chǎn)廠商,sum(總金額) as 各廠商銷售總金額 from sell where 銷售年= amp。 inty amp。 and 銷售月 between amp。 (intm 2) amp。 and amp。 intm amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotalstrtotal = select sum(總金額) as 銷售總金額 from sell where 銷售年= amp。 inty amp。 and 銷售月 between amp。 (intm 2) amp。 and amp。 intm amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (銷售總金額)intm = Month(Date)End SubPrivate Sub mnSellTable_Click()End SubPrivate Sub mnSellToday_Click() = 0 = False(0) = True(1) = False(2) = False(3) = Falsestrsell = select * from sell where 銷售年= amp。 inty amp。 and 銷售月= amp。 intm amp。 and 銷售日= amp。 intd amp。 strsell, n, adOpenKeyset, adLockPessimistic = strsellIf = True Then = strsell MsgBox 您今日沒(méi)有銷售記錄！, vbOKOnly + vbInformation, 注意 = False = False = False = False = False = False = False = False Exit SubEnd Ifstrfctotal = select 生產(chǎn)廠商,sum(總金額) as 各廠商銷售總金額 from sell where 銷售年= amp。 inty amp。 and 銷售月= amp。 intm amp。 and 銷售日= amp。 intd amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotalstrtotal = select sum(總金額) as 銷售總金額 from sell where 銷售年= amp。 inty amp。 and 銷售月= amp。 intm amp。 and 銷售日= amp。 intd amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (銷售總金額)End SubPrivate Sub mnSellYear_Click() = False = 3(0) = False(1) = False(2) = False(3) = Truestrsell = select * from sell where 銷售年= amp。 inty amp。 strsell, n, adOpenKeyset, adLockPessimistic = strsellIf = True Then = strsell MsgBox 您今年沒(méi)有銷售記錄！, vbOKOnly + vbInformation, 注意 = False = False = False = False = False = False = False = False Exit SubEnd Ifstrfctotal = select 生產(chǎn)廠商,sum(總金額) as 各廠商銷售總金額 from sell where 銷售年= amp。 inty amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotalstrtotal = select sum(總金額) as 銷售總金額 from sell where 銷售年= amp。 inty amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (銷售總金額)End Sub39。 在通用中定義的有關(guān)連接數(shù)據(jù)表的記錄集Dim rs_goods As New Dim rs_buy As New Dim rs_manufacturer As New Dim str_goods As StringDim str_buy As StringDim str_manufacturer As StringDim Numgooods As IntegerPrivate Sub Command1_Click()39。對(duì)入庫(kù)時(shí)做的一些屏蔽操作！ If = Then MsgBox 請(qǐng)?zhí)顚戇M(jìn)貨編號(hào)！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐肪幪?hào)！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐访Q！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮a(chǎn)廠商！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐沸吞?hào)！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐窋?shù)量！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐愤M(jìn)貨價(jià)格！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐蜂N貨價(jià)格！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚戇M(jìn)貨總金額！, vbOKOnly + vbInformation, 注意 Exit Sub End If 39。下面是對(duì)進(jìn)貨表進(jìn)行添加記錄操作！ str_buy = select * from buy where 進(jìn)貨編號(hào)=39。 amp。 amp。 39。 str_buy, n, adOpenStatic, adLockOptimistic 39。 打開(kāi)進(jìn)貨表 If = True Then (進(jìn)貨編號(hào)) = (商品名稱) = (生產(chǎn)廠商) = (型號(hào)) = (數(shù)量) = Val() (進(jìn)貨價(jià)) = Val() (進(jìn)貨年) = (進(jìn)貨月) = (進(jìn)貨日) = (業(yè)務(wù)員編號(hào)) = (總金額) = Val() 39。 關(guān)閉進(jìn)貨表 Else MsgBox 此進(jìn)貨編號(hào)已存在，請(qǐng)重添！, vbOKOnly + vbInformation, 注意