xt6(13).Text
.Update
EndWith
MsgBox("数据已修该完毕!")
EndSub
PrivateSubCommdok3_Click()
DimstrsqlAsString
DimrectempAsRecordset
ResumeNext
IfText7(0).Text=""Then
MsgBox("请选择日期。")
ExitSub
EndIf
IfText7(1).Text=""Then
MsgBox("请选择型号。")
ExitSub
EndIf
IfText7(2).Text=""Then
MsgBox("数量不能为空。")
ExitSub
EndIf
IfText7(3).Text="日期"Then
MsgBox("单价不能为空。")
ExitSub
EndIf
strsql="select*"
strsql=strsql&"fromlingliaokuwherelingliaoku.日期=#"&_
Frmdata.Combo4.Text&"#"&"andlingliaoku.型号="&""""_
&Frmdata.Combo5.Text&""""
Setrectemp=dbmain.OpenRecordset(strsql)
Withrectemp
.Edit
.Fields("日期")=Text7(0).Text
.Fields("型号")=Text7(1).Text
.Fields("数量")=Text7(2).Text
.Fields("单价")=Text7(3).Text
.Update
EndWith
MsgBox("数据已修该完毕!")
EndSub
PrivateSubCommdok4_Click()
DimstrsqlAsString
DimrectempAsRecordset
ResumeNext
IfText8(0).Text=""Then
MsgBox("请选择日期。")
ExitSub
EndIf
IfText8(1).Text=""Then
MsgBox("请选择型号。")
ExitSub
EndIf
IfText8(2).Text=""Then
MsgBox("数量不能为空。")
ExitSub
EndIf
strsql="select*"
strsql=strsql&"fromxiaohaokuwherexiaohaoku.日期=#"&_
Frmdata.Combo6.Text&"#"&"andxiaohaoku.型号="&""""_
&Frmdata.Combo7.Text&""""
Setrectemp=dbmain.OpenRecordset(strsql)
Withrectemp
.Edit
.Fields("日期")=Text8(0).Text
.Fields("型号")=Text8(1).Text
.Fields("数量")=Text8(2).Text
.Fields("责任组")=Combo11.Text
.Fields("责任人")=Combo12.Text
.Fields("消耗原因")=Text8(5).Text
.Update
EndWith
MsgBox("数据已修该完毕!")
EndSub
PrivateSubdata_cost_banzu_Click()
Frmcost.Show
Frmdata.Hide
Frmriqi.Show
Frmriqi.Label1(0).Caption="设备班组成本月报表"
Frmcost.Enabled=False
drawbanzuyuebao'=============绘制班组月报表图表
EndSub
PrivateSubdata_cost_geren_Click()
Frmcost.Show
Frmdata.Hide
Frmriqi.Show
Frmriqi.Label1(0).Caption="可控硅班个人成本月报表"
Frmcost.Enabled=False
drawgerenyuebao'=============绘制个人月报表图表
EndSub
PrivateSubdata_cost_get_Click()
Frmcost.Show
Frmdata.Hide
Frmriqi.Show
Frmriqi.Label1(0).Caption="设备领用月报表"
Frmcost.Enabled=False
drawgetyuebao'=============绘制月报表图表
EndSub
PrivateSubdata_cost_used_Click()
Frmcost.Show
Frmdata.Hide
Frmriqi.Show
Frmriqi.Label1(0).Caption="设备消耗月报表"
Frmcost.Enabled=False
drawusedyuebao'=============绘制月报表图表
EndSub
PrivateSubdata_data_del_geted_Click()
Combo4.Clear
addtocombo4'-----------------------------添加数据到领用日期
setFramusedrepairdel
EndSub
PrivateSubdata_data_del_ku_Click()
Combo2.Clear
addtocombo2'=============================添加数据到消耗日期
setFramrepair
EndSub
PrivateSubdata_data_del_used_Click()
Combo6.Clear
addtocombo6'=============================添加数据到领用日期
setFramusedrepair
EndSub
PrivateSubdata_data_new_get_Click()
setFramgetgetget
EndSub
PrivateSubdata_data_new_ku_Click()
setFramkuget
EndSub
PrivateSubdata_data_new_used_Click()
setFramgetget
EndSub
PrivateSubdata_data_repair_geted_Click()
Combo4.Clear
addtocombo4'=============================添加数据到领用日期
setFramusedrepairget
EndSub
PrivateSubdata_data_repair_ku_Click()
Combo2.Clear
addtocombo2'=============================添加数据到消耗日期
setFramrepairrepair
EndSub
PrivateSubdata_data_repair_used_Click()
Combo6.Clear
addtocombo6'=============================添加数据到领用日期
setFramusedrepairused
EndSub
PrivateSubdata_file_exit_Click()
End
EndSub
PrivateSubdata_select_get_Click()
Frmselect.Show
Frmdata.Hide
Frmselect.Frakuchaxun.Visible=False
Frmselect.Fralingyong.Visible=True
Frmselect.Fraxiaohao.Visible=False
EndSub
PrivateSubdata_select_ku_Click()
Frmselect.Show
Frmdata.Hide
Frmselect.Frakuchaxun.Visible=True
Frmselect.Fralingyong.Visible=False
Frmselect.Fraxiaohao.Visible=False
EndSub
PrivateSubdata_select_used_Click()
Frmselect.Show
Frmdata.Hide
Frmselect.Frakuchaxun.Visible=False
Frmselect.Fralingyong.Visible=False
Frmselect.Fraxiaohao.Visible=True
EndSub
PrivateSubForm_Load()
data_file_printview.Enabled=False
data_file_print.Enabled=False
Framkuget.Visible=True
Framgetget.Visible=False
Framrepair.Visible=False
Framusedrepair.Visible=False
Combo1.AddItem"设备"
Combo1.AddItem"辅材"
Combo1.Text="设备"
addtocombo4'=============================添加数据到领用日期
addtocombo6'=============================添加数据到消耗日期
addtocombo2'=============================添加数据到消耗日期
EndSub
PrivateSubFramusedget_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
EndSub
PrivateSubToolbar1_Butt(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.Key
Case"退出系统"
End
Case"返回"
MDifrm.Show
Frmdata.Hide
Case"新设备"
setFramkuget
Case"领用设备"
setFramgetgetget
Case"消耗设备"
setFramgetget
Case"设备修改"
Combo2.Clear
addtocombo2'=============================添加数据到消耗日期
setFramrepairrepair
Case"删除设备"
Combo2.Clear
addtocombo2'=============================添加数据到消耗日期
setFramrepair
Case"领用修改"
Combo4.Clear
addtocombo4'============================添加数据到领用日期
setFramusedrepairget
Case"领用删除"
Combo4.Clear
addtocombo4'=============================添加数据到领用日期
setFramusedrepairdel
Case"消耗修改"
Combo6.Clear
addtocombo6'=============================添加数据到领用日期
setFramusedrepairused
Case"消耗删除"
Combo6.Clear
addtocombo6'=============================添加数据到领用日期
setFramusedrepair
EndSelect
EndSub
总结
经过三个多月的不辍耕耘,毕业设计所要求的基本功能已基本实现。但是由于自己初步接触VisualBasic6.0,对程序设计语言和设备管理过程中的细节不够熟悉,而且软件开发经验不足等原因,设计中难免会存在许多不尽人意的地方,有待进一步的提高和完善。在做毕业设计的过程中,我切身感受了软件开发设计的全过程,同时深刻体会到软件工程在软件开发中是不可或缺,有着不可低估的作用。因为经验不足,偷懒思想存在,开始并没有严格按照软件工程
上一篇:
VB设备管理信息系统VC(论文和程序)
下一篇:
食品类面包毕业论文