?? frmmain.frm

?? 超市管理系統(tǒng)是一個超市不可缺少的部分,它的內(nèi)容對于超市的決策者和管理者來說都至關(guān)重要,所以超市管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的銷售
?? FRM
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
rs_total.Open strtotal, cnn, adOpenKeysetm, adLockPessimistic
frmBuyall.Text1.Text = rs_total.Fields("進(jìn)貨總金額")
rs_total.Close
End Sub

Private Sub mnBuyYear_Click()
frmBuyall.Text4.Enabled = False
frmBuyall.SSTab1.Tab = 3
frmBuyall.SSTab1.TabEnabled(0) = False
frmBuyall.SSTab1.TabEnabled(1) = False
frmBuyall.SSTab1.TabEnabled(2) = False
frmBuyall.SSTab1.TabEnabled(3) = True
frmBuyall.Show
strbuy = "select * from buy where 進(jìn)貨年=" & inty & " "
rs_buy.Open strbuy, cnn, adOpenKeyset, adLockPessimistic
frmBuyall.Adodc4.RecordSource = strbuy
frmBuyall.Adodc4.Refresh
frmBuyall.DataGrid4.ReBind
If rs_buy.EOF = True Then
   frmBuyall.Adodc8.RecordSource = strbuy
   frmBuyall.Adodc8.Refresh
   frmBuyall.DataGrid8.ReBind
   MsgBox "您今年沒有進(jìn)貨記錄！", vbOKOnly + vbInformation, "注意"
   frmBuyall.Command25.Enabled = False
   frmBuyall.Command26.Enabled = False
   frmBuyall.Command27.Enabled = False
   frmBuyall.Command28.Enabled = False
   frmBuyall.Command29.Enabled = False
   frmBuyall.Command30.Enabled = False
   frmBuyall.Command31.Enabled = False
   frmBuyall.Command32.Enabled = False
   rs_buy.Close
   Exit Sub
End If
rs_buy.Close
strfctotal = "select 生產(chǎn)廠商,sum(總金額) as 各廠商進(jìn)貨總金額 from buy where 進(jìn)貨年=" & inty & " group by 生產(chǎn)廠商"
rs_fctotal.Open strfctotal, cnn, adOpenKeyset, adLockPessimistic
frmBuyall.Adodc8.RecordSource = strfctotal
frmBuyall.Adodc8.Refresh
frmBuyall.DataGrid8.ReBind
rs_fctotal.Close
strtotal = "select sum(總金額) as 進(jìn)貨總金額 from buy where 進(jìn)貨年=" & inty & " "
rs_total.Open strtotal, cnn, adOpenKeysetm, adLockPessimistic
frmBuyall.Text4.Text = rs_total.Fields("進(jìn)貨總金額")
rs_total.Close
End Sub

Private Sub mnChangeEmployee_Click()
cnn.Close
frmLogin.Show
Unload Me
End Sub

Private Sub mnChangePwd_Click()
frmChangePwd.Show
End Sub

Private Sub mnEmployeeTable_Click()
frmEmployeeTable.Show
End Sub

Private Sub mnExit_Click()
cnn.Close
Unload Me
End Sub

Private Sub mnGoodsTable_Click()
frmShowGoodstable.Show
End Sub

Private Sub mnlogin_Click()
frmLogin.Show
End Sub


Private Sub mnManufacturerTable_Click()
frmManufacturerTable.Show
End Sub

Private Sub mnRetreat_Click()
frmRetreatgoods.Show
End Sub

Private Sub mnRetreatTable_Click()
frmRetreatTable.Show
End Sub

Private Sub mnSell_Click()
frmSellgoods.Show
End Sub

Private Sub mnSellMonth_Click()
frmSellall.SSTab1.Tab = 1
frmSellall.Text2.Enabled = False
frmSellall.SSTab1.TabEnabled(0) = False
frmSellall.SSTab1.TabEnabled(1) = True
frmSellall.SSTab1.TabEnabled(2) = False
frmSellall.SSTab1.TabEnabled(3) = False
frmSellall.Show
strsell = "select * from sell where 銷售年=" & inty & " and 銷售月=" & intm & " "
rs_sell.Open strsell, cnn, adOpenKeyset, adLockPessimistic
frmSellall.Adodc2.RecordSource = strsell
frmSellall.Adodc2.Refresh
frmSellall.DataGrid2.ReBind
If rs_sell.EOF = True Then
   frmSellall.Adodc6.RecordSource = strsell
   frmSellall.Adodc6.Refresh
   frmSellall.DataGrid6.ReBind
   MsgBox "您本月沒有銷售記錄！", vbOKOnly + vbInformation, "注意"
   frmSellall.Command9.Enabled = False
   frmSellall.Command10.Enabled = False
   frmSellall.Command11.Enabled = False
   frmSellall.Command12.Enabled = False
   frmSellall.Command13.Enabled = False
   frmSellall.Command14.Enabled = False
   frmSellall.Command15.Enabled = False
   frmSellall.Command16.Enabled = False
   rs_sell.Close
   Exit Sub
