管理物品采购管理系统源代码Word文件下载.docx
- 文档编号:7797637
- 上传时间:2023-05-09
- 格式:DOCX
- 页数:11
- 大小:22.02KB
管理物品采购管理系统源代码Word文件下载.docx
《管理物品采购管理系统源代码Word文件下载.docx》由会员分享,可在线阅读,更多相关《管理物品采购管理系统源代码Word文件下载.docx(11页珍藏版)》请在冰点文库上搜索。
Adodc1.Refresh
SetText4.DataSource=Adodc1
Text4.DataField="
密码"
IfText1="
"
Then
MsgBox"
请输入原密码~"
,"
修改密码"
ExitSub
ElseIfText1.Text<
>
Adodc1.Recordset.Fields("
)Then
原密码错误~"
ElseIfText2="
OrText3="
请输入新密码~~"
ElseIfText2<
Text3Then
密码不一致~~"
ExitSub
Else
Text4.Text=Text2.Text
Adodc1.Recordset.MoveFirst
密码修改成功~~"
UnloadMe
EndIf
EndSub
5..2.3入库模块的实现
PrivateSubCommand1_Click()设备入库程序
DimI,JAsInteger
DimSTRAsString
IfText1.Text="
OrText2="
OrCombo1.Text="
OrText4="
OrText5="
Or
Text6="
OrText7="
请输入完整信息~"
Else将记录存入入库记录表
设备入库表.datPrimaryRS.Recordset.Fields("
设备号"
)=Text1.Text
入库数量"
)=Text2.Text
入库时间"
)=Combo1.Text
供应商"
)=Text4.Text
供应商电话"
)=Text5.Text
价格"
)=Text6.Text
采购员"
)=Text7.Text
已经成功入库~"
设备入库表.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
现有库存量为:
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
PrivateSubcmdDelete_Click()删除入库表中记录
OnErrorGoToDeleteErr
DimYesNoAsString
YesNo=MsgBox("
删除"
vbYesNo,"
删除记录"
)
IfYesNo=vbYesThen
WithdatPrimaryRS.Recordset
.Delete
.MoveNext
If.EOFThen.MoveLast
EndWith
DeleteErr:
MsgBoxErr.Description
PrivateSubcmdUpdate_Click()更新纪录程序
OnErrorGoToUpdateErr
datPrimaryRS.Recordset.UpdateBatchadAffectAll
UpdateErr:
5..2.4出库模块实现
PrivateSubCommand1_Click()设备出库程序
Dimi,J,kAsInteger
frm设备出库表.Adodc1.RecordSource="
frm设备出库表.Adodc1.Refresh
frm设备出库表.DataGrid1.Refresh
IfIsNumeric(Text2)=FalseThen
数量必须是数字~"
OrText6="
OrText7="
ElseIffrm设备出库表.Adodc1.Recordset.RecordCount<
=0Then
现有库存表中无此设备~请检查输入是否正确~~"
frm设备出库表.datPrimaryRS.Recordset.Fields("
出库数量"
)=Text2.Text
出库时间"
)=Combo1.Text
经手人"
领取人"
使用部门"
)=Text6.Text
用途"
已经成功存入设备出库表库~"
Iffrm设备出库表.Adodc1.Recordset.RecordCount>
k=CInt(frm设备出库表.Text9.Text)-CInt(Text2.Text)
Ifk>
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
现有库存量不足~请输入合适数量~~"
EndIf
PrivateSubcmdDelete_Click()删除出库记录
更新记录程序同入库的更新程序相同,在此略
5.2.5设备采购模块实现,程序略
主要程序
PrivateSubcmdAdd_Click()添加设备
OnErrorGoToAddErr
datPrimaryRS.Recordset.AddNew
AddErr:
MsgBoxErr.DescriptionEndSub
5.2.8库存报警模块实现
PrivateSubCommand1_Click()显示高于最大警戒库存的设备
datPrimaryRS.RecordSource="
select*from现有库存表where现有库存>
最大库存"
datPrimaryRS.Refresh
grdDataGrid.Refresh
IfdatPrimaryRS.Recordset.RecordCount>
Beep
表中设备已过量~"
没有设备库存过量~"
PrivateSubCommand2_Click()显示低于于最小警戒库存的设备
select*from现有库存表where现有库存<
最小库存"
表中设备库存量已过警戒线~请采购~~"
没有设备库存量过少~"
Endsub
PrivateSubTimer1_Timer()自动报警程序
frmAlarm.datPrimaryRS.RecordSource="
frmAlarm.datPrimaryRS.Refresh
IffrmAlarm.datPrimaryRS.Recordset.RecordCount>
有设备库存超过警戒库存~"
请查看库存报警记录"
Timer1.Enabled=False
frmAlarm.Show
PrivateSubTimer2_Timer()
有设备库存低于警戒库存~"
Timer2.Enabled=False
5.2.9操作日志模块实现
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 管理 物品 采购 系统 源代码