物流运输管理系统
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] 下一页