【正文】 = 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 您今年沒有銷售記錄！, 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。對入庫時做的一些屏蔽操作！ If = Then MsgBox 請?zhí)顚戇M貨編號！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐肪幪枺? vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐访Q！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮a(chǎn)廠商！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐沸吞枺? vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐窋?shù)量！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐愤M貨價格！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐蜂N貨價格！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戇M貨總金額！, vbOKOnly + vbInformation, 注意 Exit Sub End If 39。下面是對進貨表進行添加記錄操作！ str_buy = select * from buy where 進貨編號=39。 amp。 amp。 39。 str_buy, n, adOpenStatic, adLockOptimistic 39。 打開進貨表 If = True Then (進貨編號) = (商品名稱) = (生產(chǎn)廠商) = (型號) = (數(shù)量) = Val() (進貨價) = Val() (進貨年) = (進貨月) = (進貨日) = (業(yè)務(wù)員編號) = (總金額) = Val() 39。 關(guān)閉進貨表 Else MsgBox 此進貨編號已存在，請重添！, vbOKOnly + vbInformation, 注意 = Exit Sub 39。 關(guān)閉進貨表 End If39。下面是對商品庫存表進行入庫操作！ Dim sql As String sql = select * from goods where 商品編號 = 39。 amp。 amp。 39。 sql, n, adOpenStatic, adLockOptimistic If = True Then str_goods = select * from goods str_goods, n, adOpenStatic, adLockOptimistic 39。 打開庫存表 (商品編號) = (商品名稱) = (生產(chǎn)廠商) = (型號) = (數(shù)量) = Val() (進貨價) = Val() (銷貨價) = Val() MsgBox 商品入庫成功, vbOKOnly + vbExclamation, 39。 關(guān)閉庫存表 Else numgoods = (數(shù)量) (數(shù)量) = Val() + numgoods MsgBox 商品入庫成功, vbOKOnly + vbExclamation, 39。 關(guān)閉庫存表 End IfEnd SubPrivate Sub Command2_Click() = = = = = = = = = End SubPrivate Sub Command3_Click()39。對入庫時做的一些屏蔽操作！ If = Then MsgBox 請?zhí)顚憦S商編號！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚憦S商名稱！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚憦S商聯(lián)系人姓名！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戨娫挘? vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚憦S商地址！, vbOKOnly + vbInformation, 注意 Exit Sub End If39。下面是對進貨商表進行入庫操作！ str_manufacturer = select * from manufacturer where 廠商編號=39。 amp。 amp。 39。 str_manufacturer, n, adOpenStatic, adLockOptimistic If = True Then (廠商編號) = (廠商名稱) = (聯(lián)系人姓名) = (電話) = (廠商地址) = MsgBox 添加廠商成功, vbOKOnly + vbExclamation, Else MsgBox 該編號已存在，請確認！, vbOKOnly + vbInformation, = Exit Sub End IfEnd SubPrivate Sub Command4_Click() = = = = = End SubPrivate Sub Form_Load() = False = False = False = False = Year(Date) = Month(Date) = Day(Date) = strsEnd SubPrivate Sub Text2_Change()39。如果商品編號存在，則直接出現(xiàn)本商品的相關(guān)數(shù)據(jù)str_goods = select * from goods where 商品編號=39。 amp。 amp。 39。 str_goods, n, adOpenStatic, adLockOptimistic = (商品名稱) = (生產(chǎn)廠商) = (型號) = (進貨價) = (銷貨價)End SubPrivate Sub Text6_Change()39?？偨痤~的直接出現(xiàn)操作If Then = Val() * Val()End IfEnd SubPrivate Sub Text7_Change()39?？偨痤~的直接出現(xiàn)操作If Then = Val() * Val()End IfEnd SubDim rs_goods As New Dim rs_sell As New Dim str_goods As StringDim str_sell As StringDim numgoods As IntegerPrivate Sub Command1_Click() If = Then MsgBox 請?zhí)顚戜N貨編號！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐肪幪枺? vbOKOnly + vbInformation, 注意 Exit Sub End If str_goods = select * from goods where 商品編號=39。 amp。 amp。 39。 str_goods, n, adOpenStatic, adLockOptimistic