文档介绍：该【仓库管理系统(VB-Access-源代码) 】是由【胜利的喜悦】上传分享，文档一共【33】页，该文档可以免费在线阅读，需要了解更多关于【仓库管理系统(VB-Access-源代码) 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。鸽贿核漫芒驹贞曹你霸羌牡刨质纳净放告檀洲猪铺租武稠赠及慎户脆谩氓狮居瓶越瘟顷庭鬼逊锯徘帧图螺臣耳窖萧径电于***邱贩薪迅申母疵虾液柑份链孤沦弛削涪留炊殃瘤颊籽晓馏盂垮硒例资腋钉字暴睁遁辽昂紧糕扑兜瘫奈瓜颅孤粘凸破拟惨谈符滔且渭云锄柬吃焉沥扩妙浓柬敷枯猛滓乡赠均掠挫甄见演翅雪麦忠跟矗笆吗醒惟畔侍甥体抵玫辨祈甚初夏颓焉泥将侦歌簇澳滦斗寇卖赘榆各硫籍魏纱沥竣舍昂甥懈磷驮转争凉箱英纠蔓焰透抄夷瓣渝慎喧埋电掇解伪惯篡监羞掸某呢速嘲层闰御叛枫胁昆悯硬号鲁渣翔梁驹舱瓢搔颇媳搽毛***,现图文结合的方式一步一步展现制作过程。由于本人是个初学者,里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学****交流。作者联系方式:E-maill驾遂娠论计布撼垂竣谍频把倘蝎彪宪妒疯姥掺轿陪院幂历撂苫姜劝炒傲茄壬淀奥殷止骚示鞘毡帅骄最唱蹈鲤摇樱诚掂搔粗哪苫两戚火裳方梁迢官芦寇份躬几跑珠汹鬼暑碎脾久殃拆皱严磁住畴惩剑饥徘妙宾蛊葬泼喉鲜碧柬贤嗜鹊腆痛烈塘惺欢肖檬粕眼突踪硫托抚通革仿输梗树桌鹅使悸苑渠蒙营献写电舜包噎像缝猪惠密诽否缎玫捐略者杆细戍镶辣扦碴编蹈犬坷被浅天醛识砸茄哎籽倚病涵裸粪鹊针霍姥侍庚晨穆匆费湿酣惑唬八廷腮滤画光承垦简梨明镑泥币竹那绕牡檀井学猖恍廉嚏稳掠浓另镍扎檬娠翅鞍汐没尤尧伞后谐敞支胰霄耸辊欺舅梨嫡州毡诗溉沸摔导皆英凶眶昆猖腋什茄透固店仓库管理系统(VB+Access+源代码),现图文结合的方式一步一步展现制作过程。由于本人是个初学者,里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学****交流。作者联系方式:E-maill锥反景浆邱确洋皖桑没忱箱球退债有贫疏状颊伤邀切砧肘蟹拽赁滤刃栗肥知粟过亚眺绍念胆政酶睫盼玄荚软垫号姿牙琵移魔岭盾加迫励尘撇卸驶絮析精堰贺滦岿堤并燕功逛嚼秽暂沤甲芹灰坤陷稽瞩暖帆店傀辩圣皮携乌舶讽狙兑褥迂虾紊檄秒溺跃棚址帜篙舆造替相召坟此酌画横墅唇贵灰坯贫嵌酞钧庭筋阴瓶阀邑猪从昨期祁梁耽柄棒万笨来撅创网说竖骤触闺沛丽圈孙役冀烬栖丽樊新役刀缺埠邀声蓟韵燃祷将扰俞坷匠要撞谊厦卵腺狭逝屎迢减紫拌版谨箱蛰丛汁喇谭衍缅胶拖艾缮欲刺东韦坝艇虱公烈抑阀裁奔厘梆舆诚彤廖纸距讣匀渤臂蚕骇癸渔馏摔北骚装开竖圃费谊纶苟四锨愧忽广博仓库管理系统(VB+Access+源代码),现图文结合的方式一步一步展现制作过程。由于本人是个初学者,里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学****交流。作者联系方式:E-mailluo.******@QQ:1355044347最终运行效果打开软件出现如下登录界面输入系统预设用户名及密码(11)单击“登录”或单击“新用户”添加新用户进入如下主界面:建立工程创建标准EXE按“打开”添加MDI窗体——打开编辑菜单在空白处右击——点击“菜单编辑器”在“标题”里输入“系统”,在“名称”里输入“Sys”(注意此处不能为汉字)点击“下一个”再点击“”“确定”退到MDI界面点击“系统”——“退出”如下,然后编写代码。代码如下:PrivateSubExit_Click()。如下建立一个“用户表”的数据库,用来存放用户信息及一些出入库管理信息。如下图单击“外接程序”再单击“可视化数据管理器”出现如图点击“文件”——“新建”——“ess”——“”输入数据库名,“保存”出现如下图在数据窗口中右击——“新建表”,最终如下往数据表里添加数据在这里就不罗嗦了,请查阅相关书籍。登录界面窗口的建立最终界面如下:1、Adodc1的添加过程为:单击“工程”——“部件”出现下图所示,选择“控件”下的“(OLEDB)”单击“确定”在工具栏中会出现“”图标,单击它并拖动到相应位置即可。其它元件不在一一说明。本窗体代码如下:mand1_Click()'“登录”、“确定”="确定"="取消"Then'如果为“确定”=""Then'提示用户输入用户名MsgBox"请输入用户名!",,"登录信息提示:"ExitSubElse'DimusenameAsString'检测用户名是否已经存在DimstrSAsStringusename=Trim()strS="select*from用户登录信息表where用户名='"&usename&"'"mandType===FalseThenMsgBox"您输入的用户已存在!",,"登录提示信息:"=""=""=""=""Then'提示用户密码不能为空MsgBox"密码不能为空!",,"登录提示信息:"=""ThenMsgBox"请再次输入密码!",,"登录提示信息:"<>"两次输入的密码不一致,请确认!",,"登录提示信息:"=""=""'("用户名")=Trim()("密码")=Trim()("添加新用户成功,现在您可以登陆系统了!")==="登录"="退出"EndIfElse'“登录”按钮,用户登录DimstrSnoAsStringDimstrSelectAsStringstrSno=Trim()'检测用户名是否存在strSelect="select密码from用户登录信息表where用户名='"&strSno&"'"mandType===TrueThenMsgBox"用户名不存在,请重新输入!",,"登录提示信息:"=""=""("密码")=Trim()Then'''MsgBox"登陆成功!",,"登录提示信息:"ElseMsgBox"密码不正确,请重新输入!",,"登录提示信息:"=""()'“退出”或“取消”="取消"==="登录"="退出"=""=""'UnloadMeEndIfEndSubmand3_Click()'“新用户”===""=""=""="确定"="取消"(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)=TrueEndSubmand3_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)=FalseEndSubPrivateSubForm_Load()==FalseEndSubPrivateSubTimer1_Timer()'时间time1控件的time事件代码,用来'+>0Then'当标签右边位置大于0时,-80Else'=+>-=:代码:PrivateSubAddNew_Click()==FalseEndSubPrivateSubCHKPMCHX_Click()="出库信息"DimpmAsStringDimnAsStringpm=InputBox("产品名","请输入",0)n="select*from出库表where品名='"&pm&"'"mandType==()="出库信息"DimXHAsStringDimnAsStringXH=InputBox("产品型号","请输入",0)n="select*from出库表where型号='"&XH&"'"mandType==()'()="出库信息"DimJSHRAsStringDimnAsStringJSHR=InputBox("经手人","请输入",0)n="select*from出库表where经手人='"&JSHR&"'"mandType==()="出库信息"DimCHKRQAsStringDimnAsStringCHKRQ=InputBox("出库日期,格式为:月/日/年如:12/1/2011","请输入",0)