VB+access画笔程序和仓库物资管理系统
设计题目
一．仓库物资管理系统
二．画笔程序
1. 课程设计的目的
一．仓库物资乱离系统
本系统主要把仓库的管理方面通过整理形成一个较完整的体系，以便使其管理更加系统化、完善化。更有利于用户方便、快捷、有效率的完成工作。 本系统是采用Visual Basic6.0高级语言进行程序编制，以Access数据库为程序数据库。
二．画笔程序
可用鼠标画任意线段，可设置颜色、线宽、底色等，有橡皮擦功能。
可方便绘制标准集合图形。
2. 系统总体设计
一．仓库物资管理系统
系统开发的总体任务是实现仓库物资的管理，主要完成的功能有：
(1).入库管理：即实现物品入库登记功能，主要记录了物品的基本信息，包括货物编号、货物名称、型号、单价、货物数量、入库时间、总价、备注。
(2)出库管理：即实现货物出库登记功能，主要记录了货物的基本信息，包括物品编号、货物名称、型号、单价、货物数量、出库时间、总价、备注。
(3)仓库管理：包括库存查询、库存删除、库存统计、库存报表。
①库存查询：即提供查询功能。理员在查询页面中输入要查询货物的全部货部分信息，便可方便的在查询出需要的货物。
②库存删除：即提供删除货物记录功能。管理员可以浏览货物清单，删除其中某见货物的记录。
③库存统计：即实现统计仓库中现有的货物。
④库存报表：即统计后的库存信息，形成报表，可供更好的记录或查询。
(4)系统管理：包括添加管理员、修改密码功能。
①添加管理员：即可以在登陆系统之后，在添加管理员界面上，随意输入用户名和密码，确定之后，这组用户名和密码就被系统承认。
②修改密码：即在登陆系统之后，在修改密码界面，输入新的密码，并重复一边，系统就将这次登陆的用户名的密码改成刚输入的密码。
仓库物资管理系统模块图见图1.1
二．画笔程序
系统开发的总任务是，实现可用鼠标在指定界面上画任意线段，并且可以设置画笔颜色、底色。可以方便的画出简单的集合图形。
(1) 画笔功能：包括可以实现画任意长度直线（在直线长度输入框中输入所要画的直线的长度）。可以画任意大小的园（在指定框中输入圆心坐标，和半径长度）。可以画任意边长的正好型（在直线长度输入框中输入直线长度，在这里即代表要画正方形的边长）。
(2) 颜色功能：点击颜色按钮，即出现颜色选择框，可以选择颜色。
橡皮功能：点击橡皮按钮，按住鼠标左键，所到之处，实现橡皮功能。76
VB+access画笔程序和仓库物资管理系统
图1.1 系统功能模块图若图片无法显示请联系QQ3710167,本论文免费,转发请注明源于www.lwfree.cn
1. 数据库设计
在一个仓库物资管理系统中，数据库的地位是非常重要的，是一个系统正常运行的基础。本系统的数据库是采用Microsoft公司的Access 2000设计的。在数据库的设计过程中，首先是收集、分析需求；再从需求抽象出一般的实体、关系和他们的属性；再将这些实体、关系和属性按照一定的规则转化为二元表结构。
本系统中共有 个数据表
表1.1 名称为用户管理数据资料表。
用户管理数据表记录了管理员的基本资料，管理员可添加、删除该表。该表包括管理员的用户名，密码和管理员权限资料。
段名
数据类型
字节长度
可否为空
主键
用户名
文本
50
No
Yes
密码
文本
50
No
No
级别
文本
50
Yes
No
表1.1 为管理员数据资料表
表1.2 名称为库存信息数据表。
库存信息数据表主要记录了库存物资的基本资料，可供查询。该表包括了货物编号、名称、型号、数量、单价、总价和备注八个字段。
段名
数据类型
字节长度
可否为空
主键
货物编号
文本
No
50
Yes
货物名称
文本
No
50
型号
文本
No
50
数量
数字
No
50
单价
数字
No
50
总价
数字
No
50
备注
文本
No
50
表1.2 为库存信息数据表
表1.3 名称为入库物品信息数据表
入库物品信息数据表主要记录了入库的物品基本资料，可供查新。该表包括了货
物编号、货物名称、型号、数量、单价、总价、入库日期和备注八个字段。
名称
数据类型
字节长度
可否为空
主键
货物编号
文本
50
No
Yes
货物名称
文本
50
No
型号
文本
50
No
数量
数字
50
No
单价
数字
50
No
总价
数字
50
No
出库日期
时间/日期
50
No
备注
文本
50
No
表1.3 为入库物品信息数据表
表1.4 名称是出库物品信息数据表
出库物品信息数据表主要记录了出库的物品基本资料，可供查询。该表包括货物编号、货物名称、型号、数量、单价、总价、出库日期和备注八个字段。
名称
数据类型
字节长度
可否为空
主键
货物编号
文本
50
No
Yes
货物名称
文本
50
No
型号
文本
50
No
数量
数字
50
No
单价
数字
50
No
总价
数字
50
No
出库日期
时间/日期
50
No
备注
文本
50
No
表1.4 为出库物品信息数据表
2. 应用软件的开发与实现
一．仓库物资管理系统
4.1系统模块的设计：系统模块中主要定义了系统中常用到的变量，此模块中主要定义了数据库变量和数据库连接字符串，客户机通过字符串连接数据库即可访问服务器端的数据库。具体实现代码为：
Public cang As New ADODB.Connection
Public ku As New ADODB.Recordset
Public cangku As New ADODB.Recordset
Public Const constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\VB\数据库\表.mdb;Persist Security Info=False"
4.2主要窗体的实现
(1)登录模块的设计：此模块的功能是检查管理员是否有进入系统的权限。用到的主要控件为两个TextBox和两个Button按钮。
图1.2 登陆窗体界面
管理员可以输入相应的用户名和密码来进行登陆，如果用户名密码正确则显示密码正确，欢迎进入仓库关系系统！如果密码错误则无法进入系统，并且密码输入错误三次以上，系统自动退出。
具体实现代码为：
VB+access画笔程序和仓库物资管理系统
Private Sub Command1_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
If Trim(Text1.Text) = "" Then
MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Else
sql = "select * from 用户管理 where 用户名='" & Text1.Text & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
若图片无法显示请联系QQ3710167,本论文免费,转发请注明源于www.lwfree.cn
userID = Text1.Text
rs_login.Close
Unload Me
xitong_zhujiemiang.Show
Else
MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
Text2.SetFocus
End If
End If
End If
cnt = cnt + 1
If cnt = 3 Then
MsgBox "对不起，您已连续三次输入错误,请确认正确密码再试，谢谢！", vbOKOnly + vbExclamation, ""
Unload Me
End If
Exit Sub
End Sub
(2)主页面模块的设计：此模块的功能是分类本管理系统的两个主要部分。用到了三个Commamd控件。
图1.3 系统主界面
进入主界面，就可以进行按照操作对仓库管理、系统管理的操作，当点击仓库管理时进入商品管理界面，点击系统管理时进入系统管理界面。
(3)仓库管理模块设计：此模块每个界面都设有详细的菜单，通过菜单的选择，可以控制仓库管理模块中的所有功能。其主要功能有入库登记、出库登记、库存管理。其中库存管理中还包括查询、删除、统计及报表功能。
① 入库登记模块的设计：此模块的主要功能是实现货物存入仓库前的基本信息登记。需要录入的信息有：货物编号、货物名称、型号、单价、入库时间、总价及备注。每一项都必须填写，点击确定，则此货物入库登记成功。
图1.4 入库登记界面
② 出库登记模块的设计：此模块的主要功能是实现货物存出仓库前的基本信息登记。只要在在商品信息表中选择要出库的商品，点击确定，即可完成商品出库登记。
图1.5 出库登记界面
仓库管理模块的设计：此模块包含了本系统的主要功能，在仓库管理子菜单中包括库存查询，库存删除，库存统计及库存报表。
VB+access画笔程序和仓库物资管理系统
库存查询界面设计：在库存查询界面输入货物编号、货物名称、型号、数量，点击确定即可查询到库存里面的库存信息。
图1.7 库存查询界面
只要在查询界面中输入全部或部分要查询的货物信息，即可查询到所要的物品。
具体代码如下：
Private Sub Command1_Click()
Dim rs_findlab As New ADODB.Recordset
Dim sql As String
If Trim(Text1.Text) <> "" Then
Else
sql = sql & "and 货物名称 like'%" & Trim(Text2.Text & " ") & "%'"
End If
End If
If Trim(Text3.Text) <> "" Then
If Trim(sql) = "" Then
sql = "型号 like '%" & Trim(Text3.Text & " ") & "%'"
Else
sql = sql & "and 型号 like '%" & Trim(Text3.Text & " ") & "%'"
End If若图片无法显示请联系QQ3710167,本论文免费,转发请注明源于www.lwfree.cn
End If
If Trim(Text3.Text) <> "" Then
If Trim(sql) = "" Then
sql = "数量 like '%" & Trim(Text4.Text & " ") & "%'"
Else
sql = sql & "and 数量 like '%" & Trim(Text4.Text & " ") & "%'"
End If
End If
If Trim(sql) = "" Then
MsgBox "请输入要搜索关键字", vbOKOnly + vbExclamation, ""
Exit Sub
End If
sql = "select * from 库存信息 where " & sql
rs_findlab.CursorLocation = adUseClient
rs_findlab.Open sql, conn, adOpenKeyset, adLockPessimistic
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
Set DataGrid1.DataSource = rs_findlab
End Sub
库存统计界面设计：库存统计主要实现的是统计库存中所有货物。点击仓库管理子菜单中的库存统计，即可显示库存统计界面。
图1.8 库存统计界面
库存报表界面的设计：报表设计需要添加数据环境（DataEnvironment1）和数据报表（DataReport1）数据环境设计。将数据环境与我的数据库相连，添加命令Command1，Command1的属性设置 数据库对象为表 数据对象是结算管理。
报表与数据环境相连设置报表
报表的Datasource属性设为DataEnvironment1
报表的DataMember属性设为Command1
在细节中可以直接拖动数据环境里的各项数据
图 1.9 数据环境界面
图 1.10 库存信息报表界面
具体实现代码如下：
Private Sub cun_chaxun_Click()
kucun_chaxun.Show
Unload Me
End Sub
VB+access画笔程序和仓库物资管理系统
库存删除界面设计：其功能是实现仓库现存物品记录的删除。只要在删除界面中选择要删除的物品的信息，点击删除即可。
具体代码如下：
Private Sub Command1_Click()
, "")若图片无法显示请联系QQ3710167,本论文免费,转发请注明源于www.lwfree.cn
If answer = vbYes Then
DataGrid1.AllowDelete = True
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
DataGrid1.Refresh
MsgBox "成功删除！", vbOKOnly + vbInformation, ""
DataGrid1.AllowDelete = False
Else
Exit Sub
End If
delerror:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
(4)系统管理模块设计：此模块主要实现添加用户名和修改密码两项功能。
①添加用户界面设计：进入系统后，选择菜单”系统管理”中的下拉菜单中的”添加管理员”项就可以添加用户，出现下面所示的窗体。
具体代码如下：
Private Sub Command1_Click()
Dim sql As String
Dim rs_add As New ADODB.Recordset
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空", vbOKOnly + vbExclamation, ""
Exit Sub
Text1.SetFocus
Else
sql = "select * from 用户管理"
rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic
While (rs_add.EOF = False)
If Trim(rs_add.Fields(0)) = Trim(Text1.Text) Then
MsgBox "已有这个用户", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Exit Sub
Text3.Text = ""
Exit Sub
Else
rs_add.AddNew
rs_add.Fields(0) = Text1.Text
rs_add.Fields(1) = Text2.Text
rs_add.Fields(2) = Text3.Text
rs_add.Update
rs_add.Close
MsgBox "添加用户成功", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End If
End If
End Sub
图1.11 添加用户界面
②更新密码界面设计：当输入完初始密码，确认密码时，可以单击“确定”以修改当前用户的密码。
具体代码如下：
Private Sub Command1_Click()
Dim rs_chang As New ADODB.Recordset
Dim sql As String
If Trim(Text1.Text) <> Trim(Text2.Text) Or Text1.Text = "" Or Text2.Text = "" Then
MsgBox "密码不一致！", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Else
sql = "select * from 用户管理 where 用户名='" & userID & "'"
rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_chang.Fields(1) = Text1.Text
rs_chang.Update
rs_chang.Close
MsgBox "密码修改成功", vbOKOnly + vbExclamation, ""
VB+access画笔程序和仓库物资管理系统
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
End If
End Sub
图 1.12 更新密码界面
二．画笔程序
(1)窗体设计：主要用到的控件有Combo1、Option、Frame、CommonDialog、菜单等。
(2)功能设计：
①画笔功能：点击一下菜单中的“画笔”，既可以在窗体中有鼠标画任意线段。
具体代码如下：
Private Sub huabi_Click()
flag = 0
Form1.DrawWidth = Combo1.Text
If Button = 1 Then
Line -(X, Y), pcolor
End If
End Sub
②颜色功能：添加CommonDialog部件，运用CommonDialog1将VB与电脑程序所代颜色相连，通过代码可以使VB使用颜色
具体代码如下：
Private Sub yanse_Click()
CommonDialog1.Action = 3
pcolor = CommonDialog1.Color
End Sub
③橡皮功能：橡皮功能的实现即鼠标划过的地方，用背景色覆盖。
具体代码如下：
Private Sub xiangpi_Click()
flag = 1
xiangpi.Enabled = True
End Sub
④绘制标准几何图形功能
直线：在直线长度出入框中输入要画直线的长度，设好坐标，点选直线，即可在指定区域画出一条直线。
具体代码如下：
Private Sub Option1_Click()
若图片无法显示请联系QQ3710167,本论文免费,转发请注明源于www.lwfree.cn
Private Sub Option2_Click()
Circle (100 * Val(Text3.Text), 100 * Val(Text4.Text)), 300 * Val(Text2.Text), pcolor
End Sub
正方形：设置直线长度（在这里即为长方形边长），坐标，点选正方形，即可画出一个正方形。
具体代码如下：
Private Sub Option3_Click()
Line Step(100 * Val(Text3.Text), 100 * Val(Text4.Text))-Step(100 * Val(Text1.Text), 100 * Val(Text1.Text)), pcolor, B
End Sub
图 2.1 画笔程序界面
5．设计体会
通过此次课程设计，我整体的了解了VB与数据可的结合使用。
具体步骤如下：
1：打开连接：例如：Recordset.Open 带有 ActiveConnection 操作数，该操作数可以是文字字符串（表示字符串的变量），或者是代表一个已打开的连接的 Connection 对象。对象中的多数方法具有属性，当操作数缺省时属性可以提供参数。使用 Connection.Open，可以省略显式 ConnectionString 操作数并通过将 ConnectionString 的属性设置为“DSN=pubs;uid=sa;pwd=;database=pubs”隐式地提供信息。与此相反，连接字符串中的关键字操作数 uid 和 pwd 可为 Connection 对象设置 UserID 和 Password 参数。
2：创建命令
查询命令要求数据源返回含有所要求信息行的 Recordset 对象。
如上所述，“命令字符串”之类的操作数可表示为：
代表字符串的文字串或变量。本教程可使用命令字符串“SELECT * from authors”查询 pubs 数据库中的 authors 表中的所有信息。
3：执行命令
必须在发出命令之前打开连接，每个发出命令的方法分别代表不同的连接：
Connection.Execute 方法使用由 Connection 对象自身表现的连接。
Command.Execute 方法使用在其 ActiveConnection 属性中设置的 Connection 对象。
Recordset.Open 方法所指定的或者是连接字符串，或者是 Connection 对象操作数；否则使用在其 ActiveConnection 属性中设置的 Connection 对象。
通过这两个星期的学习，发现了自己的很多不足，自己知识的很多漏洞，看到了自己的实践经验还是比较缺乏。所设计的系统还有很多不足，比如统计功能不够适用，报表比较少，结构也不完善，有点头轻脚重等等。有机会会继续完善本程序，改进以上不足，并增加数据库维护、更新功能，提供安全登陆，增加数据表功能等等。
经过两个的努力奋斗,仓库管理系统终于制作完成,这次课设使我受益非浅,同时, 由于这次课程设计时间短、任务重，所以该系统存在许多的不足，希望老师能谅解。
在此感谢老师两个星期以来，不惜辛苦的为我们辅导，答疑，使我们能按时顺利完成课程设计。
6．参考文献
[1] 刘新民,蔡琼,白康生编著.Visual Basic 6.0程序设计[M].北京:清华大学出版社，2004.3 20-25
[2] 刘韬, 骆娟, 何旭洪编著. Visual basic 数据库系统开发实例导航[M].北京:人民邮电出版社，2003.8 159-203
[3] 黄明, 梁旭编著. Visual Basic 6.0 信息系统设计与开发实例[M].北京:机械工业出版社，2004.4 241-256
VB+access画笔程序和仓库物资管理系统
7.附录
一、库存物资系统部分代码：
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _
"data source=data.mdb"
conn.Open connectionstring
cnt = 0
End Sub
Private Sub add_admin_Click()
tianjiayonghuming.Show
End Sub
Private Sub chang_Click()
kucun_chaxun.Show
End Sub
Private Sub del_Click()
kucun_shanchu.Show
End Sub
Private Sub edit_password_Click()
gengxinmima.Show
End Sub
Private Sub exit_Click()
End
End Sub
Private Sub g_report_Click()
DataReport1.Show
End Sub
Private Sub LAB_INDJ_Click()
ruku_dengji.Show
End Sub
Private Sub lab_man1_Click()
lab_man1.Show
End Sub
Private Sub LAB_OUTDJ_Click()
chuku_dengji.Show
End Sub
Private Sub lab_report_Click()
DataReport2.Show
End Sub
Private Sub LABINYL_Click()
ruku_liulan.Show
End Sub
Private Sub lan_outyl_Click()
chuku_liulan.Show
End Sub
Private Sub pro_info_delete_Click()
shangpin_shanchu.Show
End Sub
Private Sub pro_info_input_Click()
shangpin_luru.Show
End Sub
Private Sub pro_info_query_Click()
shangpin_chaxun.Show
End Sub
Private Sub pro_info_update_Click()
shangpin_gengxin.Show
End Sub
Private Sub rs_report_Click()
DataReport3.Show
End Sub
Private Sub updata_Click()
kucun_gengxin.Show
End Sub
Private Sub Command2_Click()
ruku_dengji.Show
End Sub
Private Sub Command3_Click()
gengxinmima.Show
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("确定退出系统吗？", vbQuestion + vbYesNo + vbDefaultButton2, "退出") = vbNo Then
Cancel = 1
End If
End Sub
Private Sub chu_dengji_Click()
chuku_dengji.Show
Unload Me
End Sub
需要完整内容的请联系QQ3710167，本文免费，转发请注明源于www.lwfree.cn
End If
If Trim(Text2.Text) = "" Then
MsgBox "货物名不能为空", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Exit Sub
End If
If Trim(Text3.Text) = "" Then
MsgBox "型号不能为空", vbOKOnly + vbExclamation, ""
Text3.SetFocus
Exit Sub
End If
If Trim(Text4.Text) = "" Then
MsgBox "单价不能为空", vbOKOnly + vbExclamation, ""
Text4.SetFocus
Exit Sub
End If
If Trim(Text5.Text) = "" Then
MsgBox "数量不能为空", vbOKOnly + vbExclamation, ""
Text5.SetFocus
Exit Sub
End If
sumprice = Text5.Text * Text4.Text
Text6.Text = sumprice
Text6.Refresh
If Not IsDate(DTPicker1.Value) Then
MsgBox "请按照 yyyy-mm-dd 格式输入日期", vbOKOnly + vbExclamation, ""
DTPicker1.Value.SetFocus
Exit Sub
End If
If Trim(Text8.Text) = "" Then
MsgBox "备注不能为空", vbOKOnly + vbExclamation, ""
Text8.SetFocus
Exit Sub
End If
sql = "select * from 入库信息 where 货物编号='" & Text1.Text & "'"
rs_addlab.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_addlab.EOF Then
rs_addlab.AddNew
rs_addlab.Fields(0) = Trim(Text1.Text)
rs_addlab.Fields(1) = Trim(Text2.Text)
rs_addlab.Fields(2) = Trim(Text3.Text)
rs_addlab.Fields(3) = Trim(Text4.Text)
rs_addlab.Fields(4) = Trim(Text5.Text)
rs_addlab.Fields(5) = Trim(Text6.Text)
rs_addlab.Fields(6) = Trim(DTPicker1.Value)
rs_addlab.Fields(7) = Trim(Text8.Text)
rs_addlab.Update
rs_addlab.Close
Else
Text1.SetFocus
Text1.Text = ""
rs_addlab.Close
End If
Dim rs_addlab1 As New ADODB.Recordset
Dim sql1 As String
sql1 = "select * from 库存信息 where 货物编号='" & Text1.Text & "'"
rs_addlab1.Open sql1, conn, adOpenKeyset, adLockPessimistic
If rs_addlab1.EOF Then
rs_addlab1.AddNew
rs_addlab1.Fields(0) = Trim(Text1.Text)
rs_addlab1.Fields(1) = Trim(Text2.Text)
rs_addlab1.Fields(2) = Trim(Text3.Text)
rs_addlab1.Fields(3) = Trim(Text4.Text)
rs_addlab1.Fields(4) = Trim(Text5.Text)
rs_addlab1.Fields(5) = Trim(Text6.Text)
rs_addlab1.Fields(6) = Trim(Text8.Text)
rs_addlab1.Update
MsgBox "入库登记成功", vbOKOnly + vbInformation, "完成"
rs_addlab1.Close
VB+access画笔程序和仓库物资管理系统
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text8.Text = ""
Else
MsgBox "货物编号重复！", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
rs_addlab1.Close
Exit Sub
End If
Frame1.Refresh
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub cun_chaxun_Click()
kucun_chaxun.Show
Unload Me
End Sub
Private Sub cun_gengxin_Click()
kucun_gengxin.Show
Unload Me
End Sub
Private Sub cun_shanchu_Click()
kucun_shanchu.Show
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub kucun_baobiao_Click()
DataReport1.Show
End Sub
Private Sub ru_dengji_Click()
ruku_dengji.Show
End Sub
Private Sub Command1_Click()
Dim rs_addlab As New ADODB.Recordset
Dim sql As String
Dim sumprice As String
If Trim(Text1.Text) = "" Then
MsgBox "货物编号不能为空", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Exit Sub
End If
If Trim(Text2.Text) = "" Then
MsgBox "货物名不能为空", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Exit Sub
End If
If Trim(Text3.Text) = "" Then
MsgBox "型号不能为空", vbOKOnly + vbExclamation, ""
Text3.SetFocus
Exit Sub
End If
If Trim(Text4.Text) = "" Then
MsgBox "单价不能为空", vbOKOnly + vbExclamation, ""
Text4.SetFocus
Exit Sub
End If
If Trim(Text5.Text) = "" Then
MsgBox "数量不能为空", vbOKOnly + vbExclamation, ""
Text5.SetFocus
Exit Sub
End If
sumprice = Text5.Text * Text4.Text
Text6.Text = sumprice
Text6.Refresh
If Not IsDate(Text7.Text) Then
MsgBox "请按照 yyyy-mm-dd 格式输入日期", vbOKOnly + vbExclamation, ""
Text7.SetFocus
Exit Sub
End If
If Trim(Text8.Text) = "" Then
MsgBox "备注不能为空", vbOKOnly + vbExclamation, ""
Text8.SetFocus
Exit Sub
End If
sql = "select * from 出库信息 where 货物编号='" & Text1.Text & "'"
rs_addlab.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_addlab.EOF Then
rs_addlab.AddNew
rs_addlab.Fields(0) = Trim(Text1.Text)
rs_addlab.Fields(1) = Trim(Text2.Text)
rs_addlab.Fields(2) = Trim(Text3.Text)
rs_addlab.Fields(3) = Trim(Text4.Text)
rs_addlab.Fields(4) = Trim(Text5.Text)
rs_addlab.Fields(5) = Trim(Text6.Text)
rs_addlab.Fields(6) = Trim(Text7.Text)
rs_addlab.Fields(7) = Trim(Text8.Text)
rs_addlab.Update
MsgBox "出库登记成功", vbOKOnly + vbInformation, "完成"
rs_addlab.Close
Else
MsgBox "货物编号重复！", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
rs_addlab.Close
Exit Sub
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub cun_chaxun_Click()
kucun_chaxun.Show
Unload Me
End Sub
Private Sub cun_gengxin_Click()
kucun_gengxin.Show
Unload Me
End Sub
Private Sub cun_shanchu_Click()
kucun_shanchu.Show
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub ru_dengji_Click()
ruku_dengji.Show
Unload Me
End Sub
Private Sub chu_dengji_Click()
chuku_dengji.Show
End Sub
rivate Sub cun_chaxun_Click()
kucun_chaxun.Show
需要完整内容的请联系QQ3710167，本文免费，转发请注明源于www.lwfree.cn
kucun_shanchu.Show
Unload Me
End Sub
Private Sub Label5_Click()
End Sub
Private Sub Form_Load()
End Sub
Private Sub ru_dengji_Click()
ruku_dengji.Show
Unload Me
End Sub
Private Sub chu_dengji_Click()
chuku_dengji.Show
Unload Me
End Sub
VB+access画笔程序和仓库物资管理系统
Private Sub Command1_Click()
Text6.Text = Text4.Text * Text5.Text
Adodc1.Recordset.Update
MsgBox ("仓库统计完成")
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub cun_chaxun_Click()
kucun_chaxun.Show
Unload Me
End Sub
Private Sub cun_gengxin_Click()
kucun_gengxin.Show
End Sub
Private Sub cun_shanchu_Click()
kucun_shanchu.Show
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub ru_dengji_Click()
ruku_dengji.Show
Unload Me
End Sub
Private Sub chu_dengji_Click()
chuku_dengji.Show
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub mima_Click()
gengxinmima.Show
End Sub
Private Sub tianjiaming_Click()
tianjiayonghuming.Show
Unload Me
End Sub
Private Sub tuichu_Click()
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub mima_Click()
gengxinmima.Show
Unload Me
End Sub
Private Sub Text1_Change()
End Sub
Private Sub tianjiaming_Click()
tianjiayonghuming.Show
End Sub
Private Sub tuichu_Click()
Unload Me
End Sub
二．画笔程序代码
Dim flag As Integer
Dim pcolor As Long
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Combo1.Text = 1
pcolor = Form1.ForeColor
xiangpi.Enabled = True
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
CurrentX = X
CurrentY = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If flag = 1 Then
Form1.DrawWidth = 10
If Button = 1 Then
Line -(X, Y), Form1.BackColor
End If
End If
If flag = 0 Then
Form1.DrawWidth = Combo1.Text
If Button = 1 Then
Line -(X, Y), pcolor
End If
End If
End Sub
Private Sub juxing_Click()
Line Step(100 * Val(Text3.Text), 100 * Val(Text4.Text))-Step(100 * Val(Text1.Text), 100 * Val(Text1.Text)), pcolor, B
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub huabi_Click()
flag = 0
Form1.DrawWidth = Combo1.Text
If Button = 1 Then
Line -(X, Y), pcolor
End If
End Sub
Private Sub Option1_Click()
Line Step(100 * Val(Text3.Text), 100 * Val(Text4.Text))-Step(100 * Val需要完整内容的请联系QQ3710167，本文免费，转发请注明源于www.lwfree.cn
(Text2.Text), pcolor
End Sub
Private Sub Option3_Click()
Line Step(100 * Val(Text3.Text), 100 * Val(Text4.Text))-Step(100 * Val(Text1.Text), 100 * Val(Text1.Text)), pcolor, B
End Sub
Private Sub xiangpi_Click()
flag = 1
xiangpi.Enabled = True
End Sub
Private Sub yanse_Click()
CommonDialog1.Action = 3
pcolor = CommonDialog1.Color
End Sub
Private Sub yuan_Click()
Circle (100 * Val(Text3.Text), 100 * Val(Text4.Text)), 300 * Val(Text2.Text), pcolor
End Sub
Private Sub zhixian_Click()
Line Step(100 * Val(Text3.Text), 100 * Val(Text4.Text))-Step(100 * Val(Text1.Text), 100 * Val(Text1.Text)), pcolor
End Sub
