|
2.车辆档案表:
http://www.paper51.com
3.车辆事故表: 内容来自www.paper51.com 内容来自www.paper51.com 4:车辆违规表: copyright paper51.com 内容来自论文无忧网 www.paper51.com 5:车辆维修表: paper51.com
paper51.com 6:车辆变更表: paper51.com
内容来自论文无忧网 www.paper51.com
7:车辆运营表: paper51.com paper51.com 8:驾驶员档案 paper51.com 内容来自www.paper51.com 9:奖惩表: 内容来自www.paper51.com
内容来自www.paper51.com 10:零件表: paper51.com
paper51.com 11:用户表: 内容来自论文无忧网 www.paper51.com paper51.com 3．3 界面设计与代码设计 内容来自www.paper51.com 1:登陆界面设计 paper51.com
copyright paper51.com 登陆界面代码设计: copyright paper51.com Private SubCombo1_KeyPress(KeyAscii AsInteger) 内容来自www.paper51.com
If KeyAscii= 13 Then 内容来自论文无忧网 www.paper51.com
Command1.SetFocus 内容来自www.paper51.com End If paper51.com
End Sub copyright paper51.com Private SubCommand1_Click() http://www.paper51.com Set adors= adoCon.Execute("select * from 用户表 where 用户姓名=ltrim('" & Text1 & "') and 密码=ltrim('" & Text2& "') and 用户类型=ltrim('"& Combo1.Text & "')") http://www.paper51.com
If adors.EOFThen paper51.com MsgBox "您输入的信息有误，请重新输入！", , "系统提示" 内容来自论文无忧网 www.paper51.com Text1 = "" paper51.com Text2 = "" http://www.paper51.com
Text1.SetFocus paper51.com i = i + 1 内容来自www.paper51.com If i = 3 Then copyright paper51.com
MsgBox "对不起，您已无权使用本系统！",, "系统提示" 内容来自论文无忧网 www.paper51.com Unload Me 内容来自论文无忧网 www.paper51.com EndIf 内容来自www.paper51.com
Else copyright paper51.com Select Case adors!用户类型 paper51.com Case "管理员" 内容来自www.paper51.com
copyright paper51.com Case "普通用户" paper51.com MDIForm1.mnuyydelete.Enabled = False http://www.paper51.com MDIForm1.mnusyscsh.Enabled = False 内容来自论文无忧网 www.paper51.com MDIForm1.mnuglyset.Enabled = False copyright paper51.com EndSelect 内容来自论文无忧网 www.paper51.com
MDIForm1.Show copyright paper51.com adors.Close 内容来自www.paper51.com
Unload Me 内容来自论文无忧网 www.paper51.com End If copyright paper51.com
End Sub copyright paper51.com
Private SubCommand2_Click() paper51.com
Unload Me 内容来自www.paper51.com
'adoRs.Close http://www.paper51.com
End Sub paper51.com Private Sub Form_Load() paper51.com Combo1.ListIndex = 0 copyright paper51.com End Sub paper51.com Private Sub Text1_KeyPress(KeyAscii As Integer) paper51.com If KeyAscii= 13 Then paper51.com Text2.SetFocus 内容来自论文无忧网 www.paper51.com End If paper51.com End Sub 内容来自论文无忧网 www.paper51.com
Private Sub Text2_KeyPress(KeyAscii As Integer) copyright paper51.com If KeyAscii= 13 Then copyright paper51.com Combo1.SetFocus paper51.com
End If http://www.paper51.com End Sub 内容来自论文无忧网 www.paper51.com 2车辆报废查询: 内容来自论文无忧网 www.paper51.com
http://www.paper51.com 代码分析: http://www.paper51.com
Private Sub ckcp_Click() paper51.com If ckcp.ValueThen paper51.com cmcp.Enabled= True paper51.com Else 内容来自论文无忧网 www.paper51.com
cmcp.Enabled= False http://www.paper51.com End If http://www.paper51.com
End Sub 内容来自www.paper51.com Private Sub cktime_Click() copyright paper51.com If cktime.ValueThen 内容来自www.paper51.com dtStart.Enabled= True copyright paper51.com
dtEnd.Enabled= True http://www.paper51.com Else copyright paper51.com dtStart.Enabled= False 内容来自论文无忧网 www.paper51.com
dtEnd.Enabled= False http://www.paper51.com End If 内容来自论文无忧网 www.paper51.com
End Sub 内容来自论文无忧网 www.paper51.com Private Sub ckyy_Click() 内容来自论文无忧网 www.paper51.com If ckyy.ValueThen http://www.paper51.com cmyy.Enabled= True 内容来自论文无忧网 www.paper51.com
Else 内容来自www.paper51.com cmyy.Enabled= False 内容来自www.paper51.com End If 内容来自论文无忧网 www.paper51.com End Sub 内容来自论文无忧网 www.paper51.com Private Sub cmdCha_Click() 内容来自论文无忧网 www.paper51.com
'点击查询按纽后首先清空车辆报废列表 paper51.com Call QingKong 内容来自论文无忧网 www.paper51.com '定义查询条件的字符串 http://www.paper51.com Dim sql AsString http://www.paper51.com
Dim scp As String 内容来自www.paper51.com If ckcp.ValueThen paper51.com
scp= "车牌号码 like '%" & cmcp.Text& "%'" 内容来自论文无忧网 www.paper51.com Else http://www.paper51.com |