Case"器械材料库"
frmmain.datas="qixie"
frminput.Caption="医疗器械和材料入库登记"
frmmain.kcode="qxcode"
CallGuolu
Text1.Enabled=True
Text18.Enabled=True
CaseElse
Text1.Enabled=False
Text18.Enabled=False
frminput.Caption="库存登记"
EndSelect
EndSub
PrivateSubCommand1_Click()
Dimrq1AsString
Dimrq2AsString
Dimrq3AsString
GoToerr1
WithAdodc1
.RecordSource="select*from"&frmmain.datas&"orderbyID"
.Refresh
.Recordset.AddNew
.Recordset.Fields("编号")=Text1.Text
.Recordset.Fields("名称")=Text18.Text
.Recordset.Fields("规格")=Text2.Text
.Recordset.Fields("单位")=Combo1.Text
.Recordset.Fields("数量")=Text3.Text
.Recordset.Fields("进价")=Text4.Text
.Recordset.Fields("进价合计")=(Text3.Text)*(Text4.Text)
.Recordset.Fields("零售价")=Text5.Text
.Recordset.Fields("零售合计")=(Text3.Text)*(Text5.Text)
.Recordset.Fields("产地")=Text6.Text
.Recordset.Fields("差额")=(.Recordset.Fields("零售合计"))-(.Recordset.Fields("进价合计"))
.Recordset.Fields("批号")=Text7.Text
rq1=Text8.Text&"-"&Text9.Text&"-"&Text10.Text
.Recordset.Fields("采购日期")=CDate(rq1)
rq2=Text11.Text&"-"&Text12.Text&"-"&Text13.Text
.Recordset.Fields("出厂日期")=CDate(rq2)
rq3=Text14.Text&"-"&Text15.Text&"-"&Text16.Text
.Recordset.Fields("失效期")=CDate(rq3)
.Recordset.Fields("备注")=Text17.Text
.Recordset.UpdateBatch
Command1.Enabled=False
Text1.Enabled=True
Text18.Enabled=True
Label23.Caption=""
EndWith
ExitSub
err1:
MsgBox"登记项目填写不全或数据类型不匹配!"
EndSub
PrivateSubCommand2_Click()
'库存过期药品必须清理后才能入库
Dimrq1AsString
Dimrq2AsString
Dimrq3AsString
GoToerr2
WithAdodc1
.RecordSource="select*from"&frmmain.datas&"where编号='"&Text1.Text&"'"
.Refresh
If.Recordset.Fields("失效标记")=FalseThen
If.Recordset.AbsolutePosition<>adPosUnknownThen
.Recordset.Fields("规格")=Text2.Text
.Recordset.Fields("单位")=Combo1.Text
.Recordset.Fields("数量")=Text3.Text
.Recordset.Fields("进价")=Text4.Text
.Recordset.Fields("进价合计")=(Text3.Text)*(Text4.Text)
.Recordset.Fields("零售价")=Text5.Text
.Recordset.Fields("零售合计")=(Text3.Text)*(Text5.Text)
.Recordset.Fields("产地")=Text6.Text
.Recordset.Fields("批号")=Text7.Text
.Recordset.Fields("差额")=(.Recordset.Fields("零售合计"))-(.Recordset.Fields("进价合计"))
rq1=Text8.Text&"-"&Text9.Text&"-"&Text10.Text
.Recordset.Fields("采购日期")=CDate(rq1)
rq2=Text11.Text&"-"&Text12.Text&"-"&Text13.Text
.Recordset.Fields("出厂日期")=CDate(rq2)
rq3=Text14.Text&"-"&Text15.Text&"-"&Text16.Text
.Recordset.Fields("失效期")=CDate(rq3)
.Recordset.Fields("备注")=Text17.Text
.Recordset.UpdateBatch
EndIf
Command2.Enabled=False
Text1.Enabled=True
Text18.Enabled=True
Label23.Caption=""
Else
MsgBox"该库存药品已经失效,须清理后才能入库!"
EndIf
EndWith
ExitSub
err2:
MsgBox"登记项目填写不全或数据类型不匹配!"
EndSub
PrivateSubCommand3_Click()
frmcode.Show
EndSub
PrivateSubCommand4_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
GoToerr4
frminput.Top=(frmmain.Height-frminput.Height)/2-500
frminput.Left=(frmmain.Width-frminput.Width)/2
Adodc1.ConnectionString=frmlogin.conn
Adodc2.ConnectionString=frmlogin.conn
Adodc3.ConnectionString=frmlogin.conn
Command1.Enabled=False
Command2.Enabled=False
Text2.Locked=True
Text1.Enabled=False
Text18.Enabled=False
Text8.Text="2000"
Text9.Text="01"
Text10.Text="01"
Text11.Text="2000"
Text12.Text="01"
Text13.Text="01"
Text14.Text="2000"
Text15.Text="01"
Text16.Text="01"
Text17.Text="请填写备注"
ExitSub
err4:
MsgBox"远程服务器连接失败!"
EndSub
PrivateSubText1_Change()
GoToerr3
WithAdodc2
.RecordSource="select*from"&frmmain.kcode&"where编号='"&Text1.Text&"'"
.Refresh
If.Recordset.AbsolutePosition<>adPosUnknownThen
Text2.Text=.Recordset.Fields(3)
Text18.Text=.Recordset.Fields(2)
Text18.Locked=True
Label23.ForeColor=&HFF&
Label23.Caption="已经找到["&Text1.Text&"]这个代码!"
WithAdodc1
.RecordSource="select*from"&frmmain.datas&"where编号='"&Text1.Text&"'"
.Refresh
If.Recordset.AbsolutePosition<>adPosUnknownThen
Command1.Enabled=False
If.Recordset.Fields("数量")>0Then
Command2.Enabled=False
Combo1.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Text17.Text="请填写备注"
MsgBox"该药品或器械库存结余,不能继续入库!"
Text1.Locked=False
Text18.Locked=False
Text18.Text=""
Text1.Text=""
Else
Label23.ForeColor=&HFF0000
Label23.Caption="库存["&Text18.Text&"]已空,请增加库存量!"
Combo1.Locked=True
Command2.Enabled=True
Text4.Locked=True
Text5.Locked=True
Text2.Text=.Recordset.Fields("规格")
Combo1.Text=.Recordset.Fields("单位")
Text3.Text=.Recordset.Fields("数量")
Text4.Text=.Recordset.Fields("进价")
Text5.Text=.Recordset.Fields("零售价")
Text6.Text=.Recordset.Fields("产地")
Text7.Text=.Recordset.Fields("批号")
EndIf
Else
Label23.ForeColor=&HFF0000
Label23.Caption="库房中没有["&Text18.Text&"],请添加新品种!"
Command2.Enabled=False
Command1.Enabled=True
Combo1.Locked=False
Text4.Locked=False
Text5.Locked=False
Combo1.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text17.Text="请填写备注"
EndIf
EndWith
Else
Command1.Enabled=False
Command2.Enabled=False
Label23.ForeColor=&H12&
Label23.Caption="代码库中没有["&Text1.Text&"]这个代码,应先编制代码!"
EndIf
EndWith
ExitSub
err3:
MsgBox"输入了非法字符或数据项填写不完整!"
EndSub
PrivateSubForm_Unload(CancelAsInteger)
frmmain.StatusBar1.Panels(2)="目前没有窗口被激活"
EndSub
PrivateSubForm_Activate()
frmmain.StatusBar1.Panels(2)="活动窗口:"&frminput.Caption
EndSub
PrivateSubText3_GotFocus()
Text3.SelStart=0
Text3.SelLength=Len(Text3.Text)
EndSub
PrivateSubText4_GotFocus()
Text4.SelStart=0
Text4.SelLength=Len(Text4.Text)
EndSub
PrivateSubText5_GotFocus()
Text5.SelStart=0
Text5.SelLength=Len(Text5.Text)
EndSub
PrivateSubText6_GotFocus()
Text6.SelStart=0
Text6.SelLength=Len(Text6.Text)
EndSub
上一篇:
VB药品公司进销售存管理系统VC(论文和程序)
下一篇:
餐饮管理系统