物品采购管理系统源代码.docx
- 文档编号:29578504
- 上传时间:2023-07-24
- 格式:DOCX
- 页数:11
- 大小:21.82KB
物品采购管理系统源代码.docx
《物品采购管理系统源代码.docx》由会员分享,可在线阅读,更多相关《物品采购管理系统源代码.docx(11页珍藏版)》请在冰豆网上搜索。
物品采购管理系统源代码
物品采购管理系统源代码
数据库原理与应用课程设计
设计题目:
物品采购管理院系:
信息工程学院班级:
组别:
组长:
组员:
起止日期:
指导教师:
源代码:
物品添加模块程序代码
修改用户密码程序
PrivateSubCommand1_Click()
Adodc1.RecordSource=frmLogin.Adodc1.RecordSource
Adodc1.Refresh
SetText4.DataSource=Adodc1
Text4.DataField="密码"
IfText1=""Then
MsgBox"请输入原密码~",,"修改密码"
ExitSub
ElseIfText1.Text<>Adodc1.Recordset.Fields("密码")Then
MsgBox"原密码错误~",,"修改密码"
ExitSub
ElseIfText2=""OrText3=""Then
MsgBox"请输入新密码~~",,"修改密码"
ExitSub
ElseIfText2<>Text3Then
MsgBox"密码不一致~~",,"修改密码"
ExitSub
Else
Text4.Text=Text2.Text
Adodc1.Recordset.MoveFirst
MsgBox"密码修改成功~~",,"修改密码"
UnloadMe
EndIf
EndSub
5..2.3入库模块的实现
PrivateSubCommand1_Click()设备入库程序
DimI,JAsInteger
DimSTRAsString
IfText1.Text=""OrText2=""OrCombo1.Text=""OrText4=""OrText5=""Or
Text6=""OrText7=""Then
MsgBox"请输入完整信息~"
ExitSub
Else将记录存入入库记录表
设备入库表.datPrimaryRS.Recordset.Fields("设备号")=Text1.Text
设备入库表.datPrimaryRS.Recordset.Fields("入库数量")=Text2.Text
设备入库表.datPrimaryRS.Recordset.Fields("入库时间")=Combo1.Text
设备入库表.datPrimaryRS.Recordset.Fields("供应商")=Text4.Text
设备入库表.datPrimaryRS.Recordset.Fields("供应商电话")=Text5.Text
设备入库表.datPrimaryRS.Recordset.Fields("价格")=Text6.Text
设备入库表.datPrimaryRS.Recordset.Fields("采购员")=Text7.Text
MsgBox"已经成功入库~"
EndIf
设备入库表.Adodc1.RecordSource="select*from现有库存表where设备号='"&
Text1.Text&"'"
设备入库表.Adodc1.Refresh
设备入库表.DataGrid1.Refresh
If设备入库表.Adodc1.Recordset.RecordCount>0Then
将记录加入现有库存表中
设备入库表.Text9.Text=CInt(设备入库表.Text9.Text)+CInt(Text2.Text)
设备入库表.Text9.Refresh
J=设备入库表.Text9
设备入库表.Adodc1.Recordset.MoveFirst
设备入库表.Adodc1.Recordset.Fields.Refresh
设备入库表.DataGrid1.Refresh
MsgBox"现有库存量为:
"&J
Else
STR="现有库存表中无此设备~"&vbCrLf&"请在设备代码表和现有库存表中手动添
加记录~~"
MsgBoxSTR
Loadfrm现有库存表
frm现有库存表.Show
Callfrm现有库存表.Command1_Click
FrmAddNewEqu.Text1.Text=frmInput.Text1.Text
FrmAddNewEqu.Text2.Text=frmInput.Text2.Text
Loadfrm设备代码表
frm设备代码表.Show
EndIf
EndSub
PrivateSubcmdDelete_Click()删除入库表中记录
OnErrorGoToDeleteErr
DimYesNoAsString
YesNo=MsgBox("删除",vbYesNo,"删除记录")
IfYesNo=vbYesThen
WithdatPrimaryRS.Recordset
.Delete
.MoveNext
If.EOFThen.MoveLast
EndWith
Else
ExitSub
EndIf
DeleteErr:
MsgBoxErr.Description
EndSub
PrivateSubcmdUpdate_Click()更新纪录程序
OnErrorGoToUpdateErr
datPrimaryRS.Recordset.UpdateBatchadAffectAll
ExitSub
UpdateErr:
MsgBoxErr.Description
EndSub
5..2.4出库模块实现
PrivateSubCommand1_Click()设备出库程序
Dimi,J,kAsInteger
DimSTRAsString
frm设备出库表.Adodc1.RecordSource="select*from现有库存表where设备号='"&
Text1.Text&"'"
frm设备出库表.Adodc1.Refresh
frm设备出库表.DataGrid1.Refresh
IfIsNumeric(Text2)=FalseThen
MsgBox"数量必须是数字~"
ExitSub
EndIf
IfText1.Text=""OrText2=""OrCombo1.Text=""OrText4=""OrText5=""OrText6=""
OrText7=""Then
MsgBox"请输入完整信息~"
ExitSub
ElseIffrm设备出库表.Adodc1.Recordset.RecordCount<=0Then
STR="现有库存表中无此设备~请检查输入是否正确~~"
MsgBoxSTR
ExitSub
Else
frm设备出库表.datPrimaryRS.Recordset.Fields("设备号")=Text1.Text
frm设备出库表.datPrimaryRS.Recordset.Fields("出库数量")=Text2.Text
frm设备出库表.datPrimaryRS.Recordset.Fields("出库时间")=Combo1.Text
frm设备出库表.datPrimaryRS.Recordset.Fields("经手人")=Text4.Text
frm设备出库表.datPrimaryRS.Recordset.Fields("领取人")=Text5.Text
frm设备出库表.datPrimaryRS.Recordset.Fields("使用部门")=Text6.Text
frm设备出库表.datPrimaryRS.Recordset.Fields("用途")=Text7.Text
MsgBox"已经成功存入设备出库表库~"
EndIf
Iffrm设备出库表.Adodc1.Recordset.RecordCount>0Then
k=CInt(frm设备出库表.Text9.Text)-CInt(Text2.Text)
Ifk>=0Then
frm设备出库表.Text9.Text=CInt(frm设备出库表.Text9.Text)-CInt(Text2.Text)
frm设备出库表.Text9.Refresh
J=frm设备出库表.Text9
frm设备出库表.Adodc1.Recordset.MoveFirst
frm设备出库表.Adodc1.Recordset.Fields.Refresh
frm设备出库表.DataGrid1.Refresh
MsgBox"现有库存量为:
"&J
Else
MsgBox"现有库存量不足~请输入合适数量~~"
ExitSub
EndIf
Else
STR="现有库存表中无此设备~请检查输入是否正确~~"
MsgBoxSTR
EndIf
EndSub
PrivateSubcmdDelete_Click()删除出库记录
OnErrorGoToDeleteErr
DimYesNoAsString
YesNo=MsgBox("删除",vbYesNo,"删除记录")
IfYesNo=vbYesThen
WithdatPrimaryRS.Recordset
.Delete
.MoveNext
If.EOFThen.MoveLast
EndWith
Else
ExitSub
EndIf
DeleteErr:
MsgBoxErr.Description
EndSub
更新记录程序同入库的更新程序相同,在此略5.2.5设备采购模块实现,程序略
主要程序
PrivateSubcmdAdd_Click()添加设备OnErrorGoToAddErr
datPrimaryRS.Recordset.AddNew
ExitSub
AddErr:
MsgBoxErr.Description
EndSub
5.2.8库存报警模块实现
主要程序
PrivateSubCommand1_Click()显示高于最大警戒库存的设备
datPrimaryRS.RecordSource="select*from现有库存表where现有库存>最大库存"
datPrimaryRS.Refresh
grdDataGrid.Refresh
IfdatPrimaryRS.Recordset.RecordCount>0Then
Beep
MsgBox"表中设备已过量~"
Else
MsgBox"没有设备库存过量~"
EndIf
EndSub
PrivateSubCommand2_Click()显示低于于最小警戒库存的设备
datPrimaryRS.RecordSource="select*from现有库存表where现有库存<最小库存"
datPrimaryRS.Refresh
grdDataGrid.Refresh
IfdatPrimaryRS.Recordset.RecordCount>0Then
Beep
MsgBox"表中设备库存量已过警戒线~请采购~~"
Else
MsgBox"没有设备库存量过少~"
EndIf
Endsub
PrivateSubTimer1_Timer()自动报警程序
frmAlarm.datPrimaryRS.RecordSource="select*from现有库存表where现有库存>最大库
存"
frmAlarm.datPrimaryRS.Refresh
IffrmAlarm.datPrimaryRS.Recordset.RecordCount>0Then
Beep
MsgBox"有设备库存超过警戒库存~"&vbCrLf&"请查看库存报警记录"
Timer1.Enabled=False
frmAlarm.Show
ExitSub
EndIf
EndSub
PrivateSubTimer2_Timer()
frmAlarm.datPrimaryRS.RecordSource="select*from现有库存表where现有库存<最小库
存"
frmAlarm.datPrimaryRS.Refresh
IffrmAlarm.datPrimaryRS.Recordset.RecordCount>0Then
Beep
MsgBox"有设备库存低于警戒库存~"&vbCrLf&"请查看库存报警记录"
Timer2.Enabled=False
frmAlarm.Show
ExitSub
EndIf
EndSub
5.2.9操作日志模块实现
主要程序
PrivateSubCommand2_Click()填写日志记录
IfText1.Text=""OrCombo1.Text=""OrCombo2.Text=""Then
MsgBox"请输入完整信息~"
ExitSub
Else
frmLog.Adodc1.Recordset.Fields("操作员")=Text1.TextfrmLog.Adodc1.Recordset.Fields("操作内容")=Combo1.TextfrmLog.Adodc1.Recordset.Fields("操作时间")=Combo2.TextfrmLog.Adodc1.Recordset.MoveLastEndIf
EndSub
PrivateSubForm_Load()设置填写时间
DimSTRtimeAsString
STRtime=Now()
Combo2.Text=STRtime
Combo2.AddItem(STRtime)
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 物品 采购 管理 系统 源代码
![提示](https://static.bdocx.com/images/bang_tan.gif)