毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

物流运输管理系统

更新时间:2010-2-12:  来源:毕业论文

物流运输管理系统
4.1 用户登陆表单
新建立FRMLOGIN表单
是用来确定进入系统的身份验证
用户输入密码后,经过系统确认后,方可以进入系统,否则进入不了系统。防止无关的人员进入系统中,违规操作业务。
 
登陆窗体的控件及属性取值如下:
控件 属性 属性取值
Labe1 Name Labe1
 Caption 密码
Text Name txtItem
commandbutton Name cmdOk
 Caption 确定
commandbutton Name cmdExit
 Caption 取消
代码如下:
Private Sub cmdCancel_Click()          //对押下“取消”键的处理
    LoginSucceeded = False            // 登陆失败
    Unload Me                       //退出当前的窗口
End Sub

Private Sub cmdOK_Click() //对押下“确定”键的处理
    If trycount <= 5 Then //如果输入用户名密码出错次数小于5
        If (Trim(txtUserName) = "") Or (Trim(txtPassword) = "") Then //如果用户名和密码都为空
            trycount = trycount + 1  //出错次数加1
            MsgBox "用户名密码不能为空!", , "信息提示"
//输出用户密码不能为空的提示
        Else    
            Dim strsql As String //定义string类型的变量strsql
            Dim rs As New ADODB.Recordset // 定义一个ADO记录集rs
            strsql = "SELECT PASSWORD FROM MYUSERS WHERE USERNAME = '" & Trim(txtUserName) & "'"   
/*给变量strsql赋值,为 “SELECT PASSWORD FROM MYUSERS WHERE USERNAME = t xtUserName*/
            Set rs = sys.DB.OpenRecordSet(strsql)
//sys.DB.OpenRecordSet(strsql) 向accass执行查询.执行语句为strsql的值,rs为//返回结果
            If Not (rs.BOF Or rs.EOF) Then //如果查询有结果
                If Trim(txtPassword) = rs.Fields("PASSWORD") Then
//对密码进行判断,如果密码正确
                    trycount = 0 /出错的次数赋值为0
                    LoginSucceeded = True //登陆成功
                    Me.Hide              //隐藏登陆框
                    MainForm.Show        //主窗口显示 
                Else
                    trycount = trycount + 1  //否则出错次数加1
                    MsgBox "无效的密码,请重试!", , "信息提示"
//弹出提示框提示信息:无效的密码,请重试!
                    txtPassword.SetFocus //focus落在密码处
                    SendKeys "{Home}+{End}" //发送 HOME 和END 键


                End If
          /********************************************************/
是不是与上面的那段重复了呀?
  Else
                trycount = trycount + 1
                MsgBox "无效的密码,请重试!", , "信息提示"
                txtPassword.SetFocus
                SendKeys "{Home}+{End}"
            End If
/*************************************************/
        End If
    Else
        MsgBox "非法用户!", , "信息提示"//弹出提示框提示: 非法用户!
        Unload Me    //当前窗口关闭
    End If
End Sub
4.2 物流系统操作管理表单
新建立MAINFORM
这个表单是主界面表单,是物流系统操作管理的主要界面。在这个界面中,用户可以进行系统的所有操作,通过主界面上端的菜单选择进入各个模块。包括运单增加、客户管理、结算管理、系统管理和退出系统。
 
代码如下:
/*********设置窗口的宽度和高度******************************/
Private Sub MDIForm_Load()
    MainForm.Caption = "欢迎使用物流管理系统"
    MainForm.Left = Screen.Width * 0.1    
    MainForm.Top = Screen.Height * 0.1
    MainForm.Width = Screen.Width * 0.8
    MainForm.Height = Screen.Height * 0.8
End Sub
/*********************关闭所有的窗******************************/
Private Sub MDIForm_Unload(Cancel As Integer)
    '关闭所有窗体
    Unload frmBillManage
    Unload frmChangePassword
    Unload frmClient
    Unload frmClientAdd
    Unload frmClientUpdate
    Unload frmLogin
    Unload frmProduct
    Unload frmQuery
    Unload frmReport
    Unload frmStation
    Unload frmTraffic
    Unload frmTrafficAdd
    Unload frmTrafficUpdate
End Sub
/*********************点击某个按钮,显示对应的窗口*********/
Private Sub ParticularPrint_Click()
    frmBillManage.Show      
End Sub
Private Sub ProductManage_Click()
    frmProduct.Show
End Sub
Private Sub ReportPrint_Click()
    frmReport.Show
End Sub
Private Sub StationManage_Click()
    frmStation.Show
End Sub
Private Sub TrafficAdd_Click()
    frmTrafficAdd.Show
End Sub
Private Sub TrafficView_Click()
    frmTraffic.Show
End Sub741

[1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页

物流运输管理系统下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©lwfree.cn 六维论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。