论文网
关于数据库论文范文集,与关于超市文题目2016年相关论文格式模板
本论文是一篇关于数据库论文格式模板,关于关于超市文题目2016年相关电大毕业论文范文。免费优秀的关于数据库及超市管理信息系统及超市管理方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
5;total.CloseEndSub
PrivateSubmnBuyQuarterly_Click()
frmBuyall.Text3.Enabled等于False
frmBuyall.SSTab1.Tab等于2
frmBuyall.SSTab1.TabEnabled(0)等于False
frmBuyall.SSTab1.TabEnabled(1)等于False
frmBuyall.SSTab1.TabEnabled(2)等于True
frmBuyall.SSTab1.TabEnabled(3)等于False
frmBuyall.Show
SelectCaseintm
CaseIs<,4
intm等于3
CaseIs<,7
intm等于6
CaseIs<,10
intm等于9
CaseIs>,10
intm等于12
EndSelect
strbuy等于"select*frombuywhere进货年等于"&,inty&,"and进货月between"&,(intm-2)&,"and"&,intm&,""
rs_buy.Openstrbuy,n,adOpenKeyset,adLockPessimistic
frmBuyall.Adodc2.RecordSource等于strbuy
frmBuyall.Adodc2.Refresh
frmBuyall.DataGrid2.ReBind
Ifrs_buy.EOF等于TrueThen
frmBuyall.Adodc6.RecordSource等于strbuy
frmBuyall.Adodc6.Refresh
frmBuyall.DataGrid6.ReBind
MsgBox"您本季度没有进货记录！",vbOKOnly+vbInformation,"注意"
frmBuyall.Command17.Enabled等于False
frmBuyall.Command18.Enabled等于False
frmBuyall.Command19.Enabled等于False
frmBuyall.Command20.Enabled等于False
frmBuyall.Command21.Enabled等于False
frmBuyall.Command22.Enabled等于False
frmBuyall.Command23.Enabled等于False
frmBuyall.Command24.Enabled等于False
rs_buy.Close
ExitSub
EndIf
rs_buy.Close
strfctotal等于"select生产厂商,sum(总金额)as各厂商进货总金额frombuywhere进货年等于"&,inty&,"and进货月between"&,(intm-2)&,"and"&,intm&,"groupby生产厂商"
rs_fctotal.Openstrfctotal,n,adOpenKeyset,adLockPessimistic
frmBuyall.Adodc6.RecordSource等于strfctotal
frmBuyall.Adodc6.Refresh
frmBuyall.DataGrid6.ReBind
rs_fctotal.Close
strtotal等于"selectsum(总金额)as进货总金额frombuywhere进货年等于"&,inty&,"and进货月between"&,(intm-2)&,"and"&,intm&,""
rs_total.Openstrtotal,n,adOpenKeysetm,adLockPessimistic
frmBuyall.Text3.Text等于rs_total.Fields("进货总金额")
rs_total.Close
intm等于Month(Date)
EndSub
PrivateSubmnBuyTable_Click()
frmBuyTable.Show
EndSub
PrivateSubmnBuyToday_Click()
frmBuyall.Text1.Enabled等于False
frmBuyall.SSTab1.Tab等于0
frmBuyall.SSTab1.TabEnabled(0)等于True
frmBuyall.SSTab1.TabEnabled(1)等于False
frmBuyall.SSTab1.TabEnabled(2)等于False
frmBuyall.SSTab1.TabEnabled(3)等于False
frmBuyall.Show
strbuy等于"select*frombuywhere进货年等于"&,inty&,"and进货月等于"&,intm&,"and进货日等于"&,intd&,""
rs_buy.Openstrbuy,n,adOpenKeyset,adLockPessimistic
frmBuyall.Adodc1.RecordSource等于strbuy
frmBuyall.Adodc1.Refresh
frmBuyall.DataGrid1.ReBind
Ifrs_buy.EOF等于TrueThen
frmBuyall.Adodc5.RecordSource等于strbuy
frmBuyall.Adodc5.Refresh
frmBuyall.DataGrid5.ReBind
MsgBox"您今日没有进货记录！",vbOKOnly+vbInformation,"注意"
frmBuyall.Command1.Enabled等于False
frmBuyall.Command2.Enabled等于False
frmBuyall.Command3.Enabled等于False
frmBuyall.Command4.Enabled等于False
frmBuyall.Command5.Enabled等于False
frmBuyall.Command6.Enabled等于False
frmBuyall.Command7.Enabled等于False
frmBuyall.Command8.Enabled等于False
rs_buy.Close
ExitSub
EndIf
rs_buy.Close
strfctotal等于"select生产厂商,sum(总金额)as各厂商进货总金额frombuywhere进货年等于"&,inty&,"and进货月等于"&,intm&,"and进货日等于"&,intd&,"groupby生产厂商"
rs_fctotal.Openstrfctotal,n,adOpenKeyset,adLockPessimistic
frmBuyall.Adodc5.RecordSource等于strfctotal
frmBuyall.Adodc5.Refresh
frmBuyall.DataGrid5.ReBind
rs_fctotal.Close
strtotal等于"selectsum(总金额)as进货总金额frombuywhere进货年等于"&,inty&,"and进货月等于"&,intm&,"and进货日等于"&,intd&,""
rs_total.Openstrtotal,n,adOpenKeysetm,adLockPessimistic
frmBuyall.Text1.Text等于rs_total.Fields("进货总金额")
rs_total.Close
EndSub
PrivateSubmnBuyYear_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*frombuywhere进货年等于"&,inty&,""
rs_buy.Openstrbuy,n,adOpenKeyset,adLockPessimistic
frmBuyall.Adodc4.RecordSource等于strbuy
frmBuyall.Adodc4.Refresh
frmBuyall.DataGrid4.ReBind
Ifrs_buy.EOF等于TrueThen
frmBuyall.Adodc8.RecordSource等于strbuy
frmBuyall.Adodc8.Refresh
frmBuyall.DataGrid8.ReBind
MsgBox"您今年没有进货记录！",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
ExitSub
EndIf
rs_buy.Close
strfctotal等于"select生产厂商,sum(总金额)as各厂商进货总金额frombuywhere进货年等于"&,inty&,"groupby生产厂商"
rs_fctotal.Openstrfctotal,n,adOpenKeyset,adLockPessimistic
frmBuyall.Adodc8.RecordSource等于strfctotal
frmBuyall.Adodc8.Refresh
frmBuyall.DataGrid8.ReBind
rs_fctotal.Close
strtotal等于"selectsum(总金额)as进货总金额
上一页 3 4 5 6 7 8 9 10 11 12 下一页
关于数据库论文范文集,与关于超市文题目2016年相关论文格式模板参考文献资料：