aption="设备班组成本月报表"
Frmcost.Enabled=False
drawbanzuyuebao
EndSub
PrivateSubselect_cost_geren_Click()
Frmcost.Show
Frmselect.Hide
Frmriqi.Show
Frmriqi.Label1(0).Caption="可控硅班个人成本月报表"
Frmcost.Enabled=False
drawgerenyuebao
EndSub
PrivateSubselect_cost_get_Click()
Frmcost.Show
Frmselect.Hide
Frmriqi.Show
Frmriqi.Label1(0).Caption="设备领用月报表"
Frmcost.Enabled=False
drawgetyuebao
EndSub
PrivateSubselect_cost_used_Click()
Frmcost.Show
Frmselect.Hide
Frmriqi.Show
Frmriqi.Label1(0).Caption="设备消耗月报表"
Frmcost.Enabled=False
drawusedyuebao
EndSub
PrivateSubselect_data_del_get_Click()
Frmdata.Show
Frmselect.Hide
setFramusedrepairdel
EndSub
PrivateSubselect_data_del_used_Click()
Frmdata.Show
Frmselect.Hide
setFramusedrepair
EndSub
PrivateSubselect_data_del_zk_Click()
Frmdata.Show
Frmselect.Hide
setFramrepair
EndSub
PrivateSubselect_data_new_get_Click()
Frmdata.Show
Frmselect.Hide
setFramgetgetget
EndSub
PrivateSubselect_data_new_used_Click()
Frmdata.Show
Frmselect.Hide
setFramgetget
EndSub
PrivateSubselect_data_new_zk_Click()
Frmdata.Show
Frmselect.Hide
setFramkuget
EndSub
PrivateSubselect_data_repair_get_Click()
Frmdata.Show
Frmselect.Hide
setFramusedrepairget
EndSub
PrivateSubselect_data_repair_used_Click()
Frmdata.Show
Frmselect.Hide
setFramusedrepairused
EndSub
PrivateSubselect_data_repair_zk_Click()
Frmdata.Show
Frmselect.Hide
setFramrepairrepair
EndSub
PrivateSubselect_file_exit_Click()
MDifrm.Show
Frmselect.Hide
EndSub
PrivateSubselect_select_get_Click()
Fralingyong.Visible=True
Fraxiaohao.Visible=False
Frakuchaxun.Visible=False
EndSub
PrivateSubselect_select_used_Click()
Fralingyong.Visible=False
Frakuchaxun.Visible=False
Fraxiaohao.Visible=True
EndSub
PrivateSubselect_select_zu_Click()
Frakuchaxun.Visible=True
Fralingyong.Visible=False
Fraxiaohao.Visible=False
EndSub
PrivateSubToolbar1_Butt(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.Key
Case"设备查询"
Frakuchaxun.Visible=True
Fralingyong.Visible=False
Fraxiaohao.Visible=False
Case"领用查询"
Fralingyong.Visible=True
Fraxiaohao.Visible=False
Frakuchaxun.Visible=False
Case"消耗查询"
Fralingyong.Visible=False
Frakuchaxun.Visible=False
Fraxiaohao.Visible=True
Case"退出系统"
End
Case"返回"
MDifrm.Show
Frmselect.Hide
EndSelect
EndSub
4.4、数据处理模块说明
OptionExplicit
PrivateSubCombo2_Click()
DimiAsInteger,jAsInteger,kAsInteger
DimstrsqlAsString
DimrectempAsRecordset
ResumeNext
strsql="selectzongku.型号"
strsql=strsql&"fromzongkuwherezongku.名称="&_
""""&Combo2.Text&""""
Setrectemp=dbmain.OpenRecordset(strsql)
Ifrectemp.RecordCount=0Then
ExitSub
EndIf
rectemp.MoveLast
rectemp.MoveFirst
Combo3.Clear
Combo3.AddItemrectemp.Fields("型号")
Combo3.Text=rectemp.Fields("型号")
rectemp.MoveNext
Ifrectemp.BOF=TrueThen
ExitSub
Else
Fori=1Torectemp.RecordCount-1
Combo3.AddItemrectemp.Fields("型号")
rectemp.MoveNext
Next
EndIf
EndSub
PrivateSubCombo3_Change()
IfCombo3.Text<>"型号"Then
datatorepzk'=================添加数据到修改总库窗体
EndIf
EndSub
PrivateSubCombo3_click()
IfCombo3.Text<>"型号"Then
datatorepzk'-----------------添加数据到修改已领用数据修改窗体
EndIf
EndSub
PrivateSubCombo4_Click()
DimiAsInteger,jAsInteger,kAsInteger
DimstrsqlAsString
DimrectempAsRecordset
ResumeNext
strsql="selectlingliaoku.型号"
strsql=strsql&"fromlingliaokuwherelingliaoku.日期=#"&_
Combo4.Text&"#"
Setrectemp=dbmain.OpenRecordset(strsql)
Ifrectemp.RecordCount=0Then
ExitSub
EndIf
rectemp.MoveLast
rectemp.MoveFirst
Combo5.Clear
Combo5.AddItemrectemp.Fields("型号")
Combo5.Text=rectemp.Fields("型号")
rectemp.MoveNext
Ifrectemp.BOF=TrueThen
ExitSub
Else
Fori=1Torectemp.RecordCount-1
Combo5.AddItemrectemp.Fields("型号")
rectemp.MoveNext
Next
EndIf
EndSub
PrivateSubCombo5_Change()
IfCombo5.Text<>"型号"Then
datatorepllk
EndIf
EndSub
PrivateSubCombo5_Click()
IfCombo5.Text<>"型号"Then
datatorepllk
EndIf
EndSub
PrivateSubCombo6_Click()
DimiAsInteger,jAsInteger,kAsInteger
DimstrsqlAsString
DimrectempAsRecordset
ResumeNext
strsql="selectxiaohaoku.型号"
strsql=strsql&"fromxiaohaokuwherexiaohaoku.日期=#"&_
Combo6.Text&"#"
Setrectemp=dbmain.OpenRecordset(strsql)
Ifrectemp.RecordCount=0Then
ExitSub
EndIf
rectemp.MoveLast
rectemp.MoveFirst
Combo7.Clear
Combo7.AddItemrectemp.Fields("型号")
Combo7.Text=rectemp.Fields("型号")
rectemp.MoveNext
Ifrectemp.BOF=TrueThen
ExitSub
Else
Fori=1Torectemp.RecordCount-1
Combo7.AddItemrectemp.Fields("型号")
rectemp.MoveNext
Next
EndIf
EndSub
PrivateSubCombo7_Change()
IfCombo7.Text<>"型号"Then
datatorepxhk
EndIf
EndSub
PrivateSubCombo7_click()
IfCombo7.Text<>"型号"Then
datatorepxhk
EndIf
EndSub
PrivateSubComdcancel_Click()
DimiAsInteger
Fori=2To13
Ifi<>9Then
Text2(i).Text=""
EndIf
Next
EndSub
PrivateSubComdcancel1_Click()
DimiAsInteger
Fori=0To2
Text2(i).Text=""
Next
EndSub
PrivateSubCommand2_Click()
DimiAsInteger
Fori=0To2
Text5(i).Text=""
Next
EndSub
PrivateSubComdsave_Click()
DimiAsInteger,jAsInteger,kAsInteger
'DimyiyouAsBoolean
'ResumeNext
IfFrmdata.Text1(2).Text=""Then
MsgBox("名称不能为空,请输入名称。")
ExitSub
EndIf
IfFrmdata.Text1(3).Text=""Then
MsgBox("型号不能为空,请输入型号。")
ExitSub
EndIf
IfFrmdata.Text1(8).Text=""Then
MsgBox("单价不能为空,请输入单价。")
ExitSub
EndIf
IfFrmdata.Text1(10).Text=""Then
MsgBox("货架号不能为空,请输入货架号。")
ExitSub
EndIf
IfFrmdata.Text1(11).Text=""Then
MsgBox("使用寿命不能为空,请输入使用寿命。")
ExitSub
EndIf
Ifrecsetzk.RecordCount>=1Then
recsetzk.MoveLast
EndIf
recsetzk.MoveFirst
DoWhileNotrecsetzk.EOF
'Fori=1Torecsetzk.RecordCount
Ifrecsetzk.Fields("型号")=Text1(3).TextThen
IfMsgBox("已有此种型号设备的记录,是否覆盖原有数据?",vbYesNo)=vbYesThen
'Ifyiyou=
上一篇:
VB设备管理信息系统VC(论文和程序)
下一篇:
临床前药物安全性评价中毒性病理学新技术的应用