End If
rs_sell.Close
strfctotal = "select 生產(chǎn)廠商,sum(總金額) as 各廠商銷售總金額 from sell where 銷售年=" & inty & " and 銷售月=" & intm & " group by 生產(chǎn)廠商"
rs_fctotal.Open strfctotal, cnn, adOpenKeyset, adLockPessimistic
frmSellall.Adodc6.RecordSource = strfctotal
frmSellall.Adodc6.Refresh
frmSellall.DataGrid6.ReBind
rs_fctotal.Close
strtotal = "select sum(總金額) as 銷售總金額 from sell where 銷售年=" & inty & " and 銷售月=" & intm & " "
rs_total.Open strtotal, cnn, adOpenKeysetm, adLockPessimistic
frmSellall.Text2.Text = rs_total.Fields("銷售總金額")
rs_total.Close
End Sub

Private Sub mnSellQuarterly_Click()
frmSellall.SSTab1.Tab = 2
frmSellall.Text3.Enabled = False
frmSellall.SSTab1.TabEnabled(0) = False
frmSellall.SSTab1.TabEnabled(1) = False
frmSellall.SSTab1.TabEnabled(2) = True
frmSellall.SSTab1.TabEnabled(3) = False
frmSellall.Show
Select Case intm
       Case Is < 4
            intm = 3
       Case Is < 7
            intm = 6
       Case Is < 10
            intm = 9
       Case Is > 10
            intm = 12
End Select
strsell = "select * from sell where 銷售年=" & inty & " and 銷售月 between " & (intm - 2) & " and " & intm & " "
rs_sell.Open strsell, cnn, adOpenKeyset, adLockPessimistic
frmSellall.Adodc2.RecordSource = strsell
frmSellall.Adodc2.Refresh
frmSellall.DataGrid2.ReBind
If rs_sell.EOF = True Then
   frmSellall.Adodc6.RecordSource = strsell
   frmSellall.Adodc6.Refresh
   frmSellall.DataGrid6.ReBind
   MsgBox "您本季度沒有銷售記錄！", vbOKOnly + vbInformation, "注意"
   frmSellall.Command17.Enabled = False
   frmSellall.Command18.Enabled = False
   frmSellall.Command19.Enabled = False
   frmSellall.Command20.Enabled = False
   frmSellall.Command21.Enabled = False
   frmSellall.Command22.Enabled = False
   frmSellall.Command23.Enabled = False
   frmSellall.Command24.Enabled = False
   rs_sell.Close
   Exit Sub
End If
rs_sell.Close
strfctotal = "select 生產(chǎn)廠商,sum(總金額) as 各廠商銷售總金額 from sell where 銷售年=" & inty & " and 銷售月 between " & (intm - 2) & " and " & intm & "  group by 生產(chǎn)廠商"
rs_fctotal.Open strfctotal, cnn, adOpenKeyset, adLockPessimistic
frmSellall.Adodc6.RecordSource = strfctotal
frmSellall.Adodc6.Refresh
frmSellall.DataGrid6.ReBind
rs_fctotal.Close
strtotal = "select sum(總金額) as 銷售總金額 from sell where 銷售年=" & inty & " and 銷售月 between " & (intm - 2) & " and " & intm & " "
rs_total.Open strtotal, cnn, adOpenKeysetm, adLockPessimistic
frmSellall.Text3.Text = rs_total.Fields("銷售總金額")
rs_total.Close
intm = Month(Date)
End Sub

Private Sub mnSellTable_Click()
frmSellTable.Show
End Sub

