veA.Visible=False:ComSaveM.Enabled=True:ComEsc.Enabled=True
Fori=0To3
CmdMD(i).Enabled=False
Nexti
ComAdd.Enabled=False:ComModify.Enabled=False:ComDelete.Enabled=False
SSTab1.Tab=0:gys(0).SetFocus
EndSub
PrivateSubComModify_Click()'允许用户修改记录
IfData1.Recordset.RecordCount>0Then
Data1.Recordset.Edit
Fori=0To16
gys(i).Enabled=True
Nexti
ComSaveA.Visible=True:ComSaveA.Enabled=True:ComSaveM.Visible=False:ComEsc.Enabled=True
Fori=0To3
CmdMD(i).Enabled=False
Nexti
ComAdd.Enabled=False:ComModify.Enabled=False:ComDelete.Enabled=False
Else
MsgBox("没有要修改的数据!")
EndIf
EndSub
PrivateSubComSaveA_Click()'保存修改记录
DimAAsString
A=MsgBox("您确实要修改这条数据吗?",vbYesNo)
IfA=vbYesThen
Data1.Recordset.Edit
Fori=0To16
Ifgys(i).Text<>""ThenData1.Recordset.Fields(i)=gys(i).Text
gys(i).Enabled=False
Nexti
ComSaveA.Enabled=False:ComEsc.Enabled=False:ComAdd.Enabled=True
Fori=0To3
CmdMD(i).Enabled=True
Nexti
ComModify.Enabled=True:ComDelete.Enabled=True:Data1.Recordset.Update
EndIf
EndSub
PrivateSubComSaveM_Click()'保存新增记录
DimmydbAsDatabase
Dimmyrs1AsRecordset
Ifgys(0).Text<>""Andgys(1).Text<>""Then
Setmydb1=Workspaces(0).OpenDatabase(App.Path&"\仓库.mdb")
Setmyrs1=mydb1.OpenRecordset("gys",dbOpenTable)
myrs1.AddNew
Fori=0To16
Ifgys(i).Text<>""Thenmyrs1.Fields(i)=gys(i).Text
Nexti
myrs1.Update:myrs1.Close:mydb1.Close:Data1.Refresh
Fori=0To3
CmdMD(i).Enabled=True
Nexti
ComModify.Enabled=True:ComDelete.Enabled=True
ComSaveA.Enabled=False:ComEsc.Enabled=False:ComAdd.Enabled=True
Else
EndIf
EndSub
PrivateSubComDelete_Click()'删除供应商信息
IfData1.Recordset.RecordCount>0Then
A=MsgBox("您确实要删除这条数据吗?",vbYesNo)
IfA=vbYesThen
Data1.Recordset.Delete
Data1.Refresh
Fori=0To3
CmdMD(i).Enabled=True
Nexti
ComModify.Enabled=True:ComDelete.Enabled=True
ComSaveA.Enabled=False:ComEsc.Enabled=False:ComAdd.Enabled=True
Fori=0To16
gys(i).Text=""
Nexti
EndIf
Else
MsgBox("没有要删除的数据!")
EndIf
EndSub
PrivateSubComEsc_Click()'取消操作
IfData1.Recordset.RecordCount>0Then
Fori=0To16
gys(i).Enabled=False
IfData1.Recordset.Fields(i)<>""Thengys(i).Text=Data1.Recordset.Fields(i)
Nexti
Fori=0To3
CmdMD(i).Enabled=True
Nexti
ComModify.Enabled=True:ComDelete.Enabled=True:ComSaveA.Enabled=False
ComSaveM.Enabled=False:ComEsc.Enabled=False:ComAdd.Enabled=True
EndIf
EndSub
PrivateSubComend_Click()
frm_main.Enabled=True
UnloadMe
EndSub
库存盘点程序代码:
PrivateSubForm_Load()
Data1.DatabaseName=App.Path&"\仓库.mdb"'自动识别数据库路径
EndSub
PrivateSubForm_Unload(CancelAsInteger)
frm_main.Enabled=True
EndSub
PrivateSubCommand1_Click()
'盘点库存大于零的库存信息
Data1.RecordSource="select*fromkcwherekc.库存>0"
Data1.Refresh
MS1.Col=9:MS1.Sort=flexSortNumericAscending'第9行按升序排序
EndSub
PrivateSubCommand2_Click()
frm_main.Enabled=True
UnloadMe
EndSub
价格管理程序代码:
PublicSubeval()'定义赋值函数
IfData2.Recordset(0)<>""Thenpz.Caption=Data2.Recordset(0)Elsepz.Caption="0"
IfData2.Recordset(1)<>""Thenhjsl.Caption=Data2.Recordset(1)Elsehjsl.Caption="0"
IfData2.Recordset(2)<>""Thenhjje.Caption=Data2.Recordset(2)Elsehjje.Caption="0"
EndSub
PrivateSubForm_Load()'自动识别数据库路径
Data1.DatabaseName=App.Path&"\仓库.mdb"
Data2.DatabaseName=App.Path&"\仓库.mdb"
EndSub
PrivateSubForm_Activate()
'向combo1添加查询项目列表
Combo1.AddItem("商品名称")
Combo1.AddItem("简称")
Combo1.AddItem("批号")
Combo1.ListIndex=0
'初始化查询统计库存商品信息
Data2.RecordSource="selectcount(*)as品种,sum(库存)as合计库存,sum(库存金额)as合计库存金额fromkc"
Data2.Refresh
Calleval'调用函数
EndSub
PrivateSubForm_Unload(CancelAsInteger)
frm_main.Enabled=True
EndSub
PrivateSubtexgjj_Change()
texgje.Text=Val(texgkc.Text)*Val(texgjj.Text)'计算库存金额
Data2.Refresh
Calleval'调用函数
EndSub
PrivateSubtexgkc_Change()
texgje.Text=Val(texgkc.Text)*Val(texgjj.Text)'计算库存金额
Data2.Refresh
Calleval'调用函数
EndSub
PrivateSubCommand1_Click()'查询统计库存商品信息
Data1.RecordSource="select*fromkcwhere(kc."&Combo1.Text&""&"like"+Chr(34)+Text1.Text+"*"+Chr(34)+")"
Data1.Refresh
Data2.RecordSource="selectcount(*)as品种,sum(库存)as合计库存,sum(库存金额)as合计库存金额fromkcwhere(kc."&Combo1.Text&""&"like"+Chr(34)+Text1.Text+"*"+Chr(34)+")"
Data2.Refresh
Calleval'调用函数
EndSub
PrivateSubCommand2_Click()
frm_main.Enabled=True
UnloadMe
EndSub
添加与删除用户程序代码:
PrivateSubCommand1_Click()
IfCommand1.Caption="添加"Then
Command2.Enabled=True
Command3.Enabled=False
Command4.Enabled=False
Command5.Enabled=False
Command6.Enabled=False
Command7.Enabled=False
Command8.Enabled=False
Text1.Enabled=True:Text2.Enabled=True
Command1.Caption="确认"
Data1.Recordset.AddNew
Text1.SetFocus
Text3.Text="0"
Else
Command1.Caption="添加"
Command2.Enabled=False
Command3.Enabled=True
Command4.Enabled=True
Command5.Enabled=True
Command6.Enabled=True
Command7.Enabled=True
Command8.Enabled=True
Text1.Enabled=False:Text2.Enabled=False
Data1.Recordset.MoveLast
EndIf
EndSub
PrivateSubCommand2_Click()
Command1.Caption="添加"
Command2.Enabled=False
Command3.Enabled=True
Command4.Enabled=True
Command5.Enabled=True
Command6.Enabled=True
Command7.Enabled=True
Command8.Enabled=True
Text1.Enabled=False:Text2.Enabled=False
Data1.UpdateControls
'Data1.Recordset.Bookmark=mbookmark
EndSub
PrivateSubCommand3_Click()
ResumeNext
r=MsgBox("你是否要真的删除,注意不能恢复!",vbOKCancel,"删除警告")
Ifr=1Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThenData1.Recordset.MoveLast
EndIf
EndSub
PrivateSubCommand4_Click()
UnloadMe
frm_main.Enabled=True
EndSub
PrivateSubCommand5_Click()
Data1.Recordset.MoveFirst
EndSub
PrivateSubCommand6_Click()
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThenData1.Recordset.MoveFirst
EndSub
PrivateSubCommand7_Click()
Data1.Recordset
上一篇:
VB电脑租赁系统(论文和程序)
下一篇:
关于企业电子商务网站的平安控制