vb课程设计报告-仓库管理系统

2024年2月4日发(作者：)

VB

程序设计实验报告

姓 名：

班 级：

学 号：

专 业：软件工程

指导老师：

2010年5月13日

目录

实验题目 ………………………………………………………………………………………3

实验要求 ………………………………………………………………………………………3

设计思路 ………………………………………………………………………………………3

实验流程图 ………………………………………………………………………………………3

源程序清单 ………………………………………………………………………………………4

运行界面 ………………………………………………………………………………………6

存在问题 ………………………………………………………………………………………6

解决思路 ………………………………………………………………………………………6

心得 ………………………………………………………………………………………6

教师评语 ………………………………………………………………………………………6

评分 ………………………………………………………………………………………6

内容摘要：

仓库管理系统要实现注册登录功能，注册模块应连接数据库，在登录时要进入数据库判断是否存在注册用户;进入主功能界面后，有一个主界面，可实现四个小窗体的互相转换；四个小窗体即分别实现了四个功能。

实验题目 ： 仓库管理系统

实验要求 ： 仓库管理系统要求实现注册登陆功能，对仓库信息的

设计思路 ：

添加、删除和修改，入库和出库的登记和查询操作等。

把整个系统分为注册、登录、出入库登记、

修改、删除、查询等六个模块；其中注册模块连接数据库，登录模块应进入数据库进行判断是否存在注册用户，方可进入主功能界面；出入库登记、修改、删除、查询等四个模块分别用四个小窗体加载在一个主窗体上；并能实现窗体的转换；出入库登记、修改、删除、查询四个模块中都要用到数据库知识；另外还有如何连接的问题。涉及到的界面有：

进入主界面、注册界面、登陆界面、主功能界面。

实验流程图：

进入主窗体

注册窗体

返回

登录窗体

主功能窗体

出入库登记修改删除查询结 束

源程序清单：

1.进入主界面：

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()

End Sub

Private Sub Command3_Click()

End

End Sub

2.注册界面：

Private Sub Command1_Click()

If = Then

h

MsgBox "注册成功"

= ""

= ""

= ""

Else

MsgBox "密码不一致，请重新输入"

= ""

= ""

= ""

End If

End Sub

Private Sub Command2_Click()

End Sub

Private Sub Form_Load()

e = False

d = False

End Sub

Private Sub Text3_Change()

If = "" Then

d = False

Else

d = True

End If

End Sub

3. 登录界面：

Private Declare Function GetUserName Lib "" Alias

"GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long

Public OK As Boolean

Private Sub Form_Load()

e = False

Dim sBuffer As String

Dim lSize As Long

sBuffer = Space$(255)

lSize = Len(sBuffer)

Call GetUserName(sBuffer, lSize)

If lSize > 0 Then

= Left$(sBuffer, lSize)

Else

= vbNullString

End If

'初始化数据连接

' seName = DataPath

' Source = "用户管理"

End Sub

Private Sub cmdCancel_Click()

OK = False

End Sub

Private Sub cmdOK_Click()

'ToDo: 创建测试密码是否正确

On Error Resume Next

'检查正确密码

Dim success As Boolean

success = False

Dim fit As String

'查找用户名

fit = "用户名='"

fit = fit + + "'"

rst fit

'找不到该用户

If h Then

success = False

MsgBox "该用户不存在!", vbCritical

Exit Sub

Else

'找到该用户，但密码错误

On Error GoTo enter

Dim OldPas As String

OldPas = ("用户密码").Value

If OldPas = Then

enter:

success = True

'以下三个变量保存以备后用

UserName = '用户名

UserPas = '密码

' Purview = ("用户权限").Value '权限

Else

success = False

End If

End If

'如果登陆失败

If success = False Then

MsgBox "密码错误，再试一次！", vbExclamation, "登录"

us

rt = 0

gth = Len()

Exit Sub

Else

OK = True

End If

End Sub

4.主功能界面：

Private Sub Command1_Click()

= ""

= ""

= ""

= ""

'MsgBox "操作成功"

End Sub

Private Sub Command11_Click()

= ""

= ""

End Sub

Private Sub Command2_Click()

h

h

h

h

Record

MsgBox "添加成功！", vbOKOnly, "提示"

h

h

h

End Sub

Private Sub Command3_Click()

= ""

= ""

= ""

= ""

End Sub

Private Sub Command4_Click()

h

h

h

h

Record

MsgBox "添加成功！", vbOKOnly, "提示"

h

h

h

End Sub

Private Sub Command5_Click()

Record

h

MsgBox "确认修改？"

MsgBox "修改成功！"

h

h

h

End Sub

Private Sub Command6_Click()

evious

End Sub

Private Sub Command7_Click()

xt

End Sub

Private Sub Command8_Click()

evious

End Sub

Private Sub Command9_Click()

xt

End Sub

Private Sub Command10_Click()

MsgBox "确认删除？", vbOKCancel, "提示！"

h

h

h

h

End Sub

Private Sub Command12_Click()

Dim t1 As String, t2 As String

If Then

t1 =

Source = "select * from 产品信息 where 编号='" + t1 + "' "

h

Else

t2 =

Source = "select * from 产品信息 where 品名='" + t2 + "' "

h

End If

End Sub

Private Sub Form_Load()

e = False

e = False

e = False

e = False

e = False

e = False

e = False

End Sub

运行界面：

进入主界面：

注册界面：

登陆界面：

出入库登记界面：

修改界面：

删除界面：

查询界面：

存在问题：

存在的主要问题有：注册需要连接数据库，而且登录的时候也要打开数据库，代码不清晰，不能较好的实现功能;添加的数据不能及时的更新，造成不好的效果等。

预期的解决方案，上网查询相关模块，参考实现自己的功能；或者问指导老师，向老师寻求帮助。

心得:

通过设计vb课程设计仓库管理系统，使我更好的掌握了VB语言的知识，动手实践能力有了提高，但同时我也看到了自己的一些不足的地方;

首先，因为知识掌握的不够牢固，在编程时要用的的语句之类的不时很清晰；

其次，编程的思路还有待提高；

最后，在编程调试的时候还需要更多的耐心。

老师评语：

评分：