《vb课程设计报告-仓库管理系统.pdf》由会员分享，可在线阅读，更多相关《vb课程设计报告-仓库管理系统.pdf（21页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、VB 程序设计实验报告姓名：班级：学号：专业：软件工程指导老师：2010 年 5 月 13 日目录实验题目3 实验要求3 设计思路3 实验流程图3 源程序清单4 运行界面6 存在问题6 解决思路6 心得6 教师评语6 评分6 内容摘要：仓库管理系统要实现注册登录功能，注册模块应连接数据库，在登录时要进入数据库判断是否存在注册用户;进入主功能界面后，有一个主界面，可实现四个小窗体的互相转换；四个小窗体即分别实现了四个功能。实验题目：仓库管理系统实验要求：仓库管理系统要求实现注册登陆功能，对仓库信息的添加、删除和修改，入库和出库的登记和查询操作等。设计思路：把整个系统分为注册、登录、出入库登记、修
2、改、删除、查询等六个模块；其中注册模块连接数据库，登录模块应进入数据库进行判断是否存在注册用户，方可进入主功能界面；出入库登记、修改、删除、查询等四个模块分别用四个小窗体加载在一个主窗体上；并能实现窗体的转换；出入库登记、修改、删除、查询四个模块中都要用到数据库知识；另外还有如何连接的问题。涉及到的界面有：进入主界面、注册界面、登陆界面、主功能界面。实验流程图：进入主窗体注册窗体返回登录窗体主功能窗体出入库登记修 改删除查 询结束源程序清单：1.进入主界面：Private Sub Command1_Click()frmLogin.Show Form1.Hide End Sub Private
3、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
4、 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 a
5、dvapi32.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,lSi
6、ze)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=用户
7、名=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.
8、Show 以下三个变量保存以备后用UserName=txtUserName.Text 用户名UserPas=txtPassword.Text 密码 Purview=Data1.Recordset.Fields(用户权限).Value 权限Else success=False End If End If 如果登陆失败If success=False Then MsgBox 密码错误，再试一次！,vbExclamation,登录 txtPassword.SetFocus txtPassword.SelStart=0 txtPassword.SelLength=Len(txtPassword.Tex
9、t)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 DataG
10、rid3.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
11、.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_
12、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 确认删除？,vbOK
13、Cancel,提示！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 品
14、名=+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语言的知识，动手实践能力有了提高，但同时我也看到了自己的一些不足的地方;首先，因为知识掌握的不够牢固，在编程时要用的的语句之类的不时很清晰；其次，编程的思路还有待提高；最后，在编程调试的时候还需要更多的耐心。老师评语：评分：