物流运输管理系统-论文

《物流运输管理系统-论文》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、物流运输管理系统•论文物流运输管理系统4.1用户登陆表单新建立FRMLOGIN表单是用来确定进入系统的身份验证用户输入密码后，经过系统确认后，方可以进人系统，否则进入不了系统。防止无另的人员进入系统中，违规操作业务。登陆窗体的控件及属性取值如下:控件属性属性取值LabelNameLabelCaption密码TextNametxtitemcommandbuttonNamecmdOkCaption确定commandbuttonNamecmdExitCaption取消代码如下：//对押下“取消”键的处理//登

2、陆失败PrivateSubcmdCancel_Click()LoginSucceeded二FalseEndSubPrivateSubcmdOK_Click()//对押下“确定”键的处理Iftrycount＜二5Then//如果输入用户名密码出错次数小于5If(Trim(txtUserName)="")Or(Trim(txtPassword)="")Then//如果用户名和密码都为空trycount二trycount+1//出错次数加1MsgBox”用户名密码不能为空!”，，”信息提示”//输出用户密码不

3、能为空的提示ElseDimstrsqlAsString//定义string类型的变量strsqlDimrsAsNewADODB.Recordset//定义一个ADO记录集rsstrsql二”SELECTPASSWORDFROMMYUSERSWHEREUSERNAME二,n&Trim(txtUserName)&/*给变量strsql赋值，为"SELECTPASSWORDFROMMYUSERSWHEREUSERNAME二txlUserName*/Setrs二sys.DB.OpenRecordSet(strs

4、ql)//sys.DB.OpenRecordSet(strsql)向accass执行查询.执行语句为strsql的值,rs为//返回结果IfNot(rs.BOFOrrs.EOF)Then//如果查询有结果IfTrim(txtPassword)=rs.Fields("PASSWORD")Then//对密码进行判断，如果密码正确trycount二0/出错的次数赋值为0LoginSucceeded=True//登陆成功Me.Hide//隐藏登陆框MainForm.Show//主窗口显示Elsetrycount

5、二trycount+1//否则出错次数加1MsgBox”无效的密码，请重试!”，，”信息提示”//弹出提示框提示信息：无效的密码，请重试！txtPassword.SetFocus//focus落在密码处SendKeys”{Home}+{End}”//发送HOME和END键EndIf是不是与上面的那段重复了呀？Elsetrycount=trycount+1MsgBox”无效的密码，请重试!”，，”信息提示”txtPassword.SetFocusSendKeys"{Home}+{End}"EndIf/%!

6、f/•,•,•,•,•,•,•,•,•,•,•,•,•,•,•,•,•,•,•,•,/EndIfElseMsgBox”非法用户！”，，”信息提示”//弹出提示框提示：非法用户！UnloadMe//当前窗口矢闭EndIfEndSub4・2物流系统操作管理表单新建立MAINFORM这个表单是主界面表单，是物流系统操作管理的主要界面。在这个界面中，用户可以进行系统的所有操作，通过主界面上端的菜单选择进入各个模块。包括运单增加、客户管理、结算管理、系统管理和退出系统。代码如下：*********1殳置窗口的宽度

7、禾口高度******************************PrivateSubMDIForm_Load()MainForm.Caption二”欢迎使用物流管理系统”MainForm.Left=Screen.Width*0.1MainForm.Top二Screen.Height*0.1MainForm.Width=Screen.Width*0.8MainForm.Height=Screen.Height*0.8EndSub********************闭所有的窗PrivateSubMD

8、IForm_Un1oad(Cance1AsInteger)'尖闭所冇窗体UnloadfrmBi1IManagcUnloadfrmChangePasswordUnloadfrmClientUnloadfrmClicntAddUnloadfrmClientUpdateUnloadfrmLoginUnloadfrmProductUnloadfrmQueryUnloadfrmRcportUnloadfrmStationUnloadfrmTraffi