编号")=bh
rowNew("车辆名称")=clmc
rowNew("车型")=cx
rowNew("颜色")=ys
rowNew("车牌号码")=cphm
rowNew("发动机号")=fdjh
rowNew("底盘号码")=dphm
rowNew("车架号码")=cjhm
rowNew("座位数")=zws
rowNew("载重")=zz
rowNew("购车价格")=gcjg
rowNew("购车日期")=gcrq
rowNew("初始公里数")=csgls
rowNew("保修期至")=bzqz
rowNew("客户名")=khm
ds.Tables("车辆基本信息表").Rows.Add(rowNew)
DataGrid1.DataSource=ds.Tables("车辆基本信息表")
DataGrid1.DataBind()
DimmyCBuilderAsNewSqlCommandBuilder(da)
da.InsertCommand=myCBuilder.GetInsertCommand
da.Update(ds,"车辆基本信息表")
EndSub
当点击"查询"按钮时,界面如下所示:
图4-5查询页面
例如,查询客户名为"张青青"的客户名,其执行结果如下:
图4-6查询实例
查询主要代码:
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimobjConnAsNewSqlConnection
objConn=ConnectionDatabase()
DimstrSQLAsString
Dimdatatable1AsDataTable
strSQL="SELECT*FROM车辆基本信息表where客户名='"+TextBox1.Text+"'"
datatable1=CreateDataSet(strSQL,"车辆基本信息表").Tables("车辆基本信息表")
DataGrid1.DataSource=datatable1
DataGrid1.DataBind()
EndSub
PrivateSubPage_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadConnectionDatabase()
DimstrSQLAsString
Dimdatatable1AsDataTable
strSQL="SELECT*FROM车辆基本信息表"
datatable1=CreateDataSet(strSQL,"车辆基本信息表").Tables("车辆基本信息表")
DataGrid1.DataSource=datatable1
DataGrid1.DataBind()
EndSub
当在车辆购车档案中更新信息时,界面如下所示:
图4-7更新页面
更新代码如下:
PrivateSubdatagrid1_EditCommand(ByValsourceAsObject,ByValeAsSystem.Web.UI.WebControls.DataGridCommandEventArgs)HandlesDataGrid1.EditCommand
a=CInt(e.Item.Cells(2).Text)
DataGrid1.EditItemIndex=e.Item.ItemIndex
DataGrid1.DataSource=ds
DataGrid1.DataMember="车辆基本信息表"DataGrid1.DataBind()
EndSub
PrivateSubdatagrid1_UpdateCommand(ByValsourceAsObject,ByValeAsSystem.Web.UI.WebControls.DataGridCommandEventArgs)HandlesDataGrid1.UpdateCommand
DimrowChangeAsDataRow=ds.Tables("车辆基本信息表").Rows.Find(a)
rowChange.BeginEdit()
rowChange("编号")=(CType(e.Item.Cells(2).Controls(0),TextBox)).Text.Trim()
rowChange("车辆名称")=(CType(e.Item.Cells(3).Controls(0),TextBox)).Text.Trim()
rowChange("车型")=(CType(e.Item.Cells(4).Controls(0),TextBox)).Text.Trim()
rowChange("颜色")=(CType(e.Item.Cells(5).Controls(0),TextBox)).Text.Trim()
rowChange("车牌号码")=(CType(e.Item.Cells(6).Controls(0),TextBox)).Text.Trim()
rowChange("发动机号")=(CType(e.Item.Cells(7).Controls(0),TextBox)).Text.Trim()
rowChange("底盘号码")=(CType(e.Item.Cells(8).Controls(0),TextBox)).Text.Trim()
rowChange("车架号码")=(CType(e.Item.Cells(9).Controls(0),TextBox)).Text.Trim()
rowChange("座位数")=(CType(e.Item.Cells(10).Controls(0),TextBox)).Text.Trim()
rowChange("载重")=(CType(e.Item.Cells(11).Controls(0),TextBox)).Text.Trim()
rowChange("购车价格")=(CType(e.Item.Cells(12).Controls(0),TextBox)).Text.Trim()
rowChange("购车日期")=(CType(e.Item.Cells(13).Controls(0),TextBox)).Text.Trim()
rowChange("初始公里数")=(CType(e.Item.Cells(14).Controls(0),TextBox)).Text.Trim()
rowChange("保修期至")=(CType(e.Item.Cells(15).Controls(0),TextBox)).Text.Trim()
rowChange("客户名")=(CType(e.Item.Cells(16).Controls(0),TextBox)).Text.Trim()
rowChange.EndEdit()
DataGrid1.EditItemIndex=-1
DataGrid1.DataSource=ds.Tables("车辆基本信息表")
DataGrid1.DataBind()
DimmyCBuilderAsNewSqlCommandBuilder(da)
da.UpdateCommand=myCBuilder.GetUpdateCommandda.Update(ds,"车辆基本信息表")
EndSub
4.3车辆维修档案功能的运行
当点击维修档案时,界面如下所示:
在本界面同样可以进行添加、查询、删除、更新等工作,出现的界面同车辆购车档案雷同的界面,它主要对车辆维修表(编号,车辆,维护日期,维修时公里数,维修单位,维护原因,花费金额,完毕日期,维护结果)进行修改。
图4-8更新界面
4.4车辆年检档案功能的运行
当点击车辆年检档案时,界面如下所示:
在本界面同样可以进行添加、查询、删除、更新等工作,出现的界面与车辆购车档案雷同的界面,它主要对车辆年检表(编号,喇叭,车型,灯光,制动刹车,侧滑,废气,车速,是否合格)进行修改。
图4-9车辆年检档案
4.5车辆评估模块功能的运行
当点击车辆评估档案时,会出现如下界面:
这时,需要用户输入汽车原值、使用年限、使用到第几年、折旧年限、维修次数、年检不合格次数、保养次数等基本信息。然后再选择使用强度、技术含量、维修保养水平、市场供求的信息。
点击"评估车辆"按钮在页面底部就会出现该车辆的得分以及评定等级了。
图4-10车辆评估界面
当操作完毕,点击"退出"按钮即可关闭所有窗口,退出车辆档案管理系统。
第五章结论与展望
5.1本文的意义
本文的目的在于使汽车销售企业中的车辆档案管理成为企业营运过程中一大亮点,为管理者进行管理决策和进行各种经营活动提供了重要的依据,为后续的工作打下良好的基础。开发此系统使得档案管理人员不需要花费大量的时间用于在各个部门之间的奔走,缩短了档案资料传送的时间,从而避免了大量的重复劳动,提高了工作效率。在整个开发过程中有效的结合了asp.net和sqlserver2000以及web技术。系统的可移植性决定了它可以适应不同的环境,符合企业在市场中的变化,在不同的环境中进行适当的调整便可以更方便使用了。
如果将本课题的研究成果与组中其他成员的项目进行良好的连接,做好接口的全部工作,将成为汽车销售企业中完整的系统。便可以用于完成汽车整个销售过程的进销存管理、档案管理(客户档案和车辆档案)、信贷管理等等。这样将大大改善各个部门消息的瓶颈,使得信息化管理真正的渗透到整个企业管理的所有环节。
在系统投入使用后,还要将企业信息化建设、人员培训、企业管理水平等因素提上日程,这样才能真正发挥管理系统的强大功能,使得企业效率更上一个台阶。
5.2本文的工作总结
根据老师任务书中的内容,通过本项目组成员的共同努力,目前已按进度完成了所有的工作。
①对于项目开发的现状进行了深入研究。
②对界
上一篇:
ASP_net008校友录sql(论文和程序)
下一篇:
哈弗F7 VS名爵HS,谁更懂得年轻人的心?