VB仓库管理系统源代码
晕,楼上的回答怎么没有一个写代码的啊,我代码写好了dim myConn as object dim myRecord aS OBJECT Dim mySQL As String Dim strSQL As String SET myConn CreateObject("ADODB.Connection") '创建对象 SET myConn CreateObject("ADODB.Connection") '创建对象 Private Sub Form_Load() Dim mySQL As String Dim strSQL As String'设定连接字符串 mySQL = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" mySQL = mySQL + "Data Source=" & App.Path & "\Product.mdb" myConn.ConnectionString = mySQL '设定连接字符串'MsgBox mySQL myConn.Open '打开连接 myRecord.ActiveConnection = myConn '设定RecordSeet的连接对象为Connection strSQL = "select * from Products" '设定查询字符串'打开myRecord myRecord.Open strSQL, , adOpenDynamic, adLockOptimistic'显示数据 ShowData End Sub Private Sub ShowData() On Error Resume Next'产品编号 Text1.Text = myRecord.Fields("ProductID").Value'产品名称 Text2.Text = myRecord.Fields("ProductName").Value'供应商编号 Text3.Text = myRecord.Fields("SupplierID").Value'类别编号 Text4.Text = myRecord.Fields("CategoryID").Value'单位数量 Text5.Text = myRecord.Fields("QuantityPerUnit").Value'单价 Text6.Text = myRecord.Fields("UnitPrice").Value'库存数量 Text7.Text = myRecord.Fields("UnitsInStock").Value'订单数量 Text8.Text = myRecord.Fields("UnitsOnOrder").Value'重订等级 Text9.Text = myRecord.Fields("ReorderLevel").Value End Sub'后一条按钮单击事件 Private Sub Command8_Click()'移动记录到下一条的方法是MoveNext'在调用MoveNext方法之前,首先需要判断,当前是不是已经超出尾纪录'若超出尾记录,再执行MoveNext会出错 If Not myRecord.EOF Then myRecord.MoveNext Else'超出尾记录,使用MoveLast恢复指向尾记录 myRecord.MoveLast End If'显示数据 ShowData End Sub'前一条按钮单击事件 Private Sub Command7_Click()'判断是否超出头记录'若超出头记录,再执行MovePrevious会出错 If Not myRecord.BOF Then myRecord.MovePrevious Else'超出头记录'使用MoveFirst恢复到指向第一条记录 myRecord.MoveFirst End If'显示数据 ShowData End Sub'尾记录按钮单击事件 Private Sub Command9_Click()'调用MoveLast myRecord.MoveLast'显示记录 ShowData End Sub Private Sub Command5_Click()'调用Recordset对象cancelUpdate方法取消数据保存 myRecord.CancelUpdate myRecord.MoveFirst'显示数据 ShowData End Sub'首记录按钮单击事件 Private Sub Command6_Click()'调用MoveFirst移动 myRecord.MoveFirst'显示记录 ShowData End Sub Private Sub Command4_Click() On Error Resume Next'保存数据,这里需要通过编程来实现'产品编号'产品编号不能为空 If Text1.Text = "" Then MsgBox "产品编号不能为空!" Text1.SetFocus Exit Sub End If'其他文本框的判断类似,这里省略'保存产品编号 myRecord.Fields("ProductID").Value = Val(Text1.Text)'保存产品名称 myRecord.Fields("ProductName").Value = Text2.Text'保存供应商编号 myRecord.Fields("SupplierID").Value = Val(Text3.Text)'保存类别编号 myRecord.Fields("CategoryID").Value = Val(Text4.Text)'保存单位数量 myRecord.Fields("QuantityPerUnit").Value = Text5.Text'保存单价 myRecord.Fields("UnitPrice").Value = Val(Text6.Text)'保存库存数量 myRecord.Fields("UnitsInStock").Value = Text7.Text'保存订单数量 myRecord.Fields("UnitsOnOrder").Value = Val(Text8.Text)'保存重订等级 myRecord.Fields("ReorderLevel").Value = Val(Text9.Text)'调用Recordset对象Update方法保存数据 myRecord.Update'显示数据 ShowData End Sub
仓库出入库管理软件。
要求领用单位数据库、材料数据库及领用单位按...
虽然你的描述很粗放,不够具体,但确属典型的仓储管理系统。
此系统前端为采购管理系统,后接销售管理系统,横向连接财务管理系统、OA(办公自动化)、设备管理系统、物流管理系统。
根据你后一句描述,应用企业应为工业企业,领用单位(内部划分的单位,即二级及以下机构)也许还要设立临时仓或中间仓,并按产品或项目或生产运营周期(比如按月、季、半年、年)进行细致的核算(核算也许还需要细化到车间下面的工段,甚至班组)。
你仅仅是简单描述了这么一个管理软件系统的需求,没有提出任何问题。
是有什么疑问需要解决呢?希望我的回答能够对你有帮助。
我需要一个可以管理物品出入库、维修、报废的一个库存软件,能通过...
出入库管理制度一、物品入库有关制度:(一)物品采购回来后首先办理入库手续,由采购人员向仓库管理员逐件交接。
库房管理员要根据采购计划单的项目认真清点所要入库物品的数量,并检查好物品的规格、质量,做到数量、规格、品种,价格准确无误,质量完好,配套齐全,并在接收单上签字(或在入库登记簿上共同签字确认)。
(二)对于在外加工货物应认真清点所要入库物品的数量,并检查好物品的规格、质量,做到数量、规格、品种准确无误,质量完好,配套齐全,并在接收单上签字。
(三)物品进库根据入库凭证,现场交接接收,必须按所购物品条款内容、物品质量标准,对物品进行检查验收,并做好入库登记。
(四)物品验收合格后,应及时入库。
(五)物品入库,要按照不同的主机型号、材质、规格、功能和要求,分类、分别放入货架的相应位置储存,在储存时注意做好防锈,防潮处理,保证货物的安全。
(六)物品数量准确、价格不串。
做到帐、标牌、货物相符合。
发生问题不能随意的更改,应查明原因,是否有漏入库,多入库。
(七)精密、易碎及贵重货物要轻拿轻放.严禁挤压、碰撞,倒置,要做到妥善保存,其中贵重物品应入公司内小仓库保存,以防盗窃。
(八)做好防火、防盗、防潮工作,严禁与我公司无关的人员进入仓库。
(九)仓库保持通风,保持库室内整洁,由于仓库的容量有限,货物的摆放应整齐紧凑,作到无遮掩,标牌要醒目,便于识别辨认。
二、物品出库有关规定:(一)物品出库,仓库管理员要做好记录,领用人签字。
(二)物品出库,数量要准确(账面出库数量要和出库单,实际出库实际数量相符)。
做到帐、标牌、货物相符合。
发生问题不能随意的更改,应查明原因,是否有漏出库,多出库。
(三)仓库管理员严格执行凭发货单发货,无单不发货,内容填写不准确不发货,数目有涂改痕迹不发货,发生上述问题应及时的与相关的责任人做好货物的核对,保证发货的正确性,及时解决,及时供货,保证合同的完整履行。
(四)保管员要做好出库登记,并定期向主管部门做出入库报告。
(五)为了防止出现出库货物差错,要严格遵守出库制度,应先写好出库单并且相关责任人签字后,交仓库管理人员进行出库登记工作,完成后才可以到仓库拿取货物。
(六)对于对外加工我方应提供的组件专用物品领用必须要有经理签字方可出库,及时交于加工方,以便我方加工货物的及时完成,交加工方时,应请主办人员签字接收。
希望上述回答对您有所帮助!
转载请注明出处51数据库 » vb物品出入库管理软件源代码