仓库库存管理系统源程序

合集下载

VB(仓库管理系统源代码)

VB(仓库管理系统源代码)

1.请购作业程序PrivateSubComCX_Click()’查询'在"编号"文本框中输入编号,连接数据库,查询编号,并将"编号","品名","规格","单位","单价"的数据分别导入到相应文本框。

SetCN=NewADODB.ConnectionSetRs=NewADODB.RecordsetistSecurityInfo=False"'打开数据库Rs.CursorType=adOpenStatic'制定一个静态游标Rs.LockType=adLockOptimistic'设置锁定模式为开放式Rs.Open"select*fromJLBHwhereFtextBHSJLike'"&"%"&Trim(textBHSJ.Text)&"%" &"'",CNDoEventsDoUntilRs.EOF=TrueIfRs.EOF=FalseThenlistBHSJ1.AddItem(Rs.Fields(0))listPMSJ1.AddItem(Rs.Fields(1))listGGSJ1.AddItem(Rs.Fields(2))listDWSJ1.AddItem(Rs.Fields(3))listDJSJ1.AddItem(Rs.Fields(4))Rs.MoveNextEndIfLoopEndSubPrivateSubcomFHZY_Click()’返回上页frmQGZY.HidefrmCKGLXT.ShowEndSubPrivateSubcomQD_Click()’录入数据IftextBHSJ.Text=""OrtextPMSJ.Text=""OrtextGGSJ.Text=""OrtextDWSJ.Text=""Or textDJSJ.Text=""OrtextQGSLSJ.Text=""ThenMsgBox"请将数据补充完整!"textBHSJ.Text=""textPMSJ.Text=""textGGSJ.Text=""textDWSJ.Text=""textDJSJ.Text=""textQGSLSJ.Text=""ElseDimcnnAsNewConnection,rstAsNewRecordset,fidAsField DimstrSqlAsString,strconnAsStringstrSql="SelecttextBHSJFromqgzywheretextBHSJ='"&Trim(textBHSJ.Text)&"'"cnn.ConnectionString=strconncnn.OpenSetrst=cnn.Execute(strSql)str1="InsertIntoqgzy(textBHSJ,textPMSJ,textGGSJ,textDWSJ,textDJSJ,textQGSJ)" str1=str1+"Values('"&Trim(textBHSJ.Text)&"','"&Trim(textPMSJ.Text)&"','"&Trim( textGGSJ.Text)&"','"&Trim(textDWSJ.Text)&"','"&Trim(textDJSJ.Text)&"','"&Trim (textQGSLSJ.Text)&"')"cnn.Executestr1listBHSJ1.AddItem(Trim(textBHSJ.Text))listPMSJ1.AddItem(Trim(textPMSJ.Text))listGGSJ1.AddItem(Trim(textGGSJ.Text))listDWSJ1.AddItem(Trim(textDWSJ.Text))listDJSJ1.AddItem(Trim(textDJSJ.Text))listQGSLSJ1.AddItem(Trim(textQGSLSJ.Text))MsgBox"数据输入成功!"rst.Closecnn.CloseSetRs=NothingSetCN=NothingtextBHSJ.Text=""textPMSJ.Text=""textGGSJ.Text=""textDWSJ.Text=""textDJSJ.Text=""textQGSLSJ.Text=""EndIfEndSubPrivateSubcomsc_Click()’删除IflistBHSJ1.SelCount>0ThenFori=listBHSJ1.ListCount-1To0Step-1IflistBHSJ1.Selected(i)ThentextBHSJ.Text=listBHSJ1.List(i)textPMSJ.Text=listPMSJ1.List(i)textGGSJ.Text=listGGSJ1.List(i)textDWSJ.Text=listDWSJ1.List(i)textDJSJ.Text=listDJSJ1.List(i)textQGSLSJ.Text=listQGSLSJ1.List(i)EndIfNextEndIfDimcnnAsNewConnection,rstAsNewRecordset,fidAsField DimstrSqlAsString,strconnAsStringstrSql="SelectFtextBHSJFromjlbhwhereFtextBHSJ='"&Trim(textBHSJ.Text)&"'"cnn.ConnectionString=strconncnn.OpenSetrst=cnn.Execute(strSql)Ifrst.EOF=FalseThenstr1="DeletefromqgzywhereFtextBHSJ='"&Trim(textBHSJ.Text)&"'" cnn.Executestr1textBHSJ.Text=""textPMSJ.Text=""textGGSJ.Text=""textDWSJ.Text=""textDJSJ.Text=""textQGSLSJ.Text=""IflistBHSJ1.SelCount>0ThenFori=listBHSJ1.ListCount-1To0Step-1IflistBHSJ1.Selected(i)ThenlistBHSJ1.RemoveItem(i)listPMSJ1.RemoveItem(i)listGGSJ1.RemoveItem(i)listDWSJ1.RemoveItem(i)listDJSJ1.RemoveItem(i)listQGSLSJ1.RemoveItem(i)EndIfNextEndIfMsgBox"数据已删除!"ElseMsgBox"无此数据!"textBHSJ.Text=""textPMSJ.Text=""textGGSJ.Text=""textDWSJ.Text=""textDJSJ.Text=""textQGSLSJ.Text=""EndIfrst.Closecnn.CloseSetRs=NothingSetCN=NothingEndSub‘以下是listbox串连显示PrivateSublistBHSJ1_Click()IflistBHSJ1.SelCount>0ThenFori=listBHSJ1.ListCount-1To0Step-1IflistBHSJ1.Selected(i)Then listPMSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistDJSJ1_Click() IflistDJSJ1.SelCount>0ThenFori=listDJSJ1.ListCount-1To0Step-1 IflistDJSJ1.Selected(i)Then listQGSLSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistDWSJ1_Click() IflistDWSJ1.SelCount>0ThenFori=listDWSJ1.ListCount-1To0Step-1 IflistDWSJ1.Selected(i)Then listDJSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistGGSJ1_Click() IflistGGSJ1.SelCount>0ThenFori=listGGSJ1.ListCount-1To0Step-1 IflistGGSJ1.Selected(i)Then listDWSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistPMSJ1_Click() IflistPMSJ1.SelCount>0ThenFori=listPMSJ1.ListCount-1To0Step-1 IflistPMSJ1.Selected(i)Then listGGSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistQGSLSJ1_Click() IflistQGSLSJ1.SelCount>0ThenFori=listQGSLSJ1.ListCount-1To0Step-1IflistQGSLSJ1.Selected(i)ThenlistBHSJ1.Selected(i)=TrueEndIfNextEndIfEndSub2.增加料号程序PrivateSubcomFHZY_Click()’返回上页frmJLBH.HidefrmCKGLXT.ShowEndSubPrivateSubcomSCBH_Click()’删除IflistBHSJ1.SelCount>0ThenFori=listBHSJ1.ListCount-1To0Step-1IflistBHSJ1.Selected(i)ThentextBHSJ.Text=listBHSJ1.List(i)textPMSJ.Text=listPMSJ1.List(i)textGGSJ.Text=listGGSJ1.List(i)textDWSJ.Text=listDWSJ1.List(i)textDJSJ.Text=listDJSJ1.List(i)EndIfNextEndIfDimcnnAsNewConnection,rstAsNewRecordset,fidAsField DimstrSqlAsString,strconnAsStringstrSql="SelectFtextBHSJFromjlbhwhereFtextBHSJ='"&Trim(textBHSJ.Text)&"'" strconn=strconn&"F:\VB设计专用\仓库数据资料\仓库数据资料.mdb'"cnn.ConnectionString=strconncnn.OpenSetrst=cnn.Execute(strSql)Ifrst.EOF=FalseThenstr1="Delete*fromjlbhwhereFtextBHSJ='"&Trim(textBHSJ.Text)&"'"cnn.Executestr1textBHSJ.Text=""textPMSJ.Text=""textGGSJ.Text=""textDWSJ.Text=""textDJSJ.Text=""IflistBHSJ1.SelCount>0ThenFori=listBHSJ1.ListCount-1To0Step-1IflistBHSJ1.Selected(i)ThenlistBHSJ1.RemoveItem(i)listPMSJ1.RemoveItem(i)listGGSJ1.RemoveItem(i)listDWSJ1.RemoveItem(i)listDJSJ1.RemoveItem(i)EndIfNextEndIfMsgBox"编号已删除!"ElseMsgBox"无此编号!请确认后重新输入"textBHSJ.Text=""textPMSJ.Text=""textGGSJ.Text=""textDWSJ.Text=""textDJSJ.Text=""EndIfrst.Closecnn.CloseSetRs=NothingSetCN=NothingEndSubPrivateSubcomZJBH_Click()’新增料号IftextBHSJ.Text=""OrtextPMSJ.Text=""OrtextGGSJ.Text=""OrtextDWSJ.Text=""Or textDJSJ.Text=""ThenMsgBox"请将数据补充完整!"textBHSJ.Text=""textPMSJ.Text=""textGGSJ.Text=""textDWSJ.Text=""textDJSJ.Text=""ElseDimcnnAsNewConnection,rstAsNewRecordset,fidAsField DimstrSqlAsString,strconnAsStringstrSql="SelectFtextBHSJFromjlbhwhereFtextBHSJ='"&Trim(textBHSJ.Text)&"'" strconn=strconn&"F:\VB设计专用\仓库数据资料\仓库数据资料.mdb'"cnn.ConnectionString=strconncnn.OpenSetrst=cnn.Execute(strSql)Ifrst.EOF=FalseThenMsgBox"该编号已存在,不能追加!"Elsestr1="InsertIntojlbh(FtextBHSJ,FtextPMSJ,FtextGGSJ,FtextDWSJ,FtextDJSJ)"str1=str1+"Values('"&Trim(textBHSJ.Text)&"','"&Trim(textPMSJ.Text)&"','"&Trim( textGGSJ.Text)&"','"&Trim(textDWSJ.Text)&"','"&Trim(textDJSJ.Text)&"')" cnn.Executestr1listBHSJ1.AddItem(Trim(textBHSJ.Text)) listPMSJ1.AddItem(Trim(textPMSJ.Text)) listGGSJ1.AddItem(Trim(textGGSJ.Text)) listDWSJ1.AddItem(Trim(textDWSJ.Text)) listDJSJ1.AddItem(Trim(textDJSJ.Text)) MsgBox"恭喜您,添加成功!"EndIfrst.Closecnn.CloseSetRs=NothingSetCN=NothingtextBHSJ.Text=""textPMSJ.Text=""textGGSJ.Text=""textDWSJ.Text=""textDJSJ.Text=""EndIfEndSub‘以下是listbox循环选中程序PrivateSublistBHSJ1_Click()IflistBHSJ1.SelCount>0ThenFori=listBHSJ1.ListCount-1To0Step-1 IflistBHSJ1.Selected(i)ThenlistPMSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistDJSJ1_Click()IflistDJSJ1.SelCount>0ThenFori=listDJSJ1.ListCount-1To0Step-1 IflistDJSJ1.Selected(i)ThenlistBHSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistDWSJ1_Click()IflistDWSJ1.SelCount>0ThenFori=listDWSJ1.ListCount-1To0Step-1 IflistDWSJ1.Selected(i)ThenlistDJSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistGGSJ1_Click() IflistGGSJ1.SelCount>0ThenFori=listGGSJ1.ListCount-1To0Step-1 IflistGGSJ1.Selected(i)Then listDWSJ1.Selected(i)=TrueEndIfNextEndIfEndSubPrivateSublistPMSJ1_Click() IflistPMSJ1.SelCount>0ThenFori=listPMSJ1.ListCount-1To0Step-1 IflistPMSJ1.Selected(i)Then listGGSJ1.Selected(i)=TrueEndIfNextEndIfEndSub。

java仓库管理系统课程设计源代码

java仓库管理系统课程设计源代码

一、项目背景介绍1.1 仓库管理系统的重要性仓库管理系统是一种对仓库内物品进行全面管理和监控的信息系统。

在现代物流管理中,仓库管理系统扮演着至关重要的角色,可以提高仓库的利用率、降低存货成本、提高物流效率,为企业节省大量人力和物力资源,是企业管理中不可或缺的一部分。

1.2 项目意义本课程设计拟设计并实现一套基于Java语言的仓库管理系统,旨在通过应用软件技术和信息管理技术,实现对进销存等多类业务流程的自动化管理,并在实际操作中验证其运行效果和实用性,为学生提供一种将所学知识应用于实践的机会。

二、系统功能需求2.1 基本功能1) 系统登入:要求用户输入用户名和密码进行登入验证;2) 信息录入:包括商品信息、入库信息、出库信息等的录入;3) 信息查询:可以根据商品编号、名称、类别等条件查询商品信息;4) 库存管理:可以实时查看库存状况,并进行库存的盘点与调剂;5) 报表输出:可以输出商品进销存报表,方便管理人员进行决策;6) 权限管理:不同用户具有不同的权限,管理员具有对系统进行设置的权限。

2.2 进一步功能1) 供应商管理:可以录入供应商信息,并进行供应商的评价和选择;2) 客户管理:可以录入客户信息,并对客户进行分类管理;3) 交易管理:支持交易的生成、记录和统计。

三、技术选型和开发环境3.1 技术选型本系统采用Java语言作为主要开发语言,使用MySQL作为数据库,前端采用Swing技术进行界面设计,后端采用JDBC进行数据传输和交互。

3.2 开发工具1) 开发环境:Eclipse2) 数据库工具:Navicat3) 版本管理工具:Git4) 项目管理工具:Maven四、系统设计4.1 系统架构设计本系统采用MVC(Model-View-Controller)架构,将业务逻辑、数据表示和用户界面分离,使得系统更加易于维护和升级。

4.2 数据库设计1) 商品表:包括商品编号、名称、类别、进价、售价、库存等字段;2) 入库表:包括入库单号、商品编号、数量、日期等字段;3) 出库表:包括出库单号、商品编号、数量、日期等字段;4) 用户表:包括用户名、密码、权限等字段。

仓库管理系统(VB+Access+源代码)

仓库管理系统(VB+Access+源代码)

精心整理仓库管理系统项目的建立这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统,现图文结合的方式一步一步展现制作过程。

由于本人是个初学者,里面存在很多不足之处望得到高手们的指导。

此文可作供初学者们学习交流。

作者联系方式:E-mail最终运行效果打开软件出现如下登录界面输入系统预设用户名及密码(1 1)单击“登录”或单击“新用户”添加新用户进入如下主界面:建立工程1、创建标准EXE2、按“打开”3、添加MDI窗体——打开4、编辑菜单在空白处右击——点击“菜单编辑器”在“标题”里输入“系统”,在“名称”里输入“Sys”(注意此处不能为汉字)点击“下一个”再点击“”“确定”退到MDI界面点击“系统”——“退出”如下,然后编写代码。

代码如下:PrivateSubExit_Click()EndEndSub数据库的建立VB6.0中可以创建Access数据库。

如下建立一个“用户表”的数据库,用来存放用户信息及一些出入库管理信息。

如下图单击“外接程序”再单击“可视化数据管理器”出现如图点击“文件”——“新建”——“MicrosoftAccess”——“Version2.0MDB”输入数据库名,“保存”出现如下图在数据窗口中右击——“新建表”,最终如下往数据表里添加数据在这里就不罗嗦了,请查阅相关书籍。

精心整理精心整理登录界面窗口的建立最终界面如下:1、Adodc1的添加过程为:单击“工程”——“部件”出现下图所示,选择“控件”下的“MicrosoftADODataControl6.0(OLEDB)”单击“确定”在工具栏中会出现“”图标,单击它并拖动到相应位置即可。

其它元件不在一一说明。

