【正文】 銷售報表 End Begin mnuReportCheck Caption = 入庫盤點(diǎn)報表 End Begin mnuReportType Caption = 種類報表 End Begin mnuReportUser Caption = 用戶報表 Visible = 0 39。False End End Begin mnuHelp Caption = 幫助 Begin mnuHelpAbout Caption = 關(guān)于 End EndEndAttribute VB_Name = mdiMainAttribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub mnuCheckFind_Click()39。庫存查詢 , MeEnd SubPrivate Sub mnuCheckInput_Click()39。商品入庫 , MeEnd SubPrivate Sub mnuCheckModify_Click()39。庫存修改 , MeEnd SubPrivate Sub mnuCheckOther_Click()39。商品信息入庫 , MeEnd SubPrivate Sub mnuCheckReport_Click()39。入庫查詢 , MeEnd SubPrivate Sub mnuHelpAbout_Click()39。關(guān)于 , MeEnd SubPrivate Sub mnuHelpC_Click()39。幫助SendKeys {F1}End SubPrivate Sub mnuOtherFactory_Click()39。供應(yīng)商設(shè)置 , MeEnd SubPrivate Sub mnuOtherProvince_Click()39。供應(yīng)商省份設(shè)置 , MeEnd SubPrivate Sub mnuOtherType_Click()39。種類設(shè)置 , MeEnd SubPrivate Sub mnuReportCheck_Click()39。入庫報表 vbModal, MeEnd SubPrivate Sub mnuReportFactory_Click()39。供應(yīng)商報表 vbModal, MeEnd SubPrivate Sub mnuReportType_Click()39。種類報表 vbModal, MeEnd SubPrivate Sub mnuReportUser_Click()39。用戶報表 vbModal, MeEnd SubPrivate Sub mnuSellCheck_Click()39。銷售盤點(diǎn) vbModal, MeEnd SubPrivate Sub mnuSellDay_Click()39。按日月盤點(diǎn) , MeEnd SubPrivate Sub mnuSellOpen_Click()39。銷售窗體 , MeEnd SubPrivate Sub mnuSellReport_Click()39。銷售報表 vbModal, MeEnd Sub End Begin Label14 AutoSize = 1 39。True Caption = 生產(chǎn)省份 Height = 180 Left = 120 TabIndex = 20 Top = 2160 Width = 720 End Begin Label13 AutoSize = 1 39。True Caption = 生產(chǎn)時間 Height = 180 Left = 120 TabIndex = 19 Top = 1560 Width = 720 End Begin Label6 AutoSize = 1 39。True Caption = 庫存量 Height = 180 Left = 120 TabIndex = 18 Top = 960 Width = 540 End Begin Label5 AutoSize = 1 39。True Caption = 單價 Height = 180 Left = 3000 TabIndex = 17 Top = 600 Width = 360 End Begin Label4 AutoSize = 1 39。True Caption = 單位 Height = 180 Left = 3000 TabIndex = 16 Top = 960 Width = 360 End Begin Label3 AutoSize = 1 39。True Caption = 種類 Height = 180 Left = 3000 TabIndex = 15 Top = 240 Width = 360 End Begin Label2 AutoSize = 1 39。True Caption = 商品名稱 Height = 180 Left = 120 TabIndex = 14 Top = 600 Width = 720 End Begin Label1 AutoSize = 1 39。True Caption = 商品編號 Height = 180 Index = 2 Left = 120 TabIndex = 13 Top = 240 Width = 720 EndPrivate Sub cmdFind_Click()39。查找If Trim() Then Sql = select * from 商品表 where 商品編號= amp。 Trim() amp。 39。 amp。 Trim() Set RS = dbSelect(Sql) On Error Resume Next If Not Then = (商品編號) = (種類) = (商品名稱) = (單價) = (庫存量) = (單位) = (生產(chǎn)時間) = (生產(chǎn)省份) = (生產(chǎn)廠家) = (商品名稱) Else MsgBox 沒有商品編號為 amp。 amp。 的商品庫存信息！ End IfEnd IfEnd SubPrivate Sub txtData_Change()End SubPrivate Sub Command1_Click()If Trim() Then Sql = select * from 商品表 where 商品名稱=39。 amp。 Trim() amp。 39。 Set RS = dbSelect(Sql) If Not Then = (商品編號) = (種類) = (商品名稱) = (單價) = (庫存量) = (單位) = (生產(chǎn)時間) = (生產(chǎn)省份) = (生產(chǎn)廠家) = (商品編號)Else MsgBox 沒有商品名稱為 amp。 amp。 的商品庫存信息！ End IfEnd IfEnd SubPrivate Sub Command2_Click() = True = True = True = True = True = True = True = True = True = True = FalseEnd SubPrivate Sub Command3_Click()Dim i As IntegerIf Trim() And Trim() Then i = MsgBox(確信刪除?若要繼續(xù)請按確定，商品信息將被刪除！, vbYesNo, 提示) If i = vbYes Then Sql = delete * from 商品表 where 商品編號= amp。 Trim() MsgBox (商品刪除成功！) dbOperate (Sql) Else Unload Me End If Else MsgBox 主鍵不能為空 Unload MeEnd IfEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Command5_Click() If = True Then Unload Me ElseIf Trim() And Trim() Then Sql = select * from 商品表 where 商品編號= amp。 Trim() Set RS = dbSelect(Sql) If Not Then Sql = update 商品表 set 商品編號= Sql = Sql amp。 Str(Val(Trim())) Sql = Sql amp。 ,商品名稱=39。 amp。 Trim() Sql = Sql amp。 39。,種類=39。 amp。 Trim() Sql = Sql amp。 39。,單價= amp。 Str(Val(Trim())) Sql = Sql amp。