论文网
关于数据库论文范文集,与关于超市文题目2016年相关论文格式模板
本论文是一篇关于数据库论文格式模板,关于关于超市文题目2016年相关电大毕业论文范文。免费优秀的关于数据库及超市管理信息系统及超市管理方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
还是在实践中,都给与我很大的帮助,使我得到不少的提高,这对于我以后的工作和学习都有一种巨大的帮助,感谢她耐心的辅导.另外,在系统开发过程中助手同学也给于我很大的帮助,帮助我解决了不少的难点,使得系统能及时开发完成,还有同组的同学同样给与我不少帮助,这里一并表示感谢.
参考文献
黄梯云.管理信息系统[M].北京:经济科学出版社.2000.3
萨师煊,王珊.数据库系统概论[M].北京:高等教育出版社.1983
(美)HarveyM.Deitel等.VisualBasic6HowtoProgram[M].PearsonEducation.2003
刘捡平,杨春蓉.VB.程序设计中分形算法剖析[J].新余高专学报.2005
刘珊.用Access增强.NET数据报表功能[J].电脑编程技巧与维护.2006
陈翔.基于VB6.0对文本文件的操作实现对轨道时间的提醒[J].电脑编程技巧与维护.2006
胡建红,周世科,谢晓明.VB应用程序动态连接与创建数据库表的实现[J].计算机与现代化.2006
张洪学,范海震,雷飚.基于VB6.0的DSP系统与PC机通信的实现[J].电光系统.2005
李晓俊.给Access库文件加把"锁"[J].中国审计.2006
Herbert,Gruttemeier.TheWaytoOpenAccess--FrenchStrategiestoMoveForward[J].图书情报工作.2006
附录:系统代码清单
DimstremployeeAsString
Dimrs_employeeAsNewADODB.Recordset
PrivateSubForm_Activate()
stremployee等于"select*fromemployee"
rs_employee.Openstremployee,n,adOpenStatic,adLockOptimistic
DimiAsInteger
Fori等于0Tors_employee.RecordCount-1
Combo1.AddItem(rs_employee.Fields("员工姓名"))
rs_employee.MoveNext
Next
rs_employee.Close
EndSub
PrivateSubForm_Load()
n.Provider等于"microsoft.jet.oledb.4.0"
n.ConnectionString等于App.Path&,"\sellsystem.mdb"
n.Open
EndSub
PrivateSubPicture1_Click()
EndSub
PrivateSubLabel3_Click()
IfCombo1.Text等于""Then
MsgBox"请输入用户名！",vbOKOnly+vbInformation,"注意"
Combo1.SetFocus
ExitSub
ElseIfText1.Text等于""Then
MsgBox"请输入密码！",vbOKOnly+vbInformation,"注意"
Text1.SetFocus
ExitSub
EndIf
stremployee等于"select*fromemployeewhere员工姓名等于'"&,Combo1.Text&,"'and员工密码等于'"&,Text1.Text&,"'"
rs_employee.Openstremployee,n,adOpenStatic,adLockOptimistic
Ifrs_employee.EOF等于TrueThen
MsgBox"用户名或密码错误,请从新输入！",vbOKOnly+vbInformation,"注意"
Combo1.SetFocus
rs_employee.Close
ExitSub
Else
strs等于rs_employee.Fields("员工编号")
rs_employee.Close
EndIf
IfCombo1.Text等于"administrator"Then
frminitial.Show
Else
frmMain.Show
frmMain.mnBuyAll.Enabled等于False
frmMain.mnSellAll.Enabled等于False
frmMain.mnTable.Enabled等于False
EndIf
UnloadMe
EndSub
PrivateSubLabel4_Click()
UnloadMe
n.Close
EndSub
PrivateSubPicture2_Click()
EndSub
Dimrs_sellAsNewADODB.Recordset
Dimrs_goodsAsNewADODB.Recordset
Dimrs_buyAsNewADODB.Recordset
Dimrs_retreatAsNewADODB.Recordset
Dimrs_manufacturerAsNewADODB.Recordset
Dimrs_employeeAsNewADODB.Recordset
Dimrs_fctotalAsNewADODB.Recordset
Dimrs_totalAsNewADODB.Recordset
DimstrsellAsString
DimstrgoodsAsString
DimstrbuyAsString
DimstrretreatAsString
DimstrmanufacturerAsString
DimstremployeeAsString
DimstrfctotalAsString
DimstrtotalAsString
DimintyAsInteger
DimintmAsInteger
DimintdAsInteger
PrivateSubForm_Load()
inty等于Year(Date)
intm等于Month(Date)
intd等于Day(Date)
Flash1.Movie等于App.Path&,"\99.swf"
EndSub
PrivateSubForm_Resize()
Flash1.Width等于Me.Width
Flash1.Height等于Me.Height
EndSub
PrivateSubmnabout_Click()
frmAbout.Show
EndSub
PrivateSubmnBuy_Click()
frmAddgoods.Show
EndSub
PrivateSubmnBuyMonth_Click()
frmBuyall.Text2.Enabled等于False
frmBuyall.SSTab1.Tab等于1
frmBuyall.SSTab1.TabEnabled(0)等于False
frmBuyall.SSTab1.TabEnabled(1)等于True
frmBuyall.SSTab1.TabEnabled(2)等于False
frmBuyall.SSTab1.TabEnabled(3)等于False
frmBuyall.Show
strbuy等于"select*frombuywhere进货年等于"&,inty&,"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.Command9.Enabled等于False
frmBuyall.Command10.Enabled等于False
frmBuyall.Command11.Enabled等于False
frmBuyall.Command12.Enabled等于False
frmBuyall.Command13.Enabled等于False
frmBuyall.Command14.Enabled等于False
frmBuyall.Command15.Enabled等于False
frmBuyall.Command16.Enabled等于False
rs_buy.Close
ExitSub
EndIf
rs_buy.Close
strfctotal等于"select生产厂商,sum(总金额)as各厂商进货总金额frombuywhere进货年等于"&,inty&,"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进货月等于"&,intm&,""
rs_total.Openstrtotal,n,adOpenKeysetm,adLockPessimistic
frmBuyall.Text2.Text等于rs_total.Fields("进货总金额")
rs
关于数据库论文范文集,与关于超市文题目2016年相关论文格式模板参考文献资料：