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

VB程序设计实验报告 姓 名： 班 级： 学 号： 专 业：软件工程 指导老师： 2010年5月13日 目录 实验题目 ………………………………………………………………………………………3 实验要求 ………………………………………………………………………………………3 设计思路 ………………………………………………………………………………………3 实验流程图 ………………………………………………………………………………………3 源程序清单 ………………………………………………………………………………………4 运行界面 ………………………………………………………………………………………6 存在问题 ………………………………………………………………………………………6 解决思路 ………………………………………………………………………………………6 心得 ………………………………………………………………………………………6 教师评语 ………………………………………………………………………………………6 评分 ………………………………………………………………………………………6 内容摘要： 仓库管理系统要实现注册登录功能，注册模块应连接数据库，在登录时要进入数据库判断是否存在注册用户;进入主功能界面后，有一个主界面，可实现四个小窗体的互相转换；四个小窗体即分别实现了四个功能。 实验题目 ： 仓库管理系统 实验要求 ： 仓库管理系统要求实现注册登陆功能，对仓库信息的添加、删除和修改，入库和出库的登记和查询操作等。 设计思路 ： 把整个系统分为注册、登录、出入库登记、 修改、删除、查询等六个模块；其中注册模块连接数据库，登录模块应进入数据库进行判断是否存在注册用户，方可进入主功能界面；出入库登记、修改、删除、查询等四个模块分别用四个小窗体加载在一个主窗体上；并能实现窗体的转换；出入库登记、修改、删除、查询四个模块中都要用到数据库知识；另外还有如何连接的问题。涉及到的界面有： 进入主界面、注册界面、登陆界面、主功能界面。 实验流程图： 进入主窗体 注册窗体 返回 登录窗体 主功能窗体 结 束 查询 删除 修改 出入库登记 结 束 查询 删除 修改 出入库登记 源程序清单： 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 P