2、本窗体代码如下:PrivateSubCommand1_Click() ' “登录”、“确定”按钮IfCommand1.Caption=" 确定"AndCommand2.Caption=" 取消"Then ' 如果为“确定”则添加新用户IfText1.Text=""Then ' 提示用户输入用户名MsgBox" 请输入用户名!",," 登录信息提示:"ExitSubElse 'DimusenameAsString ' 检测用户名是否已经存在DimstrSAsStringusename=Trim(Text1.Text)strS="select*from 用户登录信息表where 用户名='"&usename&"'"mandType=adCmdTextAdodc1.RecordSource=strSAdodc1.RefreshMsgBox" 您输入的用户已存在 !",," 登录提示信息:"Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusExitSubEndIfEndIfIfText2.Text=""Then ' 提示用户密码不能为空MsgBox" 密码不能为空!",," 登录提示信息:"Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox" 请再次输入密码!",," 登录提示信息:"Text3.SetFocusExitSubEndIfIfText2.Text<>Text3.TextThenMsgBox" 两次输入的密码不一致,请确认!",," 登录提示信息:"Text2.Text=""Text3.Text=""Text2.SetFocus精心整理精心整理ExitSubElseMsgBox(" 添加新用户成功,现在您可以登陆系统了!")Label3.Visible=FalseText3.Visible=FalseCommand1.Caption=" 登录"Command2.Caption=" 退出"EndIfElse ' “登录”按钮,用户登录DimstrSnoAsStringDimstrSelectAsStringstrSno=Trim(Text1.Text) ' 检测用户名是否存在strSelect="select 密码from 用户登录信息表where 用户名='"&strSno&"'"mandType=adCmdTextAdodc1.RecordSource=strSelectAdodc1.RefreshMsgBox" 用户名不存在,请重新输入!",," 登录提示信息:"Text1.Text=""Text2.Text=""Text1.SetFocusExitSubEndIfForm1.Hide'UnloadMeForm2.Show'MsgBox" 登陆成功!",," 登录提示信息:"ElseMsgBox" 密码不正确,请重新输入!",," 登录提示信息:"Text2.Text=""Text2.SetFocusEndIfEndIfEndSubPrivateSubCommand2_Click() ' “退出”或“取消”按钮IfCommand2.Caption=" 取消"ThenLabel3.Visible=FalseText3.Visible=FalseCommand1.Caption=" 登录"Command2.Caption=" 退出"Text1.Text=""Text2.Text=""Text1.SetFocusElseEnd'UnloadMeEndIfEndSub精心整理精心整理PrivateSubCommand3_Click() ' “新用户”按钮Label3.Visible=TrueText3.Visible=TrueText1.Text=""Text2.Text=""Text3.Text=""Command1.Caption=" 确定"Command2.Caption=" 取消"Text1.SetFocusEndSubPrivateSubCommand3_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label6.Visible=TrueEndSubPrivateSubCommand3_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label6.Visible=FalseEndSubPrivateSubForm_Load()Label3.Visible=FalseText3.Visible=FalseEndSubPrivateSubTimer1_Timer() ' 时间time1控件的time事件代码,用来' 显示向左移动的欢迎字幕IfLabel4.Left+Label4.Width>0Then ' 当标签右边位置大于0时,标签向左移Label4.MoveLabel4.Left-80Else ' 否则标签从头开始Label4.Left=Form1.ScaleWidthEndIfIfLabel5.Left+Label5.Width>0ThenLabel5.MoveLabel5.Left-80ElseLabel5.Left=Form1.ScaleWidthEndIfEndSub主界面窗体如下:代码:PrivateSubAddNew_Click() Frame1.Visible=TrueFrame2.Visible=FalseEndSubPrivateSubCHKPMCHX_Click()Frame2.Caption=" 出库信息"DimpmAsString精心整理精心整理DimnAsStringpm=InputBox(" 产品名"," 请输入",0)n="select*from 出库表where 品名='"&pm&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCHKXHCHX_Click()Frame2.Caption=" 出库信息"DimXHAsStringDimnAsStringXH=InputBox(" 产品型号"," 请输入",0)n="select*from 出库表where 型号='"&XH&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndSubPrivateSubCKCZ_Click()'Form2.HideForm6.ShowEndSubPrivateSubCKJSHR_Click()Frame2.Caption=" 出库信息"DimJSHRAsStringDimnAsStringJSHR=InputBox(" 经手人"," 请输入",0)n="select*from 出库表where 经手人='"&JSHR&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCKSHJ_Click()Frame2.Caption=" 出库信息"DimCHKRQAsStringDimnAsStringCHKRQ=InputBox(" 出库日期,格式为:月/日/年如:12/1/2011"," 请输入",0) n="select*from 出库表where 出库日期='"&CHKRQ&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCKZCX_Click()Frame2.Caption=" 出库信息" 精心整理精心整理DimZBAsStringZB="select*from 出库表"mandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid1EndSubPrivateSubCommand1_Click()IfText1.Text=""Then ' 提示用户输入用户名MsgBox" 请输入用户名!",," 登录信息提示:"ExitSubElse 'DimusenameAsString ' 检测用户名是否已经存在DimstrSAsStringusename=Trim(Text1.Text)strS="select*from 用户登录信息表where 用户名='"&usename&"'"mandType=adCmdTextAdodc1.RecordSource=strSAdodc1.RefreshMsgBox" 您输入的用户已存在!",," 登录提示信息:"Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusExitSubEndIfEndIfIfText2.Text=""Then ' 提示用户密码不能为空MsgBox" 密码不能为空!",," 登录提示信息:"Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox" 请再次输入密码!",," 登录提示信息:"Text3.SetFocusExitSubEndIfIfText2.Text<>Text3.TextThenMsgBox" 两次输入的密码不一致,请确认!",," 登录提示信息:"Text2.Text=""Text3.Text=""Text2.SetFocusExitSubElseeDimXAsInteger 精心整理精心整理X=MsgBox(" 成功添加新用户,是否要重新登录!",vbYesNo+vbQuestion+vbDefaultButton1," 提示信息!") IfX=vbYesThenUnloadMeForm3.ShowEndIf'MsgBox(" 成功添加新用户!")'Label3.Visible=False'Text3.Visible=False'Command1.Caption=" 登录"'Command2.Caption=" 退出"EndIfFrame1.Visible=FalseFrame2.Visible=TrueText1.Text=""Text2.Text="'"Text3.Text=""'Form3.ShowEndSubPrivateSubCommand2_Click()Frame1.Visible=FalseFrame2.Visible=TrueEndSubPrivateSubCXDL_Click()Form3.Show'UnloadMeEndSubPrivateSubExit_Click()EndUnloadForm1UnloadForm2UnloadForm3UnloadForm4UnloadForm5UnloadForm6UnloadForm7UnloadForm8EndSubPrivateSubForm_Load()UnloadForm1Frame1.Visible=FalseCallInitGrid0Me.Height=MDIForm1.Height-1060 Me.Width=MDIForm1.Width-560Me.Top=MDIForm1.TopMe.Left=MDIForm1.LeftEndSub精心整理精心整理PrivateSubGHCZ_Click()'Form2.HideForm8.ShowEndSubPrivateSubGHPMCX_Click()Frame2.Caption=" 归还信息"DimpmAsStringDimnAsStringpm=InputBox(" 产品名"," 请输入",0)n="select*from 归还表where 品名='"&pm&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHRCX_Click()Frame2.Caption=" 归还信息"DimJCRAsStringDimnAsStringJCR=InputBox(" 归还人"," 请输入",0)n="select*from 归还表where 归还人='"&JCR&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHSJCX_Click()Frame2.Caption=" 归还信息"DimJCRQAsStringDimnAsStringJCRQ=InputBox(" 归还日期,格式为:月/日/年如:12/1/2011"," 请输入",0) n="select*from 归还表where 归还日期='"&JCRQ&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHXHCX_Click()Frame2.Caption=" 归还信息"DimXHAsStringDimnAsStringXH=InputBox(" 产品型号"," 请输入",0) n="select*from 归还表where 型号='"&XH&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.Refresh精心整理精心整理CallInitGrid2EndSubPrivateSubGHZCX_Click()Frame2.Caption=" 归还信息"DimZBAsStringZB="select*from 归还表"mandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCCZ_Click()'Form2.HideForm7.ShowEndSubPrivateSubJCHPMCHX_Click()Frame2.Caption=" 借出信息"DimpmAsStringDimnAsStringpm=InputBox(" 产品名"," 请输入",0)n="select*from 借出表where 品名='"&pm&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCHXHCHX_Click()Frame2.Caption=" 借出信息"DimXHAsStringDimnAsStringXH=InputBox(" 产品型号"," 请输入",0) n="select*from 借出表where 型号='"&XH&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCRCX_Click()Frame2.Caption=" 借出信息"DimJCRAsStringDimnAsStringJCR=InputBox(" 借出人"," 请输入",0) n="select*from 借出表where 借出人='"&JCR&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.Refresh精心整理精心整理CallInitGrid2EndSubPrivateSubJCSHJCX_Click()Frame2.Caption=" 借出信息"DimJCRQAsStringDimnAsStringJCRQ=InputBox(" 借出日期,格式为:月/日/年如:12/1/2011"," 请输入",0) n="select*from 借出表where 借出日期='"&JCRQ&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCZCX_Click()Frame2.Caption=" 借出信息"DimZBAsStringZB="select*from 借出表"mandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid2EndSubPrivateSubJSHRCHX_Click()Frame2.Caption=" 归还信息"DimJSHRAsStringDimnAsStringJSHR=InputBox(" 经手人"," 请输入",0)n="select*from 归还表where 经手人='"&JSHR&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJSHRCX_Click()Frame2.Caption=" 借出信息"DimJSHRAsStringDimnAsStringJSHR=InputBox(" 经手人"," 请输入",0)n="select*from 借出表where 经手人='"&JSHR&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubPMCX_Click()Frame2.Caption=" 库存信息" 精心整理精心整理DimpmAsStringDimnAsStringpm=InputBox(" 产品名"," 请输入",0)n="select*from 库存表where 品名='"&pm&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid0EndSubPrivateSubRKCZ_Click()'Form2.HideForm5.ShowEndSubPrivateSubRKJSHR_Click()Frame2.Caption=" 入库信息"DimJSHRAsStringDimnAsStringJSHR=InputBox(" 经手人"," 请输入",0)n="select*from 入库表where 经手人='"&JSHR&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubRKPMCHX_Click()Frame2.Caption=" 入库信息"DimpmAsStringDimnAsStringpm=InputBox(" 产品名"," 请输入",0)IfLen(pm)>0Thenn="select*from 入库表where 品名='"&pm&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid1EndSubPrivateSubRKSHJ_Click()Frame2.Caption=" 入库信息"DimRKRQAsStringDimnAsStringRKRQ=InputBox(" 入库日期,格式为:月/日/年如:12/1/2011"," 请输入",0) n="select*from 入库表where 入库日期='"&RKRQ&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.Refresh精心整理精心整理CallInitGrid1EndSubPrivateSubRKXHCHX_Click()Frame2.Caption=" 入库信息"DimXHAsStringDimnAsStringXH=InputBox(" 产品型号"," 请输入",0)IfLen(XH)>0Thenn="select*from 入库表where 型号='"&XH&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid1EndSubPrivateSubRKZCX_Click()Frame2.Caption=" 入库信息"DimZBAsStringZB="select*from 入库表"mandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid1EndSubPrivateSubTimer1_Timer()IfLabel4.Left+Label4.Width>0Then ' 当标签右边位置大于0时,标签向左移Label4.MoveLabel4.Left-80Else ' 否则标签从头开始Label4.Left=Form2.ScaleWidthEndIfIfLabel5.Left+Label5.Width>0ThenLabel5.MoveLabel5.Left-80ElseLabel5.Left=Form2.ScaleWidthEndIfIfLabel6.Left+Label6.Width>0ThenLabel6.MoveLabel6.Left-80ElseLabel6.Left=Form2.ScaleWidthEndIfIfLabel7.Left+Label7.Width>0Then Label7.MoveLabel7.Left-80ElseLabel7.Left=Form2.ScaleWidthEndIfEndSub精心整理精心整理PrivateSubXGMM_Click()'Form2.HideForm4.ShowEndSubPrivateSubXHCX_Click()Frame2.Caption=" 库存信息"DimXHAsStringDimnAsStringXH=InputBox(" 产品型号"," 请输入",0) IfLen(XH)>0Then'AndVal(XH)<>0n="select*from 库存表where 型号='"&XH&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid0EndSubPrivateSubZB_Click()Frame2.Caption=" 库存信息"DimZBAsString'DimNAsString'PM=InputBox(" 产品名"," 请输入",0) ZB="select*from 库存表"'where 品名='"&PM&"'"mandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid0EndSubPrivateSubInitGrid0()WithDataGrid1.Columns(0).Width=1600.Columns(1).Width=2200.Columns(2).Width=2200.Columns(3).Width=1000.Columns(4).Width=1000.Columns(5).Width=4000EndWithEndSubPrivateSubInitGrid1()WithDataGrid1.Columns(0).Width=800.Columns(1).Width=1600.Columns(2).Width=1600.Columns(3).Width=800.Columns(4).Width=800.Columns(5).Width=1000 精心整理精心整理.Columns(6).Width=800.Columns(7).Width=4000EndWithEndSubPrivateSubInitGrid2()WithDataGrid1'.Columns(0).Caption=" 学号"'.Columns(1).Caption=" 课程名"'.Columns(2).Caption=" 学分"'.Columns(3).Caption=" 成绩"' 设置DtgCond的列宽.Columns(0).Width=800.Columns(1).Width=1600.Columns(2).Width=1600.Columns(3).Width=800.Columns(4).Width=800.Columns(5).Width=800.Columns(6).Width=1000.Columns(7).Width=800.Columns(8).Width=4000EndWithEndSub用户重新登录界面代码:PrivateSubCommand1_Click()DimstrSnoAsStringDimstrSelectAsStringstrSno=Trim(Text1.Text) ' 检测用户名是否存在strSelect="select 密码from 用户登录信息表where 用户名='"&strSno&"'"mandType=adCmdTextAdodc1.RecordSource=strSelectAdodc1.RefreshMsgBox" 用户名不存在,请重新输入!",," 登录提示信息:"Text1.Text=""Text2.Text=""Text1.SetFocusExitSubEndIfUnloadMeForm2.Show'MsgBox" 登陆成功!",," 登录提示信息:"ElseMsgBox" 密码不正确,请重新输入!",," 登录提示信息:" 精心整理精心整理Text2.Text=""Text2.SetFocusEndIfEndSubPrivateSubCommand2_Click()UnloadMeForm2.ShowEndSub修改用户密码界面代码:PrivateSubCommand1_Click()IfTrim(Text1.Text)<>Form2.TextUserNameThenMsgBox" 用户名不正确,请确认!",," 信息提示!"Text1.Text=""Text1.SetFocusExitSubElseDimnameAsStringDimnamesAsStringname=Trim(Text1.Text)names="select*from 用户登录信息表where 用户名='"&name&"'" mandType=adCmdTextAdodc1.RecordSource=namesAdodc1.RefreshIfText2.Text=""ThenMsgBox" 请输入旧密码!",," 信息提示!"Text2.SetFocusExitSubEndIfMsgBox" 旧密码不正确,请确认!",," 信息提示!"Text2.Text=""Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox" 请输入新密码!",," 信息提示!"Text3.SetFocusExitSubEndIfIfText4.Text=""ThenMsgBox" 请再次输入新密码!",," 信息提示!"Text4.SetFocusExitSub精心整理精心整理EndIfIfTrim(Text3.Text)<>Trim(Text4.Text)ThenMsgBox" 两次输入的新密码不一致!",," 信息提示!"Text3.Text=""Text4.Text=""Text3.SetFocusExitSubElseMsgBox(" 密码修改成功!")UnloadMe'Form2.ShowEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMe'Form2.ShowEndSub入库管理代码:PrivateSubCommand1_Click()IfText1.Text=""AndText2.Text=""ThenMsgBox" “品名”和“型号”不能同时为空,必须输入其中一项 !",," 提示信息!" ExitSubText1.SetFocusElseIfText3.Text=""AndText4.Text=""ThenMsgBox" 请输入产品“数量”或“单位”之一 !",," 提示信息!"Text3.SetFocusExitSubEndIfIfText5.Text=""ThenMsgBox" 请经手人签名!",vbCritical," 提示信息!"Text5.SetFocusExitSubEndIfAdodc1.Refresh EndIf DimpmAsString DimpmsAsString DimnAsString DimmAsStringpm=Trim(Text1.Text) 精心整理精心整理n=Val(Text3.Text)pms="select*from 库存表where 品名='"&pm&"'"WithForm2EndWithElseEndIfEndIfDimXAsIntegerX=MsgBox(" 产品入库登记成功,是否继续添加产品!",vbYesNo+vbQuestion+vbDefaultButton1," 提示信息!") IfX=vbNoThenUnloadMe'Form2.ShowElseText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text1.SetFocusEndIfDimZBAsStringZB="select*from 入库表"'where 品名='"&PM&"'"EndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text1.SetFocusEndSubPrivateSubCommand3_Click()UnloadMe'Form2.ShowEndSub出库管理代码:PrivateSubCommand1_Click()IfCombo1.Text=""AndCombo2.Text=""Then'text1.Text=""AndText2.Text=""Then 精心整理精心整理MsgBox" “品名”和“型号”不能同时为空,必须输入其中一项 !",," 提示信息!" ExitSubElseIfText1.Text=""AndCombo3.Text=""Then'Text4.Text=""ThenMsgBox" 请输入产品“数量”或“单位”之一 !",," 提示信息!"Text2.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox" 请经手人签名!",vbCritical," 提示信息!"Text2.SetFocusExitSubEndIfAdodc1.RefreshEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=Trim(Combo1.Text)n=Val(Text1.Text)pms="select*from 库存表where 品名='"&pm&"'"EndIfDimXAsIntegerX=MsgBox(" 产品出库登记成功,是否继续添加产品!",vbYesNo+vbQuestion+vbDefaultButton1," 提示信息!") IfX=vbNoThenUnloadMe'Form2.ShowEndIfCombo1.Text=""Combo2.Text=""Combo3.Text=""Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""DimZBAsStringZB="select*from 出库表"'where 品名='"&PM&"'" EndSubPrivateSubCommand2_Click()Combo1.Text=""Combo2.Text=""Combo3.Text=""Text1.Text=""Text2.Text=""Text3.Text=""精心整理精心整理Text4.Text=""EndSubPrivateSubCommand3_Click()UnloadMe'Form2.ShowEndSubPrivateSubForm_Load()Adodc2.RefreshLoopEndSub借出管理代码:PrivateSubCommand1_Click()IfCombo1.Text=""AndCombo2.Text=""Then'text1.Text=""AndText2.Text=""Then MsgBox" “品名”和“型号”不能同时为空,必须输入其中一项 !",," 提示信息!" ExitSubElseIfText1.Text=""AndCombo3.Text=""Then'Text4.Text=""ThenMsgBox" 请输入产品“数量”或“单位”之一 !",," 提示信息!"Text1.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox" 请经手人签名!",vbCritical," 提示信息!"Text2.SetFocusExitSubEndIfAdodc1.RefreshEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=Trim(Combo1.Text)n=Val(Text1.Text)pms="select*from 库存表where 品名='"&pm&"'"EndIfDimXAsIntegerX=MsgBox(" 产品借出登记成功,是否继续添加产品!",vbYesNo+vbQuestion+vbDefaultButton1," 提示信息!") IfX=vbNoThenUnloadMeForm2.ShowEndIf精心整理精心整理Combo1.Text=""Combo2.Text=""Combo3.Text=""Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""DimZBAsStringZB="select*from 借出表"'where 品名='"&PM&"'"EndSubPrivateSubCommand2_Click()Combo1.Text=""Combo2.Text=""Combo3.Text=""Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubCommand3_Click()UnloadMeForm2.ShowEndSubPrivateSubForm_Load()Adodc2.RefreshLoopEndSub归还管理代码:PrivateSubCommand1_Click()IfCombo1.Text=""AndCombo2.Text=""Then'text1.Text=""AndText2.Text=""Then MsgBox" “品名”和“型号”不能同时为空,必须输入其中一项 !",," 提示信息!" ExitSubElseIfText1.Text=""AndCombo3.Text=""Then'Text4.Text=""ThenMsgBox" 请输入产品“数量”或“单位”之一 !",," 提示信息!"Text1.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox" 请经手人签名!",vbCritical," 提示信息!"Text2.SetFocusExitSub精心整理精心整理EndIfIfText3.Text=""ThenMsgBox" 请输入归还人姓名!",vbCritical," 提示信息!"Text3.SetFocusExitSubEndIfAdodc1.RefreshEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=Trim(Combo1.Text)n=Val(Text1.Text)pms="select*from 库存表where 品名='"&pm&"'"EndIfDimXAsIntegerX=MsgBox(" 产品归还登记成功,是否继续添加产品!",vbYesNo+vbQuestion+vbDefaultButton1," 提示信息!") IfX=vbNoThenUnloadMeForm2.ShowEndIfCombo1.Text=""Combo2.Text=""Combo3.Text=""Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""DimZBAsStringZB="select*from 归还表"'where 品名='"&PM&"'"EndSubPrivateSubCommand2_Click()Combo1.Text=""Combo2.Text=""Combo3.Text=""Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSub PrivateSubCommand3_Click() UnloadMeForm2.ShowEndSubPrivateSubForm_Load()精心整理精心整理'DimiAsString'i=0'Adodc2.Refresh'i=i+1'LoopCallpmEndSubPrivateSubpm() DimiAsVariant DimjAsVariant DimkAsVariant DimaAsVariant DimbAsVariant DimcAsVariant DimsAsVariant DimDAsVarianti=0j=0Adodc2.Refreshi=i+1LoopD=Split(a,",")Ifj<iThens=D(2)Combo1.AddItems'k=0'Ifk<jAndD(k)<>D(j)Then'IfD(k)<>D(j)Then'C ombo1.AddItemD(j)'k=k+1'Else'k=k+1'EndIf'EndIfj=j+1EndIfText5.Text=s'a+","+D(2)+D(1)'+""+Val(i)+""+Val(j)+""+Val(k) Text6.Text=j'Combo1.AddItemD(1)EndSub精心整理。

毕业设计+仓库管理系统+JAVA源代码++设计说明

毕业设计+仓库管理系统+JAVA源代码++设计说明

计算机与通信学院本科生毕业设计说明书仓库管理系统作者:曹亚磊学号:05240207专业:计算机科学与技术班级:05级软件工程(2)指导教师:曹来成答辩时间:2009年6月仓库管理系统Storage Management System曹亚磊(Cao Yalei)05240207前言随着科学技术的不断发展,我们的社会已经进入了一个信息化的社会,人们每天都要接收大量的信息和处理大量的数据,仅靠传统的纸和笔已不能适应这个时代的要求,人们必须采取新的手段,于是信息技术进入我们的生活,计算机不再是简单的计算工具,它已成为我们生活中处理大量信息的不可或缺的手段。

在当今产业竞争越来越激烈的信息时代,企业经营除了降低成本,提高品质外,更需要以先进的管理理念来整合企业内部与外部资源。

仓库管理系统正是在这个背景下产生的。

本系统正是针对仓库部门的货物信息管理,通过对仓库基本信息﹑出入库信息等的系统界面设计,将会给管理者带来极大的方便,具有手工管理无法比拟的优点,例如检索速度快、查找方便、可靠性高、存储量大、使用时间长等。

用计算机管理取代传统的手工操作,大大减少了管理人员的工作量,提高了工作效率,为获取详细的管理信息提供了保证,方便各类人员的查询和信息保证,增强了管理工作的时效和人员主动性。

仓库管理主要摆阔两方面:一是仓库的基本信息,涉及人员信息、库房信息、供货商信息、客户信息;另一项是仓库业务管理,包括入库管理、在库管理、出库管理、报表管理。

在本系统中侧重实现仓库的基本信息管理。

摘要仓库管理系统是为了实现企业产品管理的系统化、规范化和自动化,从而提高企业管理效率而设计的。

它完全取代了原来一直用人工管理的工作方式,避免了由于管理人员的工作疏忽以及管理质量问题所造成的各种错误,为及时、准确、高效的完成仓库管理提供了强有力的工具和管理手段。

仓库管理系统是一个中小型数据库管理系统,它界面美观、操作简单、安全性高,基本满足了仓库管理的要求。

仓库管理系统(VB Access 源代码)

仓库管理系统(VB Access 源代码)

仓库管理系统项目的建立这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统,现图文结合的方式一步一步展现制作过程。

由于本人是个初学者,里面存在很多不足之处望得到高手们的指导。

此文可作供初学者们学习交流。

作者联系方式:E-mail luo.shiye@ QQ:1355044347最终运行效果打开软件出现如下登录界面主界面:1、创建标准EXE2、按“打开”3、添加MDI窗体——打开4、编辑菜单在空白处右击——点击“菜单编辑器”在“标题”里输入“系统”,在“名称”里输入“Sys”(注意此处不能为汉字)点击“下一个”再点击“”“确定”退到MDI界面点击“系统”——“退出”如下,然后编写代码。

代码如下:Private Sub Exit_Click()EndEnd Sub数据库的建立VB6.0中可以创建Access数据库。

如下建立一个“用户表”的数据库,用来存放用户信息及一些出入库管理信息。

如下图单击“外接程序”再单击“可视化数据管理器”出现如图点击“文件”——“新建”——“Microsoft Access”——“Version 2.0 MDB”输入数据库名,“保存”出现如下图在数据窗口中右击——“新建表”,最终如下往数据表里添加数据在这里就不罗嗦了,请查阅相关书籍。

登录界面窗口的建立最终界面如下:1、Adodc1的添加过程为:单击“工程”——“部件”出现下图所示,选择“控件”下的“Microsoft ADO Data Control 6.0 (OLEDB)”单击“确定”在工具栏中会出现“”图标,单击它并拖动到相应位置即可。

其它元件不在一一说明。

