论文网
关于数据库论文范文集,与关于超市文题目2016年相关论文格式模板
本论文是一篇关于数据库论文格式模板,关于关于超市文题目2016年相关电大毕业论文范文。免费优秀的关于数据库及超市管理信息系统及超市管理方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
frombuywhere进货年等于"&,inty&,""rs_total.Openstrtotal,n,adOpenKeysetm,adLockPessimistic
frmBuyall.Text4.Text等于rs_total.Fields("进货总金额")
rs_total.Close
EndSub
PrivateSubmnChangeEmployee_Click()
n.Close
frmLogin.Show
UnloadMe
EndSub
PrivateSubmnChangePwd_Click()
frmChangePwd.Show
EndSub
PrivateSubmnEmployeeTable_Click()
frmEmployeeTable.Show
EndSub
PrivateSubmnExit_Click()
n.Close
UnloadMe
EndSub
PrivateSubmnGoodsTable_Click()
frmShowGoodstable.Show
EndSub
PrivateSubmnlogin_Click()
frmLogin.Show
EndSub
PrivateSubmnManufacturerTable_Click()
frmManufacturerTable.Show
EndSub
PrivateSubmnRetreat_Click()
frmRetreatgoods.Show
EndSub
PrivateSubmnRetreatTable_Click()
frmRetreatTable.Show
EndSub
PrivateSubmnSell_Click()
frmSellgoods.Show
EndSub
PrivateSubmnSellMonth_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*fromsellwhere销售年等于"&,inty&,"and销售月等于"&,intm&,""
rs_sell.Openstrsell,n,adOpenKeyset,adLockPessimistic
frmSellall.Adodc2.RecordSource等于strsell
frmSellall.Adodc2.Refresh
frmSellall.DataGrid2.ReBind
Ifrs_sell.EOF等于TrueThen
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
ExitSub
EndIf
rs_sell.Close
strfctotal等于"select生产厂商,sum(总金额)as各厂商销售总金额fromsellwhere销售年等于"&,inty&,"and销售月等于"&,intm&,"groupby生产厂商"
rs_fctotal.Openstrfctotal,n,adOpenKeyset,adLockPessimistic
frmSellall.Adodc6.RecordSource等于strfctotal
frmSellall.Adodc6.Refresh
frmSellall.DataGrid6.ReBind
rs_fctotal.Close
strtotal等于"selectsum(总金额)as销售总金额fromsellwhere销售年等于"&,inty&,"and销售月等于"&,intm&,""
rs_total.Openstrtotal,n,adOpenKeysetm,adLockPessimistic
frmSellall.Text2.Text等于rs_total.Fields("销售总金额")
rs_total.Close
EndSub
PrivateSubmnSellQuarterly_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
SelectCaseintm
CaseIs<,4
intm等于3
CaseIs<,7
intm等于6
CaseIs<,10
intm等于9
CaseIs>,10
intm等于12
EndSelect
strsell等于"select*fromsellwhere销售年等于"&,inty&,"and销售月between"&,(intm-2)&,"and"&,intm&,""
rs_sell.Openstrsell,n,adOpenKeyset,adLockPessimistic
frmSellall.Adodc2.RecordSource等于strsell
frmSellall.Adodc2.Refresh
frmSellall.DataGrid2.ReBind
Ifrs_sell.EOF等于TrueThen
frmSellall.Adodc6.RecordSource等于strsell
frmSellall.Adodc6.Refresh
frmSellall.DataGrid6.ReBind
MsgBox"您本季度没有销售记录！",vbOKOnly+vbInformation,"注意"
frmSellall.Command17.Enabled等于False
frmSellall.Command18.Enabled等于False
frmSellall.Command19.Enabled等于
关于数据库论文范文集,与关于超市文题目2016年相关论文格式模板参考文献资料：