数据库技术及应用课程设计项目设计报告说明书之汽车模型订购系统

数据库技术及应用课程设计项目设计报告说明书之汽车模型订购系统内容摘要：

MsgBox() End Try (DataSet11, 车型表 ) myDataRow = (订单表 ).NewRow() myDataRow(0) = Trim() myDataRow(1) = Trim() myDataRow(2) = Trim() myDataRow(3) = Trim() myDataRow(4) = Trim() myDataRow(5) = Trim(未 ) myDataRow(6) = Trim(未 ) (订单表 ).(myDataRow) (DataSet21, 订单表 ) (您的总费用为 amp。 y amp。 元 ) () = End If Exit Sub ElseIf .FindBy代号(Trim(Val())).价格 Then (请点击价格框 ) = Exit Sub ElseIf .FindBy代号 (Trim()).数量 0 Then i = MsgBox(此车型剩余 amp。 .FindBy代号(Trim()).数量 amp。 辆 , 1, 注意 ) If i = Then Dim x, y, m As Integer x = m = y = x * m Dim a, b As Integer a = Val( .FindBy代号(Trim()).数量 ) b = a m sql = update 车型表 set 车型表 .数量 =39。 amp。 Trim(b) amp。 39。 where 车型表 .代号 =39。 amp。 Trim() amp。 39。 Dim adapter As = New (sql, myconn) Try (_dataset) Catch ex As Exception MsgBox() End Try (DataSet11, 车型表 ) myDataRow = (订单表 ).NewRow() myDataRow(0) = Trim() myDataRow(1) = Trim() myDataRow(2) = Trim() myDataRow(3) = Trim() myDataRow(4) = Trim() myDataRow(5) = Trim(未 ) myDataRow(6) = Trim(未 ) (订单表 ).(myDataRow) (DataSet21, 订单表 ) (您的总费用为 amp。 y amp。 元 ) () = End If Exit Sub End If Else temp1 = False () End If Next k Else temp2 = False () End If Next j If Not temp1 Then (输入的车型代码有错误 ) ElseIf Not temp2 Then (您还未注册 ) End If End Sub 以下是进行订单查询操作代码 Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles Dim temp As Boolean temp = True Dim q As Integer For q = 0 To . 1 If = Or = Then (请输入订单号 和密码 ) Exit Sub ElseIf = .Rows(q).Item(0) Then Dim myconn As New (Initial Catalog=汽车租用公司。 Data Source=HAIERDT935NWDX。 Integrated Security=SSPI。 ) Dim mym As = New (查询信息。 1, myconn) = Dim para_ddh As = (@_ddh, ) = Dim para_mm As = (@_mm, , 6) = () Dim daGetOrders As New SqlDataAdapter(mym) Dim dsOrders As New DataSet (dsOrders, 订单表 ) = (订单表 ) = = Exit Sub Else temp = False () End If Next If Not temp Then (您所输入的订单号不存在 ) = = End If End Sub Private Sub Label16_Click(ByVal sender As , ByVal e As ) Handles Dim h As Integer h = . 1 = h + 2 End Sub Private Sub Button6_Click(ByVal sender As , ByVal e As ) Handles = = = = End Sub 以下是对用户进行注册及修改 Private Sub Button10_Click(ByVal sender As , ByVal e As ) Handles Dim temp As Boolean temp = True Dim j As Integer For j = 0 To . 1 If = .Rows(j).Item(0) Then = (此用户名已存在，请重新输入 ) Exit Sub ElseIf Len() 10 Then (请确认输入用户名字符串长度不超过 10) Exit Sub Else temp = False () End If Next j If Not temp Then (用户名可行 ) End If End Sub Private Sub Button7_Click(ByVal sender As , ByVal e As ) Handles Dim temp As Boolean temp = True If = Or = Or = Or = Or = Then (请将信息填满 ) ElseIf Len() 8 Then (请详细输入地址 )。