物流管理系统论文范文 第3页
Exit Sub
Else
ChangeScreen '调整屏幕分辨率
End If
End Sub
单击【确定】按钮，如果输入的操作员姓名和口令正确，则通过身份验证，登录到系统当中。设计思路：通过SQL语句查询输入的用户名和密码信息在数据库中是否存在，如果查询到符合条件的记录信息则显示系统主窗体，登录到系统当中，实现的程序代码如下：
Private Sub Cmd_Ok_Click()
Dim MPassword As String
If Cbx_Name.Text = "MR" And Txt_Password.Text = "mingrisoft" Then '判断是否使用的是超级口令登录
Frm_Main.StatusBar1.Panels.Item(2).Text = "当前操作员： MR"
Name1 = Cbx_Name.Text '将操作员姓名信息赋予全局变量Name1
Unload Me
Frm_Main.Show '显示系统主窗体
Else
Adodc1.RecordSource = "select * from tb_user where user_name ='" & Cbx_Name.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
MPassword = Adodc1.Recordset.Fields("user_mm")
If Txt_Password.Text = MPassword Then '判断数据的密码是否正确
Name1 = Cbx_Name.Text
Frm_Main.StatusBar1.Panels.Item(2).Text = "当前操作员： " +
Adodc1.Recordset.Fields("user_name")
Frm_Main.Show '通过身份验证则显示主窗体，登录到系统当中
Unload Me
Else
MsgBox "密码不正确,请您确认后重新输入", , "提示信息"
Txt_Password.Text = ""
Txt_Password.SetFocus
End If
Else
MsgBox "对不起 没有此用户的信息", , "提示信息"
Cbx_Name.Text = ""
Txt_Password.Text = ""
End If
End If
End Sub
如果在输入密码的文本框中按下〈Enter〉键，则将调用【确定】按钮的单击事件，判断登录用户是否合法，代码如下所示。
Private Sub Txt_Password_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Call Cmd_Ok_Click '调用确定按钮的单击事件代码
End If
End Sub
3.2 车辆调度安排
车辆调度安排是物流管理过程中的重要环节，物流公司在接到托运货物信息之后，首要的问题是安排托运货物的车辆。在本系统当中通过车辆调度安排填写安排托运车辆的信息，然后打印出车辆调度通知单，并将通知单发放到托运司机的手中，司机根据调度通知单上的信息执行托运任务。通过单击窗体中的Cmd_Select按钮选择车牌号码，然后输入其他一些辅助的信息，最后保存车辆调度安排信息。车辆调度安排模块的运行结果如图4所示。
图4 车辆调度安排窗体的运行结果
1．窗体设计
（1）在工程中新建1个窗体，将窗体的名称设置为“frm_Cldd”，BorderStyle属性设置为“1-Fixed Single”，MaxButton属性设置False。
（2）在窗体上添加1个Toolbar控件和1个ImageList控件。
（3）在窗体的Toolbar控件上单击鼠标右键，在弹出的快捷菜单中选择“属性”项，在弹出的“属性页”对话框中设置窗体的工具栏，设计完成的工具栏如图5所示。
（4）在窗体中添加1个Frame控件，在Frame控件上添加1个文本框控件数组，并为每个文本框控件 配置1个标签控件，并且设置相应的Caption属性值，如图5所示。
（5）在窗体上添加1个DTPicker控件，命名为DT1，用于输入或显示托运司机执行任务的日期时间。
（6）在窗体上添加1个Ado控件和1个DataGrid控件，将DataGrid控件的名称设置为Dgr_Sjll，DataSource属性设置为Adodc1，AllowUpdate属性值设置为False。
（7）在窗体中添加1个标签控件，命名为Lbl_Num。
（8）在窗体上添加1个时钟控件Timer1，在属性窗口中将控件的Interval属性值设置为60。
车辆调度安排窗体的设计结果如图5所示。
图5 车辆调度安排窗体的设计结果
2．代码设计
工具栏中的控制按钮控制着窗体的各项操作，在Toolbar控件Tbr_xxcz的ButtonClick事件当中，通过选择Select Case语句的索引值（单击工具栏中的按钮执行相应的索引值）调用相应的过程来完成添加、删除、修改和保存等操作的功能，保存过程事件的代码如下：
Private Sub Saves() '保存信息的过程
If Text1(0).Text = "" Or Text1(3).Text = "" Then
MsgBox "重要信息不能为空值", 48, "提示信息"
Else
AdoRs.Open "select * from tb_Goods_cldd where cldd_cphm='" +
Text1(0).Text + "'", Cnn, adOpenKeyset
If AdoRs.RecordCount > 0 Then
MsgBox "该信息已经存在", 48, "提示信息"
AdoRs.Close '关闭记录集对象
Else
AdoRs.Close '关闭记录集对象
c = MsgBox("确认保存信息吗", 33, "提示信息")
If c = vbOK Then
Set AdoRs = Cnn.Execute("insert into tb_Goods_cldd values('" &Txt_id & "','" & Text1(0)&
"','" & Text1(1) & "','" & Text1(2) & "','"& Text1(3) & "','" & Str(DT1.Value) & "','" & Text1(4)
& "','" & Text1(5)& "','" & Txt_bz & "')")
MsgBox "数据保存成功", 64, "提示信息"
Else
End If
Adodc1.RecordSource = "select * from tb_Goods_cldd order by cldd_id"
Adodc1.Refresh
Call DBGCon
End If
Call Tbr_cortrol(Tbr_xxcz, True)
End If
End Sub
用户自定义修改信息过程事件的代码如下：
Private Sub Edits() '修改信息的过程
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
物流管理系统论文范文 第3页下载如图片无法显示或论文不完整，请联系qq752018766
