现代物流系统的设计与分析-毕业设计（论文）.doc

dodc1.Recordset.Fields("user_mm")IfTxt_Password.Text=MPasswordThen'判断数据的密码是否正确Name1=Cbx_Name.TextFrm_Main.StatusBar1.Panels.Item(2).Text="当前操作员:"+Adodc1.Recordset.Fields("user_name")Frm_Main.Show'通过身份验证则显示主窗体,登录到系统当中UnloadMeElseMsgBox"密码不正确,请您确认后重新输入",,"提示信息"Txt_Password.Text=""河南司法警官职业学院毕业论文现代物流系统的设计与分析Txt_Password.SetFocusEndIfElseMsgBox"对不起没有此用户的信息",,"提示信息"Cbx_Name.Text=""Txt_Password.Text=""EndIfEndIfEndSub如果在输入密码的文本框中按下〈Enter〉键,则将调用【确定】按钮的单击事件,判断登录用户是否合法,代码如下所示。PrivateSubTxt_Password_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenCallCmd_Ok_Click'调用确定按钮的单击事件代码EndIfEndSub3.2车辆调度安排车辆调度安排是物流管理过程中的重要环节,物流公司在接到托运货物信息之后,首要的问题是安排托运货物的车辆。在本系统当中通过车辆调度安排填写安排托运车辆的信息,然后打印出车辆调度通知单,并将通知单发放到托运司机的手中,司机根据调度通知单上的信息执行托运任务。通过单击窗体中的Cmd_Select按钮选择车牌号码,然后输入其他一些辅助的信息,最后保存车辆调度安排信息。车辆调度安排模块的运行结果如图4所示。