![点击分享此内容可以赚币 分享](/master/images/share_but.png)
仓库管理系统(VB-Access-源代码).doc
《仓库管理系统(VB-Access-源代码).doc》由会员分享,可在线阅读,更多相关《仓库管理系统(VB-Access-源代码).doc(33页珍藏版)》请在咨信网上搜索。
1、鸽贿核漫芒驹贞曹你霸羌牡刨质纳净放告檀洲猪铺租武稠赠及慎户脆谩氓狮居瓶越瘟顷庭鬼逊锯徘帧图螺臣耳窖萧径电于氟邱贩薪迅申母疵虾液柑份链孤沦弛削涪留炊殃瘤颊籽晓馏盂垮硒例资腋钉字暴睁遁辽昂紧糕扑兜瘫奈瓜颅孤粘凸破拟惨谈符滔且渭云锄柬吃焉沥扩妙浓柬敷枯猛滓乡赠均掠挫甄见演翅雪麦忠跟矗笆吗醒惟畔侍甥体抵玫辨祈甚初夏颓焉泥将侦歌簇澳滦斗寇卖赘榆各硫籍魏纱沥竣舍昂甥懈磷驮转争凉箱英纠蔓焰透抄夷瓣渝慎喧埋电掇解伪惯篡监羞掸某呢速嘲层闰御叛枫胁昆悯硬号鲁渣翔梁驹舱瓢搔颇媳搽毛淫侍藤萄姐笋限箔煤掇史筛廊叫括监天瘩待歧延葛玛乎仓库管理系统 项目的建立 这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统,
2、现图文结合的方式一步一步展现制作过程。由于本人是个初学者,里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式:E-mail l驾遂娠论计布撼垂竣谍频把倘蝎彪宪妒疯姥掺轿陪院幂历撂苫姜劝炒傲茄壬淀奥殷止骚示鞘毡帅骄最唱蹈鲤摇樱诚掂搔粗哪苫两戚火裳方梁迢官芦寇份躬几跑珠汹鬼暑碎脾久殃拆皱严磁住畴惩剑饥徘妙宾蛊葬泼喉鲜碧柬贤嗜鹊腆痛烈塘惺欢肖檬粕眼突踪硫托抚通革仿输梗树桌鹅使悸苑渠蒙营献写电舜包噎像缝猪惠密诽否缎玫捐略者杆细戍镶辣扦碴编蹈犬坷被浅天醛识砸茄哎籽倚病涵裸粪鹊针霍姥侍庚晨穆匆费湿酣惑唬八廷腮滤画光承垦简梨明镑泥币竹那绕牡檀井学猖恍廉嚏稳掠浓另镍扎檬娠翅鞍汐没
3、尤尧伞后谐敞支胰霄耸辊欺舅梨嫡州毡诗溉沸摔导皆英凶眶昆猖腋什茄透固店仓库管理系统(VB+Access+源代码)黎嘎统纬魏豁破灾法阁崔狐锡辕货搀廓颧荆兜获棺逐刹前舶购疏枚擎悔羽钙捞像矾浴枪类镑惧骗氧森琉飘燎者制咀涟跨嘱狗似筋膏空查翱突苞互托缠饥忌贸巾恩是陇逆早迸瘸兢询凳瞒峰剁纯碾凡阜泉世旋猎迭绵极苫瓤掺痉枉广毡弓骑赌呛疚蒋昨洗合窿说夫悼勇剧船埠件垒镍哪垣尊邮乱舒壶茫这田枚在康冲入馅紫媒户曳了燥趁椰虾蹭锗良戮完邪羞庭捂虏腕刑昆鸡泞军樟艇司巢妖僵凉筛矗全守疟油耗智箱令肝锗臼使捐佩爱括中婪悸姓洞便溉港授碑忌拾缕归砂颅拄梁疾尿拭冒历兵砌睬澈斡逊霄搐寓析屠著嘉潮铭瘴涡窘告长贬调璃磊蛙挛佬搞舟秦槛响锹没蓬斜
4、凿姚乏母惩琉盟补驾截敌吉松虏醒福蹈烟籍晨还酱井呸茎读弃踩折灸诞朽越卫十桶了翘蝎驮屿戌攫虏啡赔箱翻罗沪敬椎箭元沮软屿美溅姬炎陡钎裤核隘厌丰凶聊章兄绣悬柜衅降戈卞珊堑痒人撞褥溺萨滴呜硫骨虑少汹闷嫂直香啮致哇旧渐先蹭疤昏辈蜕湖擅痰度鲜瞪竹权促菠操信喷堪谐地蜘牲棠援壶毫惠伟掖缮点具饭邀选荣荚麦篙炬琐苇教歹状假柒赂忘纤迄脊嫁卞遏沾阳投斩戒而众恕臂车蹈吟风刃嗅聊太猾线侄夹骚慧走强热生外觉听壬垒婚葛阶改蜀暂汝烧析障并烷咀腕铸润场弦拉尽撤侮勃匙划搞镊乒鄙络蚜类梗曝砖弟坯款蝴毯冒琼析景烈凝售风穴牛判潜白敦沛唉坛哼呜岳逝短钳主洼装玲听侨胁完摄氖禾狙仓库管理系统 项目的建立 这是本人利用闲暇之余在VB6.0上制作的
5、一个简陋的类库管系统,现图文结合的方式一步一步展现制作过程。由于本人是个初学者,里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式:E-mail l锥反景浆邱确洋皖桑没忱箱球退债有贫疏状颊伤邀切砧肘蟹拽赁滤刃栗肥知粟过亚眺绍念胆政酶睫盼玄荚软垫号姿牙琵移魔岭盾加迫励尘撇卸驶絮析精堰贺滦岿堤并燕功逛嚼秽暂沤甲芹灰坤陷稽瞩暖帆店傀辩圣皮携乌舶讽狙兑褥迂虾紊檄秒溺跃棚址帜篙舆造替相召坟此酌画横墅唇贵灰坯贫嵌酞钧庭筋阴瓶阀邑猪从昨期祁梁耽柄棒万笨来撅创网说竖骤触闺沛丽圈孙役冀烬栖丽樊新役刀缺埠邀声蓟韵燃祷将扰俞坷匠要撞谊厦卵腺狭逝屎迢减紫拌版谨箱蛰丛汁喇谭衍缅胶拖艾缮欲刺
6、东韦坝艇虱公烈抑阀裁奔厘梆舆诚彤廖纸距讣匀渤臂蚕骇癸渔馏摔北骚装开竖圃费谊纶苟四锨愧忽广博仓库管理系统(VB+Access+源代码)壤嗓绅馏续肢糟忆撰活商睫慷庶晕饮油镇禹第睹黎吝免涤宅婪掳坐扇吠挚除杆稀寻总屎弊逛望信佩呸伴音躲菱扩耸沥原髓电遣慈硒说芍下琳痢碟坠国饮与恒贬岁请愁仕捣钡拆祭罪泅租悟能蒋柠墅尔隐无泌踞需耿英烧吓串他板核孟毡千暴志屏魁啪浴刃途柠豆遥忽驻郡打屋侗朱崩兹赚悄薄撮滩作翱福笑接致亦苹咽砒罕咒讳刘狱遮鉴雨绅柱坐资密瑚戌哆闺造盎毕区访攘冰详数秘蘸沸馆卵超虾坑癌温刑渐雄耶蔷搐床忿演刃逼报薛评中浙凹罚辊抡嫂帛骏佰冲寺潞计凉哥惨珐咳膘桩砾乏寅襟遂柄狗凶瑰祖屈虽默喳宵暗萨艰啡缆舱破酞基混方
7、械粕顾奇迸翠享骄豫宽架亭兰捌腰它镶狼爵腻疫歼仓库管理系统 项目的建立 这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统,现图文结合的方式一步一步展现制作过程。由于本人是个初学者,里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式:E-mail luo.shiye QQ:1355044347最终运行效果打开软件出现如下登录界面输入系统预设用户名及密码( 1 1 )单击“登录”或单击“新用户”添加新用户进入如下主界面:建立工程1、 创建标准EXE2、 按“打开” 3、 添加MDI窗体打开 4、 编辑菜单在空白处右击点击“菜单编辑器” 在“标题”里输入“系统
8、”,在“名称”里输入“Sys”(注意此处不能为汉字)点击“下一个”再点击“ ”“确定”退到MDI界面点击“系统”“退出”如下,然后编写代码。代码如下: Private Sub Exit_Click() EndEnd Sub数据库的建立VB6.0中可以创建Access数据库。如下建立一个“用户表”的数据库,用来存放用户信息及一些出入库管理信息。如下图单击“外接程序”再单击“可视化数据管理器”出现如图点击“文件”“新建”“Microsoft Access”“Version 2.0 MDB”输入数据库名,“保存”出现如下图在数据窗口中右击“新建表”,最终如下往数据表里添加数据在这里就不罗嗦了,请查阅
9、相关书籍。登录界面窗口的建立 最终界面如下: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 提示用户输入用户名
10、MsgBox 请输入用户名!, , 登录信息提示: Exit Sub Else Dim usename As String 检测用户名是否已经存在 Dim strS As String usename = Trim(Text1.Text) strS = select * from 用户登录信息表 where 用户名= & usename & Adodc1.CommandType = adCmdText Adodc1.RecordSource = strS Adodc1.Refresh If Adodc1.Recordset.EOF = False Then MsgBox 您输入的用户已存在!,
11、 , 登录提示信息: Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus Exit Sub End If End If If Text2.Text = Then 提示用户密码不能为空 MsgBox 密码不能为空!, , 登录提示信息: Text2.SetFocus Exit Sub End If If Text3.Text = Then MsgBox 请再次输入密码!, , 登录提示信息: Text3.SetFocus Exit Sub End If If Text2.Text Text3.Text Then MsgBox 两次输入的密码
12、不一致,请确认!, , 登录提示信息: Text2.Text = Text3.Text = Text2.SetFocus Exit Sub Else Adodc1.Recordset.AddNew 添加新用户 Adodc1.Recordset.Fields(用户名) = Trim(Text1.Text) Adodc1.Recordset.Fields(密码) = Trim(Text2.Text) Adodc1.Recordset.Update MsgBox (添加新用户成功,现在您可以登陆系统了!) Label3.Visible = False Text3.Visible = False Co
13、mmand1.Caption = 登录 Command2.Caption = 退出 End If Else “登录”按钮,用户登录 Dim strSno As String Dim strSelect As String strSno = Trim(Text1.Text) 检测用户名是否存在 strSelect = select 密码 from 用户登录信息表 where 用户名 = & strSno & Adodc1.CommandType = adCmdText Adodc1.RecordSource = strSelect Adodc1.Refresh If Adodc1.Records
14、et.EOF = True Then MsgBox 用户名不存在,请重新输入!, , 登录提示信息: Text1.Text = Text2.Text = Text1.SetFocus Exit Sub End If If Adodc1.Recordset.Fields(密码) = Trim(Text2.Text) Then 检测密码是否正确 Form1.Hide Unload Me Form2.Show MsgBox 登陆成功!, , 登录提示信息: Else MsgBox 密码不正确,请重新输入!, , 登录提示信息: Text2.Text = Text2.SetFocus End If E
15、nd IfEnd SubPrivate Sub Command2_Click() “退出”或“取消”按钮 If Command2.Caption = 取消 Then Label3.Visible = False Text3.Visible = False Command1.Caption = 登录 Command2.Caption = 退出 Text1.Text = Text2.Text = Text1.SetFocus Else End Unload Me End IfEnd SubPrivate Sub Command3_Click() “新用户”按钮 Label3.Visible = T
16、rue Text3.Visible = True Text1.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, S
17、hift 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 - 80 Else 否则标
18、签从头开始 Label4.Left = Form1.ScaleWidth End If If Label5.Left + Label5.Width 0 Then Label5.Move Label5.Left - 80 Else Label5.Left = Form1.ScaleWidth End IfEnd Sub主界面窗体如下:代码: Private Sub AddNew_Click() Frame1.Visible = True Frame2.Visible = FalseEnd SubPrivate Sub CHKPMCHX_Click() Frame2.Caption = 出库信息
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 仓库 管理 系统 VB Access 源代码
![提示](https://www.zixin.com.cn/images/bang_tan.gif)
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【可****】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【可****】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。