|
内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com
第二章 系统的分析 http://www.paper51.com copyright paper51.com
内容来自www.paper51.com 2.1系统开发的目标和思想 http://www.paper51.com
内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com
paper51.com 本系统主要服务于机动车管理人员的日常工作.利用本系统可以方便的监控管理本区域的驾驶员信息.在此基础上力求软件界面人性化以及操作简单,程序具有健壮性等. 内容来自论文无忧网 www.paper51.com
paper51.com
http://www.paper51.com
copyright paper51.com
copyright paper51.com
http://www.paper51.com
http://www.paper51.com
内容来自www.paper51.com
copyright paper51.com
http://www.paper51.com 内容来自www.paper51.com
paper51.com
2.2 系统的可行性分析 copyright paper51.com
http://www.paper51.com
内容来自www.paper51.com
技术上:本系统采用visualbasic 6.0与微软的access作为数据库,技术上开发难度一般. 内容来自论文无忧网 www.paper51.com
http://www.paper51.com
内容来自www.paper51.com 经济上:本系统服务于车辆管理人员,提高了车管工作者办事效率,节省了开支.所以具有经济上的可行性. 内容来自www.paper51.com
copyright paper51.com
copyright paper51.com 社会上:本系统同时也方便了广大驾驶员.所以具有社会可行性. paper51.com
copyright paper51.com
内容来自www.paper51.com
copyright paper51.com paper51.com paper51.com 内容来自论文无忧网 www.paper51.com
http://www.paper51.com
paper51.com copyright paper51.com
paper51.com
http://www.paper51.com
paper51.com
copyright paper51.com
paper51.com 第三章 系统的设计 paper51.com
内容来自www.paper51.com
copyright paper51.com
copyright paper51.com copyright paper51.com
copyright paper51.com 3．1 系统的功能结构设计 内容来自论文无忧网 www.paper51.com
http://www.paper51.com
paper51.com
paper51.com paper51.com
http://www.paper51.com 内容来自论文无忧网 www.paper51.com
http://www.paper51.com paper51.com
内容来自论文无忧网 www.paper51.com
paper51.com http://www.paper51.com 内容来自www.paper51.com
http://www.paper51.com
copyright paper51.com
内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com 3．2 系统的数据库设计 copyright paper51.com 内容来自www.paper51.com 内容来自www.paper51.com 1.车辆报废表: 内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com
paper51.com copyright paper51.com
内容来自www.paper51.com
http://www.paper51.com 内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com 内容来自www.paper51.com
paper51.com http://www.paper51.com http://www.paper51.com
copyright paper51.com
copyright paper51.com http://www.paper51.com 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com paper51.com 内容来自www.paper51.com http://www.paper51.com 内容来自www.paper51.com
http://www.paper51.com
paper51.com
http://www.paper51.com 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com 2.车辆档案表: 内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com
内容来自www.paper51.com
copyright paper51.com http://www.paper51.com 3.车辆事故表: http://www.paper51.com http://www.paper51.com 内容来自www.paper51.com
内容来自www.paper51.com
copyright paper51.com
http://www.paper51.com
4:车辆违规表: paper51.com paper51.com 内容来自www.paper51.com
内容来自www.paper51.com copyright paper51.com
paper51.com
5:车辆维修表: paper51.com
内容来自www.paper51.com
copyright paper51.com
copyright paper51.com paper51.com paper51.com 6:车辆变更表: http://www.paper51.com
http://www.paper51.com
内容来自论文无忧网 www.paper51.com paper51.com
copyright paper51.com
内容来自论文无忧网 www.paper51.com
copyright paper51.com
内容来自论文无忧网 www.paper51.com paper51.com 7:车辆运营表: paper51.com
内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com http://www.paper51.com 内容来自www.paper51.com paper51.com
http://www.paper51.com
paper51.com 8:驾驶员档案 copyright paper51.com 内容来自论文无忧网 www.paper51.com paper51.com
copyright paper51.com 内容来自www.paper51.com 内容来自www.paper51.com 9:奖惩表: copyright paper51.com
内容来自论文无忧网 www.paper51.com copyright paper51.com
paper51.com
copyright paper51.com paper51.com 10:零件表: 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com paper51.com
http://www.paper51.com
paper51.com
copyright paper51.com 11:用户表: paper51.com paper51.com
copyright paper51.com
内容来自www.paper51.com copyright paper51.com
paper51.com
http://www.paper51.com http://www.paper51.com
copyright paper51.com
paper51.com
paper51.com copyright paper51.com http://www.paper51.com 内容来自www.paper51.com
内容来自www.paper51.com 3．3 界面设计与代码设计 http://www.paper51.com copyright paper51.com
paper51.com 1:登陆界面设计 copyright paper51.com
paper51.com 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com
copyright paper51.com 登陆界面代码设计: http://www.paper51.com
http://www.paper51.com
内容来自www.paper51.com Private SubCombo1_KeyPress(KeyAscii AsInteger) 内容来自www.paper51.com
copyright paper51.com
copyright paper51.com
If KeyAscii= 13 Then paper51.com http://www.paper51.com 内容来自www.paper51.com Command1.SetFocus paper51.com
内容来自www.paper51.com
paper51.com End If copyright paper51.com paper51.com http://www.paper51.com End Sub 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com copyright paper51.com 内容来自www.paper51.com
http://www.paper51.com
Private SubCommand1_Click() 内容来自论文无忧网 www.paper51.com copyright paper51.com
内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com http://www.paper51.com copyright paper51.com Set adors= adoCon.Execute("select * from 用户表 where 用户姓名=ltrim('" & Text1 & "') and 密码=ltrim('" & Text2& "') and 用户类型=ltrim('"& Combo1.Text & "')") 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com If adors.EOFThen paper51.com
copyright paper51.com
内容来自论文无忧网 www.paper51.com MsgBox "您输入的信息有误，请重新输入！", , "系统提示" 内容来自www.paper51.com http://www.paper51.com
内容来自www.paper51.com Text1 = "" copyright paper51.com
copyright paper51.com
copyright paper51.com Text2 = "" 内容来自论文无忧网 www.paper51.com
copyright paper51.com
内容来自www.paper51.com Text1.SetFocus 内容来自www.paper51.com
paper51.com
内容来自www.paper51.com i = i + 1 copyright paper51.com copyright paper51.com 内容来自论文无忧网 www.paper51.com If i = 3 Then copyright paper51.com
paper51.com http://www.paper51.com MsgBox "对不起，您已无权使用本系统！",, "系统提示" paper51.com copyright paper51.com 内容来自www.paper51.com Unload Me 内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com copyright paper51.com EndIf paper51.com
paper51.com
http://www.paper51.com
Else paper51.com http://www.paper51.com
copyright paper51.com Select Case adors!用户类型 http://www.paper51.com
内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com Case "管理员" copyright paper51.com
copyright paper51.com paper51.com 内容来自论文无忧网 www.paper51.com
copyright paper51.com
copyright paper51.com Case "普通用户" 内容来自论文无忧网 www.paper51.com
paper51.com paper51.com MDIForm1.mnuyydelete.Enabled = False http://www.paper51.com
内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com MDIForm1.mnusyscsh.Enabled = False paper51.com 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
MDIForm1.mnuglyset.Enabled = False http://www.paper51.com
paper51.com http://www.paper51.com EndSelect 内容来自www.paper51.com
http://www.paper51.com copyright paper51.com MDIForm1.Show 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com
http://www.paper51.com
adors.Close 内容来自www.paper51.com
paper51.com
内容来自论文无忧网 www.paper51.com Unload Me http://www.paper51.com
paper51.com paper51.com End If 内容来自www.paper51.com
http://www.paper51.com
内容来自论文无忧网 www.paper51.com End Sub copyright paper51.com
copyright paper51.com 内容来自www.paper51.com 内容来自www.paper51.com http://www.paper51.com 内容来自论文无忧网 www.paper51.com Private SubCommand2_Click() paper51.com
paper51.com
copyright paper51.com Unload Me 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
http://www.paper51.com 'adoRs.Close 内容来自www.paper51.com 内容来自www.paper51.com copyright paper51.com End Sub 内容来自论文无忧网 www.paper51.com
copyright paper51.com
http://www.paper51.com http://www.paper51.com 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com Private Sub Form_Load() 内容来自论文无忧网 www.paper51.com
paper51.com 内容来自论文无忧网 www.paper51.com Combo1.ListIndex = 0 copyright paper51.com 内容来自论文无忧网 www.paper51.com
paper51.com
End Sub 内容来自www.paper51.com paper51.com copyright paper51.com copyright paper51.com
copyright paper51.com 内容来自www.paper51.com Private Sub Text1_KeyPress(KeyAscii As Integer) 内容来自论文无忧网 www.paper51.com
http://www.paper51.com
copyright paper51.com
If KeyAscii= 13 Then copyright paper51.com
内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com
Text2.SetFocus http://www.paper51.com http://www.paper51.com paper51.com End If 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
http://www.paper51.com End Sub paper51.com
copyright paper51.com
http://www.paper51.com
Private Sub Text2_KeyPress(KeyAscii As Integer) copyright paper51.com
http://www.paper51.com
内容来自www.paper51.com
If KeyAscii= 13 Then copyright paper51.com
内容来自论文无忧网 www.paper51.com
copyright paper51.com Combo1.SetFocus http://www.paper51.com
paper51.com
内容来自论文无忧网 www.paper51.com End If http://www.paper51.com http://www.paper51.com 内容来自www.paper51.com End Sub 内容来自www.paper51.com 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com
copyright paper51.com 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com
paper51.com http://www.paper51.com http://www.paper51.com 内容来自www.paper51.com copyright paper51.com http://www.paper51.com http://www.paper51.com
内容来自论文无忧网 www.paper51.com http://www.paper51.com 2车辆报废查询: http://www.paper51.com 内容来自论文无忧网 www.paper51.com
copyright paper51.com
内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com http://www.paper51.com 代码分析: http://www.paper51.com
内容来自论文无忧网 www.paper51.com
copyright paper51.com
Private Sub ckcp_Click() copyright paper51.com
copyright paper51.com
copyright paper51.com If ckcp.ValueThen http://www.paper51.com
http://www.paper51.com
内容来自论文无忧网 www.paper51.com
cmcp.Enabled= True 内容来自论文无忧网 www.paper51.com
http://www.paper51.com paper51.com Else 内容来自www.paper51.com
内容来自www.paper51.com
http://www.paper51.com cmcp.Enabled= False paper51.com
内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com End If 内容来自www.paper51.com copyright paper51.com
http://www.paper51.com End Sub 内容来自www.paper51.com
paper51.com 内容来自www.paper51.com http://www.paper51.com
http://www.paper51.com
内容来自www.paper51.com Private Sub cktime_Click() http://www.paper51.com paper51.com
内容来自www.paper51.com If cktime.ValueThen 内容来自www.paper51.com
paper51.com paper51.com dtStart.Enabled= True 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com
paper51.com dtEnd.Enabled= True http://www.paper51.com copyright paper51.com http://www.paper51.com Else http://www.paper51.com
copyright paper51.com
copyright paper51.com dtStart.Enabled= False copyright paper51.com
内容来自www.paper51.com
copyright paper51.com dtEnd.Enabled= False 内容来自论文无忧网 www.paper51.com
http://www.paper51.com
copyright paper51.com
End If 内容来自论文无忧网 www.paper51.com
http://www.paper51.com
http://www.paper51.com End Sub 内容来自www.paper51.com
paper51.com copyright paper51.com
http://www.paper51.com
内容来自www.paper51.com
http://www.paper51.com
Private Sub ckyy_Click() 内容来自论文无忧网 www.paper51.com
paper51.com
copyright paper51.com If ckyy.ValueThen copyright paper51.com 内容来自论文无忧网 www.paper51.com http://www.paper51.com cmyy.Enabled= True http://www.paper51.com
copyright paper51.com
内容来自www.paper51.com
Else paper51.com http://www.paper51.com 内容来自论文无忧网 www.paper51.com cmyy.Enabled= False copyright paper51.com paper51.com
copyright paper51.com End If http://www.paper51.com
内容来自www.paper51.com
http://www.paper51.com End Sub 内容来自www.paper51.com paper51.com copyright paper51.com Private Sub cmdCha_Click() http://www.paper51.com
内容来自论文无忧网 www.paper51.com
copyright paper51.com
'点击查询按纽后首先清空车辆报废列表 http://www.paper51.com 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com Call QingKong 内容来自www.paper51.com
paper51.com
http://www.paper51.com '定义查询条件的字符串 http://www.paper51.com
内容来自www.paper51.com
paper51.com
Dim sql AsString 内容来自www.paper51.com
copyright paper51.com
内容来自论文无忧网 www.paper51.com Dim scp As String 内容来自www.paper51.com paper51.com
paper51.com
If ckcp.ValueThen 内容来自论文无忧网 www.paper51.com
paper51.com copyright paper51.com scp= "车牌号码 like '%" & cmcp.Text& "%'" http://www.paper51.com
copyright paper51.com
paper51.com Else copyright paper51.com 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com scp= "车牌号码 like '%'" copyright paper51.com
paper51.com
copyright paper51.com End If http://www.paper51.com
http://www.paper51.com http://www.paper51.com Dim stime AsString paper51.com paper51.com
内容来自www.paper51.com If cktime.ValueThen 内容来自www.paper51.com
http://www.paper51.com
paper51.com
stime= "报废日期 between #" & dtStart.Month& "/" & dtStart.Day &"/" & dtStart.Year & "# and#" & dtEnd.Month & "/" & dtEnd.Day & "/" & dtEnd.Year& "#" http://www.paper51.com http://www.paper51.com paper51.com Else http://www.paper51.com http://www.paper51.com
paper51.com stime= "报废日期 like '%'" 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com End If paper51.com http://www.paper51.com 内容来自论文无忧网 www.paper51.com Dim sdd AsString 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com If ckyy.ValueThen paper51.com 内容来自www.paper51.com
copyright paper51.com
syy= "报废原因 like'%" & cmyy.Text& "%'" paper51.com paper51.com
copyright paper51.com Else paper51.com
内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com syy= "报废原因 like '%'" http://www.paper51.com
内容来自www.paper51.com
内容来自www.paper51.com End If 内容来自www.paper51.com
内容来自www.paper51.com
copyright paper51.com sql ="select * from 车辆报废表 where " & scp& "and " & syy & "and" & stime 内容来自论文无忧网 www.paper51.com
http://www.paper51.com paper51.com '如果没有选择查询条件，那么清空上一次查询结果并给出对话框提示，退出查询过程 内容来自www.paper51.com copyright paper51.com
copyright paper51.com
If sql ="select * from 车辆报废表 where 车牌号码 like'%'and 报废原因 like '%'and 报废日期 like'%'" Then http://www.paper51.com http://www.paper51.com
http://www.paper51.com
Call QingKong 内容来自论文无忧网 www.paper51.com
http://www.paper51.com
http://www.paper51.com
MsgBox"请选择查询条件", , "系统提示" 内容来自www.paper51.com paper51.com http://www.paper51.com Exit Sub copyright paper51.com
http://www.paper51.com http://www.paper51.com End If paper51.com paper51.com paper51.com '返回符合查询条件的记录集 paper51.com
内容来自www.paper51.com copyright paper51.com Set adors = adoCon.Execute(sql) paper51.com 内容来自www.paper51.com 内容来自www.paper51.com '如果记录集为空，说明没有符合条件的记录存在，清空上一次查询结果集并提示， 内容来自www.paper51.com
paper51.com
内容来自www.paper51.com '退出此次查询过程，否则在datagrid1控件里显示记录集 paper51.com 内容来自论文无忧网 www.paper51.com copyright paper51.com If adors.EOFThen copyright paper51.com
paper51.com
copyright paper51.com Call QingKong paper51.com
内容来自www.paper51.com
paper51.com MsgBox"对不起，没有符合您查询条件的车辆！", , "系统提示" paper51.com
copyright paper51.com
http://www.paper51.com Else 内容来自论文无忧网 www.paper51.com
copyright paper51.com
内容来自www.paper51.com Adodc1.RecordSource = sql paper51.com
paper51.com
内容来自www.paper51.com Adodc1.Refresh http://www.paper51.com
内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com End If 内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com
adors.Close paper51.com
copyright paper51.com http://www.paper51.com ckcp.Value = 0 http://www.paper51.com
http://www.paper51.com
http://www.paper51.com cktime.Value =0 内容来自www.paper51.com
copyright paper51.com 内容来自www.paper51.com ckyy.Value = 0 内容来自www.paper51.com copyright paper51.com
内容来自论文无忧网 www.paper51.com
End Sub 内容来自www.paper51.com
内容来自www.paper51.com
paper51.com
copyright paper51.com 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com Private Sub cmdExit_Click() paper51.com copyright paper51.com
内容来自论文无忧网 www.paper51.com
MDIForm1.StatusBar1.Panels(1).Text= "" copyright paper51.com http://www.paper51.com 内容来自论文无忧网 www.paper51.com Unload Me http://www.paper51.com
内容来自www.paper51.com
http://www.paper51.com End Sub 内容来自论文无忧网 www.paper51.com
copyright paper51.com 内容来自www.paper51.com Private Sub Form_Load() paper51.com
http://www.paper51.com
paper51.com frmcarBFcha.Height= 4155 paper51.com
copyright paper51.com
paper51.com
frmcarBFcha.Width= 5730 paper51.com
http://www.paper51.com 内容来自论文无忧网 www.paper51.com Label1.Caption = "车辆报废列表" paper51.com
paper51.com 内容来自www.paper51.com Call Rebind 内容来自www.paper51.com
copyright paper51.com
copyright paper51.com
'将车辆报废表里的车牌号码加到cmcp控件里 内容来自www.paper51.com paper51.com
内容来自www.paper51.com
Set adors = adoCon.Execute("select distinct 车牌号码,报废原因 from 车辆报废表") http://www.paper51.com
paper51.com
内容来自论文无忧网 www.paper51.com On Error Resume Next copyright paper51.com copyright paper51.com 内容来自www.paper51.com Do 内容来自www.paper51.com
内容来自www.paper51.com paper51.com cmcp.AddItem adors.Fields(0) copyright paper51.com
内容来自www.paper51.com
内容来自www.paper51.com
cmyy.AddItemadors.Fields(1) 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com adors.MoveNext 内容来自论文无忧网 www.paper51.com
http://www.paper51.com
paper51.com Loop Until adors.EOF 内容来自www.paper51.com copyright paper51.com 内容来自www.paper51.com End Sub copyright paper51.com
内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
Private Sub Rebind() paper51.com
内容来自论文无忧网 www.paper51.com
paper51.com Label1.Caption = "车辆报废列表" paper51.com
copyright paper51.com
内容来自论文无忧网 www.paper51.com '进行与数据库的绑定及选择作为记录源的表 copyright paper51.com
内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com
Adodc1.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& App.Path & "\clgl.mdb " &";Persist Security Info=False" 内容来自论文无忧网 www.paper51.com
paper51.com http://www.paper51.com Adodc1.RecordSource = "select *from 车辆报废表" paper51.com
paper51.com 内容来自论文无忧网 www.paper51.com Adodc1.Refresh 内容来自www.paper51.com
copyright paper51.com
内容来自论文无忧网 www.paper51.com End Sub 内容来自www.paper51.com
内容来自www.paper51.com
paper51.com
Private Sub QingKong() http://www.paper51.com copyright paper51.com
内容来自论文无忧网 www.paper51.com
Label1.Caption = "您所要查询的报废车辆记录如下：" paper51.com
http://www.paper51.com
copyright paper51.com Adodc1.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & App.Path & "\clgl.mdb" & ";Persist Security Info=False" http://www.paper51.com
内容来自论文无忧网 www.paper51.com copyright paper51.com Adodc1.RecordSource ="select * from 车辆报废表 where 0=1" 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
http://www.paper51.com
Adodc1.Refresh paper51.com
内容来自论文无忧网 www.paper51.com copyright paper51.com End Sub http://www.paper51.com
内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com Private Sub Form_QueryUnload(CancelAs Integer, UnloadMode As Integer) paper51.com copyright paper51.com 内容来自www.paper51.com cmdExit_Click copyright paper51.com
内容来自www.paper51.com
内容来自www.paper51.com
End Sub copyright paper51.com
http://www.paper51.com paper51.com paper51.com http://www.paper51.com
内容来自www.paper51.com 内容来自www.paper51.com 内容来自www.paper51.com
paper51.com
内容来自www.paper51.com
paper51.com 内容来自论文无忧网 www.paper51.com 3.车辆档案查询: 内容来自www.paper51.com http://www.paper51.com http://www.paper51.com
内容来自论文无忧网 www.paper51.com copyright paper51.com paper51.com 代码分析: http://www.paper51.com
内容来自论文无忧网 www.paper51.com paper51.com Private Sub ckbf_Click() http://www.paper51.com 内容来自www.paper51.com http://www.paper51.com If ckbf.ValueThen http://www.paper51.com
http://www.paper51.com http://www.paper51.com Combo6.Enabled = True 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com http://www.paper51.com Else 内容来自www.paper51.com http://www.paper51.com
内容来自www.paper51.com
Combo6.Enabled = False 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com
paper51.com
End If paper51.com 内容来自www.paper51.com
内容来自www.paper51.com End Sub 内容来自www.paper51.com
http://www.paper51.com 内容来自论文无忧网 www.paper51.com
copyright paper51.com http://www.paper51.com
paper51.com
Private Sub ckbx_Click() copyright paper51.com
内容来自论文无忧网 www.paper51.com
paper51.com If ckbx.ValueThen 内容来自www.paper51.com
http://www.paper51.com
http://www.paper51.com Combo4.Enabled = True 内容来自论文无忧网 www.paper51.com
paper51.com
内容来自论文无忧网 www.paper51.com Else 内容来自论文无忧网 www.paper51.com
copyright paper51.com paper51.com Combo4.Enabled = False 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com 内容来自www.paper51.com End If 内容来自论文无忧网 www.paper51.com copyright paper51.com copyright paper51.com End Sub copyright paper51.com paper51.com
paper51.com
内容来自www.paper51.com
http://www.paper51.com
paper51.com Private Sub ckcp_Click() copyright paper51.com copyright paper51.com
内容来自www.paper51.com
If ckcp.ValueThen paper51.com
内容来自论文无忧网 www.paper51.com
copyright paper51.com Combo1.Enabled =True 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com
copyright paper51.com
Else 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com paper51.com Combo1.Enabled =False 内容来自www.paper51.com
copyright paper51.com 内容来自www.paper51.com End If 内容来自论文无忧网 www.paper51.com
paper51.com http://www.paper51.com End Sub 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com paper51.com paper51.com 内容来自www.paper51.com http://www.paper51.com Private Sub ckdw_Click() 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com
If ckdw.ValueThen copyright paper51.com
内容来自论文无忧网 www.paper51.com
copyright paper51.com Combo3.Enabled = True 内容来自www.paper51.com
paper51.com
copyright paper51.com Else http://www.paper51.com
http://www.paper51.com
http://www.paper51.com
Combo3.Enabled = False 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com
内容来自www.paper51.com
End If 内容来自www.paper51.com
paper51.com
内容来自论文无忧网 www.paper51.com End Sub copyright paper51.com
copyright paper51.com
copyright paper51.com
copyright paper51.com
内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com Private Sub cklx_Click() 内容来自www.paper51.com
http://www.paper51.com
内容来自www.paper51.com
If cklx.ValueThen paper51.com
http://www.paper51.com
paper51.com
Combo2.Enabled = True http://www.paper51.com 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com Else 内容来自www.paper51.com
paper51.com paper51.com Combo2.Enabled = False paper51.com
内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com End If 内容来自论文无忧网 www.paper51.com
copyright paper51.com
paper51.com
End Sub 内容来自论文无忧网 www.paper51.com paper51.com
内容来自论文无忧网 www.paper51.com
http://www.paper51.com 内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com Private Sub ckyd_Click() 内容来自www.paper51.com
http://www.paper51.com paper51.com If ckyd.ValueThen copyright paper51.com http://www.paper51.com copyright paper51.com Combo5.Enabled = True copyright paper51.com
内容来自论文无忧网 www.paper51.com copyright paper51.com Else 内容来自www.paper51.com http://www.paper51.com copyright paper51.com Combo5.Enabled = False http://www.paper51.com 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com
End If http://www.paper51.com 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com End Sub paper51.com
http://www.paper51.com
http://www.paper51.com
内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com
内容来自www.paper51.com Private Sub cmdAll_Click() 内容来自www.paper51.com
内容来自www.paper51.com
paper51.com Frame1.Enabled = False copyright paper51.com
内容来自www.paper51.com
copyright paper51.com
ckcp.Value = 0 copyright paper51.com http://www.paper51.com
http://www.paper51.com
cklx.Value = 0 copyright paper51.com
内容来自www.paper51.com copyright paper51.com ckdw.Value = 0 内容来自论文无忧网 www.paper51.com
http://www.paper51.com 内容来自论文无忧网 www.paper51.com ckbx.Value = 0 copyright paper51.com copyright paper51.com http://www.paper51.com ckyd.Value = 0 copyright paper51.com
copyright paper51.com paper51.com ckbf.Value = 0 paper51.com
http://www.paper51.com 内容来自论文无忧网 www.paper51.com Call Rebind 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com
paper51.com
cmdCha.Visible= True 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com cmdAll.Visible= False 内容来自www.paper51.com copyright paper51.com
copyright paper51.com
cmdOk.Enabled= False paper51.com 内容来自www.paper51.com http://www.paper51.com End Sub copyright paper51.com
内容来自www.paper51.com
copyright paper51.com
内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
paper51.com Private Sub cmdExit_Click() copyright paper51.com paper51.com
内容来自论文无忧网 www.paper51.com
MDIForm1.StatusBar1.Panels(1).Text= "" copyright paper51.com copyright paper51.com
http://www.paper51.com Unload Me http://www.paper51.com paper51.com
内容来自www.paper51.com End Sub paper51.com 内容来自www.paper51.com http://www.paper51.com copyright paper51.com
copyright paper51.com
|