.仓库管理系统项目的建立这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统，现图文结合的方式一步一步展现制作过程。由于本人是个初学者，里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式：E-mail最终运行效果打开软件出现如下登录界面输入系统预设用户名及密码（11）单击“登录”或单击“新用户”添加新用户进入如下主界面：建立工程1、创建标准EXE2、按“打开”3、添加MDI窗体——打开4、编辑菜单在空白处右击——点击“菜单编辑器”在“标题”里输入“系统”，在“名称”里输入“Sys”（注意此处不能为汉字）点击“下一个”再点击“”“确定”退到MDI界面点击“系统”——“退出”如下，然后编写代码。代码如下：PrivateSubExit_Click()EndEndSub数据库的建立VB6.0中可以创建Access数据库。如下建立一个“用户表”的数据库，用来存放用户信息及一些出入库管理信息。如下图单击“外接程序”再单击“可视化数据管理器”出现如图点击“文件”——“新建”——“MicrosoftAccess”——“Version2.0MDB”输入数据库名，“保存”出现如下图在数据窗口中右击——“新建表”，最终如下往数据表里添加数据在这里就不罗嗦了，请查阅相关书籍。.范文．精心整理登录界面窗口的建立最终界面如下：1、Adodc1的添加过程为：单击“工程”——“部件”出现下图所示，选择“控件”下的“MicrosoftADODataControl6.0（OLEDB）”单击“确定”在工具栏中会出现“”图标，单击它并拖动到相应位置即可。其它元件不在一一说明。2、本窗体代码如下：PrivateSubCommand1_Click()'“登录”、“确定”按钮如果为“确定”则添加新用户Then'?晉?浯慭摮?慃瑰潩??确定?湁?潃浭湡??灡楴湯?尠取消提示用户输入用户名IfText1.Text=\Then'登录信息提示：????獍?硯尠请输入用户名！??尠ExitSubElse'检测用户名是否已经存在DimusenameAsString'DimstrSAsStringusename=Trim(Text1.Text)='usename'用户名用户登录信息表strS=select*fromwhereAdodc1mandType=adCmdTextAdodc1.RecordSource=strSAdodc1.Refresh??????杳潂?您输入的用户已存在尡??登录提示信息：Text1.Text=\Text2.Text=\Text3.Text=\Text1.SetFocusExitSubEndIfEndIf提示用户密码不能为空IfText2.Text=\Then密码不能为尡?登录提示信息????獍?硯Text2.SetFocusExitSubEndIfIfText3.Text=\Then????獍?硯尠登录提示信息：请再次输入密码尡??Text3.SetFocusExitSubEndIfIfText2.Text<>Text3.TextThen登录提示信息：尡??请确认,????獍?硯尠两次输入的密码不一致Text2.Text=\Text3.Text=\Text2.SetFocus精心整理．精心整理ExitSubElse????獍?硯?添加新用户成功，现在您可以登陆系统了！)Label3.Visible=FalseText3.Visible=False????潃浭湡??灡楴湯?尠登录????潃浭湡??灡楴湯?尠退出EndIfElse'“登录”按钮，用户登录DimstrSnoAsStringDimstrSelectAsStringstrSno=Trim(Text1.Text)'检测用户名是否存在='strSno'where用户名strSelect=select密码from用户登录信息表Adodc1mandType=adCmdTextAdodc1.RecordSource=strSelectAdodc1.Refresh??尠登录提示信息：????獍?硯尠用户名不存在，请重新输入！Text1.Text=\Text2.Text=\Text1.SetFocusExitSubEndIfForm1.Hide'UnloadMeForm2.Show登录提示信息：登陆成功！??尠??????杳潂?Else??尠登录提示信息：密码不正确，请重新输入！?????杳潂?Text2.Text=\Text2.SetFocusEndIfEndIfEndSub“退出”或“取消”按PrivateSubCommand2_Click()Then取??潃浭湡??灡楴湯?Label3.Visible=FalseText3.Visible=False??潃浭湡??灡楴湯?尠登录退出??潃浭湡??灡楴湯?尠Text1.Text=\Text2.Text=\Text1.SetFocusElseEnd'UnloadMeEndIfEndSub精心整理．精心整理PrivateSubCommand3_Click()'“新用户”按钮Label3.Visible=TrueText3.Visible=TrueText1.Text=\Text2.Text=\Text3.Text=\?浯慭摮?慃瑰潩??确定?浯慭摮?慃瑰潩??取消Text1.SetFocusEndSubPrivateSubCommand3_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label6.Visible=TrueEndSubPrivateSubCommand3_MouseUp(But...