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

VB程序设计实验报告姓名：班级：学号：专业：软件工程指导老师：2010年5月13日目录实验题目………………………3实验要求………………………3设计思路………………………3实验流程图………………………3源程序清单………………………4运行界面………………………6存在问题………………………6解决思路………………………6心得………………………6教师评语………………………6评分………………………6内容摘要：仓库管理系统要实现注册登录功能，注册模块应连接数据库，在登录时要进入数据库判断是否存在注册用户;进入主功能界面后，有一个主界面，可实现四个小窗体的互相转换；四个小窗体即分别实现了四个功能。实验题目：仓库管理系统实验要求：仓库管理系统要求实现注册登陆功能，对仓库信息的添加、删除和修改，入库和出库的登记和查询操作等。设计思路：把整个系统分为注册、登录、出入库登记、修改、删除、查询等六个模块；其中注册模块连接数据库，登录模块应进入数据库进行判断是否存在注册用户，方可进入主功能界面；出入库登记、修改、删除、查询等四个模块分别用四个小窗体加载在一个主窗体上；并能实现窗体的转换；出入库登记、修改、删除、查询四个模块中都要用到数据库知识；另外还有如何连接的问题。涉及到的界面有：进入主界面、注册界面、登陆界面、主功能界面。实验流程图：进入主窗体注册窗体返回登录窗体主功能窗体结束查询 删除 修改 出入库登记 结束查询 删除 修改 出入库登记 源程序清单：1.进入主界面：PrivateSubCommand1_Click()frmLogin.ShowForm1.HideEndSubPrivateSubCommand2_Click()Form2.ShowForm1.HideEndSubPrivateSubCommand3_Click()EndEndSub2.注册界面：PrivateSubCommand1_Click()IfText2.Text=Text3.TextThenData1.RefreshData1.Recordset.AddNewMsgBox"注册成功"Text1.Text=""Text2.Text=""Text3.Text=""ElseMsgBox"密码不一致，请重新输入"Text1.Text=""Text2.Text=""Text3.Text=""EndIfEndSubPrivateSubCommand2_Click()Form2.HideForm1.ShowEndSubPrivateSubForm_Load()Data1.Visible=FalseCommand1.Enabled=FalseEndSubPrivateSubText3_Change()IfText3.Text=""ThenCommand1.Enabled=FalseElseCommand1.Enabled=TrueEndIfEndSub3.登录界面：PrivateDeclareFunctionGetUserNameLib"advapi32.dll"Alias"GetUserNameA"(ByVallpbufferAsString,nSizeAsLong)AsLongPublicOKAsBooleanPrivateSubForm_Load()Data1.Visible=FalseDimsBufferAsStringDimlSizeAsLongsBuffer=Space$(255)lSize=Len(sBuffer)CallGetUserName(sBuffer,lSize)IflSize>0ThentxtUserName.Text=Left$(sBuffer,lSize)ElsetxtUserName.Text=vbNullStringEndIf'初始化数据连接'Data1.DatabaseName=DataPath'Data2.RecordSource="用户管理"EndSubPrivateSubcmdCancel_Click()OK=FalseMe.HideEndSubPrivateSubcmdOK_Click()'ToDo:创建测试密码是否正确OnErrorResumeNext'检查正确密码DimsuccessAsBooleansuccess=FalseDimfitAsString'查找用户名fit="用户名='"fit=fit+txtUserName.Text+"'"Data1.Recordset.FindFirstfit'找不到该用户IfData1.Recordset.NoMatchThensuccess=FalseMsgBox"该用户不存在!",vbCriticalExitSubElse'找到该用户，但密码错误OnErrorGoToenterDimOldPasAsStringOldPas=Data1.Recordset.Fields("用户密码").ValueIfOldPas=txtPassword.TextThenenter:success=TrueForm3.Show'以下三个变量保存以备后用UserName=txtUserName.Text'用户名UserPas=txtPassword.Text'密码'Purview=Data1.Recordset.Fields("用户权限").Value'权限Elsesuccess=FalseEndIfEndIf'如果登陆失败Ifsuccess=FalseThenMsgBox"密码错误，再试一次！",vbExclamation,"登录"txtPassword.SetFocustxtPassword.SelStart=0txtPassword.SelLength=Len(txtPassword.Text)ExitSubElseOK=TrueMe.HideEndIfEndSub4.主功能界面：PrivateSubCommand1_Click()Data1.Recordset.AddNewText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""'MsgBox"操作成功"EndSubPrivateSubCommand11_Click()Text26.Text=""Text27.Text=""EndSubPrivateSubCommand2_Click()DataGrid1.RefreshDataGrid2.RefreshDataGrid3.RefreshData1.RefreshData1.UpdateRecordMsgBox"添加成功！",vbOKOnly,"提示"Adodc1.RefreshAdodc2.RefreshAdodc3.RefreshEndSubPrivateSubCommand3_Click()Data1.Recordset.AddNewText5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""EndSubPrivateSubCommand4_Click()DataGrid1.RefreshDataGrid2.RefreshDataGrid3.RefreshData1.RefreshData1.UpdateRecordMsgBox"添加成功！",vbOKOnly,"提示"Adodc1.RefreshAdodc2.RefreshAdodc3.RefreshEndSubPrivateSubCommand5_Click()Data3.Recordset.EditData3.UpdateRecordData1.RefreshMsgBox"确认修改？"MsgBox"修改成功！"Adodc1.RefreshAdodc2.RefreshAdodc3.RefreshEndSubPrivateSubCommand6_Click()Data3.Recordset.MovePreviousEndSubPrivateSubCommand7_Click()Data3.Recordset.MoveNextEndSubPrivateSubCommand8_Click()Data4.Recordset.MovePreviousEndSubPrivateSubCommand9_Click()Data4.Recordset.MoveNextEndSubPrivateSubCommand10_Click()Data4.Recordset.DeleteMsgBox"确认删除？",vbOKCancel,"提示！"Data4.RefreshAdodc1.RefreshAdodc2.RefreshAdodc3.RefreshEndSubPrivateSubCommand12_Click()Dimt1AsString,t2AsStringIfOption1.ValueThent1=Text26.TextAdodc3.RecordSource="select*from产品信息where编号='"+t1+"'"Adodc3.RefreshElset2=Text27.TextAdodc3.RecordSource="select*from产品信息where品名='"+t2+"'"Adodc3.RefreshEndIfEndSubPrivateSubForm_Load()Adodc1.Visible=FalseAdodc2.Visible=FalseAdodc3.Visible=FalseData1.Visible=FalseData2.Visible=FalseData3.Visible=FalseData4.Visible=FalseEndSub运行界面：进入主界面：注册界面：登陆界面：出入库登记界面：修改界面：删除界面：查询界面：存在问题：