2、本窗体代码如下:Private Sub Command1_Click() '“登录”、“确定”按钮 If Command1.Caption = "确定" And Command2.Caption = "取消" Then '如果为“确定”则添加新用户 If Text1.Text = "" Then '提示用户输入用户名MsgBox "请输入用户名!", , "登录信息提示:"Exit SubElse 'Dim usename As String '检测用户名是否已经存在 Dim strS As Stringusename = Trim(Text1.Text)strS = "select * from 用户登录信息表 where 用户名='" & usename & "'"mandType = adCmdTextAdodc1.RecordSource = strSAdodc1.RefreshIf Adodc1.Recordset.EOF = False ThenMsgBox "您输入的用户已存在!", , "登录提示信息:"Text1.Text = ""Text3.Text = ""Text1.SetFocusExit SubEnd IfEnd IfIf Text2.Text = "" Then '提示用户密码不能为空MsgBox "密码不能为空!", , "登录提示信息:"Text2.SetFocusExit SubEnd IfIf Text3.Text = "" ThenMsgBox "请再次输入密码!", , "登录提示信息:"Text3.SetFocusExit SubEnd IfIf Text2.Text <> Text3.Text ThenMsgBox "两次输入的密码不一致,请确认!", , "登录提示信息:"Text2.Text = ""Text3.Text = ""Text2.SetFocusExit SubElseAdodc1.Recordset.AddNew '添加新用户Adodc1.Recordset.Fields("用户名") = Trim(Text1.Text)Adodc1.Recordset.Fields("密码") = Trim(Text2.Text)Adodc1.Recordset.UpdateMsgBox ("添加新用户成功,现在您可以登陆系统了!")Label3.Visible = FalseText3.Visible = FalseCommand1.Caption = "登录"Command2.Caption = "退出"End IfElse '“登录”按钮,用户登录 Dim strSno As StringDim strSelect As StringstrSno = Trim(Text1.Text) '检测用户名是否存在strSelect = "select 密码 from 用户登录信息表 where 用户名 = '" & strSno & "'"mandType = adCmdTextAdodc1.RecordSource = strSelectAdodc1.RefreshIf Adodc1.Recordset.EOF = True ThenMsgBox "用户名不存在,请重新输入!", , "登录提示信息:"Text1.Text = ""Text1.SetFocusExit SubEnd IfIf Adodc1.Recordset.Fields("密码") = Trim(Text2.Text) Then '检测密码是否正确Form1.Hide'Unload MeForm2.Show'MsgBox "登陆成功!", , "登录提示信息:"ElseMsgBox "密码不正确,请重新输入!", , "登录提示信息:"Text2.Text = ""Text2.SetFocusEnd IfEnd IfEnd SubPrivate Sub Command2_Click() '“退出”或“取消”按钮 If Command2.Caption = "取消" ThenLabel3.Visible = FalseText3.Visible = FalseCommand1.Caption = "登录"Command2.Caption = "退出"Text1.Text = ""Text2.Text = ""Text1.SetFocusElseEnd 'Unload MeEnd IfEnd SubPrivate Sub Command3_Click() '“新用户”按钮Label3.Visible = TrueText3.Visible = TrueText1.Text = ""Text2.Text = ""Text3.Text = ""Command1.Caption = "确定"Command2.Caption = "取消"Text1.SetFocusEnd SubPrivate Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Label6.Visible = TrueEnd SubPrivate Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Label6.Visible = FalseEnd SubPrivate Sub Form_Load()Label3.Visible = FalseText3.Visible = FalseEnd SubPrivate Sub Timer1_Timer() '时间time1控件的time事件代码,用来'显示向左移动的欢迎字幕If Label4.Left + Label4.Width > 0 Then '当标签右边位置大于0时,标签向左移Label4.Move Label4.Left - 80Else '否则标签从头开始Label4.Left = Form1.ScaleWidthEnd IfIf Label5.Left + Label5.Width > 0 ThenLabel5.Move Label5.Left - 80ElseLabel5.Left = Form1.ScaleWidthEnd IfEnd Sub主界面窗体如下:代码:Private Sub AddNew_Click()Frame1.Visible = TrueFrame2.Visible = FalseEnd SubPrivate Sub CHKPMCHX_Click()Frame2.Caption = "出库信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 出库表 where 品名 = '" & pm & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub CHKXHCHX_Click()Frame2.Caption = "出库信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)n = "select * from 出库表 where 型号 = '" & XH & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd SubPrivate Sub CKCZ_Click()'Form2.HideForm6.ShowEnd SubPrivate Sub CKJSHR_Click()Frame2.Caption = "出库信息"Dim JSHR As StringDim n As StringJSHR = InputBox("经手人", "请输入", 0)n = "select * from 出库表 where 经手人 = '" & JSHR & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub CKSHJ_Click()Frame2.Caption = "出库信息"Dim CHKRQ As StringDim n As StringCHKRQ = InputBox("出库日期,格式为:月/日/年如:12/1/2011", "请输入", 0)n = "select * from 出库表 where 出库日期 = '" & CHKRQ & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub CKZCX_Click()Frame2.Caption = "出库信息"Dim ZB As StringZB = "select * from 出库表 "mandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid1End SubPrivate Sub Command1_Click()If Text1.Text = "" Then '提示用户输入用户名MsgBox "请输入用户名!", , "登录信息提示:"Exit SubElse 'Dim usename As String '检测用户名是否已经存在 Dim strS As Stringusename = Trim(Text1.Text)strS = "select * from 用户登录信息表 where 用户名='" & usename & "'"mandType = adCmdTextAdodc1.RecordSource = strSAdodc1.RefreshIf Adodc1.Recordset.EOF = False ThenMsgBox "您输入的用户已存在!", , "登录提示信息:"Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusExit SubEnd IfEnd IfIf Text2.Text = "" Then '提示用户密码不能为空 MsgBox "密码不能为空!", , "登录提示信息:"Text2.SetFocusExit SubEnd IfIf Text3.Text = "" ThenMsgBox "请再次输入密码!", , "登录提示信息:"Text3.SetFocusExit SubEnd IfIf Text2.Text <> Text3.Text ThenMsgBox "两次输入的密码不一致,请确认!", , "登录提示信息:"Text2.Text = ""Text3.Text = ""Text2.SetFocusExit SubElseAdodc1.Recordset.AddNew '添加新用户Adodc1.Recordset.Fields("用户名") = Trim(Text1.Text)Adodc1.Recordset.Fields("密码") = Trim(Text2.Text)Adodc1.Recordset.UpdateDim X As IntegerX = MsgBox("成功添加新用户,是否要重新登录!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbYes ThenUnload MeForm3.ShowEnd If'MsgBox ("成功添加新用户!")'Label3.Visible = False'Text3.Visible = False'Command1.Caption = "登录"'Command2.Caption = "退出"End IfFrame1.Visible = FalseFrame2.Visible = TrueText1.Text = ""Text2.Text = "'"Text3.Text = ""'Form3.ShowEnd SubPrivate Sub Command2_Click()Frame1.Visible = FalseFrame2.Visible = TrueEnd SubPrivate Sub CXDL_Click()Form3.Show'Unload MeEnd SubPrivate Sub Exit_Click()EndUnload Form1Unload Form3Unload Form4Unload Form5Unload Form6Unload Form7Unload Form8End SubPrivate Sub Form_Load()TextUserName = Trim(Form1.Text1.Text)Unload Form1Frame1.Visible = FalseCall InitGrid0Me.Height = MDIForm1.Height - 1060Me.Width = MDIForm1.Width - 560Me.Top = MDIForm1.TopMe.Left = MDIForm1.LeftEnd SubPrivate Sub GHCZ_Click()'Form2.HideForm8.ShowEnd SubPrivate Sub GHPMCX_Click()Frame2.Caption = "归还信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 归还表 where 品名 = '" & pm & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub GHRCX_Click()Frame2.Caption = "归还信息"Dim JCR As StringDim n As StringJCR = InputBox("归还人", "请输入", 0)n = "select * from 归还表 where 归还人 = '" & JCR & "'" mandType = adCmdTextAdodc2.RecordSource = nCall InitGrid2End SubPrivate Sub GHSJCX_Click()Frame2.Caption = "归还信息"Dim JCRQ As StringDim n As StringJCRQ = InputBox("归还日期,格式为:月/日/年如:12/1/2011", "请输入", 0) n = "select * from 归还表 where 归还日期 = '" & JCRQ & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub GHXHCX_Click()Frame2.Caption = "归还信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)n = "select * from 归还表 where 型号 = '" & XH & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub GHZCX_Click()Frame2.Caption = "归还信息"Dim ZB As StringZB = "select * from 归还表 "mandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid2End SubPrivate Sub JCCZ_Click()'Form2.HideForm7.ShowEnd SubPrivate Sub JCHPMCHX_Click()Frame2.Caption = "借出信息"Dim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 借出表 where 品名 = '" & pm & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub JCHXHCHX_Click()Frame2.Caption = "借出信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)n = "select * from 借出表 where 型号 = '" & XH & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub JCRCX_Click()Frame2.Caption = "借出信息"Dim JCR As StringDim n As StringJCR = InputBox("借出人", "请输入", 0)n = "select * from 借出表 where 借出人 = '" & JCR & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub JCSHJCX_Click()Frame2.Caption = "借出信息"Dim JCRQ As StringDim n As StringJCRQ = InputBox("借出日期,格式为:月/日/年如:12/1/2011", "请输入", 0) n = "select * from 借出表 where 借出日期 = '" & JCRQ & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub JCZCX_Click()Frame2.Caption = "借出信息"ZB = "select * from 借出表 "mandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid2End SubPrivate Sub JSHRCHX_Click()Frame2.Caption = "归还信息"Dim JSHR As StringDim n As StringJSHR = InputBox("经手人", "请输入", 0)n = "select * from 归还表 where 经手人 = '" & JSHR & "'" mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub JSHRCX_Click()Frame2.Caption = "借出信息"Dim JSHR As StringDim n As StringJSHR = InputBox("经手人", "请输入", 0)n = "select * from 借出表 where 经手人 = '" & JSHR & "'" mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub PMCX_Click()Frame2.Caption = "库存信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 库存表 where 品名 = '" & pm & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid0End SubPrivate Sub RKCZ_Click()'Form2.HideForm5.ShowEnd SubPrivate Sub RKJSHR_Click()Frame2.Caption = "入库信息"Dim JSHR As StringDim n As StringJSHR = InputBox("经手人", "请输入", 0)n = "select * from 入库表 where 经手人 = '" & JSHR & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub RKPMCHX_Click()Frame2.Caption = "入库信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)If Len(pm) > 0 Thenn = "select * from 入库表 where 品名 = '" & pm & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd IfCall InitGrid1End SubPrivate Sub RKSHJ_Click()Frame2.Caption = "入库信息"Dim RKRQ As StringDim n As StringRKRQ = InputBox("入库日期,格式为:月/日/年如:12/1/2011", "请输入", 0) n = "select * from 入库表 where 入库日期 = '" & RKRQ & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub RKXHCHX_Click()Frame2.Caption = "入库信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)If Len(XH) > 0 Thenn = "select * from 入库表 where 型号 = '" & XH & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd IfCall InitGrid1End SubPrivate Sub RKZCX_Click()Frame2.Caption = "入库信息"Dim ZB As StringZB = "select * from 入库表 "mandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid1End SubPrivate Sub Timer1_Timer()If Label4.Left + Label4.Width > 0 Then '当标签右边位置大于0时,标签向左移Label4.Move Label4.Left - 80Else '否则标签从头开始Label4.Left = Form2.ScaleWidthEnd IfIf Label5.Left + Label5.Width > 0 ThenLabel5.Move Label5.Left - 80ElseLabel5.Left = Form2.ScaleWidthEnd IfIf Label6.Left + Label6.Width > 0 ThenLabel6.Move Label6.Left - 80ElseLabel6.Left = Form2.ScaleWidthEnd IfIf Label7.Left + Label7.Width > 0 ThenLabel7.Move Label7.Left - 80ElseLabel7.Left = Form2.ScaleWidthEnd IfEnd SubPrivate Sub XGMM_Click()'Form2.HideForm4.ShowEnd SubPrivate Sub XHCX_Click()Frame2.Caption = "库存信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)If Len(XH) > 0 Then 'And Val(XH) <> 0n = "select * from 库存表 where 型号 = '" & XH & "'" mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd IfCall InitGrid0End SubPrivate Sub ZB_Click()Frame2.Caption = "库存信息"Dim ZB As String'Dim N As String'PM = InputBox("产品名", "请输入", 0)ZB = "select * from 库存表 " 'where 品名 = '" & PM & "'" mandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid0End SubPrivate Sub InitGrid0()With DataGrid1.Columns(0).Width = 1600.Columns(1).Width = 2200.Columns(2).Width = 2200.Columns(3).Width = 1000.Columns(4).Width = 1000.Columns(5).Width = 4000End WithEnd SubPrivate Sub InitGrid1()With DataGrid1.Columns(0).Width = 800.Columns(1).Width = 1600.Columns(2).Width = 1600.Columns(3).Width = 800.Columns(4).Width = 800.Columns(5).Width = 1000.Columns(6).Width = 800.Columns(7).Width = 4000End WithEnd SubPrivate Sub InitGrid2()With DataGrid1'.Columns(0).Caption = "学号"' .Columns(1).Caption = "课程名"'.Columns(2).Caption = "学分"' .Columns(3).Caption = "成绩"'设置DtgCond的列宽.Columns(0).Width = 800.Columns(1).Width = 1600.Columns(2).Width = 1600.Columns(3).Width = 800.Columns(4).Width = 800.Columns(5).Width = 800.Columns(6).Width = 1000.Columns(7).Width = 800.Columns(8).Width = 4000End WithEnd Sub用户重新登录界面代码:Private Sub Command1_Click()Dim strSno As StringDim strSelect As StringstrSno = Trim(Text1.Text) '检测用户名是否存在 strSelect = "select 密码 from 用户登录信息表 where 用户名 = '" & strSno & "'"mandType = adCmdTextAdodc1.RecordSource = strSelectAdodc1.RefreshIf Adodc1.Recordset.EOF = True ThenMsgBox "用户名不存在,请重新输入!", , "登录提示信息:"Text1.Text = ""Text2.Text = ""Text1.SetFocusExit SubEnd IfIf Adodc1.Recordset.Fields("密码") = Trim(Text2.Text) Then '检测密码是否正确 Unload MeForm2.Show'MsgBox "登陆成功!", , "登录提示信息:"ElseMsgBox "密码不正确,请重新输入!", , "登录提示信息:"Text2.Text = ""Text2.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()Unload MeForm2.ShowEnd Sub修改用户密码界面代码:Private Sub Command1_Click()If Trim(Text1.Text) <> Form2.TextUserName ThenMsgBox "用户名不正确,请确认!", , "信息提示!"Text1.Text = ""Text1.SetFocusExit SubElseDim name As StringDim names As Stringname = Trim(Text1.Text)names = "select * from 用户登录信息表 where 用户名='" & name & "'" mandType = adCmdTextAdodc1.RecordSource = namesAdodc1.RefreshIf Text2.Text = "" ThenMsgBox "请输入旧密码!", , "信息提示!"Text2.SetFocusExit SubEnd IfIf Adodc1.Recordset.Fields("密码") <> Trim(Text2.Text) ThenMsgBox "旧密码不正确,请确认!", , "信息提示!"Text2.Text = ""Text2.SetFocusExit SubEnd IfIf Text3.Text = "" ThenMsgBox "请输入新密码!", , "信息提示!"Text3.SetFocusExit SubEnd IfIf Text4.Text = "" ThenMsgBox "请再次输入新密码!", , "信息提示!"Text4.SetFocusExit SubEnd IfIf Trim(Text3.Text) <> Trim(Text4.Text) ThenMsgBox "两次输入的新密码不一致!", , "信息提示!"Text3.Text = ""Text4.Text = ""Text3.SetFocusExit SubElseAdodc1.Recordset.Fields("密码") = Trim(Text3.Text)Adodc1.Recordset.UpdateMsgBox ("密码修改成功!")Unload Me'Form2.ShowEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Unload Me'Form2.ShowEnd Sub入库管理代码:Private Sub Command1_Click()If Text1.Text = "" And Text2.Text = "" ThenMsgBox "“品名”和“型号”不能同时为空,必须输入其中一项!", , "提示信息!"Exit SubText1.SetFocusElseIf Text3.Text = "" And Text4.Text = "" ThenMsgBox "请输入产品“数量”或“单位”之一!", , "提示信息!"Text3.SetFocusExit SubEnd IfIf Text5.Text = "" ThenMsgBox "请经手人签名!", vbCritical, "提示信息!"Text5.SetFocusExit SubEnd IfAdodc1.RefreshAdodc1.Recordset.AddNew '添加 Adodc1.Recordset.Fields("品名") = Trim(Text1.Text)Adodc1.Recordset.Fields("型号") = Trim(Text2.Text)Adodc1.Recordset.Fields("数量") = Trim(Text3.Text)Adodc1.Recordset.Fields("单位") = Trim(Text4.Text)Adodc1.Recordset.Fields("经手人") = Trim(Text5.Text)Adodc1.Recordset.Fields("入库日期") = DateAdodc1.Recordset.Fields("说明") = Trim(Text7.Text)Adodc1.Recordset.UpdateEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trim(Text1.Text)n = Val(Text3.Text)pms = "select * from 库存表 where 品名='" & pm & "'"mandType = adCmdTextForm2.Adodc2.RecordSource = pmsForm2.Adodc2.RefreshIf Form2.Adodc2.Recordset.EOF ThenWith Form2.Adodc2.Recordset.AddNew.Adodc2.Recordset.Fields("品名") = Trim(Text1.Text).Adodc2.Recordset.Fields("型号") = Trim(Text2.Text).Adodc2.Recordset.Fields("数量") = Trim(Text3.Text).Adodc2.Recordset.Fields("单位") = Trim(Text4.Text).Adodc2.Recordset.Fields("说明") = Trim(Text7.Text).Adodc2.Recordset.UpdateEnd WithElsem = Form2.Adodc2.Recordset.Fields("数量").ValueIf Form2.Adodc2.Recordset.Fields("型号") = Trim(Text2.Text) ThenForm2.Adodc2.Recordset.Fields("数量") = Val(m) + Val(n)Form2.Adodc2.Recordset.UpdateEnd IfEnd IfDim X As IntegerX = MsgBox("产品入库登记成功,是否继续添加产品!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbNo ThenUnload Me'Form2.ShowElseText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text1.SetFocusEnd IfForm2.Frame2.Caption = "入库信息"Dim ZB As StringZB = "select * from 入库表 " 'where 品名 = '" & PM & "'"mandType = adCmdTextForm2.Adodc2.RecordSource = ZBForm2.Adodc2.RefreshEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text1.SetFocusEnd SubPrivate Sub Command3_Click()Unload Me'Form2.ShowEnd Sub出库管理代码:Private Sub Command1_Click()If Combo1.Text = "" And Combo2.Text = "" Then ' text1.Text = "" And Text2.Text = "" Then MsgBox "“品名”和“型号”不能同时为空,必须输入其中一项!", , "提示信息!"Exit SubElseIf Text1.Text = "" And Combo3.Text = "" Then ' Text4.Text = "" ThenMsgBox "请输入产品“数量”或“单位”之一!", , "提示信息!"Text2.SetFocusExit SubEnd IfIf Text2.Text = "" ThenMsgBox "请经手人签名!", vbCritical, "提示信息!"Text2.SetFocusExit SubEnd IfAdodc1.RefreshAdodc1.Recordset.AddNew '添加Adodc1.Recordset.Fields("品名") = Trim(Combo1.Text) 'Trim(Text1.Text)Adodc1.Recordset.Fields("型号") = Trim(Combo2.Text) 'Trim(Text2.Text)Adodc1.Recordset.Fields("数量") = Trim(Text1.Text)Adodc1.Recordset.Fields("单位") = Trim(Combo3.Text) 'Trim(Text4.Text)Adodc1.Recordset.Fields("经手人") = Trim(Text2.Text)Adodc1.Recordset.Fields("出库日期") = DateAdodc1.Recordset.Fields("说明") = Trim(Text4.Text)Adodc1.Recordset.UpdateEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trim(Combo1.Text)n = Val(Text1.Text)pms = "select * from 库存表 where 品名='" & pm & "'"mandType = adCmdTextForm2.Adodc2.RecordSource = pmsForm2.Adodc2.Refreshm = Form2.Adodc2.Recordset.Fields("数量").ValueIf Form2.Adodc2.Recordset.Fields("型号") = Trim(Combo2.Text) ThenForm2.Adodc2.Recordset.Fields("数量") = Val(m) - Val(n)Form2.Adodc2.Recordset.UpdateEnd IfDim X As IntegerX = MsgBox("产品出库登记成功,是否继续添加产品!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbNo ThenUnload Me'Form2.ShowEnd IfCombo1.Text = ""Combo2.Text = ""Combo3.Text = ""Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Form2.Frame2.Caption = "出库信息"Dim ZB As StringZB = "select * from 出库表 " 'where 品名 = '" & PM & "'" mandType = adCmdTextForm2.Adodc2.RecordSource = ZBForm2.Adodc2.RefreshEnd SubPrivate Sub Command2_Click()Combo1.Text = ""Combo2.Text = ""Combo3.Text = ""Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Command3_Click()Unload Me'Form2.ShowEnd SubPrivate Sub Form_Load()Adodc2.RefreshAdodc2.Recordset.MoveFirstDo Until Adodc2.Recordset.EOFCombo2.AddItem Adodc2.Recordset.Fields("型号")Combo1.AddItem Adodc2.Recordset.Fields("品名")Combo3.AddItem Adodc2.Recordset.Fields("单位")Adodc2.Recordset.MoveNextLoopEnd Sub借出管理代码:Private Sub Command1_Click()If Combo1.Text = "" And Combo2.Text = "" Then ' text1.Text = "" And Text2.Text = "" Then MsgBox "“品名”和“型号”不能同时为空,必须输入其中一项!", , "提示信息!"Exit SubElseIf Text1.Text = "" And Combo3.Text = "" Then ' Text4.Text = "" ThenMsgBox "请输入产品“数量”或“单位”之一!", , "提示信息!"Text1.SetFocusExit SubEnd IfIf Text2.Text = "" ThenMsgBox "请经手人签名!", vbCritical, "提示信息!"Text2.SetFocusExit SubEnd IfAdodc1.RefreshAdodc1.Recordset.AddNew '添加Adodc1.Recordset.Fields("品名") = Trim(Combo1.Text) 'Trim(Text1.Text)Adodc1.Recordset.Fields("型号") = Trim(Combo2.Text) 'Trim(Text2.Text)Adodc1.Recordset.Fields("数量") = Trim(Text1.Text)Adodc1.Recordset.Fields("单位") = Trim(Combo3.Text) 'Trim(Text4.Text)Adodc1.Recordset.Fields("经手人") = Trim(Text2.Text)Adodc1.Recordset.Fields("借出人") = Trim(Text3.Text)Adodc1.Recordset.Fields("借出日期") = DateAdodc1.Recordset.Fields("说明") = Trim(Text4.Text)Adodc1.Recordset.UpdateEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trim(Combo1.Text)n = Val(Text1.Text)pms = "select * from 库存表 where 品名='" & pm & "'"mandType = adCmdTextForm2.Adodc2.RecordSource = pmsForm2.Adodc2.Refreshm = Form2.Adodc2.Recordset.Fields("数量").ValueIf Form2.Adodc2.Recordset.Fields("型号") = Trim(Combo2.Text) ThenForm2.Adodc2.Recordset.Fields("数量") = Val(m) - Val(n)Form2.Adodc2.Recordset.UpdateEnd IfDim X As IntegerX = MsgBox("产品借出登记成功,是否继续添加产品!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbNo ThenUnload MeForm2.ShowEnd IfCombo1.Text = ""Combo2.Text = ""Combo3.Text = ""Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Form2.Frame2.Caption = "借出信息"Dim ZB As StringZB = "select * from 借出表 " 'where 品名 = '" & PM & "'"mandType = adCmdTextForm2.Adodc2.RecordSource = ZBForm2.Adodc2.RefreshEnd SubPrivate Sub Command2_Click()Combo1.Text = ""Combo2.Text = ""Combo3.Text = ""Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Command3_Click()Unload MeForm2.ShowEnd Sub。

仓库管理 python 源码

仓库管理 python 源码

仓库管理系统是一个用于管理存储在仓库中的物品的系统。

以下是一个简单的仓库管理系统的Python源代码示例。

python复制代码class Item:def__init__(self, name, quantity): = nameself.quantity = quantityclass Warehouse:def__init__(self):self.items = {}def add_item(self, item):if in self.items:self.items[].quantity += item.quantityelse:self.items[] = itemdef remove_item(self, name, quantity):if name in self.items:if self.items[name].quantity >= quantity:self.items[name].quantity -= quantityelse:print("Insufficient quantity")else:print("Item not found")def print_inventory(self):for item in self.items.values():print(f"{}: {item.quantity}")warehouse = Warehouse()warehouse.add_item(Item("Apple", 100))warehouse.add_item(Item("Banana", 50))warehouse.remove_item("Apple", 20)warehouse.print_inventory()这个简单的仓库管理系统包括两个类:Item和Warehouse。

仓库管理系统源代码

仓库管理系统源代码

#define MODE "rb+"#include <stdio.h>#include <stdlib.h>#include <string.h>int function2();int check(char name2[20],int number2,char brand2[20],char manufacturer2[20],int quantity2,int price2,int total2);int function3();int function4();int function1() //generate a file{FILE *fp;system("del C:\\bigday.dat");fp=fopen("C:\\bigday.dat","wb");printf("\t\t\t----------------------------------------\n");printf("\t\t\t* *\n");printf("\t\t\t*仓库物资库存管理系统*\n");printf("\t\t\t* *\n");printf("\t\t\t* 欢迎进入*\n");printf("\t\t\t* 按任意键继续*\n");printf("\t\t\t----------------------------------------\n");getchar(); g etchar();fclose(fp);return 0;}int function2() //input the data{FILE *fp1,*fp2;if((fp1=fopen("C:\\bigday.dat",MODE))==0){printf("C:\\bigday.dat error");exit(1);}if((fp2=fopen("C:\\TEPM.dat","wb+"))==0){printf("C:\\TEPM.dat error");exit(1);}char name[20],name2[20];int number,number2;char brand[20],brand2[20];char manufacturer[20],manufacturer2[20];int quantity,quantity2;int price,price2;int total,total2;char tell;int i;char ch;ch=fgetc(fp1);if(ch==EOF){printf("\n");printf("\t\t\t----------------------------------------\n");printf("\t\t\t* *\n");printf("\t\t\t*仓库物资库存管理系统*\n");printf("\t\t\t* *\n");printf("\t\t\t* 继续添加*\n");printf("\t\t\t----------------------------------------\n");printf("\n请依次输入:商品的名称、型号、品牌、生产厂家,数量,价格。

C语言程序仓库管理系统

C语言程序仓库管理系统
#include <stdio.h〉
#include〈string.h〉
#include <stdlib.h>
#include <conio。h〉
struct Info

char num[20];
char name[20];
int price;
int amount;
};
char menu()/*菜单选择函数*/
puts("\t\t*2。显示货物信息*\n");
puts("\t\t* 3。查找货物信息*\n");
puts(”\t\t*4.修改货物信息*\n");
puts("\t\t* 5。删除货物信息*\n”);
puts(”\t\t*6。退出系统*\n");
puts("\t\t**************************************************\n");
{
struct Info info;
FILE*fp;
char ch;
if((fp=fopen(”F:\\test\\filemolde\\123.txt”,”wb”)) == NULL)

printf("******************\n”);
printf(”*不能打开文件! *\n");
printf(”******************\n");
printf("*******ቤተ መጻሕፍቲ ባይዱ****************************\n”);
printf("************************************\n");

仓库管理系统(VB+Access+源代码)

仓库管理系统(VB+Access+源代码)

精心整理仓库管理系统项目的建立这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统,现图文结合的方式一步一步展现制作过程。

由于本人是个初学者,里面存在很多不足之处望得到高手们的指导。

此文可作供初学者们学习交流。

作者联系方式:E-mail1、2、3、4、EndVB6.0中可以创建Access数据库。

如下建立一个“用户表”的数据库,用来存放用户信息及一些出入库管理信息。

如下图单击“外接程序”再单击“可视化数据管理器”出现如图点击“文件”——“新建”——“Microsoft Access”——“Version 2.0 MDB”输入数据库名,“保存”出现如下图在数据窗口中右击——“新建表”,最终如下往数据表里添加数据在这里就不罗嗦了,请查阅相关书籍。

登录界面窗口的建立最终界面如下:1、Adodc1的添加过程为:单击“工程”——“部件”出现下图所示,选择“控件”下的“Microsoft ADO Data Control 6.0 (OLEDB)”单击“确定”在工具栏中会出现“”图标,单击它并拖动到相应位置即可。

其它元件不在一一说明。

2、本窗体代码如下:Private Sub Command1_Click() '“登录”、“确定”按钮If Command1.Caption = "确定" And Command2.Caption = "取消" Then '如果为“确定”则添加新用户If Text1.Text = "" Then '提示用户输入用户名MsgBox "请输入用户名!", , "登录信息提示:"Exit SubElse 'Dim usename As String '检测用户名是否已经存在Dim strS As Stringusename = Trim(Text1.Text)strS = "select * from 用户登录信息表 where 用户名='" & usename & "'"mandType = adCmdTextAdodc1.RecordSource = strSAdodc1.RefreshMsgBox "您输入的用户已存在!", , "登录提示信息:"Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusExit SubEnd IfEnd IfIf Text2.Text = "" Then '提示用户密码不能为空MsgBox "密码不能为空!", , "登录提示信息:"Text2.SetFocusExit SubEnd IfIf Text3.Text = "" ThenMsgBox "请再次输入密码!", , "登录提示信息:"Text3.SetFocusExit SubEnd IfIf Text2.Text <> Text3.Text ThenMsgBox "两次输入的密码不一致,请确认!", , "登录提示信息:"Text2.Text = ""Text3.Text = ""Exit SubElseMsgBox ("添加新用户成功,现在您可以登陆系统了!")Label3.Visible = FalseText3.Visible = FalseCommand1.Caption = "登录"Command2.Caption = "退出"End IfElse '“登录”按钮,用户登录 Dim strSno As StringDim strSelect As StringText3.Visible = FalseCommand1.Caption = "登录"Command2.Caption = "退出"Text1.Text = ""Text2.Text = ""Text1.SetFocusElseEnd 'Unload MeEnd IfPrivate Sub Command3_Click() '“新用户”按钮 Label3.Visible = TrueText3.Visible = TrueText1.Text = ""Text2.Text = ""Text3.Text = ""Command1.Caption = "确定"Command2.Caption = "取消"Text1.SetFocusEnd SubPrivate Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)如下:代码:Private Sub AddNew_Click()Frame1.Visible = TrueFrame2.Visible = FalseEnd SubPrivate Sub CHKPMCHX_Click()Frame2.Caption = "出库信息"pm = InputBox("产品名", "请输入", 0)n = "select * from 出库表 where 品名 = '" & pm & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub CHKXHCHX_Click()Frame2.Caption = "出库信息"Dim XH As StringDim n As StringCHKRQ = InputBox("出库日期,格式为:月/日/年如:12/1/2011", "请输入", 0) n = "select * from 出库表 where 出库日期 = '" & CHKRQ & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub CKZCX_Click()ZB = "select * from 出库表 "mandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid1End SubPrivate Sub Command1_Click()If Text1.Text = "" Then '提示用户输入用户名 MsgBox "请输入用户名!", , "登录信息提示:"Exit SubEnd IfIf Text2.Text <> Text3.Text ThenMsgBox "两次输入的密码不一致,请确认!", , "登录提示信息:"Text2.Text = ""Text3.Text = ""Text2.SetFocusExit SubElseeX = MsgBox("成功添加新用户,是否要重新登录!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbYes ThenUnload MeForm3.ShowEnd If'MsgBox ("成功添加新用户!")'Label3.Visible = False'Text3.Visible = False'Command1.Caption = "登录"'Command2.Caption = "退出"End IfEndEnd SubPrivate Sub Form_Load()Unload Form1Frame1.Visible = FalseCall InitGrid0Me.Height = MDIForm1.Height - 1060Me.Width = MDIForm1.Width - 560Me.Top = MDIForm1.TopMe.Left = MDIForm1.LeftPrivate Sub GHCZ_Click()'Form2.HideForm8.ShowEnd SubPrivate Sub GHPMCX_Click()Frame2.Caption = "归还信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 归还表 where 品名 = '" & pm & "'" mandType = adCmdTextEnd SubPrivate Sub GHXHCX_Click()Frame2.Caption = "归还信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)n = "select * from 归还表 where 型号 = '" & XH & "'" mandType = adCmdTextAdodc2.RecordSource = nPrivate Sub GHZCX_Click()Frame2.Caption = "归还信息"Dim ZB As StringZB = "select * from 归还表 "mandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid2End SubEnd SubPrivate Sub JCRCX_Click()Frame2.Caption = "借出信息"Dim JCR As StringDim n As StringJCR = InputBox("借出人", "请输入", 0)n = "select * from 借出表 where 借出人 = '" & JCR & "'" mandType = adCmdTextAdodc2.RecordSource = nPrivate Sub JCSHJCX_Click()Frame2.Caption = "借出信息"Dim JCRQ As StringDim n As StringJCRQ = InputBox("借出日期,格式为:月/日/年如:12/1/2011", "请输入", 0) n = "select * from 借出表 where 借出日期 = '" & JCRQ & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshDim n As StringJSHR = InputBox("经手人", "请输入", 0)n = "select * from 借出表 where 经手人 = '" & JSHR & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub PMCX_Click()Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 库存表 where 品名 = '" & pm & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid0End SubPrivate Sub RKCZ_Click()'Form2.HideEnd SubPrivate Sub RKSHJ_Click()Frame2.Caption = "入库信息"Dim RKRQ As StringDim n As StringRKRQ = InputBox("入库日期,格式为:月/日/年如:12/1/2011", "请输入", 0) n = "select * from 入库表 where 入库日期 = '" & RKRQ & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub RKXHCHX_Click()Frame2.Caption = "入库信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)If Len(XH) > 0 Thenn = "select * from 入库表 where 型号 = '" & XH & "'" mandType = adCmdTextAdodc2.RecordSource = nElseLabel6.Move Label6.Left - 80ElseLabel6.Left = Form2.ScaleWidthEnd IfIf Label7.Left + Label7.Width > 0 ThenLabel7.Move Label7.Left - 80ElseLabel7.Left = Form2.ScaleWidthEnd IfEnd SubPrivate Sub XGMM_Click()'Form2.HideForm4.ShowEnd SubPrivate Sub XHCX_Click()Frame2.Caption = "库存信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)If Len(XH) > 0 Then 'And Val(XH) <> 0n = "select * from 库存表 where 型号 = '" & XH & "'"End WithEnd SubPrivate Sub InitGrid1()With DataGrid1.Columns(0).Width = 800.Columns(1).Width = 1600.Columns(2).Width = 1600.Columns(3).Width = 800.Columns(4).Width = 800.Columns(5).Width = 1000.Columns(6).Width = 800.Columns(7).Width = 4000End WithEnd SubPrivate Sub InitGrid2()With DataGrid1'.Columns(0).Caption = "学号"' .Columns(1).Caption = "课程名"'.Columns(2).Caption = "学分"' .Columns(3).Caption = "成绩"'设置DtgCond的列宽Text1.Text = ""Text2.Text = ""Text1.SetFocusExit SubEnd IfUnload MeForm2.Show'MsgBox "登陆成功!", , "登录提示信息:"ElseMsgBox "密码不正确,请重新输入!", , "登录提示信息:"Text2.Text = ""Text2.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()Unload MeForm2.ShowEnd Sub修改用户密码界面代码:ElseEnd IfIf Text3.Text = "" ThenMsgBox "请输入新密码!", , "信息提示!"Text3.SetFocusExit SubEnd IfIf Text4.Text = "" ThenMsgBox "请再次输入新密码!", , "信息提示!" Text4.SetFocusExit SubEnd IfIf Trim(Text3.Text) <> Trim(Text4.Text) ThenMsgBox "两次输入的新密码不一致!", , "信息提示!" Text3.Text = ""Text4.Text = ""Text3.SetFocusExit SubElseMsgBox ("密码修改成功!")Unload Me'Form2.ShowEnd SubEnd Sub代码:ElseText5.SetFocusExit SubEnd IfAdodc1.RefreshEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trim(Text1.Text)n = Val(Text3.Text)pms = "select * from 库存表 where 品名='" & pm & "'"With Form2End WithElseEnd IfEnd IfDim X As IntegerX = MsgBox("产品入库登记成功,是否继续添加产品!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbNo ThenUnload MeElseEnd SubEnd SubUnload Me'Form2.ShowEnd Sub出库管理代码:Private Sub Command1_Click()If Combo1.Text = "" And Combo2.Text = "" Then ' text1.Text = "" And Text2.Text = "" ThenMsgBox "“品名”和“型号”不能同时为空,必须输入其中一项!", , "提示信息!" Exit SubElseIf Text1.Text = "" And Combo3.Text = "" Then ' Text4.Text = "" ThenMsgBox "请输入产品“数量”或“单位”之一!", , "提示信息!"Text2.SetFocusExit SubEnd IfIf Text2.Text = "" ThenMsgBox "请经手人签名!", vbCritical, "提示信息!"Text2.SetFocusDim ZB As StringZB = "select * from 出库表 " 'where 品名 = '" & PM & "'"End SubPrivate Sub Command2_Click()Combo1.Text = ""Combo2.Text = ""Combo3.Text = ""Text1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Command3_Click()Unload Me'Form2.ShowEnd SubPrivate Sub Form_Load()Adodc2.RefreshLoopEnd Sub代码:Elsepm = Trim(Combo1.Text)n = Val(Text1.Text)pms = "select * from 库存表 where 品名='" & pm & "'"End IfDim X As IntegerX = MsgBox("产品借出登记成功,是否继续添加产品!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbNo ThenUnload MeForm2.ShowEnd IfCombo2.Text = ""Combo3.Text = ""Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Dim ZB As StringZB = "select * from 借出表 " 'where 品名 = '" & PM & "'"End SubPrivate Sub Command2_Click()End SubEnd SubLoopEnd Sub代码:ElseIf Text1.Text = "" And Combo3.Text = "" Then ' Text4.Text = "" Then MsgBox "请输入产品“数量”或“单位”之一!", , "提示信息!"Text1.SetFocusExit SubEnd IfIf Text2.Text = "" ThenMsgBox "请经手人签名!", vbCritical, "提示信息!"Text2.SetFocusExit SubEnd IfIf Text3.Text = "" ThenMsgBox "请输入归还人姓名!", vbCritical, "提示信息!" Text3.SetFocusExit SubEnd IfAdodc1.RefreshEnd IfDim pm As StringDim pms As StringDim n As StringEnd SubText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Command3_Click()Unload MeForm2.ShowEnd SubPrivate Sub Form_Load()' Dim i As String' i = 0' Adodc2.Refresh' i = i + 1' LoopCall pmEnd SubPrivate Sub pm()Dim i As VariantDim j As VariantDim k As Varianti = 0j = 0LoopText5.Text = s 'a + "," + D(2) + D(1) '+ " " + Val(i) + " " + Val(j) + " " + Val(k) Text6.Text = j'Combo1.AddItem D(1)End Sub。

库存管理系统软件设计源代码

库存管理系统软件设计源代码

using System;using System.Collections.Generic;using System.Text;using System.Data;using System.Data.SqlClient;using S.Model;namespace S.DAL{public class AdminServer{public static Admin GetAdminByName(string name){string sql = string.Format("select * from admin where name='{0}'",name);Admin a = null;DataTable dt = Web.DBHelper.GetTable(sql, "admin");foreach (DataRow row in dt.Rows){a = new Admin();a.Id = (int)row["id"]; = (string)row["name"];a.Pass = (string)row["pass"];}return a;}///<summary>///添加///</summary>///<param name="login"></param>///<returns></returns>public static bool Add(string login){string sql = string.Format("insert into Admin values('{0}','{0}')", login);return Web.DBHelper.ExecuteSql(sql);}///<summary>///删除///</summary>///<param name="id"></param>///<returns></returns>public static bool Del(int id){string sql = "delete from Admin where id=" + id;return Web.DBHelper.ExecuteSql(sql);}///<summary>///获取所有用户信息///</summary>///<returns></returns>public static DataTable Get(){string sql = "select * from admin";return Web.DBHelper.GetTable(sql, "admin");}///<summary>///修改密码///</summary>///<param name="pass"></param>///<param name="id"></param>///<returns></returns>public static bool EditPass(string pass, int id){string sql = string.Format("update Admin set pass='{0}' where id={1}", pass, id);return Web.DBHelper.ExecuteSql(sql);}}}using System;using System.Collections.Generic;using System.Text;using System.Data;using System.Data.SqlClient;using S.Model;namespace S.DAL{public class ChuServer{///<summary>///装箱///</summary>///<param name="row"></param>///<returns></returns>static Chu Get(DataRow row){Chu c = new Chu();c.Buy = (string)row["buy"];c.Id = (int)row["id"];c.Num = (int)row["num"];c.People = PeopleServer.GetByID((int)row["people_ID"]);c.Price = (double)row["price"];c.Thing = ThingServer.GetByID((int)row["thing_ID"]);c.Intime = (DateTime)row["intime"];return c;}///<summary>///获取所有出库记录///</summary>///<param name="key"></param>///<param name="chuType"></param>///<returns></returns>public static List<Chu> Get(string key,int chuType,int startindex,int pagesize){string sql = string.Format("select * from chu_View where chutype={0} {1} order by id desc",chuType,key);List<Chu> cs = new List<Chu>();DataTable dt = Web.DBHelper.GetTable(sql, startindex, pagesize, "chu");foreach (DataRow row in dt.Rows)cs.Add(Get(row));return cs;}///<summary>///查询出库的数量///</summary>///<param name="key"></param>///<param name="chuType"></param>///<returns></returns>public static int GetCount(string key, int chuType){string sql = string.Format("select count(*) from chu_View where chutype={0} {1}'", chuType, key);return Convert.ToInt32(Web.DBHelper.GetScalar(sql));}///<summary>///添加出库记录///</summary>///<param name="c"></param>///<returns></returns>public static bool Add(Chu c){string sql = string.Format("insert into chuvalues('{0}',{1},{2},{3},{4},'{5}',{6})", c.Buy, c.People.Id, c.Thing.Id, c.Num, c.Price, DateTime.Now,c.ChuType);return Web.DBHelper.ExecuteSql(sql);}}}using System;using System.Collections.Generic;using System.Text;using System.Data;using System.Data.SqlClient;using S.Model;using Web;namespace S.DAL{public class ExitServer{///<summary>///添加退货入库记录///<param name="e"></param>///<param name="thingID"></param>///<param name="peopeleID"></param>///<returns></returns>public static bool Add(Exit e){string sql = string.Format("insert [Exit]values({0},{1},getdate(),'{2}',{3})",e.Thing.Id, e.Num, e.Because, e.People.Id);return Web.DBHelper.ExecuteSql(sql);}///<summary>///封装///</summary>///<param name="row"></param>///<returns></returns>static Exit Get(DataRow row){Exit e = new Exit();e.Because = (string)row["Because"];e.Id = (int)row["ID"];e.InTime = (DateTime)row["InTIme"];e.Num = (int)row["Num"];e.People = PeopleServer.GetByID((int)row["People_ID"]);e.Thing = ThingServer.GetByID((int)row["Thing_ID"]);return e;}///<summary>///获取所有退款入库记录///<param name="startindex"></param>///<param name="pagesize"></param>///<param name="key"></param>///<returns></returns>public static List<Exit> Get(int startindex, int pagesize, string key){string sql = string.Format("select * from Exit_View where name like '%{0}%' order by id desc", key);DataTable dt = Web.DBHelper.GetTable(sql, startindex, pagesize, "Exit");List<Exit> e = new List<Exit>();foreach (DataRow row in dt.Rows)e.Add(Get(row));return e;}///<summary>///获取所有退款入库的数量///</summary>///<param name="key"></param>///<returns></returns>public static int GetCount(string key){string sql = string.Format("select count(*) from Exit_View where name like '%{0}%'", key);return Convert.ToInt32(Web.DBHelper.GetScalar(sql));}}}using System;using System.Collections.Generic;using System.Text;using System.Data;using System.Data.SqlClient;using S.Model;namespace S.DAL{public class JinServer{///<summary>///添加进货///</summary>///<param name="j"></param>///<returns></returns>public static bool Add(Jin j){string sql = string.Format("insert into jinvalues({0},{1},{2},{3},'{4}',{5},'{6}')", j.Mfg.Id, j.People.Id, j.Thing.Id, j.Num,DateTime.Now,j.Price,j.CaiGou);return Web.DBHelper.ExecuteSql(sql);}///<summary>///封装///</summary>///<param name="row"></param>///<returns></returns>static Jin Get(DataRow row){Jin j = new Jin();j.Id = (int)row["id"];j.Mfg = MFGServer.GetByID((int)row["mfg_ID"]);j.Num = (int)row["num"];j.People = PeopleServer.GetByID((int)row["people_ID"]);j.Thing = ThingServer.GetByID((int)row["thing_ID"]);j.Intime = (DateTime)row["intime"];j.Price = (double)row["price"];j.CaiGou = (string)row["CaiGou"];return j;}///<summary>///获取所有进货记录///</summary>///<param name="key"></param>///<param name="startindex"></param>///<param name="pagesize"></param>///<returns></returns>public static List<Jin> Get(string key,int startindex,int pagesize){string sql = string.Format("select * from jin_View {0} order by id desc",key);List<Jin> js = new List<Jin>();DataTable dt = Web.DBHelper.GetTable(sql, "jin");foreach (DataRow row in dt.Rows)js.Add(Get(row));return js;}///<summary>///获取数量///</summary>///<param name="key"></param>///<returns></returns>public static int GetCount(string key){string sql = string.Format("select count(*) from jin_View {0}", key);return Convert.ToInt32(Web.DBHelper.GetScalar(sql));}}}using System;using System.Collections.Generic;using System.Text;using System.Data;using System.Data.SqlClient;using S.Model;namespace S.DAL{public class MFGServer{///<summary>///封装///</summary>///<param name="row"></param>///<returns></returns>static MFG Get(DataRow row){MFG m = new MFG();m.Address = (string)row["address"];m.Id = (int)row["id"]; = (string)row["name"];m.People = (string)row["people"];m.Tel = (string)row["tel"];return m;}///<summary>///获取所有厂商///</summary>///<returns></returns>public static List<MFG> Get(){string sql = "select * from MFG";List<MFG> ms = new List<MFG>();DataTable dt = Web.DBHelper.GetTable(sql, "mfg");foreach (DataRow row in dt.Rows)ms.Add(Get(row));return ms;}///<summary>///获取明细///</summary>///<param name="id"></param>///<returns></returns>public static MFG GetByID(int id){string sql = string.Format("select * from MFG where id={0}",id);DataTable dt = Web.DBHelper.GetTable(sql, "mfg");if (dt.Rows.Count > 0)return Get(dt.Rows[0]);return null;}///<summary>///修改///</summary>///<param name="m"></param>///<returns></returns>public static bool Edit(MFG m){string sql = string.Format("update mfg setaddress='{0}',name='{1}',people='{2}',tel='{3}' where id={4}",m.Address,,m.People,m.Tel,m.Id);return Web.DBHelper.ExecuteSql(sql);}///<summary>///添加厂商///</summary>///<param name="m"></param>///<returns></returns>public static bool Add(MFG m){string sql = string.Format("insert into mfgvalues('{0}','{1}','{2}','{3}')", , m.People, m.Tel, m.Address);return Web.DBHelper.ExecuteSql(sql);}///<summary>///删除厂商///</summary>///<param name="id"></param>///<returns></returns>public static bool Del(int id){string sql = string.Format("delete from mfg where id={0}",id);return Web.DBHelper.ExecuteSql(sql);}}}using System;using System.Collections.Generic;using System.Text;using System.Data;using System.Data.SqlClient;using S.Model;namespace S.DAL{public class PeopleServer{///<summary>///封装///</summary>///<param name="row"></param>///<returns></returns>static People Get(DataRow row){People p = new People();p.Address = (string)row["address"]; p.Age = (int)row["age"];p.Id = (int)row["id"];p.Tel = (string)row["tel"]; = (string)row["name"];return p;}///<summary>///获取所有人员///</summary>///<returns></returns>public static List<People> Get(){string sql = "select * from people";List<People> ps = new List<People>();DataTable dt = Web.DBHelper.GetTable(sql, "people");foreach (DataRow row in dt.Rows)ps.Add(Get(row));return ps;}///<summary>///添加人员///</summary>///<param name="p"></param>///<returns></returns>public static bool Add(People p){string sql = string.Format("insert into peoplevalues('{0}',{1},'{2}','{3}')", , p.Age, p.Tel, p.Address);return Web.DBHelper.ExecuteSql(sql);}///<summary>///修改人员信息///</summary>///<param name="p"></param>///<returns></returns>public static bool Edit(People p){string sql = string.Format("update people setname='{0}',age={1},tel='{2}',address='{3}' where id={4}", , p.Age, p.Tel,p.Address, p.Id);return Web.DBHelper.ExecuteSql(sql);}///<summary>///删除人员///</summary>///<param name="id"></param>///<returns></returns>public static bool Del(int id){string sql = string.Format("delete from people where id={0}",id);return Web.DBHelper.ExecuteSql(sql);}///<summary>///获取明细///</summary>///<param name="id"></param>///<returns></returns>public static People GetByID(int id){string sql = string.Format("select * from people where id={0}",id);DataTable dt = Web.DBHelper.GetTable(sql, "people");if (dt.Rows.Count > 0)return Get(dt.Rows[0]);return null;}}}using System;using System.Collections.Generic;using System.Text;using S.Model;using System.Data;namespace S.DAL{public class StockServer{///<summary>///添加库存物品///</summary>///<param name="thingID"></param>///<param name="wearhouseID"></param>///<returns></returns>public static bool Add(int thingID, int wearhouseID){string sql = string.Format("insert Stocks values({0},{1},0)", thingID, wearhouseID);return Web.DBHelper.ExecuteSql(sql);}///<summary>///修改库存数量///</summary>///<param name="thingID"></param>///<param name="wareHouseID"></param>///<param name="num"></param>///<param name="str"></param>///<returns></returns>public static bool EditNum(int thingID, int wareHouseID, int num, string str) {string sql = string.Format("update Stocks set Num=Num{0}{1} whereThing_ID={2} and WareHouse_ID={3}", str, num, thingID, wareHouseID);return Web.DBHelper.ExecuteSql(sql);}///<summary>///修改库存数量///</summary>///<param name="thingID"></param>///<param name="wareHouseID"></param>///<param name="num"></param>///<param name="str"></param>///<returns></returns>public static bool EditNum(int thingID, int wareHouseID, int num){string sql = string.Format("update Stocks set Num={0} where Thing_ID={1} and WareHouse_ID={2}", num, thingID, wareHouseID);return Web.DBHelper.ExecuteSql(sql);}///<summary>///封装///</summary>///<param name="row"></param>///<returns></returns>static Stocks Get(DataRow row){Stocks s = new Stocks();s.Num = (int)row["Num"];s.Thing = ThingServer.GetByID((int)row["Thing_ID"]);s.Ware = WareHouseServer.GetByID((int)row["WareHouse_ID"]);return s;}///<summary>///获取所有获存///</summary>///<param name="wareHouseID">仓库编号</param>///<param name="key">and开</param>///<returns></returns>public static List<Stocks> Get(int wareHouseID, string key){string sql = string.Format("select * from Stock_View where WareHouse_ID={0} {1}", wareHouseID, key);DataTable dt=Web.DBHelper.GetTable(sql,"Stocks");List<Stocks> ss=new List<Stocks> ();foreach (DataRow row in dt.Rows)ss.Add(Get(row));return ss;}///<summary>///获取数量///</summary>///<param name="wareHouseID"></param>///<param name="thingID"></param>///<returns></returns>public static Stocks Get(int wareHouseID, int thingID){string sql = string.Format("select * from Stocks where WareHouse_ID={0} and Thing_ID={1}", wareHouseID, thingID);DataTable dt = Web.DBHelper.GetTable(sql, "Stocks");if (dt.Rows.Count > 0)return Get(dt.Rows[0]);return null;}}}using System;using System.Collections.Generic;using System.Text;using System.Data;using System.Data.SqlClient;using S.Model;namespace S.DAL{public class ThingServer{///<summary>///封装///</summary>///<param name="row"></param>///<returns></returns>static Thing Get(DataRow row){Thing t = new Thing();t.Id = (int)row["id"]; = (string)row["name"];t.Type = ThingTypeServer.GetByID((int)row["ThingType_ID"]); t.GuiGe = (string)row["GuiGe"];return t;}///<summary>///获取所有物品///</summary>///<param name="key"></param>///<returns></returns>public static List<Thing> Get(string key){string sql = string.Format("select * from thing where name like '%{0}%' order by id desc",key);List<Thing> ts = new List<Thing>();DataTable dt = Web.DBHelper.GetTable(sql, "thing");foreach (DataRow row in dt.Rows)ts.Add(Get(row));return ts;}///<summary>///获取所有物品///</summary>///<param name="key"></param>///<returns></returns>public static List<Thing> GetByType(int type){string sql = string.Format("select * from thing where thingType_ID={0} order by id desc", type);List<Thing> ts = new List<Thing>();DataTable dt = Web.DBHelper.GetTable(sql, "thing");foreach (DataRow row in dt.Rows)ts.Add(Get(row));return ts;}///<summary>///添加商品信息///</summary>///<param name="t"></param>///<param name="thingID"></param>///<returns></returns>public static bool Add(Thing t, int thingtype){string sql = string.Format("insert into thing values('{0}','{1}',{2}); select @@identity", t.GuiGe, , thingtype);int id=Convert.ToInt32( Web.DBHelper.GetScalar(sql));if (id > 0){List<WareHouse> whs = WareHouseServer.Get();foreach (WareHouse w in whs)StockServer.Add(id, w.Id);return true;}return false;}///<summary>///修改商品信息///</summary>///<param name="t"></param>///<param name="thingID"></param>///<returns></returns>public static bool Edit(Thing t, int thingtype){string sql = string.Format("update thing setname='{0}',ThingType_ID={1},guige='{2}' where id={3}", , thingtype, t.GuiGe, t.Id);return Web.DBHelper.ExecuteSql(sql);}///<summary>///删除商品信息///</summary>///<param name="id"></param>///<returns></returns>public static bool Del(int id){string sql = string.Format("delete from Thing where id={0}", id);return Web.DBHelper.ExecuteSql(sql);}///<summary>///获取商品明细///</summary>///<param name="id"></param>///<returns></returns>public static Thing GetByID(int id){string sql = string.Format("select * from thing where id={0}",id);DataTable dt = Web.DBHelper.GetTable(sql, "thing");if (dt.Rows.Count > 0)return Get(dt.Rows[0]);return null;}}}using System;using System.Collections.Generic;using System.Text;using S.Model;using System.Data;using System.Data.SqlClient;namespace S.DAL{public class ThingTypeServer{static ThingType Get(DataRow row){ThingType t = new ThingType();t.Id = (int)row["id"];t.Type = (string)row["type"];return t;}///<summary>///获取所有类别///</summary>///<returns></returns>public static List<ThingType> Get(){string sql = "select * from thingtype";List<ThingType> ts = new List<ThingType>();DataTable dt = Web.DBHelper.GetTable(sql, "thingtype");foreach (DataRow row in dt.Rows)ts.Add(Get(row));return ts;}///<summary>///获取类别祥细///</summary>///<param name="id"></param>///<returns></returns>public static ThingType GetByID(int id){string sql = string.Format("select * from thingtype where id={0}",id);DataTable dt = Web.DBHelper.GetTable(sql, "thingtype");if (dt.Rows.Count > 0)return Get(dt.Rows[0]);return null;}}}using System;using System.Collections.Generic;using System.Text;using System.Data;using System.Data.SqlClient;using S.Model;namespace S.DAL{public class WareHouseServer{///<summary>///添加仓库///</summary>///<param name="wh"></param>///<returns></returns>public static bool Add(WareHouse wh){string sql = string.Format("insert WareHouse values('{0}',{1}); select @@identity", wh.Text, wh.Type);int id = Convert.ToInt32(Web.DBHelper.GetScalar(sql));if (id > 0){List<Thing> ts = ThingServer.Get(string.Empty);foreach (Thing t in ts)StockServer.Add(t.Id, id);return true;}return false;}///<summary>///修改仓库信息///</summary>///<param name="wh"></param>///<returns></returns>public static bool Edit(WareHouse wh){string sql = string.Format("update WareHouse set text='{0}',type={1} where id={2}",wh.Text, wh.Type, wh.Id);return Web.DBHelper.ExecuteSql(sql);}///<summary>///封装///</summary>///<param name="row"></param>///<returns></returns>static WareHouse Get(DataRow row){WareHouse wh = new WareHouse();wh.Id = (int)row["ID"];wh.Text = (string)row["Text"];wh.Type = (int)row["Type"];return wh;}///<summary>///查询所有仓库信息///</summary>///<returns></returns>public static List<WareHouse> Get(){string sql = "select * from WareHouse";List<WareHouse> wh = new List<WareHouse>();DataTable dt = Web.DBHelper.GetTable(sql, "WareHouse");foreach (DataRow row in dt.Rows)wh.Add(Get(row));return wh;}///<summary>///查看仓库祥细信息///</summary>///<param name="id"></param>///<returns></returns>public static WareHouse GetByID(int id){string sql = "select * from WareHouse where id=" + id;DataTable dt = Web.DBHelper.GetTable(sql, "WareHouse");if (dt.Rows.Count > 0)return Get(dt.Rows[0]);return null;}///<summary>///删除仓库信息///</summary>///<param name="id"></param>///<returns></returns>public static bool Del(int id){string sql = "delete from WareHouse where id=" + id;return Web.DBHelper.ExecuteSql(sql);}}}using System;using System.Collections.Generic;using System.Text;using S.DAL;using S.Model;using System.Data;namespace S.BLL{public class AdminMananger{public static Admin GetAdminByName(string name){return AdminServer.GetAdminByName(name);}///<summary>///添加///</summary>///<param name="login"></param>///<returns></returns>public static bool Add(string login) {return AdminServer.Add(login); }///<summary>///删除///</summary>///<param name="id"></param>///<returns></returns>public static bool Del(int id){return AdminServer.Del(id);}///<summary>///回去所有用户信息///</summary>///<returns></returns>public static DataTable Get(){return AdminServer.Get();}///<summary>///修改密码///</summary>///<param name="pass"></param>///<param name="id"></param>///<returns></returns>public static bool EditPass(string pass, int id){return AdminServer.EditPass(pass, id);}}}using System;using System.Collections.Generic;using System.Text;using S.Model;using S.DAL;namespace S.BLL{public class ChuMananger{///<summary>///获取所有出库记录///</summary>///<param name="key"></param>///<param name="chuType"></param>///<returns></returns>public static List<Chu> Get(string key, int chuType, int startindex, int pagesize){return ChuServer.Get(key, chuType, startindex, pagesize);}///<summary>///查询出库的数量///</summary>///<param name="key"></param>///<param name="chuType"></param>///<returns></returns>public static int GetCount(string key, int chuType) {return ChuServer.GetCount(key, chuType);}///<summary>///添加出库记录///</summary>///<param name="c"></param>///<returns></returns>public static bool Add(Chu c){return ChuServer.Add(c);}}}using System;using System.Collections.Generic;using System.Text;using S.Model;using S.DAL;namespace S.BLL{public class ExitManager{///<summary>///添加退货入库记录///</summary>///<param name="e"></param>///<param name="thingID"></param>///<param name="peopeleID"></param>///<returns></returns>public static bool Add(Exit e){return ExitServer.Add(e);}///<summary>///获取所有退款入库记录///</summary>///<param name="startindex"></param>///<param name="pagesize"></param>///<param name="key"></param>///<returns></returns>public static List<Exit> Get(int startindex, int pagesize, string key) {return ExitServer.Get(startindex, pagesize, key);}///<summary>///获取所有退款入库的数量///</summary>///<param name="key"></param>///<returns></returns>public static int GetCount(string key){return ExitServer.GetCount(key);}}}using System;。

C语言程序仓库管理系统

C语言程序仓库管理系统

#include<stdio.h>#include<string.h>#include<stdlib.h>#include<conio.h>structInfo{charnum[20];charname[20];intprice;intamount;};charmenu()/*菜单选择函数*/{charn;/*n记录选择的菜单*/system("cls");puts("\t\t欢迎来到仓库货物管理系统");puts("\t\t***********************MENU***********************\n"); puts("\t\t*1.录入货物信息*\n");puts("\t\t*2.显示货物信息*\n");puts("\t\t*3.查找货物信息*\n");puts("\t\t*4.修改货物信息*\n");puts("\t\t*5.删除货物信息*\n");puts("\t\t*6.退出系统*\n");puts("\t\t**************************************************\n");puts("*********************************");printf("*请选择你要输入数(1-6):*\n");puts("*********************************");while(1){n=getchar();getchar();if(n<'1'||n>'6'){puts("**********************************");printf("*出错了!请再次输入(1-6):*\n");puts("**********************************");}elsebreak;}returnn;}voidappend()/*货物信息输入函数*/{structInfoinfo;FILE*fp;charch;if((fp=fopen("F:\\test\\filemolde\\123.txt","wb"))==NULL) {printf("******************\n");printf("*不能打开文件!*\n");printf("******************\n");getch();exit(1);}do{printf("\tnum:");gets(info.num);printf("\tname:");gets();printf("\tprice:");scanf("%d",&info.price);printf("\tamount:");scanf("%d",&info.amount);getchar();fwrite(&info,sizeof(info),1,fp);printf("***************************\n");printf("*还需要输入吗?(Y/N):*\n");printf("***************************\n");ch=getchar();getchar();}while(ch=='Y'||ch=='y');fclose(fp);}voidprintf1(){printf("*************************************************************************\ n");printf("\t\t%-10s\t%-10s\t%-10s\t%-10s\n","num","name","price","amount\n");printf("************************************************************************* \n");}voidprintf2(structInfoinfo){printf("-------------------------------------------------------------------------\ n");printf("\t\t%-10s\t%-10s\t%-10d\t%-10d\n",info.num,,info.price,info.amoun t);printf("-------------------------------------------------------------------------\ n");}voiddisplay()/*货物信息显示函数*/{structInfoinfo;FILE*fp;intm=0;if((fp=fopen("F:\\test\\filemolde\\123.txt","rb"))==NULL){printf("******************");printf("*不能打开文件!*");printf("******************");getch();exit(1);}while(fread(&info,sizeof(info),1,fp)==1){m++;if(m==1)printf1();printf2(info);if((m!=0)&&(m%10==0)){printf("*****************************\n");printf("*输入任何键继续*");printf("*****************************\n");getch();puts("\n\n");printf1();}}fclose(fp);printf("************************************\n"); printf("*总共有%d条记录在其中!*\n",m);printf("************************************\n"); getch();}voidsearch()/*货物信息查询函数*/{structInfoinfo;FILE*fp;intflag;/*flag为1按编号查询,flag为2按姓名查询*/inttotal=0;/*记录符合条件的记录的个数*/charch[10];charf;if((fp=fopen("F:\\test\\filemolde\\123.txt","rb"))==NULL) {printf("************************************\n");printf("*\t不能打开文件!*\n");printf("************************************\n");getch();exit(1);}do{rewind(fp);printf("************************************\n");printf("*查询通过(1:编号2:姓名):*\n");printf("************************************\n");while(1){scanf("%d",&flag);getchar();if(flag<1||flag>2){printf("*****************************************\n");printf("*出错了!请再次输入[1:编号][2:姓名]*\n");printf("*****************************************\n"); }elsebreak;}if(flag==1)/*按编号进行查询*/{printf("************************************\n");printf("*请输入你要查询的编号:*\n");printf("************************************\n");gets(ch);total=0;/*符合条件的记录数*/while(fread(&info,sizeof(info),1,fp)==1)if(strcmp(ch,info.num)==0){total++;if(total==1)printf1();printf2(info);}}else/*按姓名进行查询*/{printf("************************************\n");printf("*请输入你要查询的姓名:*\n");printf("************************************\n");gets(ch);total=0;while(fread(&info,sizeof(info),1,fp)==1)if(strcmp(ch,)==0){total++;if(total==1)printf1();printf2(info);}}printf("************************************\n"); printf("*总共有%d记录在其中!*\n",total);printf("************************************\n"); printf("************************************\n"); printf("*还需要查询吗?(Y/N):*\n");printf("************************************\n"); f=getchar();getchar();}while(f=='Y'||f=='y');fclose(fp);}voidmodify()/*货物信息修改函数*/{structInfoinfo;FILE*fp1,*fp2;intflag;charch[10];charf;do{if((fp1=fopen("F:\\test\\filemolde\\123.txt","rb"))==NULL) {printf("************************************\n");printf("*不能打开文件!*\n");printf("************************************\n"); getch();exit(1);}if((fp2=fopen("F:\\test\\filemolde\\456.txt","wb"))==NULL) {printf("************************************\n");printf("*不能打开文件!*\n");printf("************************************\n"); getch();exit(1);}printf("************************************\n");printf("*请输入你要修改的货物编号:*\n");printf("************************************\n");gets(ch);flag=0;while(fread(&info,sizeof(info),1,fp1)==1){if(strcmp(ch,info.num)==0){printf1();printf2(info);printf("************************************\n");printf("*请输入新的信息:*\n");printf("************************************\n");printf("\tnum:");gets(info.num);printf("\tname:");gets();printf("\tprice:");scanf("%d",&info.price);printf("\tamount:");scanf("%d",&info.amount);getchar();flag=1;}fwrite(&info,sizeof(info),1,fp2);}fclose(fp1);fclose(fp2);if(flag==1){printf("************************************\n");printf("*修改成功!*\n");printf("************************************\n");remove("F:\\test\\filemolde\\123.txt");rename("F:\\test\\filemolde\\456.txt","F:\\test\\filemolde\\123.txt");}else{printf("************************************\n");printf("*不能找到这个记录!*\n");printf("************************************\n");}printf("************************************\n");printf("*还修改其他吗?(Y/N):*\n");printf("************************************\n");f=getchar();getchar();}while(f=='y'||f=='Y');}voidDelete()/*货物信息删除函数*/{structInfoinfo;FILE*fp1,*fp2;intflag;charch[10];charf;do{if((fp1=fopen("F:\\test\\filemolde\\123.txt","rb"))==NULL) {printf("************************************\n");printf("*\t不能打开文件!*\n");printf("************************************\n");getch();exit(1);}if((fp2=fopen("F:\\test\\filemolde\\456.txt","wb"))==NULL) {printf("************************************\n");printf("*\t不能打开文件!*\n");printf("************************************\n");getch();exit(1);}printf("************************************\n");printf("*请输入你需要删除货物的编号:*\n");printf("************************************\n");gets(ch);flag=0;while(fread(&info,sizeof(info),1,fp1)==1){if(strcmp(ch,info.num)==0){printf1();printf2(info);flag=1;break;}elsefwrite(&info,sizeof(info),1,fp2);}fclose(fp1);fclose(fp2);if(flag==1){printf("************************************\n");printf("*删除成功!*\n");printf("************************************\n");remove("F:\\test\\filemolde\\123.txt");rename("F:\\test\\filemolde\\456.txt","F:\\test\\filemolde\\123.txt");}else{printf("************************************\n");printf("*不能找到这个记录!*\n");printf("************************************\n");}printf("************************************\n");printf("*还删除其他吗?(Y/N):*\n");printf("************************************\n");f=getchar();getchar();}while(f=='y'||f=='Y');}voidmain()/*主函数*/{while(1){inta;charf;charch[10];charnum[20]={"12345"};printf("pleaseinputthesecret:\n");scanf("%s",ch);if(strcmp(num,ch)==0)a=1;if(a==1){printf("\npleaseenterinthetelproject!\n");f=getchar();getchar();break;}else{printf("\nthesecretiserror");printf("pleaseinputtherightsecret"); }}while(1)switch(menu()){case'1':append();break;case'2':display();break;case'3':search();break;case'4':modify();break;case'5':Delete();break;case'6':exit(0);break;}}。

仓库管理系统-源代码 -VB编程毕业设计

仓库管理系统-源代码 -VB编程毕业设计

材料入库模块源代码如下:Private Sub Command1_Click()If Text1.Text <> "" And Text2.Text <> "" And DTPicker1.Value <> "" And Text4.Text <> "" And Text5.Text <> "" And DataCombo1.Text <> "" And Text7.Text <> "" ThenAdodc1.RefreshAdodc2.RecordSource = "select * from 库存材料清单where 材料号='" & Text1.Text & "'" Adodc2.RefreshIf Adodc2.Recordset.BOF Thenmsg$ = "确定要添加该记录吗?"ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, "添加记录")If ans = vbOK ThenAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0) = Text1.TextAdodc1.Recordset.Fields(1) = Text2.TextAdodc1.Recordset.Fields(2) = CStr(DTPicker1.V alue)Adodc1.Recordset.Fields(3) = Text4.TextAdodc1.Recordset.Fields(4) = Text5.TextAdodc1.Recordset.Fields(5) = DataCombo1.TextAdodc1.Recordset.Fields(6) = Text7.TextAdodc1.Recordset.Fields(7) = Text8.TextAdodc1.Recordset.UpdateMsgBox ("保存成功!!*_*")End IfElse MsgBox "材料号不能重复,该材料号已存在!!", 48, "警告"End IfElse MsgBox "资料输入不全,请重新输入!!", 64, "提示"End IfText1.SetFocusText1.Text = ""Text2.Text = ""Text4.Text = ""Text5.Text = ""DataCombo1.Text = ""Text7.Text = ""Text8.Text = ""End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text4.Text = ""Text5.Text = ""DataCombo1.Text = ""Text7.Text = ""Text8.Text = ""End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"ado = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" ado = ado + "Data Source=" + mpath + "database.mdb"Adodc1.ConnectionString = adoAdodc1.RecordSource = "库存材料清单"Adodc1.RefreshAdodc2.ConnectionString = adoAdodc3.ConnectionString = adoAdodc3.RecordSource = "gysxx"Adodc3.RefreshEnd SubPrivate Sub Text2_GotFocus()If Not Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstWhile Not Adodc1.Recordset.EOFIf Adodc1.Recordset.Fields(0) = Text1.Text ThenMsgBox "该材料号已经存在,请重新输入!!", 48, "提示"Text1.Text = ""End IfAdodc1.Recordset.MoveNextWendEnd IfEnd SubPrivate Sub Text7_GotFocus()If Not Adodc3.Recordset.BOF ThenAdodc3.Recordset.MoveFirstWhile Not Adodc3.Recordset.EOFIf Adodc3.Recordset.Fields(0) = DataCombo1.Text ThenText7.Text = Adodc3.Recordset.Fields(1)End IfAdodc3.Recordset.MoveNextWendEnd IfEnd Sub库存管理模块源代码如下:Dim sql As StringPrivate Sub Command1_Click()If DataCombo1.Text = "" And DataCombo2.Text = "" And DataCombo3.Text = "" Then MsgBox "请在组合框中输入你要查询的内容!!", 64, "提示"ElseIf DataCombo1.Text = "" And DataCombo2.Text = "" And DataCombo3.Text <> "" Thensql = "select * from 库存材料清单where 供应商号= '" & DataCombo3.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text = "" And DataCombo2.Text <> "" And DataCombo3.Text = "" Thensql = "select * from 库存材料清单where 进货日期='" & DataCombo2.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text = "" And DataCombo2.Text <> "" And DataCombo3.Text <> "" Then sql = "select * from 库存材料清单where 进货日期='" & DataCombo2.Text & "' and 供应商号='" & DataCombo3.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text <> "" And DataCombo2.Text = "" And DataCombo3.Text = "" Thensql = "select * from 库存材料清单where 材料号='" & DataCombo1.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text <> "" And DataCombo2.Text = "" And DataCombo3.Text <> "" Then sql = "select * from 库存材料清单where 材料号='" & DataCombo1.Text & "' and 供应商号='" & DataCombo3.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text <> "" And DataCombo2.Text <> "" And DataCombo3.Text = "" Then sql = "select * from 库存材料清单where 材料号='" & DataCombo1.Text & "' and 进货日期='" & DataCombo2.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text <> "" And DataCombo2.Text <> "" And DataCombo3.Text <> "" Then sql = "select * from 库存材料清单where 材料号='" & DataCombo1.Text & "' and 进货日期='" & DataCombo2.Text & "' and 供应商号='" & DataCombo3.Text & "'"Adodc1.RecordSource = sqlAdodc1.RefreshEnd IfIf Adodc1.Recordset.BOF ThenMsgBox "对不起,该库存不存在!!", 64, "提示"End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()If DataGrid1.AllowUpdate = False ThenDataGrid1.AllowUpdate = TrueDataGrid1.AllowDelete = TrueCommand3.Caption = "锁定"MsgBox "您巳进入修改状态!"ElseDataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = TrueCommand3.Caption = "修改"MsgBox "您进入锁定状态!"End IfEnd SubPrivate Sub Command4_Click()msg$ = "确定要删除该库存材料记录吗?"ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, "删除记录")If ans = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"ado = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + mpath + "database.mdb"Adodc1.ConnectionString = adoAdodc1.RecordSource = "库存材料清单"Adodc1.RefreshAdodc2.ConnectionString = adoAdodc2.RecordSource = "库存材料清单"Adodc2.RefreshIf er_type <> 1 ThenCommand3.Enabled = FalseCommand4.Enabled = FalseEnd IfEnd Sub美容项目定义模块源代码如下:Private Sub Command1_Click()If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" ThenAdodc2.RecordSource = "select * from 美容项目定义表where 美容项目编号='" & Text1.Text & "'"Adodc2.RefreshIf Adodc2.Recordset.BOF ThenAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0) = Text1.TextAdodc1.Recordset.Fields(1) = Text2.TextAdodc1.Recordset.Fields(2) = Text3.TextAdodc1.Recordset.UpdateElseMsgBox "该美容项目编号已存在!!", 48, "警告"End IfElseMsgBox "资料输入不全,请重新输入!!", 64, "提示"End IfText1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()msg$ = "确定要删除该美容项目吗?"ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, "删除记录") If ans = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Command5_Click()If DataGrid1.AllowUpdate = False ThenDataGrid1.AllowUpdate = TrueDataGrid1.AllowDelete = TrueCommand5.Caption = "锁定"MsgBox "您巳进入修改状态!"ElseDataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = TrueCommand5.Caption = "修改"MsgBox "您进入锁定状态!"End IfEnd SubPrivate Sub Text2_GotFocus()If Not Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstWhile Not Adodc1.Recordset.EOFIf Adodc1.Recordset.Fields(0) = Text1.Text ThenMsgBox "该美容项目编号已经存在,请重新输入!!", 48, "提示"Text1.Text = ""End IfAdodc1.Recordset.MoveNextWendEnd IfEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"ado = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + mpath + "database.mdb"Adodc1.ConnectionString = adoAdodc1.RecordSource = "美容项目定义表"Adodc1.RefreshAdodc2.ConnectionString = adoEnd Sub美容项目查询模块源代码如下:Private Sub Command1_Click()If DataCombo1.Text = "" ThenMsgBox ("输入不能为空!!")ElseAdodc2.RecordSource = "select * from 美容项目定义表where 美容项目名称='" & DataCombo1.Text & "'"Adodc2.RefreshDataGrid1.Columns(0).Width = 120XXDataGrid1.Columns(1).Width = 120XXDataGrid1.Columns(2).Width = 120XXEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"ado = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + mpath + "database.mdb"Adodc1.ConnectionString = adoAdodc1.RecordSource = "美容项目定义表"Adodc1.RefreshAdodc2.ConnectionString = adoEnd Sub来车登记模块源代码如下:Dim sql As StringPrivate Sub Command1_Click()If DTPicker1.Value <> "" And Text2.Text <> "" And Text3.Text <> "" And Text4.Text <> "" And DataCombo1.Text <> "" Thenmsg$ = "确定要添加该登记吗?"ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, "添加登记")If ans = vbOK ThenAdodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc1.Recordset.Fields(1) = Text2.TextAdodc1.Recordset.Fields(2) = Text3.TextAdodc1.Recordset.Fields(3) = Text4.TextAdodc1.Recordset.Fields(4) = DataCombo1.TextAdodc1.Recordset.Fields(5) = Text5.TextAdodc1.Recordset.UpdateMsgBox ("成功登记!!~-~")ElseExit SubEnd IfDim sql As Stringsql = "select * from 车辆基本信息表where 车牌号码='" & Text2.Text & "'"Adodc3.RecordSource = sqlAdodc3.RefreshIf Adodc3.Recordset.BOF ThenAdodc2.RefreshAdodc2.Recordset.AddNewAdodc2.Recordset.Fields(0) = Text2.TextAdodc2.Recordset.Fields(1) = Text3.TextAdodc2.Recordset.Fields(2) = Text4.TextAdodc2.Recordset.Fields(3) = Text5.TextAdodc2.Recordset.UpdateEnd IfElseMsgBox "资料输入不全,请重新输入!!", 64, "提示"End IfDTPicker1.SetFocusText2.Text = ""Text3.Text = ""Text4.Text = ""DataCombo1.Text = ""Text5.Text = ""End SubPrivate Sub Command2_Click()Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""DataCombo1.Text = ""End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"ado = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" ado = ado + "Data Source=" + mpath + "database.mdb"Adodc1.ConnectionString = adoAdodc1.RecordSource = "来车登记表"Adodc1.RefreshAdodc2.ConnectionString = adoAdodc2.RecordSource = "车辆基本信息表"Adodc2.RefreshAdodc3.ConnectionString = adoAdodc4.ConnectionString = adoAdodc4.RecordSource = "bmxx"Adodc4.RefreshEnd Sub车辆基本信息管理模块源代码如下:Private Sub Command1_Click()查询车辆基本信息.ShowEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()msg$ = "确定要删除该项信息吗?"ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, "删除记录")If ans = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Command4_Click()If DataGrid1.AllowUpdate = False ThenDataGrid1.AllowUpdate = TrueDataGrid1.AllowDelete = TrueCommand4.Caption = "锁定"MsgBox "您巳进入修改状态!"ElseDataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = TrueCommand4.Caption = "修改"MsgBox "您进入锁定状态!"End IfEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"ado = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + mpath + "database.mdb"Adodc1.ConnectionString = adoAdodc1.RecordSource = "车辆基本信息表"Adodc1.RefreshIf er_type <> 1 ThenCommand3.Enabled = FalseCommand4.Enabled = FalseEnd IfEnd Sub车辆美容信息管理模块源代码如下:Private Sub Command1_Click()Dim sum1, x, z As CurrencyDim y, n1, l, l1 As Longsum1 = 0n1 = 0l1 = 0If CStr(DTPicker1.Value) <> "" And Text2.Text <> "" And Text3.Text <> "" And DataCombo1.Text <> "" And DataCombo5.Text <> "" And DataCombo6.Text <> "" Then'修改库存材料清单Dim q, q1 As Longq1 = 0If Not Adodc5.Recordset.BOF ThenAdodc5.RefreshAdodc5.Recordset.MoveFirstWhile Not Adodc5.Recordset.EOFIf Adodc5.Recordset.Fields(0) = DataCombo5.Text And Adodc5.Recordset.Fields(1) = DataCombo6.Text Thenq1 = 1If Adodc5.Recordset.Fields(4) < CLng(Text3.Text) ThenMsgBox "这种材料的库存数量不够!!", 48, "警告"DataCombo5.Text = ""DataCombo6.Text = ""Text2.Text = ""Text3.Text = ""Exit SubElseq = Adodc5.Recordset.Fields(4)Adodc5.Recordset.Fields(4) = q - CLng(Text3.Text)Adodc5.Recordset.UpdateEnd IfEnd IfAdodc5.Recordset.MoveNextWendIf q1 = 0 ThenMsgBox "库存中没有这种材料!!", 48, "警告"End If'修改库存材料清单完毕End IfIf q1 = 1 ThenAdodc6.RefreshIf Not Adodc6.Recordset.BOF ThenAdodc6.Recordset.MoveFirstWhile Not Adodc6.Recordset.EOF '查找一下车辆用料信息表中是否存在这种材料If Adodc6.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc6.Recordset.Fields(1) = DataCombo1.Text And Adodc6.Recordset.Fields(2) = DataCombo5.Text And Adodc6.Recordset.Fields(3) = DataCombo6.Text And Adodc6.Recordset.Fields(4) = Text2.Text Thenl = Adodc6.Recordset.Fields(5)l1 = 1Adodc6.Recordset.Fields(5) = l + CLng(Text3.Text) '如果存在,只修改数量Adodc6.Recordset.UpdateEnd IfAdodc6.Recordset.MoveNextWendEnd IfIf l1 = 0 Then '如果不存在,则在车辆用料信息表中添加新记录Adodc6.Recordset.AddNewAdodc6.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc6.Recordset.Fields(1) = DataCombo1.TextAdodc6.Recordset.Fields(2) = DataCombo5.TextAdodc6.Recordset.Fields(3) = DataCombo6.TextAdodc6.Recordset.Fields(4) = Text2.TextAdodc6.Recordset.Fields(5) = Text3.TextAdodc6.Recordset.UpdateAdodc6.RefreshEnd IfIf Not Adodc9.Recordset.BOF ThenAdodc9.Refresh '在车辆消费信息表中添加该车辆的材料费Adodc9.Recordset.MoveFirstWhile Not Adodc9.Recordset.EOFIf Adodc9.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc9.Recordset.Fields(1) = DataCombo1.Text Thenn1 = 1 '如果车辆消费信息表中存在当天该车的记录时Adodc6.Refresh '在车辆用料信息表中,计算该车的材料费Adodc6.Recordset.MoveFirstWhile Not Adodc6.Recordset.EOFIf Adodc6.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc6.Recordset.Fields(1) = DataCombo1.Text Thenx = Adodc6.Recordset.Fields(4)y = Adodc6.Recordset.Fields(5)z = x * ysum1 = sum1 + zEnd IfAdodc6.Recordset.MoveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc9.Recordset.Fields(1) = DataCombo1.TextAdodc9.Recordset.Fields(3) = sum1Adodc9.Recordset.Fields(4) = sum1 + Adodc9.Recordset.Fields(2)Adodc9.Recordset.UpdateEnd IfAdodc9.Recordset.MoveNextWendEnd IfIf n1 = 0 Then '车辆消费信息表中无该车辆记录时Adodc9.Recordset.AddNew '向车辆消费信息表中添加材料费记录Adodc6.Refresh '车辆用料信息表Adodc6.Recordset.MoveFirstWhile Not Adodc6.Recordset.EOFIf Adodc6.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc6.Recordset.Fields(1) = DataCombo1.Text Thenx = Adodc6.Recordset.Fields(4)y = Adodc6.Recordset.Fields(5)z = x * ysum1 = sum1 + zEnd IfAdodc6.Recordset.MoveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc9.Recordset.Fields(1) = DataCombo1.TextAdodc9.Recordset.Fields(3) = sum1Adodc9.Recordset.Fields(4) = sum1Adodc9.Recordset.Update '保存记录End IfEnd IfElseMsgBox "资料输入不全,请重新输入!!", 64, "提示"End IfDataCombo5.Text = ""DataCombo6.Text = ""Text2.Text = ""Text3.Text = ""DataCombo5.SetFocusEnd SubPrivate Sub Command2_Click()DataCombo1.Text = ""DataCombo2.Text = ""DataCombo3.Text = ""DataCombo4.Text = ""Unload MeEnd SubPrivate Sub Command3_Click()修改美容项目.ShowEnd SubPrivate Sub Command4_Click()Dim sum, x, z As CurrencyDim y, n As Longsum = 0 n = 0If DTPicker1.Value <> "" And DataCombo1.Text <> "" And DataCombo2.Text <> "" And DataCombo3.Text <> "" And DataCombo4.Text <> "" ThenAdodc4.Refresh '车辆美容信息登记表Adodc4.Recordset.AddNewAdodc4.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc4.Recordset.Fields(1) = DataCombo1.TextAdodc4.Recordset.Fields(2) = DataCombo4.TextAdodc4.Recordset.Fields(3) = DataCombo2.TextAdodc4.Recordset.Fields(4) = DataCombo3.TextAdodc4.Recordset.UpdateAdodc9.RefreshIf Not Adodc9.Recordset.BOF Then '判断一下表是否为空表Adodc9.RefreshAdodc9.Recordset.MoveFirstWhile Not Adodc9.Recordset.EOFIf Adodc9.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc9.Recordset.Fields(1) = DataCombo1.Text Thenn = 1Adodc4.RefreshAdodc4.Recordset.MoveFirstWhile Not Adodc4.Recordset.EOFIf Adodc4.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc4.Recordset.Fields(1) = DataCombo1.Text Thensum = sum + Adodc4.Recordset.Fields(4)End IfAdodc4.Recordset.MoveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc9.Recordset.Fields(1) = DataCombo1.TextAdodc9.Recordset.Fields(2) = sumAdodc9.Recordset.Fields(4) = sum + Adodc9.Recordset.Fields(3)Adodc9.Recordset.Update '保存End IfAdodc9.Recordset.MoveNextWendEnd IfIf n = 0 ThenAdodc9.Recordset.AddNew '向车辆消费信息表中添加美容项目消费Adodc4.RefreshAdodc4.Recordset.MoveFirstWhile Not Adodc4.Recordset.EOFIf Adodc4.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc4.Recordset.Fields(1) = DataCombo1.Text Thensum = sum + Adodc4.Recordset.Fields(4)End IfAdodc4.Recordset.MoveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.V alue)Adodc9.Recordset.Fields(1) = DataCombo1.TextAdodc9.Recordset.Fields(2) = sumAdodc9.Recordset.Fields(4) = sumAdodc9.Recordset.Update '保存End IfElse MsgBox "资料输入不全,请重新输入!!", 64, "提示"End IfDataCombo2.Text = ""DataCombo3.Text = ""DataGrid1.Columns(0).Width = 1500DataGrid1.Columns(1).Width = 1500DataCombo2.SetFocusEnd SubPrivate Sub Command5_Click()修改用料.ShowEnd SubPrivate Sub Command6_Click()If DataGrid1.AllowUpdate = False ThenDataGrid1.AllowUpdate = TrueDataGrid1.AllowDelete = TrueCommand6.Caption = "锁定"MsgBox "您巳进入修改状态!"ElseDataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = TrueCommand6.Caption = "修改"MsgBox "您进入锁定状态!"End IfEnd SubPrivate Sub DataCombo2_GotFocus()Adodc7.RecordSource = "select 美容项目,价格from 车辆美容信息登记表where 日期='" & CStr(DTPicker1.Value) & "' and 车牌号码='" & DataCombo1.Text & "'"Adodc7.RefreshEnd SubPrivate Sub DataCombo5_GotFocus()Adodc8.RecordSource = "select 材料号,材料名称,单价,数量from 车辆用料信息表where 日期='" & CStr(DTPicker1.Value) & "' and 车牌号码='" & DataCombo1.Text & "'"Adodc8.RefreshDataGrid2.Columns(0).Width = 1000DataGrid2.Columns(1).Width = 1000DataGrid2.Columns(2).Width = 1000DataGrid2.Columns(3).Width = 1000End SubPrivate Sub DataCombo3_GotFocus()'查询美容项目定义表,美容价格随着美容项目的选择而变If Not Adodc2.Recordset.BOF ThenAdodc2.Recordset.MoveFirstWhile Not Adodc2.Recordset.EOFIf Adodc2.Recordset.Fields(1) = DataCombo2.Text ThenDataCombo3.Text = Adodc2.Recordset.Fields(2)End IfAdodc2.Recordset.MoveNextWendEnd IfEnd SubPrivate Sub DataCombo6_GotFocus()If Not Adodc5.Recordset.BOF Then '根据填入的材料号,材料名称会自动出现Adodc5.Recordset.MoveFirstWhile Not Adodc5.Recordset.EOFIf Adodc5.Recordset.Fields(0) = DataCombo5.Text ThenDataCombo6.Text = Adodc5.Recordset.Fields(1)End IfAdodc5.Recordset.MoveNextWendEnd IfEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"ado = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + mpath + "database.mdb"Adodc1.ConnectionString = adoAdodc1.RecordSource = "车辆基本信息表"Adodc1.RefreshAdodc2.ConnectionString = adoAdodc2.RecordSource = "美容项目定义表"Adodc2.RefreshAdodc3.ConnectionString = adoAdodc3.RecordSource = "bmxx"Adodc3.RefreshAdodc4.ConnectionString = adoAdodc4.RecordSource = "车辆美容信息登记表"Adodc4.RefreshAdodc5.ConnectionString = adoAdodc5.RecordSource = "库存材料清单"Adodc5.RefreshAdodc6.ConnectionString = adoAdodc6.RecordSource = "车辆用料信息表"Adodc6.RefreshAdodc9.ConnectionString = adoAdodc9.RecordSource = "车辆消费信息表"Adodc9.RefreshIf er_type <> 1 ThenCommand3.Enabled = FalseCommand5.Enabled = FalseEnd IfEnd Sub修改美容项目模块源代码如下:Private Sub Command1_Click()Dim l, x, y As Longl = 0Adodc2.Refresh '在美容项目登记表中删除项目Adodc2.Recordset.MoveFirstWhile Not Adodc2.Recordset.EOFIf Adodc2.Recordset.Fields(0) = Text1.Text And Adodc2.Recordset.Fields(1) = DataCombo1.Text And Adodc2.Recordset.Fields(2) = DataCombo2.Text And Adodc2.Recordset.Fields(3) = DataCombo3.Text And Adodc2.Recordset.Fields(4) = DataCombo4.Text Thenl = 1y = Adodc2.Recordset.Fields(4)msg$ = "确定要删除该美容项目吗?"ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, "删除记录")If ans = vbOK ThenAdodc2.Recordset.DeleteAdodc2.Recordset.MoveNextAdodc2.Recordset.UpdateAdodc2.RefreshEnd IfDataGrid1.Columns(0).Width = 120XXDataGrid1.Columns(1).Width = 120XXDataGrid1.Columns(2).Width = 120XXDataGrid1.Columns(3).Width = 120XXDataGrid1.Columns(4).Width = 120XXEnd IfAdodc2.Recordset.MoveNextWendIf l = 0 Then '要删除的项目不存在时MsgBox ("数据库中没有您要删除的项目!!")End IfAdodc6.Refresh '修改车辆消费信息表中的人工费合计和总金额Adodc6.Recordset.MoveFirstWhile Not Adodc6.Recordset.EOFIf Adodc6.Recordset.Fields(0) = Text1.Text And Adodc6.Recordset.Fields(1) = DataCombo1.Text Thenx = Adodc6.Recordset.Fields(2)Adodc6.Recordset.Fields(2) = x - yAdodc6.Recordset.Fields(4) = Adodc6.Recordset.Fields(2) + Adodc6.Recordset.Fields(3)Adodc6.Recordset.UpdateEnd IfAdodc6.Recordset.MoveNextWendDataCombo2.Text = ""DataCombo3.Text = ""DataCombo4.Text = ""DataCombo2.SetFocusEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()If DataGrid1.AllowUpdate = False ThenDataGrid1.AllowUpdate = TrueDataGrid1.AllowDelete = TrueCommand3.Caption = "锁定"MsgBox "您巳进入修改状态!"ElseDataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = TrueCommand3.Caption = "修改"MsgBox "您进入锁定状态!"End IfEnd SubPrivate Sub DataCombo2_GotFocus()Adodc1.RecordSource = "select * from 车辆美容信息登记表where 日期='" & Text1.Text & "' and 车牌号码='" & DataCombo1.Text & "'"Adodc1.RefreshEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"ado = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"ado = ado + "Data Source=" + mpath + "database.mdb"Adodc1.ConnectionString = adoAdodc2.ConnectionString = adoAdodc2.RecordSource = "车辆美容信息登记表"Adodc2.RefreshAdodc3.ConnectionString = adoAdodc3.RecordSource = "车辆基本信息表"Adodc3.RefreshAdodc5.ConnectionString = adoAdodc5.RecordSource = "美容项目定义表"Adodc5.RefreshAdodc6.ConnectionString = adoAdodc6.RecordSource = "车辆消费信息表"Adodc6.Refresh'Text1.SetFocusEnd Sub修改用料模块源代码如下:Private Sub Command1_Click()Dim l, x, y, z, m, l1 As Longl = 0l1 = 0Adodc3.Refresh '在车辆用料信息表中删除信息If Not Adodc3.Recordset.BOF ThenAdodc3.Recordset.MoveFirstWhile Not Adodc3.Recordset.EOFIf Adodc3.Recordset.Fields(0) = Text1.Text And Adodc3.Recordset.Fields(1) = DataCombo1.Text And Adodc3.Recordset.Fields(2) = DataCombo2.Text And Adodc3.Recordset.Fields(3) = DataCombo3.Text And Adodc3.Recordset.Fields(4) = Text2.Text Thenl = 1z = Adodc3.Recordset.Fields(5)m = z - CLng(Text3.Text)If m > 0 Thenmsg$ = "确定要修改该用料信息吗?"ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, "修改记录")If ans = vbOK Thenl1 = 1Adodc3.Recordset.Fields(5) = mAdodc3.Recordset.UpdateAdodc3.Refreshy = Adodc3.Recordset.Fields(4) * CLng(Text3.Text)End IfElseIf m = 0 Thenmsg$ = "确定要删除该用料信息吗?"ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, "删除记录")If ans = vbOK Thenl1 = 1y = Adodc3.Recordset.Fields(4) * CLng(Text3.Text)Adodc3.Recordset.DeleteAdodc3.Recordset.MoveNextAdodc3.RefreshEnd IfElseIf m < 0 ThenMsgBox ("您要删除的数量大于该车实际用量!!")End IfDataGrid1.Columns(0).Width = 120XXDataGrid1.Columns(1).Width = 120XXDataGrid1.Columns(2).Width = 120XXDataGrid1.Columns(3).Width = 120XXDataGrid1.Columns(4).Width = 120XXDataGrid1.Columns(5).Width = 120XXIf l1 = 1 ThenAdodc4.Refresh '修改车辆消费信息表中的材料费合计和总金额If Not Adodc4.Recordset.BOF ThenAdodc4.Recordset.MoveFirstWhile Not Adodc4.Recordset.EOFIf Adodc4.Recordset.Fields(0) = Text1.Text And Adodc4.Recordset.Fields(1) = DataCombo1.Text Thenx = Adodc4.Recordset.Fields(3)Adodc4.Recordset.Fields(3) = x - yAdodc4.Recordset.Fields(4) = Adodc4.Recordset.Fields(2) + Adodc4.Recordset.Fields(3)Adodc4.Recordset.UpdateEnd IfAdodc4.Recordset.MoveNextWendEnd IfAdodc2.Refresh '修改库存材料清单If Not Adodc2.Recordset.BOF ThenAdodc2.Recordset.MoveFirstWhile Not Adodc2.Recordset.EOFIf Adodc2.Recordset.Fields(0) = DataCombo2.Text And Adodc2.Recordset.Fields(1) = DataCombo3.Text ThenAdodc2.Recordset.Fields(4) = Adodc2.Recordset.Fields(4) + CLng(Text3.Text)Adodc2.Recordset.UpdateEnd IfAdodc2.Recordset.MoveNextWendEnd If '修改库存材料清单完毕End IfDataCombo2.Text = ""DataCombo3.Text = ""Text2.Text = ""Text3.Text = ""DataCombo2.SetFocusExit SubEnd IfAdodc3.Recordset.MoveNextWendEnd IfIf l = 0 Then '要删除的项目不存在时。

VB库存管理系统(有源程序)(可编辑)

VB库存管理系统(有源程序)(可编辑)

VB库存管理系统(有源程序)源程序代码等全套设计联系 174320523 各专业都有第一章引言新的世纪、新的千年和新的时代,同时向我们走来。

即将过去的二十世纪是伟大的,正在向我们走来的新世纪将更加伟大。

人类将从传统的物质经济迈向崭新的知识经济时代。

在知识经济时代,以电脑为核心的信息技术,将成为时代的标志,单位是知识的前沿领域,单位的一些管理者应该首先冲入智能化、网络化的行列。

那么库存管理应该用哪些软件、怎样来设计呢?Visual Basic 6.0是由软件界巨头、著名的微软公司可视化编程语言、由于其可视化程度高、代码简洁易读,因此是最容易入门的编程之一。

Visual Basic6.0使用了Microsoft Windows图形用户界面的许多先进特性和设计思想,提供了向导自动生成代码,支持拖放技术、属性提示与检查、语法检查等内置自动化,大大降低了编写代码的工作量,特别是提供了极其丰富的控件,使得Visual Basic 6.0成为最简捷、最有效的开发 Windows应用程序工具。

随着网络技术的不断发展,Visual Basic 6.0的应用范围也从开发单机软件发展到开发网上颁式应用程序。

Visual Basic 6.0不但受到广大初、中级计算机爱好者的欢迎,也越来越受到高级程序员的欢迎。

第二章概述2.1 程序设计的目的和意义库存管理系统是一个企业不可缺少的部分,它的内容对于单位的决策者和管理者来说都至关重要,所以库存管理系统应该能够为用户提供充足的信息和快捷的查询手段。

但一直以来人们使用传统人工的方式管理文件库存,这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。

随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。

作为计算机应用的一部分,使用计算机对库存信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。

仓库管理系统(VB+Access+源代码)

仓库管理系统(VB+Access+源代码)

精心整理精心整理仓库管理系统项目的建立这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统,现图文结合的方式一步一步展现制作过程。

由于本人是个初学者,里面存在很多不足之处望得到高手们的指导。

此文可作供: 1、2、3、4、 在“标题”里输入“系统”,在“名称”里输入“Sys ”(注意此处不能为汉字)点击“下一个”再点击“”“确定”退到MDI 界面点击“系统”——“退出”如下,然后编写代码。

代码如下:Private Sub Exit_Click()精心整理EndEnd Sub数据库的建立VB6.0中可以创建Access数据库。

如下建立一个“用户表”的数据库,用来存放用户信息及一些出入库管理信息。

如下图单击“外接程序”点击“”出现1、单击““”明。

2、本窗体代码如下:Private Sub Command1_Click() '“登录”、“确定”按钮If Command1.Caption = "确定" And Command2.Caption = "取消" Then '如果为“确定”则添加新用户If Text1.Text = "" Then '提示用户输入用户名MsgBox "请输入用户名!", , "登录信息提示:"Exit SubElse 'Dim usename As String '检测用户名是否已经存在Dim strS As String精心整理. . .. . .usename = Trim(Text1.Text)strS = "select * from 用户登录信息表where 用户名='" & usename & "'"mandType = adCmdTextAdodc1.RecordSource = strSAdodc1.RefreshMsgBox "您输入的用户已存在!", , "登录提示信息:"Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusExit SubEnd IfEnd IfIf Text2.Text = "" Then '提示用户密码不能为空MsgBox "密码不能为空!", , "登录提示信息:"Text2.SetFocusExit SubEnd IfIf Text3.Text = "" ThenMsgBox "请再次输入密码!", , "登录提示信息:"Text3.SetFocusExit SubEnd IfIf Text2.Text <> Text3.Text ThenMsgBox "两次输入的密码不一致,请确认!", , "登录提示信息:"Text2.Text = ""Text3.Text = ""Text2.SetFocusExit SubElseMsgBox ("添加新用户成功,现在您可以登陆系统了!")Label3.Visible = FalseText3.Visible = FalseCommand1.Caption = "登录"Command2.Caption = "退出"End IfElse '“登录”按钮,用户登录Dim strSno As StringDim strSelect As StringstrSno = Trim(Text1.Text) '检测用户名是否存在strSelect = "select 密码from 用户登录信息表where 用户名= '" & strSno & "'"mandType = adCmdTextAdodc1.RecordSource = strSelectAdodc1.RefreshMsgBox "用户名不存在,请重新输入!", , "登录提示信息:"Text1.Text = "". 专业专注.精心整理Text2.Text = ""Text1.SetFocusExit SubEnd IfForm1.Hide'Unload MeForm2.Show'MsgBox "登陆成功!", , "登录提示信息:"ElseMsgBox "密码不正确,请重新输入!", , "登录提示信息:"Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Label6.Visible = TrueEnd SubPrivate Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Label6.Visible = FalseEnd SubPrivate Sub Form_Load()Label3.Visible = False精心整理. . .. . .Text3.Visible = FalseEnd SubPrivate Sub Timer1_Timer() '时间time1控件的time事件代码,用来'显示向左移动的欢迎字幕If Label4.Left + Label4.Width > 0 Then '当标签右边位置大于0时,标签向左移Label4.Move Label4.Left - 80Else '否则标签从头开始Label4.Left = Form1.ScaleWidthEnd IfIf Label5.Left + Label5.Width > 0 ThenLabel5.Move Label5.Left - 80ElseLabel5.Left = Form1.ScaleWidthEnd IfEnd Sub主界面窗体如下:代码:Private Sub AddNew_Click()Frame1.Visible = TrueFrame2.Visible = FalseEnd SubPrivate Sub CHKPMCHX_Click()Frame2.Caption = "出库信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 出库表where 品名= '" & pm & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub CHKXHCHX_Click()Frame2.Caption = "出库信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)n = "select * from 出库表where 型号= '" & XH & "'"mandType = adCmdTextAdodc2.RecordSource = n. 专业专注.精心整理Adodc2.RefreshEnd SubPrivate Sub CKCZ_Click()'Form2.HideForm6.ShowEnd SubPrivate Sub CKJSHR_Click()Frame2.Caption = "出库信息"Dim JSHR As StringDim n As StringJSHR = InputBox("经手人", "请输入", 0)End SubPrivate Sub Command1_Click()If Text1.Text = "" Then '提示用户输入用户名MsgBox "请输入用户名!", , "登录信息提示:"Exit SubElse 'Dim usename As String '检测用户名是否已经存在Dim strS As Stringusename = Trim(Text1.Text)strS = "select * from 用户登录信息表where 用户名='" & usename & "'"精心整理. . .. . .mandType = adCmdTextAdodc1.RecordSource = strSAdodc1.RefreshMsgBox "您输入的用户已存在!", , "登录提示信息:"Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusExit SubEnd IfEnd IfIf Text2.Text = "" Then '提示用户密码不能为空MsgBox "密码不能为空!", , "登录提示信息:"Text2.SetFocusExit SubEnd IfIf Text3.Text = "" ThenMsgBox "请再次输入密码!", , "登录提示信息:"Text3.SetFocusExit SubEnd IfIf Text2.Text <> Text3.Text ThenMsgBox "两次输入的密码不一致,请确认!", , "登录提示信息:"Text2.Text = ""Text3.Text = ""Text2.SetFocusExit SubElseeDim X As IntegerX = MsgBox("成功添加新用户,是否要重新登录!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbYes ThenUnload MeForm3.ShowEnd If'MsgBox ("成功添加新用户!")'Label3.Visible = False'Text3.Visible = False'Command1.Caption = "登录"'Command2.Caption = "退出"End IfFrame1.Visible = FalseFrame2.Visible = TrueText1.Text = ""Text2.Text = "'"Text3.Text = "". 专业专注.精心整理精心整理'Form3.ShowEnd SubPrivate Sub Command2_Click()Frame1.Visible = FalseFrame2.Visible = TrueEnd SubPrivate Sub CXDL_Click()Form3.Show'Unload MeEnd SubPrivate Sub Exit_Click()EndDim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 归还表 where 品名 = '" & pm & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub GHRCX_Click(). . .. . . Frame2.Caption = "归还信息"Dim JCR As StringDim n As StringJCR = InputBox("归还人", "请输入", 0)n = "select * from 归还表where 归还人= '" & JCR & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub GHSJCX_Click()Frame2.Caption = "归还信息"Dim JCRQ As StringDim n As StringJCRQ = InputBox("归还日期,格式为:月/日/年如:12/1/2011", "请输入", 0)n = "select * from 归还表where 归还日期= '" & JCRQ & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub GHXHCX_Click()Frame2.Caption = "归还信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)n = "select * from 归还表where 型号= '" & XH & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub GHZCX_Click()Frame2.Caption = "归还信息"Dim ZB As StringZB = "select * from 归还表"mandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid2End SubPrivate Sub JCCZ_Click()'Form2.HideForm7.ShowEnd SubPrivate Sub JCHPMCHX_Click(). 专业专注.精心整理Frame2.Caption = "借出信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 借出表where 品名= '" & pm & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub JCHXHCHX_Click()JCRQ = InputBox("借出日期,格式为:月/日/年如:12/1/2011", "请输入", 0) n = "select * from 借出表where 借出日期= '" & JCRQ & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub JCZCX_Click()Frame2.Caption = "借出信息"Dim ZB As String精心整理ZB = "select * from 借出表"mandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid2End SubPrivate Sub JSHRCHX_Click()Frame2.Caption = "归还信息"Dim JSHR As StringDim n As StringJSHR = InputBox("经手人", "请输入", 0)n = "select * from 归还表where 经手人= '" & JSHR & "'" mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub JSHRCX_Click()Frame2.Caption = "借出信息"Dim JSHR As StringDim n As StringJSHR = InputBox("经手人", "请输入", 0)n = "select * from 借出表where 经手人= '" & JSHR & "'" mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub PMCX_Click()Frame2.Caption = "库存信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 库存表where 品名= '" & pm & "'" mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid0End SubPrivate Sub RKCZ_Click()'Form2.HideForm5.ShowEnd SubPrivate Sub RKJSHR_Click()Frame2.Caption = "入库信息"Dim JSHR As StringDim n As StringJSHR = InputBox("经手人", "请输入", 0)n = "select * from 入库表where 经手人= '" & JSHR & "'" mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub RKPMCHX_Click()Frame2.Caption = "入库信息"Dim pm As StringXH = InputBox("产品型号", "请输入", 0)If Len(XH) > 0 Thenn = "select * from 入库表where 型号= '" & XH & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd IfCall InitGrid1End SubPrivate Sub RKZCX_Click()Frame2.Caption = "入库信息"Dim ZB As StringZB = "select * from 入库表"mandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid1End SubPrivate Sub Timer1_Timer()If Label4.Left + Label4.Width > 0 Then '当标签右边位置大于0时,标签向左移Label4.Move Label4.Left - 80Else '否则标签从头开始Label4.Left = Form2.ScaleWidthEnd IfIf Label5.Left + Label5.Width > 0 ThenLabel5.Move Label5.Left - 80ElseLabel5.Left = Form2.ScaleWidthEnd IfIf Label6.Left + Label6.Width > 0 ThenLabel6.Move Label6.Left - 80ElseLabel6.Left = Form2.ScaleWidthEnd IfIf Label7.Left + Label7.Width > 0 ThenLabel7.Move Label7.Left - 80ElseLabel7.Left = Form2.ScaleWidthEnd IfEnd SubPrivate Sub XGMM_Click()'Form2.HideForm4.ShowEnd SubPrivate Sub XHCX_Click()Frame2.Caption = "库存信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)If Len(XH) > 0 Then 'And Val(XH) <> 0n = "select * from 库存表where 型号= '" & XH & "'"mandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd IfCall InitGrid0End SubPrivate Sub ZB_Click()Frame2.Caption = "库存信息"Dim ZB As String'Dim N As String'PM = InputBox("产品名", "请输入", 0)ZB = "select * from 库存表" 'where 品名= '" & PM & "'" mandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid0'.Columns(0).Caption = "学号"' .Columns(1).Caption = "课程名"'.Columns(2).Caption = "学分"' .Columns(3).Caption = "成绩"'设置DtgCond的列宽.Columns(0).Width = 800.Columns(1).Width = 1600.Columns(2).Width = 1600.Columns(3).Width = 800.Columns(4).Width = 800.Columns(5).Width = 800.Columns(6).Width = 1000.Columns(7).Width = 800.Columns(8).Width = 4000End WithEnd Sub用户重新登录界面代码:Private Sub Command1_Click()Dim strSno As StringDim strSelect As StringstrSno = Trim(Text1.Text) '检测用户名是否存在strSelect = "select 密码from 用户登录信息表where 用户名= '" & strSno & "'"mandType = adCmdTextAdodc1.RecordSource = strSelectAdodc1.RefreshMsgBox "用户名不存在,请重新输入!", , "登录提示信息:"Text1.Text = ""Text2.Text = ""Text1.SetFocusExit SubEnd IfUnload MeForm2.Show'MsgBox "登陆成功!", , "登录提示信息:"ElseMsgBox "密码不正确,请重新输入!", , "登录提示信息:"Text2.Text = ""Text2.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()Unload MeForm2.ShowEnd Sub修改用户密码界面代码:Private Sub Command1_Click()If Trim(Text1.Text) <> Form2.TextUserName ThenMsgBox "用户名不正确,请确认!", , "信息提示!"Text1.Text = ""Text1.SetFocusExit SubElseDim name As StringDim names As Stringname = Trim(Text1.Text)names = "select * from 用户登录信息表where 用户名='" & name & "'"mandType = adCmdTextAdodc1.RecordSource = namesAdodc1.RefreshExit SubElseMsgBox ("密码修改成功!")Unload Me'Form2.ShowEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Unload Me'Form2.ShowEnd Sub入库管理代码:Private Sub Command1_Click()If Text1.Text = "" And Text2.Text = "" ThenMsgBox "“品名”和“型号”不能同时为空,必须输入其中一项!", , "提示信息!"Exit SubText1.SetFocusElseIf Text3.Text = "" And Text4.Text = "" ThenMsgBox "请输入产品“数量”或“单位”之一!", , "提示信息!"Text3.SetFocusExit SubEnd IfIf Text5.Text = "" ThenMsgBox "请经手人签名!", vbCritical, "提示信息!"Text5.SetFocusExit SubEnd IfAdodc1.RefreshEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trim(Text1.Text)n = Val(Text3.Text)pms = "select * from 库存表where 品名='" & pm & "'"With Form2End WithElseEnd IfEnd IfDim X As IntegerX = MsgBox("产品入库登记成功,是否继续添加产品!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbNo ThenUnload Me'Form2.ShowElseText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text1.SetFocusEnd IfDim ZB As StringZB = "select * from 入库表" 'where 品名= '" & PM & "'" End SubPrivate Sub Command2_Click()Text1.Text = ""End SubEnd Sub代码:ElseExit SubEnd IfIf Text2.Text = "" ThenMsgBox "请经手人签名!", vbCritical, "提示信息!"Text2.SetFocusExit SubEnd IfAdodc1.RefreshEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trim(Combo1.Text)n = Val(Text1.Text)pms = "select * from 库存表where 品名='" & pm & "'"End IfDim X As IntegerX = MsgBox("产品出库登记成功,是否继续添加产品!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbNo ThenUnload Me'Form2.ShowEnd IfCombo1.Text = ""Combo2.Text = ""Combo3.Text = ""Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Dim ZB As StringZB = "select * from 出库表" 'where 品名= '" & PM & "'"End SubPrivate Sub Command2_Click()Combo1.Text = ""Combo2.Text = ""Combo3.Text = ""Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Command3_Click()Unload Me'Form2.ShowEnd SubPrivate Sub Form_Load()Adodc2.RefreshLoopEnd Sub借出管理代码:Private Sub Command1_Click()If Combo1.Text = "" And Combo2.Text = "" Then ' text1.Text = "" And Text2.Text = "" Then MsgBox "“品名”和“型号”不能同时为空,必须输入其中一项!", , "提示信息!"Exit SubElseIf Text1.Text = "" And Combo3.Text = "" Then ' Text4.Text = "" ThenMsgBox "请输入产品“数量”或“单位”之一!", , "提示信息!"Text1.SetFocusExit SubEnd IfIf Text2.Text = "" ThenMsgBox "请经手人签名!", vbCritical, "提示信息!"End IfEnd IfEnd IfText4.Text = ""Dim ZB As StringZB = "select * from 借出表" 'where 品名= '" & PM & "'"End SubPrivate Sub Command2_Click()Combo1.Text = ""Combo2.Text = ""Combo3.Text = ""Text1.Text = ""Text2.Text = "". . .. . . Text3.Text = ""Text4.Text = ""End SubPrivate Sub Command3_Click()Unload MeForm2.ShowEnd SubPrivate Sub Form_Load()Adodc2.RefreshLoopEnd Sub归还管理代码:Private Sub Command1_Click()If Combo1.Text = "" And Combo2.Text = "" Then ' text1.Text = "" And Text2.Text = "" Then MsgBox "“品名”和“型号”不能同时为空,必须输入其中一项!", , "提示信息!"Exit SubElseIf Text1.Text = "" And Combo3.Text = "" Then ' Text4.Text = "" ThenMsgBox "请输入产品“数量”或“单位”之一!", , "提示信息!"Text1.SetFocusExit SubEnd IfIf Text2.Text = "" ThenMsgBox "请经手人签名!", vbCritical, "提示信息!"Text2.SetFocusExit SubEnd IfIf Text3.Text = "" ThenMsgBox "请输入归还人姓名!", vbCritical, "提示信息!"Text3.SetFocusExit SubEnd IfAdodc1.RefreshEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trim(Combo1.Text)n = Val(Text1.Text)pms = "select * from 库存表where 品名='" & pm & "'"End If. 专业专注.精心整理精心整理Dim X As IntegerX = MsgBox("产品归还登记成功,是否继续添加产品!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbNo ThenUnload MeForm2.ShowEnd IfCombo1.Text = ""Combo2.Text = ""Combo3.Text = ""Text1.Text = ""Text2.Text = ""End SubEnd SubEnd Sub' i = 0' ' LoopEnd SubPrivate Sub pm()Dim i As VariantDim j As VariantDim k As VariantDim a As VariantDim b As VariantDim c As VariantDim s As VariantDim D As Variant. . .. . .i = 0j = 0Adodc2.Refreshi = i + 1LoopD = Split(a, ",")If j < i Thens = D(2)Combo1.AddItem s'k = 0'If k < j And D(k) <> D(j) Then'If D(k) <> D(j) Then' Combo1.AddItem D(j)' k = k + 1' Else' k = k + 1'End If'End Ifj = j + 1End IfText5.Text = s 'a + "," + D(2) + D(1) '+ " " + Val(i) + " " + Val(j) + " " + Val(k)Text6.Text = j'Combo1.AddItem D(1)End Sub. 专业专注.。

(仓库管理)仓库管理系统源码

(仓库管理)仓库管理系统源码

(仓库管理)仓库管理系统源码unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,DB,ADODB,jpeg,ExtCtrls;typeTForm1=class(TForm)ADOConnection1:TADOConnection;ADOQuery1:TADOQuery;Edit1:TEdit;Edit2:TEdit;Button1:TButton;Button2:TButton;ADOTable1:TADOTable;Image1:TImage;Label1:TLabel;Label2:TLabel;Label3:TLabel;Label4:TLabel;Button3:TButton;procedureButton1Click(Sender:TObject);procedureButton2Click(Sender:TObject);procedureButton3Click(Sender:TObject); private{Privatedeclarations}publiccount:integer;{Publicdeclarations}end;varForm1:TForm1;implementationusesUnit12,Unit19;{$R*.dfm}procedureTForm1.Button1Click(Sender:TObject); varyonghu:string;beginyonghu:=trim(edit1.T ext);//trim去除字符串空格count:=count+1;//登陆次数withadoquery1dobeginClose;;:='select*from用户信息表where用户名='''+yonghu+'''';open;if(adoQuery1.RecordCount<>0)and(edit2.T ext<>'')and(adoQuery1.FieldByName('密码').AsString=edit2.T ext)thenbeginifadoQuery1.FieldByName('是否管理员').AsString='True'thenbeginform12.SpeedButton1.Visible:=true;form12.Button13.Visible:=true;('密码正确,即将进入系统。

仓库管理系统(VB+Access+源代码)

仓库管理系统(VB+Access+源代码)

仓库管理系统项目的建立这是本人利用闲暇之余在上制作的一个简陋的类库管系统,现图文结合的方式一步一步展现制作过程。

由于本人是个初学者,里面存在很多不足之处望得到高手们的指导。

此文可作供初学者们学习交流。

作者联系方式:E-mail最终运行效果打开软件出现如下登录界面输入系统预设用户名及密码( 1 1 )单击“登录”或单击“新用户”添加新用户进入如下主界面:建立工程1、创建标准EXE2、按“打开”3、添加MDI窗体——打开4、编辑菜单在空白处右击——点击“菜单编辑器”在“标题”里输入“系统”,在“名称”里输入“Sys”(注意此处不能为汉字)点击“下一个”再点击“”“确定”退到MDI界面点击“系统”——“退出”如下,然后编写代码。

代码如下:Private Sub Exit_Click()EndEnd Sub数据库的建立中可以创建Access数据库。

如下建立一个“用户表”的数据库,用来存放用户信息及一些出入库管理信息。

如下图单击“外接程序”再单击“可视化数据管理器”出现如图点击“文件”——“新建”——“Microsoft Access”——“Version MDB”输入数据库名,“保存”出现如下图在数据窗口中右击——“新建表”,最终如下往数据表里添加数据在这里就不罗嗦了,请查阅相关书籍。

登录界面窗口的建立最终界面如下:1、Adodc1的添加过程为:单击“工程”——“部件”出现下图所示,选择“控件”下的“Microsoft ADO Data Control (OLEDB)”单击“确定”在工具栏中会出现“”图标,单击它并拖动到相应位置即可。

其它元件不在一一说明。

2、本窗体代码如下:Private Sub Command1_Click() '“登录”、“确定”按钮 If = "确定" And = "取消" Then '如果为“确定”则添加新用户If = "" Then '提示用户输入用户名MsgBox "请输入用户名!", , "登录信息提示:"Exit SubElse 'Dim usename As String '检测用户名是否已经存在Dim strS As Stringusename = TrimstrS = "select * from 用户登录信息表 where 用户名='" & usename & "'"= adCmdText= strSIf = False ThenMsgBox "您输入的用户已存在!", , "登录提示信息:"= ""= ""= ""Exit SubEnd IfEnd IfIf = "" Then '提示用户密码不能为空 MsgBox "密码不能为空!", , "登录提示信息:"Exit SubEnd IfIf = "" ThenMsgBox "请再次输入密码!", , "登录提示信息:"Exit SubEnd IfIf <> ThenMsgBox "两次输入的密码不一致,请确认!", , "登录提示信息:"= ""Exit SubElse'添加新用户"用户名") = Trim"密码") = TrimMsgBox ("添加新用户成功,现在您可以登陆系统了!")= False= False= "登录"= "退出"End IfElse '“登录”按钮,用户登录 Dim strSno As StringDim strSelect As StringstrSno = Trim '检测用户名是否存在strSelect = "select 密码 from 用户登录信息表 where 用户名 = '" & strSno & "'"= adCmdText= strSelectIf = True ThenMsgBox "用户名不存在,请重新输入!", , "登录提示信息:"= ""= ""End IfIf "密码") = Trim Then '检测密码是否正确'Unload Me'MsgBox "登陆成功!", , "登录提示信息:"ElseMsgBox "密码不正确,请重新输入!", , "登录提示信息:"= ""End IfEnd IfEnd SubPrivate Sub Command2_Click() '“退出”或“取消”按钮 If = "取消" Then= False= False= "登录"= "退出"= ""= ""ElseEnd 'Unload MeEnd IfEnd SubPrivate Sub Command3_Click() '“新用户”按钮= True= True= ""= ""= ""= "确定"= "取消"End SubPrivate Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)= TrueEnd SubPrivate Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)= FalseEnd SubPrivate Sub Form_Load()= False= FalseEnd SubPrivate Sub Timer1_Timer() '时间time1控件的time事件代码,用来'显示向左移动的欢迎字幕If + > 0 Then '当标签右边位置大于0时,标签向左移- 80Else '否则标签从头开始=End IfIf + > 0 Then- 80Else=End IfEnd Sub主界面窗体如下:代码:Private Sub AddNew_Click() = True= FalseEnd SubPrivate Sub CHKPMCHX_Click()= "出库信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 出库表 where 品名 = '" & pm & "'" = adCmdText= nCall InitGrid1End SubPrivate Sub CHKXHCHX_Click()= "出库信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)n = "select * from 出库表 where 型号 = '" & XH & "'" = adCmdText= nEnd SubPrivate Sub CKCZ_Click()'End SubPrivate Sub CKJSHR_Click()= "出库信息"Dim JSHR As StringDim n As StringJSHR = InputBox("经手人", "请输入", 0)n = "select * from 出库表 where 经手人 = '" & JSHR & "'"= adCmdText= nCall InitGrid1End SubPrivate Sub CKSHJ_Click()= "出库信息"Dim CHKRQ As StringDim n As StringCHKRQ = InputBox("出库日期,格式为:月/日/年如:12/1/2011", "请输入", 0) n = "select * from 出库表 where 出库日期 = '" & CHKRQ & "'"= adCmdText= nCall InitGrid1End SubPrivate Sub CKZCX_Click()= "出库信息"Dim ZB As StringZB = "select * from 出库表 "= adCmdText= ZBCall InitGrid1End SubPrivate Sub Command1_Click()If = "" Then '提示用户输入用户名MsgBox "请输入用户名!", , "登录信息提示:"Exit SubElse 'Dim usename As String '检测用户名是否已经存在 Dim strS As Stringusename = TrimstrS = "select * from 用户登录信息表 where 用户名='" & usename & "'"= adCmdText= strSIf = False ThenMsgBox "您输入的用户已存在!", , "登录提示信息:"= ""= ""= ""Exit SubEnd IfEnd IfIf = "" Then '提示用户密码不能为空MsgBox "密码不能为空!", , "登录提示信息:"Exit SubEnd IfIf = "" ThenMsgBox "请再次输入密码!", , "登录提示信息:"Exit SubEnd IfIf <> ThenMsgBox "两次输入的密码不一致,请确认!", , "登录提示信息:"= ""= ""Exit SubElse'添加新用户"用户名") = Trim"密码") = TrimDim X As IntegerX = MsgBox("成功添加新用户,是否要重新登录!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbYes ThenUnload MeEnd If'MsgBox ("成功添加新用户!")' = False' = False' = "登录"' = "退出"End If= False= True= ""= "'"= ""'End SubPrivate Sub Command2_Click() = False= TrueEnd SubPrivate Sub CXDL_Click()'Unload MeEnd SubPrivate Sub Exit_Click()EndUnload Form1Unload Form2Unload Form3Unload Form4Unload Form5Unload Form6Unload Form7Unload Form8End SubPrivate Sub Form_Load()TextUserName = Trim Unload Form1= FalseCall InitGrid0= - 1060= - 560==End SubPrivate Sub GHCZ_Click()'End SubPrivate Sub GHPMCX_Click()= "归还信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 归还表 where 品名 = '" & pm & "'" = adCmdText= nCall InitGrid2End SubPrivate Sub GHRCX_Click()= "归还信息"Dim JCR As StringDim n As StringJCR = InputBox("归还人", "请输入", 0)n = "select * from 归还表 where 归还人 = '" & JCR & "'"= adCmdText= nCall InitGrid2End SubPrivate Sub GHSJCX_Click()= "归还信息"Dim JCRQ As StringDim n As StringJCRQ = InputBox("归还日期,格式为:月/日/年如:12/1/2011", "请输入", 0) n = "select * from 归还表 where 归还日期 = '" & JCRQ & "'"= adCmdText= nCall InitGrid2End SubPrivate Sub GHXHCX_Click()= "归还信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)n = "select * from 归还表 where 型号 = '" & XH & "'" = adCmdText= nCall InitGrid2End SubPrivate Sub GHZCX_Click()= "归还信息"Dim ZB As StringZB = "select * from 归还表 "= adCmdText= ZBCall InitGrid2End SubPrivate Sub JCCZ_Click()'End SubPrivate Sub JCHPMCHX_Click()= "借出信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 借出表 where 品名 = '" & pm & "'"= adCmdText= nCall InitGrid2End SubPrivate Sub JCHXHCHX_Click()= "借出信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)n = "select * from 借出表 where 型号 = '" & XH & "'"= adCmdText= nCall InitGrid2End SubPrivate Sub JCRCX_Click()= "借出信息"Dim JCR As StringDim n As StringJCR = InputBox("借出人", "请输入", 0)n = "select * from 借出表 where 借出人 = '" & JCR & "'" = adCmdText= nCall InitGrid2End SubPrivate Sub JCSHJCX_Click()= "借出信息"Dim JCRQ As StringDim n As StringJCRQ = InputBox("借出日期,格式为:月/日/年如:12/1/2011", "请输入", 0) n = "select * from 借出表 where 借出日期 = '" & JCRQ & "'"= adCmdText= nCall InitGrid2End SubPrivate Sub JCZCX_Click()= "借出信息"Dim ZB As StringZB = "select * from 借出表 "= adCmdText= ZBCall InitGrid2End SubPrivate Sub JSHRCHX_Click()= "归还信息"Dim JSHR As StringDim n As StringJSHR = InputBox("经手人", "请输入", 0)n = "select * from 归还表 where 经手人 = '" & JSHR & "'" = adCmdText= nCall InitGrid2End SubPrivate Sub JSHRCX_Click()= "借出信息"Dim JSHR As StringDim n As StringJSHR = InputBox("经手人", "请输入", 0)n = "select * from 借出表 where 经手人 = '" & JSHR & "'" = adCmdText= nCall InitGrid2End SubPrivate Sub PMCX_Click()= "库存信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)n = "select * from 库存表 where 品名 = '" & pm & "'"= adCmdText= nCall InitGrid0End SubPrivate Sub RKCZ_Click()'End SubPrivate Sub RKJSHR_Click()= "入库信息"Dim JSHR As StringDim n As StringJSHR = InputBox("经手人", "请输入", 0)n = "select * from 入库表 where 经手人 = '" & JSHR & "'" = adCmdText= nCall InitGrid1End SubPrivate Sub RKPMCHX_Click()= "入库信息"Dim pm As StringDim n As Stringpm = InputBox("产品名", "请输入", 0)If Len(pm) > 0 Thenn = "select * from 入库表 where 品名 = '" & pm & "'" = adCmdText= nEnd IfCall InitGrid1End SubPrivate Sub RKSHJ_Click()= "入库信息"Dim RKRQ As StringDim n As StringRKRQ = InputBox("入库日期,格式为:月/日/年如:12/1/2011", "请输入", 0) n = "select * from 入库表 where 入库日期 = '" & RKRQ & "'"= adCmdText= nCall InitGrid1End SubPrivate Sub RKXHCHX_Click()= "入库信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)If Len(XH) > 0 Thenn = "select * from 入库表 where 型号 = '" & XH & "'"= adCmdText= nEnd IfCall InitGrid1End SubPrivate Sub RKZCX_Click()= "入库信息"Dim ZB As StringZB = "select * from 入库表 "= adCmdText= ZBCall InitGrid1End SubPrivate Sub Timer1_Timer()If + > 0 Then '当标签右边位置大于0时,标签向左移- 80Else '否则标签从头开始 =End IfIf + > 0 Then- 80Else=End IfIf + > 0 Then- 80Else=End IfIf + > 0 Then- 80Else=End IfEnd SubPrivate Sub XGMM_Click()'End SubPrivate Sub XHCX_Click()= "库存信息"Dim XH As StringDim n As StringXH = InputBox("产品型号", "请输入", 0)If Len(XH) > 0 Then 'And Val(XH) <> 0n = "select * from 库存表 where 型号 = '" & XH & "'" = adCmdText= nEnd IfCall InitGrid0End SubPrivate Sub ZB_Click()= "库存信息"Dim ZB As String'Dim N As String'PM = InputBox("产品名", "请输入", 0)ZB = "select * from 库存表 " 'where 品名 = '" & PM & "'" = adCmdText= ZBCall InitGrid0End SubPrivate Sub InitGrid0()With DataGrid1.Columns(0).Width = 1600.Columns(1).Width = 2200.Columns(2).Width = 2200.Columns(3).Width = 1000.Columns(4).Width = 1000.Columns(5).Width = 4000End WithEnd SubPrivate Sub InitGrid1()With DataGrid1.Columns(0).Width = 800.Columns(1).Width = 1600.Columns(2).Width = 1600.Columns(3).Width = 800.Columns(4).Width = 800.Columns(5).Width = 1000.Columns(6).Width = 800.Columns(7).Width = 4000End WithEnd SubPrivate Sub InitGrid2()With DataGrid1'.Columns(0).Caption = "学号" ' .Columns(1).Caption = "课程名" '.Columns(2).Caption = "学分" ' .Columns(3).Caption = "成绩" '设置DtgCond的列宽.Columns(0).Width = 800.Columns(1).Width = 1600.Columns(2).Width = 1600.Columns(3).Width = 800.Columns(4).Width = 800.Columns(5).Width = 800.Columns(6).Width = 1000.Columns(7).Width = 800.Columns(8).Width = 4000End WithEnd Sub用户重新登录界面代码:Private Sub Command1_Click()Dim strSno As StringDim strSelect As StringstrSno = Trim '检测用户名是否存在 strSelect = "select 密码 from 用户登录信息表 where 用户名 = '" & strSno & "'"= adCmdText= strSelectIf = True ThenMsgBox "用户名不存在,请重新输入!", , "登录提示信息:"= ""= ""Exit SubEnd IfIf "密码") = Trim Then '检测密码是否正确Unload Me'MsgBox "登陆成功!", , "登录提示信息:"ElseMsgBox "密码不正确,请重新输入!", , "登录提示信息:" = ""End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub修改用户密码界面代码:Private Sub Command1_Click()If Trim <> ThenMsgBox "用户名不正确,请确认!", , "信息提示!"= ""Exit SubElseDim name As StringDim names As Stringname = Trimnames = "select * from 用户登录信息表 where 用户名='" & name & "'" = adCmdText= namesIf = "" ThenMsgBox "请输入旧密码!", , "信息提示!"Exit SubEnd IfIf "密码") <> Trim ThenMsgBox "旧密码不正确,请确认!", , "信息提示!"= ""Exit SubEnd IfIf = "" ThenMsgBox "请输入新密码!", , "信息提示!"Exit SubEnd IfIf = "" ThenMsgBox "请再次输入新密码!", , "信息提示!"Exit SubEnd IfIf Trim <> Trim ThenMsgBox "两次输入的新密码不一致!", , "信息提示!" = ""= ""Exit SubElse"密码") = TrimMsgBox ("密码修改成功!")Unload Me'End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload Me'End Sub入库管理代码:Private Sub Command1_Click()If = "" And = "" ThenMsgBox "“品名”和“型号”不能同时为空,必须输入其中一项!", , "提示信息!" Exit SubElseIf = "" And = "" ThenMsgBox "请输入产品“数量”或“单位”之一!", , "提示信息!"Exit SubEnd IfIf = "" ThenMsgBox "请经手人签名!", vbCritical, "提示信息!"Exit SubEnd If'添加 "品名") = Trim"型号") = Trim"数量") = Trim"单位") = Trim"经手人") = Trim"入库日期") = Date"说明") = TrimEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trimn = Valpms = "select * from 库存表 where 品名='" & pm & "'"= adCmdText= pmsIf ThenWith Form2. ."品名") = Trim."型号") = Trim."数量") = Trim."单位") = Trim."说明") = Trim. End WithElsem = "数量").ValueIf "型号") = Trim Then"数量") = Val(m) + Val(n)End IfEnd IfDim X As IntegerX = MsgBox("产品入库登记成功,是否继续添加产品!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbNo ThenUnload Me'Else= ""= ""= ""= ""= ""= ""= ""End If= "入库信息"Dim ZB As StringZB = "select * from 入库表 " 'where 品名 = '" & PM & "'"= adCmdText= ZBSubPrivate Sub Command2_Click()= ""= ""= ""= ""= ""= ""End SubPrivate Sub Command3_Click()Unload Me'End Sub出库管理代码:Private Sub Command1_Click()If = "" And = "" Then ' = "" And = "" ThenMsgBox "“品名”和“型号”不能同时为空,必须输入其中一项!", , "提示信息!" Exit SubIf = "" And = "" Then ' = "" ThenMsgBox "请输入产品“数量”或“单位”之一!", , "提示信息!"Exit SubEnd IfIf = "" ThenMsgBox "请经手人签名!", vbCritical, "提示信息!"Exit SubEnd If'添加"品名") = Trim 'Trim"型号") = Trim 'Trim"数量") = Trim"单位") = Trim 'Trim"经手人") = Trim"出库日期") = Date"说明") = TrimEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trimn = Valpms = "select * from 库存表 where 品名='" & pm & "'"= adCmdText= pmsm = "数量").ValueIf "型号") = Trim Then"数量") = Val(m) - Val(n)End IfDim X As IntegerX = MsgBox("产品出库登记成功,是否继续添加产品!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbNo ThenUnload Me'End If= ""= ""= ""= ""= ""= ""= ""= "出库信息"Dim ZB As StringZB = "select * from 出库表 " 'where 品名 = '" & PM & "'"= adCmdText= ZBSubPrivate Sub Command2_Click()= ""= ""= ""= ""= ""= ""= ""End SubPrivate Sub Command3_Click() Unload Me'End SubPrivate Sub Form_Load()Do Until "型号") "品名")"单位")LoopEnd Sub借出管理代码:Private Sub Command1_Click()If = "" And = "" Then ' = "" And = "" ThenMsgBox "“品名”和“型号”不能同时为空,必须输入其中一项!", , "提示信息!" Exit SubElseIf = "" And = "" Then ' = "" ThenMsgBox "请输入产品“数量”或“单位”之一!", , "提示信息!"Exit SubEnd IfIf = "" ThenMsgBox "请经手人签名!", vbCritical, "提示信息!"Exit SubEnd If'添加"品名") = Trim 'Trim"型号") = Trim 'Trim"数量") = Trim"单位") = Trim 'Trim"经手人") = Trim"借出人") = Trim"借出日期") = Date"说明") = TrimEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trimn = Valpms = "select * from 库存表 where 品名='" & pm & "'"= adCmdText= pmsm = "数量").ValueIf "型号") = Trim Then"数量") = Val(m) - Val(n)End IfDim X As IntegerX = MsgBox("产品借出登记成功,是否继续添加产品!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbNo ThenUnload MeEnd If= ""= ""= ""= ""= ""= ""= ""= "借出信息"Dim ZB As StringZB = "select * from 借出表 " 'where 品名 = '" & PM & "'" = adCmdText= ZBSubPrivate Sub Command2_Click()= ""= ""= ""= ""= ""= ""= ""End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Do Until "品名")"型号")"单位")LoopEnd Sub归还管理代码:Private Sub Command1_Click()If = "" And = "" Then ' = "" And = "" ThenMsgBox "“品名”和“型号”不能同时为空,必须输入其中一项!", , "提示信息!" Exit SubElseIf = "" And = "" Then ' = "" ThenMsgBox "请输入产品“数量”或“单位”之一!", , "提示信息!"Exit SubEnd IfIf = "" ThenMsgBox "请经手人签名!", vbCritical, "提示信息!"Exit SubEnd IfIf = "" ThenMsgBox "请输入归还人姓名!", vbCritical, "提示信息!"Exit SubEnd If'添加 "品名") = Trim 'Trim"型号") = Trim 'Trim"数量") = Trim"单位") = Trim 'Trim"经手人") = Trim"归还人") = Trim"归还日期") = Date"说明") = TrimEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trimn = Valpms = "select * from 库存表 where 品名='" & pm & "'"= adCmdText= pmsm = "数量").ValueIf "型号") = Trim Then"数量") = Val(m) + Val(n)End IfDim X As IntegerX = MsgBox("产品归还登记成功,是否继续添加产品!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!") If X = vbNo ThenUnload MeEnd If= ""= ""= ""= ""= ""= ""= ""= "归还信息"Dim ZB As StringZB = "select * from 归还表 " 'where 品名 = '" & PM & "'"= adCmdText= ZBSubPrivate Sub Command2_Click()= ""= ""= ""= ""= ""= ""= ""End SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Form_Load()' Dim i As String' i = 0'' ' Do Until ' "品名") ' "型号")' "单位")' ' i = i + 1' LoopCall pmEnd SubPrivate Sub pm()Dim i As VariantDim j As VariantDim k As VariantDim a As VariantDim b As VariantDim c As VariantDim s As VariantDim D As Varianti = 0j = 0Do Until a = a + "," + "品名")b = b + "," + "型号")b = b + "," + "单位")i = i + 1LoopD = Split(a, ",")If j < i Thens = D(2)s'k = 0'If k < j And D(k) <> D(j) Then'If D(k) <> D(j) Then' D(j)' k = k + 1' Else' k = k + 1'End If'End Ifj = j + 1End If= s 'a + "," + D(2) + D(1) '+ " " + Val(i) + " " + Val(j) + " " + Val(k) = j' D(1)End Sub。

