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

VB程序设计实验报告

姓名：

班级：

学号：

专业：软件工程

指导老师：

20##年5月13日

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

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

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

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

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

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

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

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

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

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

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

内容摘要：

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

实验题目 ： 仓库管理系统

实验要求： 仓库管理系统要求实现注册登陆功能，对仓库信息的添加、删除和修改，入库和出库的登记和查询操作等。

设计思路： 把整个系统分为注册、登录、出入库登记、

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

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

实验流程图：

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

源程序清单：

1.进入主界面：

Private Sub Command1_Click()

frmLogin.Show

Form1.Hide

End Sub

Private Sub Command2_Click()

Form2.Show

Form1.Hide

End Sub

Private Sub Command3_Click()

End

End Sub

2.注册界面：

Private Sub Command1_Click()

If Text2.Text = Text3.Text Then

Data1.Refresh

Data1.Recordset.AddNew

MsgBox "注册成功"

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Else

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

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End If

End Sub

Private Sub Command2_Click()

Form2.Hide

Form1.Show

End Sub

Private Sub Form_Load()

Data1.Visible = False

Command1.Enabled = False

End Sub

Private Sub Text3_Change()

If Text3.Text = "" Then

Command1.Enabled = False

Else

Command1.Enabled = True

End If

End Sub

3. 登录界面：

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long

Public OK As Boolean

Private Sub Form_Load()

Data1.Visible = False

Dim sBuffer As String

Dim lSize As Long

sBuffer = Space$(255)

lSize = Len(sBuffer)

Call GetUserName(sBuffer, lSize)

If lSize ＞ 0 Then

txtUserName.Text = Left$(sBuffer, lSize)

Else

txtUserName.Text = vbNullString

End If

'初始化数据连接

' Data1.DatabaseName = DataPath

' Data2.RecordSource = "用户管理"

End Sub

Private Sub cmdCancel_Click()

OK = False

Me.Hide

End Sub

Private Sub cmdOK_Click()

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

On Error Resume Next

'检查正确密码

Dim success As Boolean

success = False

Dim fit As String

'查找用户名

fit = "用户名='"

fit = fit + txtUserName.Text + "'"

Data1.Recordset.FindFirst fit

'找不到该用户

If Data1.Recordset.NoMatch Then

success = False

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

Exit Sub

Else

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

On Error GoTo enter

Dim OldPas As String

OldPas = Data1.Recordset.Fields("用户密码").Value

If OldPas = txtPassword.Text Then

enter:

success = True

Form3.Show

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

UserName = txtUserName.Text '用户名

UserPas = txtPassword.Text '密码

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

Else

success = False

End If

'如果登陆失败

If success = False Then

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

txtPassword.SetFocus

txtPassword.SelStart = 0

txtPassword.SelLength = Len(txtPassword.Text)

Exit Sub

Else

OK = True

Me.Hide

End If

End Sub

4.主功能界面：

Private Sub Command1_Click()

Data1.Recordset.AddNew

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

'MsgBox "操作成功"

End Sub

Private Sub Command11_Click()

Text26.Text = ""

Text27.Text = ""

End Sub

Private Sub Command2_Click()

DataGrid1.Refresh

DataGrid2.Refresh

DataGrid3.Refresh

Data1.Refresh

Data1.UpdateRecord

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

Adodc1.Refresh

Adodc2.Refresh

Adodc3.Refresh

End Sub

Private Sub Command3_Click()

Data1.Recordset.AddNew

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

End Sub

Private Sub Command4_Click()

DataGrid1.Refresh

DataGrid2.Refresh

DataGrid3.Refresh

Data1.Refresh

Data1.UpdateRecord

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

Adodc1.Refresh

Adodc2.Refresh

Adodc3.Refresh

End Sub

Private Sub Command5_Click()

Data3.Recordset.Edit

Data3.UpdateRecord

Data1.Refresh

MsgBox "确认修改？"

MsgBox "修改成功！"

Adodc1.Refresh

Adodc2.Refresh

Adodc3.Refresh

End Sub

Private Sub Command6_Click()

Data3.Recordset.MovePrevious

End Sub

Private Sub Command7_Click()

Data3.Recordset.MoveNext

End Sub

Private Sub Command8_Click()

Data4.Recordset.MovePrevious

End Sub

Private Sub Command9_Click()

Data4.Recordset.MoveNext

End Sub

Private Sub Command10_Click()

Data4.Recordset.Delete

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

Data4.Refresh

Adodc1.Refresh

Adodc2.Refresh

Adodc3.Refresh

End Sub

Private Sub Command12_Click()

Dim t1 As String, t2 As String

If Option1.Value Then

t1 = Text26.Text

Adodc3.RecordSource = "select * from 产品信息 where 编号='" + t1 + "' "

Adodc3.Refresh

Else

t2 = Text27.Text

Adodc3.RecordSource = "select * from 产品信息 where 品名='" + t2 + "' "

Adodc3.Refresh

End If

End Sub

Private Sub Form_Load()

Adodc1.Visible = False

Adodc2.Visible = False

Adodc3.Visible = False

Data1.Visible = False

Data2.Visible = False

Data3.Visible = False

Data4.Visible = False

End Sub

运行界面：

进入主界面：

注册界面：

登陆界面：

出入库登记界面：

修改界面：

删除界面：

查询界面：

存在问题：

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

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

心得:

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

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

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

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

老师评语：

评分：

相关推荐

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

专栏推荐