Private Sub mnSellToday_Click()
frmSellall.SSTab1.Tab = 0
frmSellall.Text1.Enabled = False
frmSellall.SSTab1.TabEnabled(0) = True
frmSellall.SSTab1.TabEnabled(1) = False
frmSellall.SSTab1.TabEnabled(2) = False
frmSellall.SSTab1.TabEnabled(3) = False
frmSellall.Show
strsell = "select * from sell where 銷售年=" & inty & " and 銷售月=" & intm & " and 銷售日=" & intd & " "
rs_sell.Open strsell, cnn, adOpenKeyset, adLockPessimistic
frmSellall.Adodc1.RecordSource = strsell
frmSellall.Adodc1.Refresh
frmSellall.DataGrid1.ReBind
If rs_sell.EOF = True Then
   frmSellall.Adodc5.RecordSource = strsell
   frmSellall.Adodc5.Refresh
   frmSellall.DataGrid5.ReBind
   MsgBox "您今日沒有銷售記錄！", vbOKOnly + vbInformation, "注意"
   frmSellall.Command1.Enabled = False
   frmSellall.Command2.Enabled = False
   frmSellall.Command3.Enabled = False
   frmSellall.Command4.Enabled = False
   frmSellall.Command5.Enabled = False
   frmSellall.Command6.Enabled = False
   frmSellall.Command7.Enabled = False
   frmSellall.Command8.Enabled = False
   rs_sell.Close
   Exit Sub
End If
rs_sell.Close
strfctotal = "select 生產(chǎn)廠商,sum(總金額) as 各廠商銷售總金額 from sell where 銷售年=" & inty & " and 銷售月=" & intm & "and 銷售日=" & intd & " group by 生產(chǎn)廠商"
rs_fctotal.Open strfctotal, cnn, adOpenKeyset, adLockPessimistic
frmSellall.Adodc5.RecordSource = strfctotal
frmSellall.Adodc5.Refresh
frmSellall.DataGrid5.ReBind
rs_fctotal.Close
strtotal = "select sum(總金額) as 銷售總金額 from sell where 銷售年=" & inty & " and 銷售月=" & intm & "and 銷售日=" & intd & ""
rs_total.Open strtotal, cnn, adOpenKeysetm, adLockPessimistic
frmSellall.Text1.Text = rs_total.Fields("銷售總金額")
rs_total.Close
End Sub

Private Sub mnSellYear_Click()
frmSellall.Text4.Enabled = False
frmSellall.SSTab1.Tab = 3
frmSellall.SSTab1.TabEnabled(0) = False
frmSellall.SSTab1.TabEnabled(1) = False
frmSellall.SSTab1.TabEnabled(2) = False
frmSellall.SSTab1.TabEnabled(3) = True
frmSellall.Show
strsell = "select * from sell where 銷售年=" & inty & " "
rs_sell.Open strsell, cnn, adOpenKeyset, adLockPessimistic
frmSellall.Adodc4.RecordSource = strsell
frmSellall.Adodc4.Refresh
frmSellall.DataGrid4.ReBind
If rs_sell.EOF = True Then
   frmSellall.Adodc8.RecordSource = strsell
   frmSellall.Adodc8.Refresh
   frmSellall.DataGrid8.ReBind
   MsgBox "您今年沒有銷售記錄！", vbOKOnly + vbInformation, "注意"
   frmSellall.Command25.Enabled = False
   frmSellall.Command26.Enabled = False
   frmSellall.Command27.Enabled = False
   frmSellall.Command28.Enabled = False
   frmSellall.Command29.Enabled = False
   frmSellall.Command30.Enabled = False
   frmSellall.Command31.Enabled = False
   frmSellall.Command32.Enabled = False
   rs_sell.Close
   Exit Sub
End If
rs_sell.Close
strfctotal = "select 生產(chǎn)廠商,sum(總金額) as 各廠商銷售總金額 from sell where 銷售年=" & inty & " group by 生產(chǎn)廠商"
rs_fctotal.Open strfctotal, cnn, adOpenKeyset, adLockPessimistic
frmSellall.Adodc8.RecordSource = strfctotal
frmSellall.Adodc8.Refresh
frmSellall.DataGrid8.ReBind
rs_fctotal.Close
strtotal = "select sum(總金額) as 銷售總金額 from sell where 銷售年=" & inty & " "
rs_total.Open strtotal, cnn, adOpenKeysetm, adLockPessimistic
frmSellall.Text4.Text = rs_total.Fields("銷售總金額")
rs_total.Close
End Sub
上一頁 12
?? 文件大小 701 K
?? 上傳用戶 shanyeshuren
?? 所屬分類其他
??? 相關(guān)標(biāo)簽

#超市管理系統(tǒng) #分 #用戶 #銷售
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frmmain.frm

?? 快捷鍵說明