仓库管理完整的C++编程

仓库管理完整的C++编程
char name[20];//品名
public:
Stock(void);//构造函数
Stock *next;//定义next指针
void SetNum(char[]);//声明初始化编号函数
char* GetNum();//获得编号函数
void SetName(char[]);//初始化名称函数
char *GetName();//获得名称函数
for( int i=1;i<=n;i++ )
{
cout<<"\n\t\t"<<i<<":"<<endl;
AddStock(pCurrent);
}
system("pause");
}
void Inventory::Display()
{
if(count==0)
{
system("cls");
cout<<"\n\n\n\t\t无物品记录.\n\n\t\t";
while(pCurrent->next != NULL)//当当前指针指向地下一个节点不为空
{
pHead = pHead->next;//头结点后移一个单位
free(pCurrent);//释放当前节点
pCurrent = pHead;//头结点赋给当前指针
}
free(pCurrent);//释放当前节点
};
Inventory.cpp:
#include "Search.h"
#include <fstream>
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

仓库库存管理系统源程序#include<stdio.h>#include<stdlib.h>#include<string.h>#include<iostream.h>int shoudsave=0;struct item//物品信息定义{char code[10];//物品编码char name[20];//物品名称int num; //商品数量int level;//物品等级}item;typedef struct node{struct item data;struct node * next;}Node,*Link;//定义为链表void menu()//页面显示函数{system("cls");//清屏函数printf("***********************************《物品库存管理》*****************************\n");printf(" \n");printf("\n <1> 物品入库管理\n\t\n <2> 物品出库管理\n");printf("\n <3> 浏览库内物品信息\n\t\n <4> 修改物品信息\n");printf("\n <5> 保存物品信息\n\t\n <0> 退出库存管理\n");printf(" \n");cout<<"************************************************** ******************************"<<endl;printf("\n 请选择操作:");}void printstart(){printf("------------------------------------------\n");}void Wrong()//错误处理函数{printf("输入错误!\n");getchar();getchar();menu();return;}void Nofind(){printf("没有找到该物品!\n");}void printc()//本函数用于输出中文{printf(" 物品编码物品名称物品数量物品等级\n");}void printe(Node *p)//输出物品信息函数{cout<<endl<<" "<<p->data.code<<""<<p-><<" "<<p->data.num<<""<<p->data.level;}Node *Locate(Link l,char findmess[],char nameorcode[]) //用于定位连接中,符合要求的结点,并返回该指针{Node *r;if(strcmp(nameorcode,"code")==0)//{r=l->next;while(r!=NULL){if(strcmp(r->data.code,findmess)==0)return r;r=r->next;}}elseif(strcmp(nameorcode,"name")==0)//按名称查询{r=l->next;while(r!=NULL){if(strcmp(r->,findmess)==0)return r;r=r->next;}}return 0;}void Add(Link l)//增加物品函数{Node *p,*r,*s;char code[10];r=l;s=l->next;while(r->next!=NULL)r=r->next;while(l){system("cls");//清屏函数cout<<"请输入商品编码(输入'0'返回上一级菜单):"<<endl;scanf("%s",code);if(strcmp(code,"0")==0)break;while(s){if(strcmp(s->data.code,code)==0){printf("物品编码为'%s'的物品已经存在,如果要修改请选择'4 修改'!\n",code);printstart();printc();printe(s);printstart();printf("\n");return;}s=s->next;}p=(Node * )malloc(sizeof(Node));strcpy(p->data.code,code);printf("请输入物品名称:");scanf("%s",p->);getchar();printf("请输入物品数量:");scanf("%d",&p->data.num);printf("请输入物品等级:");scanf("%d",&p->data.level);p->next=NULL;r->next=p;r=p;shoudsave=1;}menu();}void Qur(Link l)//查询物品信息函数{int sel;char findmess[20];Node *p;if(!l->next){printf("\n没有信息可查询!\n");getchar();getchar();menu();}system("cls");//清屏函数printf("\n 1按物品编码查询\n 2按物品名称查询\n"); scanf("%d",&sel);if(sel==1)//{printf("请输入要查询的编码:\n");scanf("%s",findmess);p=Locate(l,findmess,"code");if(p){printf("\t\t\t\t查询结果\n");printstart();cout<<endl;printc();cout<<endl;printe(p);cout<<endl;printstart();getchar();getchar();return;}elseNofind();}elseif(sel==2)//{printf("请输入要查找的物品名称:");scanf("%s",findmess);p=Locate(l,findmess,"name");if(p){printf("\t\t\t查询结果\n");printstart();cout<<endl;printc();cout<<endl;printe(p);cout<<endl;printstart();getchar();getchar();menu();return;}elseNofind();}elseWrong();getchar();system("cls");//清屏函数menu();}void Del(Link l)//删除{int sel;Node *p,*r;char findmess[20];if(!l->next){system("cls");//清屏函数printf("\n您的仓库为空!\n");getchar();getchar();menu();return ;}system("cls");//清屏函数printf("\n 1按物品编码出仓\n 2按物品名称出仓\n"); scanf("%d",&sel);if(sel==1){printf("请输入要出仓的物品编码:");scanf("%s",findmess);p=Locate(l,findmess,"code");if(p){r=l;while(r->next!=p)r=r->next;r->next=p->next;free(p);printf("\n该物品已经成功出仓\n");shoudsave=1;getchar();getchar();menu();return ;}elseNofind();}elseif(sel==2){system("cls");//清屏函数printf("请输入要出仓的物品名:");scanf("%s",findmess);p=Locate(l,findmess,"name");if(p){r=l;while(r->next!=p)r=r->next;r->next=p->next;free(p);printf("\n该物品已经成功出仓!\n");shoudsave=1;getchar();getchar();menu();return;}elseNofind();}elseWrong();}void Modify(Link l)//物品信息修改{Node *p;char findmess[20];if(!l->next){system("cls");//清屏函数printf("\n您的库存为空,无需修改!\n");getchar();menu();return;}printf("请输入要修改的物品编码:");scanf("%s",findmess);p=Locate(l,findmess,"code");if(p){system("cls");//清屏函数printf("请输入新编码(原来的是%s):",p->data.code);scanf("%s",p->data.code);printf("请输入新名称(原来的是%s):",p->);scanf("%s",p->);getchar();printf("请输入新的物品数量(原来的是%d):",p->data.num);scanf("%d",&p->data.num);getchar();printf("请输入新的物品等级(原来的是%d):",p->data.level);scanf("%d",&p->data.level);printf("\n修改资料成功!\n");shoudsave=1;getchar();menu();return;}elseNofind();getchar();menu();}void Disp(Link l){int count=0;Node *p;p=l->next;if(!p){printf("\n 没有资料可以显示!\n");getchar();getchar();return;}printf("\t\t\t\t显示结果\n");printstart();printc();printf("\n");while(p){printe(p);p=p->next;}printstart();printf("\n");}void Save(Link l)//物品信息保存{FILE *fp;Node *p;int flag=1,count=0;fp=fopen("c:\\student","wb");if(fp==NULL){printf("\n重新打开文件时错误!\n");exit(1);}p=l->next;while(p){if(fwrite(p,sizeof(Node),1,fp)==1){p=p->next;count++;}else{flag=0;break;}}if(flag){system("cls");//清屏函数printf("\n 文件保存成功.(有%d条记录保存成功.)\n",count);shoudsave=0;getchar();getchar();menu();}fclose(fp);}void main()//主函数{menu();Link l;//链表Node *r;int sel;char ch;int count=0;l=(Node * )malloc(sizeof(Node));l->next=NULL;r=l;while(l){scanf("%d",&sel);if(sel==0){if(shoudsave==1){getchar();printf("\n 资料已改动,是否将改动的文件保存到文件中(y or n)?\n");scanf("%c",&ch);if(ch=='y' || ch=='Y')Save(l);}printf("\n 已退出系统!\n");break;}switch(sel){case 1:Add(l);break;//物品进库case 2:Del(l);break;//物品出库case 3:Qur(l);break;//查询物品case 4:Modify(l);break;//修改物品信息case 5:Save(l);break;//保存物品信息default:Wrong();getchar();break;}}}。

相关文档
最新文档