|
Case Is> 10 copyright paper51.com intm = 12 内容来自www.paper51.com
End Select http://www.paper51.com strsell = "select * from sell where 销售年=" & inty & "and 销售月 between" & (intm - 2) & " and " & intm & " " copyright paper51.com rs_sell.Open strsell, cnn, adOpenKeyset,adLockPessimistic 内容来自论文无忧网 www.paper51.com frmSellall.Adodc2.RecordSource = strsell paper51.com frmSellall.Adodc2.Refresh copyright paper51.com
frmSellall.DataGrid2.ReBind 内容来自论文无忧网 www.paper51.com If rs_sell.EOF = True Then 内容来自www.paper51.com frmSellall.Adodc6.RecordSource = strsell paper51.com frmSellall.Adodc6.Refresh 内容来自论文无忧网 www.paper51.com frmSellall.DataGrid6.ReBind 内容来自www.paper51.com MsgBox "您本季度没有销售记录！", vbOKOnly + vbInformation, "注意" paper51.com frmSellall.Command17.Enabled = False paper51.com frmSellall.Command18.Enabled = False 内容来自论文无忧网 www.paper51.com frmSellall.Command19.Enabled = False http://www.paper51.com frmSellall.Command20.Enabled = False paper51.com frmSellall.Command21.Enabled = False 内容来自论文无忧网 www.paper51.com frmSellall.Command22.Enabled = False 内容来自论文无忧网 www.paper51.com frmSellall.Command23.Enabled = False http://www.paper51.com frmSellall.Command24.Enabled = False copyright paper51.com rs_sell.Close 内容来自论文无忧网 www.paper51.com Exit Sub copyright paper51.com
End If 内容来自论文无忧网 www.paper51.com rs_sell.Close http://www.paper51.com
strfctotal = "select 生产厂商,sum(总金额) as 各厂商销售总金额 from sell where 销售年=" & inty & "and 销售月 between" & (intm - 2) & " and " & intm & " group by 生产厂商" copyright paper51.com
rs_fctotal.Open strfctotal, cnn,adOpenKeyset, adLockPessimistic 内容来自www.paper51.com
frmSellall.Adodc6.RecordSource = strfctotal copyright paper51.com frmSellall.Adodc6.Refresh 内容来自论文无忧网 www.paper51.com frmSellall.DataGrid6.ReBind 内容来自www.paper51.com
rs_fctotal.Close 内容来自论文无忧网 www.paper51.com
strtotal = "select sum(总金额) as 销售总金额 from sell where 销售年=" & inty & "and 销售月 between" & (intm - 2) & " and " & intm & " " copyright paper51.com rs_total.Open strtotal, cnn, adOpenKeysetm,adLockPessimistic copyright paper51.com frmSellall.Text3.Text =rs_total.Fields("销售总金额") paper51.com rs_total.Close http://www.paper51.com
intm = Month(Date) copyright paper51.com End Sub paper51.com Private Sub mnSellTable_Click() 内容来自www.paper51.com frmSellTable.Show 内容来自www.paper51.com
End Sub 内容来自www.paper51.com
Private Sub mnSellToday_Click() http://www.paper51.com frmSellall.SSTab1.Tab = 0 paper51.com frmSellall.Text1.Enabled = False 内容来自论文无忧网 www.paper51.com frmSellall.SSTab1.TabEnabled(0) = True 内容来自www.paper51.com
frmSellall.SSTab1.TabEnabled(1) = False 内容来自论文无忧网 www.paper51.com frmSellall.SSTab1.TabEnabled(2) = False paper51.com frmSellall.SSTab1.TabEnabled(3) = False copyright paper51.com frmSellall.Show 内容来自论文无忧网 www.paper51.com
strsell = "select * from sell where 销售年=" & inty & "and 销售月="& intm & " and 销售日=" & intd & " " paper51.com rs_sell.Open strsell, cnn, adOpenKeyset,adLockPessimistic 内容来自论文无忧网 www.paper51.com frmSellall.Adodc1.RecordSource = strsell 内容来自论文无忧网 www.paper51.com frmSellall.Adodc1.Refresh 内容来自论文无忧网 www.paper51.com frmSellall.DataGrid1.ReBind http://www.paper51.com If rs_sell.EOF = True Then 内容来自论文无忧网 www.paper51.com frmSellall.Adodc5.RecordSource = strsell 内容来自论文无忧网 www.paper51.com frmSellall.Adodc5.Refresh paper51.com frmSellall.DataGrid5.ReBind 内容来自论文无忧网 www.paper51.com MsgBox "您今日没有销售记录！", vbOKOnly + vbInformation, "注意" http://www.paper51.com
frmSellall.Command1.Enabled = False 内容来自www.paper51.com frmSellall.Command2.Enabled = False copyright paper51.com frmSellall.Command3.Enabled = False http://www.paper51.com frmSellall.Command4.Enabled = False paper51.com
frmSellall.Command5.Enabled = False 内容来自论文无忧网 www.paper51.com frmSellall.Command6.Enabled = False copyright paper51.com frmSellall.Command7.Enabled = False 内容来自论文无忧网 www.paper51.com frmSellall.Command8.Enabled = False copyright paper51.com rs_sell.Close 内容来自www.paper51.com
Exit Sub 内容来自www.paper51.com End If paper51.com rs_sell.Close paper51.com
strfctotal = "select 生产厂商,sum(总金额) as 各厂商销售总金额 from sell where 销售年=" & inty & "and 销售月="& intm & "and 销售日=" & intd & " group by 生产厂商" 内容来自www.paper51.com rs_fctotal.Open strfctotal, cnn,adOpenKeyset, adLockPessimistic 内容来自www.paper51.com
frmSellall.Adodc5.RecordSource = strfctotal 内容来自论文无忧网 www.paper51.com frmSellall.Adodc5.Refresh paper51.com frmSellall.DataGrid5.ReBind 内容来自www.paper51.com rs_fctotal.Close paper51.com strtotal = "select sum(总金额) as 销售总金额 from sell where 销售年=" & inty & "and 销售月="& intm & "and 销售日=" & intd & "" paper51.com
rs_total.Open strtotal, cnn, adOpenKeysetm,adLockPessimistic http://www.paper51.com frmSellall.Text1.Text =rs_total.Fields("销售总金额") http://www.paper51.com rs_total.Close paper51.com End Sub 内容来自www.paper51.com Private Sub mnSellYear_Click() 内容来自论文无忧网 www.paper51.com frmSellall.Text4.Enabled = False copyright paper51.com frmSellall.SSTab1.Tab = 3 内容来自www.paper51.com frmSellall.SSTab1.TabEnabled(0) = False http://www.paper51.com frmSellall.SSTab1.TabEnabled(1) = False http://www.paper51.com frmSellall.SSTab1.TabEnabled(2) = False http://www.paper51.com
|